XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Cursor für jedes Control setzen (aus Runtime-Modul)
Lauffähig ab Profan-Version 5.0
DEF DHO_SetClassLong(3) ! User32,SetClassLongA
Def DHO_LoadCursor(2) !USER32,LoadCursorA
declare exit&
cls
DHO_SetClassLong(%HWND,-12,DHO_LoadCursor(%hinstance,DRUCKER))
exit& = CreateButton(%HWnd,Beenden,10,200,100,50)
DHO_SetClassLong(exit&,-12,DHO_LoadCursor(%hinstance,DRUCKER))
wai