XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Cursor im Fenster und auf Buttons verändern
declare x%,y%,but1&,but2&,but3&
Def ASetClassLong(3) ! User32,SetClassLongA
Def ALoadCursor(2) !USER32,LoadCursorA
x% = 640
y% = 480
WindowStyle 24
WindowTitle Cursor-Demo
Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
ASetClassLong(%HWND,-12,ALoadCursor(%hinstance,DRUCKER))
but1& = CREATE(Button,%HWnd,Button 1,10,10,200,50)
ASetClassLong(but1&,-12,ALoadCursor(%hinstance,DRUCKER))
but2& = CREATE(Button,%HWnd,Button 2,215,10,200,50)
ASetClassLong(but2&,-12,ALoadCursor(%hinstance,DRUCKER))
but3& = CREATE(Button,%HWnd,Beenden,10,70,410,50)
ASetClassLong(but2&,-12,ALoadCursor(%hinstance,DRUCKER))
WaitInput
end