TextGadget anklickbar

[Delle]

Hallo,

das TextGadget hat ja leider keinen EventHandler...

Gibt's irgendeine Möglichkeit trotzdem abzufragen ob darauf geklickt wurde?

Irgendein anderes Gadget unsichtbar drüber legen oder sowas?

[Kai]

Eventuel so?

Code: Alles auswählen

If OpenWindow(0, 0, 0, 400, 400, "TEST", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
 If CreateGadgetList(WindowID(0))
  TextGadget(0, 10, 10, 200, 20, "Testtext!", #PB_Text_Border)
  Repeat
   WEvent = WaitWindowEvent()
   Select WEvent
    Case #WM_LBUTTONDOWN
     If WindowMouseX(0) >= GadgetX(0) And WindowMouseX(0) <= GadgetX(0) + GadgetWidth(0) And WindowMouseY(0) >= GadgetY(0) And WindowMouseY(0) <= GadgetY(0) + GadgetHeight(0)
      Debug "Click"
     EndIf
   EndSelect
  Until WEvent = #PB_Event_CloseWindow
 EndIf
EndIf

[Kiffi]

... mit #SS_NOTIFY (Win-only):

Code: Alles auswählen

If OpenWindow(0, 0, 0, 270, 160, "TextGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  TextGadget(0, 10,  10, 250, 20, "TextGadget Standard (Left)", #SS_NOTIFY)
  Repeat 
    
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            Debug "Yeah!"
        EndSelect
      Case #PB_Event_CloseWindow
        Break
    EndSelect
    
  ForEver
EndIf

Grüße ... Kiffi

[Kai]

Man lernt immer wieder was dazu, das ist das schöne..