This code has been declared by its author to be Public Domain code.
Download source code | | Change Cursor Icon by Binary_Moon | 2004 |
| |
|
requires the userlibs
.lib "user32.dll"
LoadCursor%( ID, Cursor ):"LoadCursorA"
SetCursor%( ID ):"SetCursor"
|
window = CreateWindow("Cursor Test",200,200,200,200,0,1)
canvas = CreateCanvas(0,0,200,200,window)
quit = False
; Mouse Pointers
Const IDC_ARROW = 32512
Const IDC_IBEAM = 32513
Const IDC_WAIT = 32514
Const IDC_CROSS = 32515
Const IDC_UPARROW = 32516
Const IDC_SIZENWSE = 32642
Const IDC_SIZENESW = 32643
Const IDC_SIZEWE = 32644
Const IDC_SIZENS = 32645
Const IDC_SIZEALL = 32646
Const IDC_NO = 32648
Const IDC_HAND = 32649
Const IDC_APPSTARTING = 32650
Const IDC_HELP = 32651
Const IDC_ICON = 32641
Const IDC_SIZE = 32640
cursor = LoadCursor(0,IDC_IBEAM)
Repeat
Select WaitEvent()
Case $201 ;mouse down
SetCursor cursor
Case $803 ; window close
quit = True
End Select
Until quit = True
End |
Comments |
Where can I get the "user32.dll"?
|
|
| Where can I get the "user32.dll"?
Erm... you're running windows yeah? Well its part of the operating system so you already have it. Just stick a text file with the lib information into the userlibs directory. Name it something like user32.decls and run the code.
|
|
Weird, as long as i held down mouse button my cursor wasn't displayed. Tryied even most of the cursors.
|
|
Adres: you must call "SetCursor" after and before "flip"
|
Code Archives Forum
