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 ComponentContentsNext Component