Appendix A: QCursor
| Documentation component by D.Glodt (c)2003 |
Appendix A: QCursor |
|
QCursor Component
QCursor is component used to load cursor from resource or file.
After loading , the cursors are using by set value(1 to n) to Cursor property
of each component.
QCursor Properties
| Field |
Type |
R/W |
Défault |
|
|
|
|
|
| Count |
INTEGER |
R |
0 |
|
Number of cursor loaded by the component. |
|
|
|
| Visible |
BOOLEAN |
R/W |
True |
|
QCursor Methods
| 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 |
|
QCursor Events
| 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
| 
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2013-06-19 07:49:59
