Rapid-Q Documentation by William Yu (c)1999 | Appendix A: QGLASSFRAME |
|
Field | Type | R/W | Default |
|
|
|
|
Align | INTEGER | RW | alNone |
ClientHeight | INTEGER | RW | |
ClientWidth | INTEGER | RW | |
Color | INTEGER | RW | |
Cursor | INTEGER | RW | crDefault |
Handle | INTEGER | RW | |
Height | INTEGER | RW | |
Hint | STRING | RW | |
Left | INTEGER | RW | |
Moveable | INTEGER | RW | True |
Parent | QFORM/QPANEL/QTABCONTROL | W | |
PopupMenu | QPOPUPMENU | W | |
ShowHint | INTEGER | RW | False |
Top | INTEGER | RW | |
Transparency | INTEGER | RW | 60 |
TransparentColor | INTEGER | RW | 0 |
Width | INTEGER | RW |
Method | Type | Description | Params |
|
|
|
|
$INCLUDE "RAPIDQ.INC" CREATE Form AS QForm Caption = "Transparent Form" Center CREATE GlassFrame AS QGlassFrame Align = alClient END CREATE ShowModal END CREATE '------- Weird transparency color error $INCLUDE "RAPIDQ.INC" CREATE Form AS QForm Caption = "Transparent Form" Center CREATE GlassFrame AS QGlassFrame Align = alClient TransparentColor = &HFF0000 END CREATE Show END CREATE '-- I don't know what's wrong, but doing this seems to '-- work better than using ShowModal when changing colors DO DoEvents LOOP UNTIL Form.Visible = 0