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 CONST smClip = 0 '-- Clip parts that don't fit inside CONST smCenter = 1 '-- Center object within the container CONST smScale = 2 '-- Scales or shrinks object to fit inside CONST smStretch = 3 '-- Stretch to fill entire container CONST smAutoSize = 4 '-- Sizes container to match size of object	RW	smClip
State	INTEGER CONST osEmpty = 0 CONST osLoaded = 1 CONST osRunning = 2 CONST osOpen = 3 CONST osInPlaceActive = 4 CONST osUIActive = 5	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