| Rapid-Q Documentation by William Yu (c)1999 | Appendix A: QOLECONTAINER |
| 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 |
| 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 |
| 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 |
' 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 |