Hand pointer

[Adaz]

Hi,

How can I change the mouse pointer to "hand" icon? Do I have to call a dll?

Thanks,

[Adaz]

PlayBASIC Code: [Select]

Constant IDC_HAND = 32649
constant IDC_ARROW = 32512

LinkDll "user32.dll"
  LoadCursor (hInstance, lpCursorName) alias "LoadCursorA" As integer
  SetCursorA (hCursor) alias "SetCursor"  As integer
EndLinkDll


do
cls 0
   if leftmousebutton()
      SetCursorA (LoadCursor(0,IDC_HAND))
   else
      SetCursorA (LoadCursor(0,IDC_ARROW))
   endif
sync
loop

[thaaks]

You could of course also switch off the mouse pointer using

Code Select Expand

Mouse off
and draw any sprite at the cursor position...