2003-10-31 22:36

'from: "gerson.gitahy" Thu, 30 Oct 2003 09:59:01 -0300
' Hide-and-Seek Cursor

     $INCLUDE "Rapidq.inc"
     $TYPECHECK off
'Hide-and-Seek
     DECLARE FUNCTION ShowCursor LIB "user32" _
      ALIAS "ShowCursor" (BYVAL bShow AS LONG) AS LONG
     DECLARE SUB ButShow_Click
     DECLARE SUB ButHide_Click

     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 320
      Height = 240
      Center
      CREATE Button1 AS QBUTTON
       CAPTION = "View"
       Left = 49
       Top = 62
       OnClick = butShow_Click
      END CREATE
      CREATE Button2 AS QBUTTON
       CAPTION = "Hiding"
       Left = 161
       Top = 60
       TabOrder = 9
       Onclick = ButHide_Click
      END CREATE
     END CREATE
     SUB butShow_Click()
      ShowCursor True
     END SUB
     SUB butHide_Click()
      ShowCursor False
     END SUB
'Insert your initialization code here
     Form.SHOWMODAL

2003-10-31 22:36