Cursor auf Gadgets ändern (nach klassen)
Verfasst: 08.01.2005 20:05
So, da bei PGS immer der Cursor flackerte mit Danilo´s verfahren (siehe Codearchiv) hab ich mir selbst was geschrieben.
Hier wird der Cursor einmal geändert und zum ende des Programms wieder zurückgeändert.
Vorsicht: mit SetClassLong_( setze ich den Wert für alle Gadgets dieser Klasse, vielleicht auch bei anderen Anwendungen (hatte ich noch nicht, könnte aber sein (oder? ). Wenn ihr dieses Verfahren nutzt, müsst ihr die abfrage sehr genau machen
Hier wird der Cursor einmal geändert und zum ende des Programms wieder zurückgeändert.
Vorsicht: mit SetClassLong_( setze ich den Wert für alle Gadgets dieser Klasse, vielleicht auch bei anderen Anwendungen (hatte ich noch nicht, könnte aber sein (oder? ). Wenn ihr dieses Verfahren nutzt, müsst ihr die abfrage sehr genau machen
Code: Alles auswählen
handle=LoadCursor_(0,#IDC_CROSS )
CreateImage(1,80,80)
StartDrawing(ImageOutput())
FrontColor(255,0,0)
Circle(40,40,40)
StopDrawing()
If OpenWindow(1,100,200,210,210,#PB_Window_SystemMenu,"Cursor ändern")
CreateGadgetList(WindowID())
ImageGadget(1,10,10,80,80,UseImage(1))
ImageGadget(2,120,10,80,80,UseImage(1))
ImageGadget(3,120,120,80,80,UseImage(1))
ImageGadget(4,10,120,80,80,UseImage(1))
normhandle=GetWindowLong_(GadgetID(1),#gcl_hcursor)
SetClassLong_(GadgetID(1),#gcl_hcursor,handle)
Repeat
event=WaitWindowEvent()
Until event=#WM_CLOSE
SetClassLong_(GadgetID(1),#gcl_hcursor,normhandle)
CloseWindow(1)
EndIf
End 