Appendix A: QrPanel
Rapid-Q
Custom Component - 2004
|
-
|
|
QrPanel Component
QrPanel implements a generic container for your components just like
QPanel, but this one has round corners if you like. QrPanel can
however completely replace QPanel since you can toggle on and off
the value which makes QrPanel have round corners.
QrPanel
Properties
Field
|
Type
|
R/W
|
Default
|
Support
|
|
|
|
|
|
Align
|
INTEGER
|
RW
|
alNone
|
W
|
Alignment
|
INTEGER
|
RW
|
taCenter
|
W
|
BevelInner
|
INTEGER
|
RW
|
bvNone
|
W
|
BevelOuter
|
INTEGER
|
RW
|
bvRaised
|
W
|
BevelWidth
|
INTEGER
|
RW
|
1
|
W
|
BorderStyle
|
INTEGER
|
RW
|
bsNone
|
W
|
Caption
|
STRING
|
RW
|
|
W
|
ClientHeight
|
INTEGER
|
RW
|
|
WX
|
ClientWidth
|
INTEGER
|
RW
|
|
WX
|
Color
|
INTEGER
|
RW
|
|
W
|
Cursor
|
INTEGER
|
RW
|
crDefault
|
W
|
Enabled
|
INTEGER
|
RW
|
True
|
WX
|
Font
|
QFONT
|
W
|
|
W
|
Height
|
INTEGER
|
RW
|
|
WX
|
Hint
|
STRING
|
RW
|
|
W
|
Left
|
INTEGER
|
RW
|
0
|
WX
|
Parent
|
QFORM/QPANEL/QTABCONTROL
|
W
|
|
WX
|
RBorder
|
BYTE
|
RW
|
0
|
W ( X ? )
|
RndX
|
LONG
|
RW
|
20
|
W ( X ? )
|
RndY
|
LONG
|
RW
|
20
|
W ( X ? )
|
ShowHint
|
INTEGER
|
RW
|
False
|
W
|
TabOrder
|
INTEGER
|
RW
|
|
W
|
Tag
|
INTEGER
|
RW
|
|
WXG
|
Top
|
INTEGER
|
RW
|
0
|
WX
|
Width
|
INTEGER
|
RW
|
|
WX
|
Visible
|
INTEGER
|
RW
|
True
|
WX
|
QrPanel Methods
Method
|
Type
|
Description
|
Params
|
Support
|
|
|
|
|
|
Repaint
|
SUB
|
Refreshes panel and all contents
|
0
|
W
|
QrPanel Events
Event
|
Type
|
Occurs when...
|
Params
|
Support
|
|
|
|
|
|
OnClick
|
VOID
|
User clicked on open area of panel
|
0
|
WX
|
OnDblClick
|
VOID
|
User double clicked panel
|
0
|
W
|
OnMouseDown
|
SUB (Button%, X%, Y%, Shift%)
|
Mouse button held down
|
4
|
W
|
OnMouseMove
|
SUB (X%, Y%, Shift%)
|
Mouse moves over panel
|
3
|
W
|
OnMouseUp
|
SUB (Button%, X%, Y%, Shift%)
|
Mouse button is released
|
4
|
W
|
QrPanel Example
$INCLUDE
"QRPANEL.INC"
$INCLUDE
"RAPIDQ.INC"
CREATE
Form AS QFORM
Caption
= "QPANEL vs. QRPANEL"
Width
= 401
Height
= 233
Center
Borderstyle
= 4
CREATE
Panel1 AS QPANEL
Left
= 5
Top
= 5
Caption
= "Corned Panel"
Height
= 193
Width
= 185
Color
= &hFF0000
END
CREATE
CREATE
Panel2 AS QRPANEL
Left
= 197
Top
= 5
Caption
= "Round Corner Panel"
Height
= 193
Width
= 185
TabOrder
= 1
rBorder
= 1
RndX
= 25
RndY
= 25
Color
= &h0000FF
END
CREATE
END
CREATE
Form.ShowModal
|