2002-10-23 20:18

'From:  "fat_boy_3" <fat_boy_3@y...> Wed Oct 23, 2002  4:24 pm

'make sure you have a cursor called fly.cur in the same
'directory as the program itself

     $RESOURCE cur AS "fly.cur" 'include cursor file as resource
     $INCLUDE "rapidq.inc"

     DECLARE FUNCTION LoadCursorFromFile LIB "USER32" _
      ALIAS "LoadCursorFromFileA" (CursorFileName AS STRING) AS LONG
     DECLARE SUB buttclick

     DIM form AS QFORM 'main form
     DIM butt AS QBUTTON

     butt.PARENT = form
     butt.CAPTION="press me"
     butt.onclick=buttclick

     IF FILEEXISTS("flyc.cur") = 0 THEN
      extractresource resource(0), "flyc.cur" 'extract cursor file
     END IF
     Screen.Cursors(1) = LoadCursorFromFile("flyc.cur") 'load cursor from file, keep as cursor 1
     KILL "flyc.cur" 'delete cursor file

     form.SHOWMODAL

     SUB buttclick
'screen.cursor 0 is default cursor
      screen.cursor = IIF(screen.cursor = 0, 1, 0)
     END SUB

2002-10-23 20:18