TreeViewItem und Event

[mk-soft]

Habe es mal so gelöst. Das mit den den Aufklappen der SubLevel habe ich nicht wiedergefunden und mache es beim anlegen der Item mit SetGadgetState...

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, #PB_Tree_AlwaysShowSelection) 
    StringGadget(#Gadget_1, 300, 10, 280, 40, "")
    AddGadgetItem(#Gadget_0, 0, "Auswahl", 0, 0) 
    AddGadgetItem(#Gadget_0, 1, "Login", 0, 1) 
    AddGadgetItem(#Gadget_0, 3, "Logoff", 0, 1) 
    AddGadgetItem(#Gadget_0, 4, "End", 0, 1) 
    
    SetGadgetState(#Gadget_0, 1)
    SetGadgetState(#Gadget_0, 0)
    
  EndIf 
EndProcedure 

Open_Window_0() 

Repeat 
  
  Event = WaitWindowEvent() 
  If Event=#PB_Event_Gadget 
    Select EventGadget() 
      Case #Gadget_0
        If EventType() = #PB_EventType_LeftClick
          Eintrag=GetGadgetState(#Gadget_0) 
          If Eintrag=1 
            SetGadgetText(#Gadget_1, "Login") 
          ElseIf Eintrag=2 
            SetGadgetText(#Gadget_1, "Logoff") 
          EndIf
          
        EndIf
    EndSelect 
  EndIf 
  
Until Eintrag=3

[lite]

Funktioniert leider immernoch nicht 100%
Sobald der Focus drauf ist. Wird ein Event ausgelöst.

[Omi]

Sorry Lite, jetzt hab ich Dein eigentliches Problem auch verstanden.

Vielleicht solltest Du nicht auf #PB_EventType_LeftClick sondern auf #PB_EventType_Change abfragen.
Allerdings wird dann keine mehrfache Auswahl des selben Items mehr weitergegeben.
... oder man kombiniert beide Events.

Gruß

[lite]

Es schaut aus als wäre es ein Bug.

Lite