TextGadget - Eventtyp Leftklick möglich?

[smateja]

Hallo zusammen,

versuche gerade herauszubekommen ob es möglich ist einen Leftklick auf ein Textgadget irgendwie auszuwerten.
Mein versuch das mit folgendem Code zu bewerkstelligen half leider nicht:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 230, 120, "Eventtypes Beispiel...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    TextGadget(1, 10, 10, 150, 100, "ListIcon") 
     
  
     Repeat
       Event = WaitWindowEvent()
       
       Select Event
       
         Case #PB_Event_Gadget
           Select EventGadget()
             Case 1 
               Select EventType()
                 Case #PB_EventType_LeftClick        : Debug "Klick mit der linken Maustaste"
                 Case #PB_EventType_RightClick       : Debug "Klick mit der rechten Maustaste"
                 Case #PB_EventType_LeftDoubleClick  : Debug "Doppelklick mit der linken Maustaste"
                 Case #PB_EventType_RightDoubleClick : Debug "Doppelklick mit der rechten Maustaste"
               EndSelect
           EndSelect
       
       EndSelect
     Until Event = #PB_Event_CloseWindow
  EndIf

Ein blick in die Hilfe verriet mir, dass es wohl hier keine Eventtypes für textgadgets gibt?

Jetzt kommt evtl auch die Frage auf - wozu ich sowas benötige.

Kurze Erklärung: Ich mache Textgadgets mit transparentem Hintergrund und mouseover Funktion um ein einfaches nicht-standart Menü zu bekommen.

Code: Alles auswählen

 Result = #PB_ProcessPureBasicEvents
  Select Message
   Case #WM_CTLCOLORSTATIC   
      Select lparam
          
          
        ; Transparenz der allgemeinen Texte  
          
        Case GadgetID(#Login_Text_Willkommen)
         SetBkMode_(wparam,#TRANSPARENT)
         SetTextColor_(wParam,RGB(199, 199, 199))
         ProcedureReturn GetStockObject_(#HOLLOW_BRUSH)

usw......

Mir gelingt es nun leider nicht über die "hover" Funktion die eine Transparenz erzeugt - eine 2. Funktion zu bauen - die auf Klicks auf das entsprechende Gadget reagiert?! - Hat evtl hier jemand eine Idee?
Hab zudem auch schon Stunden in der MSDN verbracht - aber suche hier glaub ich an der falschen Stelle?!

Merci schon mal im Vorraus.

[ts-soft]

Zur ersten Frage:

Code: Alles auswählen

TextGadget(1, 10, 10, 150, 100, "ListIcon", #SS_NOTIFY)

[smateja]

Hi Ts-Soft,

danke für die schnelle Hilfe - funktioniert soweit und reicht mir.

Nur zum verständniss - der #SS_Notify reagiert aber nur auf die linke Maustaste wenn ich das richtig sehe?

LG

[ts-soft]

Hi Ts-Soft,

danke für die schnelle Hilfe - funktioniert soweit und reicht mir.

Nur zum verständniss - der #SS_Notify reagiert aber nur auf die linke Maustaste wenn ich das richtig sehe?

LG

Sind schon ein paar mehr, aber nichts was PB zur Verfügung stellt, da brauchste ein Callback.
(#WM_CONTEXTMENU, #WM_CHAR usw.)