Appendix A: 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/QTABCONTROL	W
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

Prev Component

Contents

Next Component