TreeViewItem und Event
Verfasst: 22.01.2016 14:08
Hallo
Habe ein Problem mit Treeviewitems und der Eventverwaltung.
In dem unten aufgeführten Sourcecode, das ich aus dem "CodeArchiv" hab sieht man schön das Problem. Nach dem Starten des Sourcecodes klicke ich mit der Maus ins Treeview, ohne dabei ein Item auszuwählen. Es wird sofort ein Event für das Treeview ausgelöst und schreibt "Login" in die Box auf der rechten Seite. Das sollte nicht so sein. Brauche einen Event nur dann, wen ich auch ein Item anklicke. Der Hintergrund sollte neutral sein. Wie kann man das Abfragen Hintergrund / Item ?
Grüße
Lite
Habe ein Problem mit Treeviewitems und der Eventverwaltung.
In dem unten aufgeführten Sourcecode, das ich aus dem "CodeArchiv" hab sieht man schön das Problem. Nach dem Starten des Sourcecodes klicke ich mit der Maus ins Treeview, ohne dabei ein Item auszuwählen. Es wird sofort ein Event für das Treeview ausgelöst und schreibt "Login" in die Box auf der rechten Seite. Das sollte nicht so sein. Brauche einen Event nur dann, wen ich auch ein Item anklicke. Der Hintergrund sollte neutral sein. Wie kann man das Abfragen Hintergrund / Item ?
Code: Alles auswählen
#Window_0 = 0
#Gadget_0 = 0
#Gadget_1 = 1
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 600, 300, "TreeGadget with Functions", #PB_Window_TitleBar )
TreeGadget(#Gadget_0, 10, 10, 270, 190)
StringGadget(#Gadget_1, 300, 10, 280, 40, "")
AddGadgetItem(#Gadget_0, 0, "Login")
AddGadgetItem(#Gadget_0, 1, "Logoff")
AddGadgetItem(#Gadget_0, 2, "End")
EndIf
EndProcedure
Open_Window_0()
Repeat
Event = WaitWindowEvent()
If Event=#PB_Event_Gadget
Select EventGadget()
Case #Gadget_0
Eintrag=GetGadgetState(#Gadget_0)
If Eintrag=0
SetGadgetText(#Gadget_1, "Login")
ElseIf Eintrag=1
SetGadgetText(#Gadget_1, "Logoff")
EndIf
EndSelect
EndIf
Until Eintrag=2
Lite
