Cursor nur überm Fenster ??

[Then]

Hi ich habe einen eigenen Cursor gemalt und den will ich einblenden in meinem Programm. Auf dem nackten Fenster geht es, aber über nem ListIconGadget wird es wieder ein Pfeil. Auf Buttons auch, nur deaktivierte Buttons lassen meinen Zeiger zu. Muss da noch was hin, damit der Cursor dauerhaft umgestellt bleibt ??

Code: Alles auswählen

OpenWindow(0,0,0,200,200,"",#PB_Window_BorderLess)
 SetClassLong_(WindowID(0), #GCL_HCURSOR, LoadCursorFromFile_("Hand.cur")) 
 ListIconGadget(1,5,5,150,100,"",100,#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines)
   AddGadgetColumn(1,1,"",20)
  ButtonGadget(2,5,110,80,30,"ENDE")
  ButtonGadget(3,90,110,80,30,"ENDE")
  DisableGadget(3,1)
  
 Repeat
  Delay(1)
  Event = WindowEvent()
  If Event=#PB_Event_Gadget
   Select EventGadget() 
    Case 2
     End
   EndSelect
 EndIf
ForEver 
  

[Axolotl]

Hi, du änderst den Mauszeiger für die Klasse Window. Soll der Zeiger auch für andere Klassen geändert werden, dann must du das auch aufrufen.
Evtl. so.
BTW: Ich habe noch ein paar (wichtige) Änderungen gemacht. Sollteste Dir mal anschauen, auch wenn es nur ein Testbeispiel ist.

Code: Alles auswählen

EnableExplicit 
Define hCursor 

OpenWindow(0,0,0,200,200,"",#PB_Window_BorderLess)

  hCursor = LoadCursor_(0, #IDC_HAND)     : Debug "  hCursor == " + hCursor 
  
; SetClassLong_(WindowID(0), #GCL_HCURSOR, LoadCursorFromFile_("Hand.cur")) 
 ListIconGadget(1,5,5,150,100,"",100,#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines)
   AddGadgetColumn(1,1,"",20)
  ButtonGadget(2,5,110,80,30,"ENDE")
  ButtonGadget(3,90,110,80,30,"ENDE")
  DisableGadget(3,1)

  If hCursor 
    SetClassLongPtr_(WindowID(0), #GCL_HCURSOR, hCursor)  ; Window Class 
    SetClassLongPtr_(GadgetID(1), #GCL_HCURSOR, hCursor)  ; ListIcon Gadget Class 

  EndIf 
  
 Repeat
;   Delay(1)
;   Event = WindowEvent()
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow ; I know borderless window, but this is always a good idea.... 
      Break 
    Case #PB_Event_Gadget
     Select EventGadget() 
      Case 2
       Break 
     EndSelect
  EndSelect
ForEver 

[Then]

Hi, danke für die Anmerkungen. Es handelt sich bei mir eben nur um einen Ausschnitt aus meinem Code. Borderless und Delay(1) hat bei mir schon einen Sinn gehabt aber egal, dennoch immer gut, wenn man auf Kleinigkeiten hingewiesen wird.

Muss ich nun die Hand (soll meine eigene werden) bei jedem Gadget "angemeldet" werden ? Gibts da nix Globales ?

[Axolotl]

Mein Verständnis: Nicht bei jedem Gadget, sondern bei jeder "Gadget-Klasse".
Aber Versuch macht klug.
Wahrscheinlich geht es auch mit Subclass u.s.w. Das ist dann aber auch nicht "einfacher".
P.S.: Natürlich wollte ich nichts kritisieren.... es sind (immer) nur gut gemeinte Hinweise.

[Then]

Habe es auch nicht als Kritik aufgefasst.

ich bin gleich daheim und teste das mal, mal sehen, was ich schaffe, danke !

[Axolotl]

Es geht wohl auch so, allerdings musst du dann trotzdem den "Klassen-Mauszeiger" (in Windows == Cursor) auf #NULL ändern.
Das habe ich aber nicht ausprobiert.

Code: Alles auswählen

hPrevCursor = SetCursor_(hCursor) ; hCursor == NULL the cursor is removed from the screen. 
; ... 
SetCursor_(hPrevCursor)   ; set cursor back to original 

; Remark: 
;  If your application must set the cursor while it is in a window, make sure the class cursor for the 
;  specified window's class is set to NULL. If the class cursor is not NULL, the system restores the 
;  class cursor each time the mouse is moved.