Rapid-Q Documentation by William Yu (c)1999 | Appendix A: QOLECONTAINER

# QOLECONTAINER Component

  QOleContainer is an ActiveX container whose properties and methods can be accessed similar to QOleObject.
  QOleContainer Properties

  Field | Type | R/W | Default

  Align | INTEGER | RW | alNone
  AllowInPlace | INTEGER | RW | True
  AutoShow | INTEGER | RW | True
  BorderStyle | INTEGER | RW | bsSingle
  Color | INTEGER | RW |
  Cursor | INTEGER | RW | crDefault
  Enabled | INTEGER | RW | True
  Handle | INTEGER | R |
  Height | INTEGER | RW |
  Hint | STRING | RW |
  Left | INTEGER | RW | 0
  Modified | INTEGER | RW | False
  Parent | QFORM/QPANEL/QTABCONTROL | W |
  ShowHint | INTEGER | RW | False
  SizeMode | INTEGER | RW | smClip
  State | INTEGER | RW | osEmpty
  TabOrder | INTEGER | RW |
  Tag | INTEGER | RW |
  Top | INTEGER | RW | 0
  Width | INTEGER | RW |
  Visible | INTEGER | RW | True

  QOleContainer Methods

  Method | Type | Description | Params

  CreateObject | FUNCTION (ClassName AS STRING) AS INTEGER | Create new embedded object | 1
  Free | SUB | Release object | 0
  Invoke | FUNCTIONI (ID AS STRING, Params, ...) AS VARIANT | Invoke method/property | Infinite

  QOleContainer Events

  Event | Type | Occurs when... | Params

  OnKeyDown | SUB (Key AS Word, Shift AS INTEGER) | Key held down | 2
  OnKeyPress | SUB (Key AS BYTE) | User presses a key | 1
  OnKeyUp | SUB (Key AS Word, Shift AS INTEGER) | User releases a key | 2
  OnMouseDown | SUB (Button%, X%, Y%, Shift%) | Mouse button held down | 4
  OnMouseMove | SUB (X%, Y%, Shift%) | Mouse moves | 3
  OnMouseUp | SUB (Button%, X%, Y%, Shift%) | Mouse button is released | 4
  OnObjectMove | SUB (Rect AS QRECT) | OLE Object has moved or resized | 1
  OnResize | VOID | After OLE container is resized | 0

  QOleContainer Examples

      ' This example requires GIF89.DLL which can be found on
      ' Rapid-Q's knowledge base page.
      ' Make sure to register the .DLL if you haven't already
      ' c:\blah> regsvr32 gif89.dll

      ' Note, example works best if you load an animated GIF file.

      CREATE Form AS QFORM
          Caption = "Animated GIFs"
          Center
          Visible = 1
          CREATE GifAnimation AS QOLECONTAINER
              Align = alClient
              CreateObject("Gif89.Gif89.1")
              '-- FileName is a property in GIF89.DLL
              FileName = "anim.gif"
          END CREATE
          Visible = 0
      END CREATE

      Form.ShowModal

      GifAnimation.Free

  Prev Component | Contents | Next Component