TextGadget - Eventtyp Leftklick möglich?
Verfasst: 04.05.2010 21:55
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:
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.
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.
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.