Rapid-Q Documentation by William Yu (c)1999 | 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