$TYPECHECK ON
DECLARE FUNCTION LoadLibrary LIB "KERNEL32" ALIAS "LoadLibraryA" _
(LibFileName AS STRING) AS LONG
DECLARE FUNCTION FreeLibrary LIB "KERNEL32" ALIAS "FreeLibrary" _
(hInst AS LONG) AS LONG
DECLARE FUNCTION LoadCursor LIB "USER32" ALIAS "LoadCursorA" _
(hInst AS LONG, CursorName AS STRING) AS LONG
DECLARE SUB Timer1Expired (Sender AS QTIMER)
DIM I AS LONG, hInst AS LONG
hInst = LoadLibrary("CURSORS.DLL")
FOR I = 1 TO 12
Screen.Cursors(I) = LoadCursor(hInst, "CURSOR_"+STR$(I))
NEXT
DIM Timer1 AS QTIMER
Timer1.Interval = 100
Timer1.Enabled = 1
Timer1.OnTimer = Timer1Expired
CREATE Form AS QFORM
CAPTION = "Animated cursor"
Center
Cursor = 1
SHOWMODAL
END CREATE
FreeLibrary(hInst)
END
SUB Timer1Expired (Sender AS QTIMER)
Sender.Interval = 100
Form.Cursor = (Form.Cursor + 1) MOD 13
END SUB
|