' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Qglassframe

****** QGLASSFRAME Component ******
QGlassFrame is a 3rd party Rapid-Q component, that makes your form look
transparent and shaded, made possible by Aleksey Xacker. No support is offered
for this component, there are some special cases in using this component.

QGlassFrame Properties
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/       W
                    QTABCONTROL
PopupMenu           QPOPUPMENU          W
ShowHint            INTEGER             RW                  False
Top                 INTEGER             RW
Transparency        INTEGER             RW                  60
TransparentColor    INTEGER             RW                  0
Width               INTEGER             RW

QGlassFrame Methods
Method              Type                Description         Params
=================== =================== =================== ===================


QGlassFrame Examples
$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



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb