Documentation component by D.Glodt (c)2003 | Appendix A: QCursor |
|
Field | Type | R/W | Défault | |
|
|
|
|
|
Count | INTEGER | R | 0 | |
Number of cursor loaded by the component. | ||||
Visible | BOOLEAN | R/W | True |
Method | Type | Description | Params | |
|
|
|
|
|
LoadFromResource | SUB(Resource&) | Load cursor from resource, Resource parameter is the resource number(0 to n) | 1 | |
LoadFromFile | SUB(FileName$) | Load cursor from file | 1 | |
Move | SUB(X&,Y&) | Move cursor at position x, y of screen. | 2 |
Event | Type | Occurs when... | Params | |
|
|
|
|
|
QCursor Example
$TypeCheck On
$include "Object/QCursor.inc"
$resource cur1 as
"Pen.cur"
$resource cur2 as
"Paint.cur"
dim curseur asQCursor
curseur.loadfromResource(0) 'loading
cursor cur1
curseur.loadfromResource(1) 'loading
cursor cur2
curseur.loadfromfile("M_Busy.ani")
'loading
from file
CREATE Form ASQFORM
Center
caption=str$(curseur.count)
Cursor=2 'using cursor
cur2
ShowModal
END CREATE