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
 
 
 

Hosted by uCoz