QGlassFrame Примеры
$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