Cursor auf Gadgets ändern (nach klassen)

[Franky]

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

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                             

[glubschi90]

hm...
Irgendwie funktioniert's bei mir nich'.

[Franky]

Seltsam, bei mir läufts, kann das jemand bestätigen, dass das auch bei anderen nicht läuft?

[ts-soft]

ich kann's nicht bestätigen, also bei mir läufts

[Andre]

Läuft bei mir auch (WinXP SP1).