PureBoard

Verfasst: **08.08.2018 21:38**

Hallo,

ich habe in meinem Programmfenster u.a. ein TreeGadget mit derzeit 20 Einträgen, von denen einige auch Untereinträge (also das, was die Hilfe 'Sublevels' nennt) sind. Da demnächst noch sehr viel mehr Einträge in den Baum hineinkommen, habe ich eine Suchfunktion zum TreeGadget geschrieben. D.h. über dem TreeGadget habe ich ein StringGadget plaziert, in das man einen Suchbegriff eingeben kann, der dann im TreeGadget gefunden werden soll. Ausgelöst wird die Suche durch die Betätigung eines ButtonImageGadgets.

Das Problem besteht nun darin, daß die Suchroutine beim Debuggen einwandfrei funktioniert, aber die Anzeige (das Aufklappen) des Eintrags im TreeGadget nicht. Es folgt der Kode im Case-Zweig zum ButtonImageGadget in meiner Ereignis-Schleife (der angesprungen wird, wenn darauf geklickt wird):

Code: Alles auswählen

Case #Bs_SG ; Bildschaltfläche Suche in Grammatik
  St=GetGadgetText(#Ef_SG)  ; Suchtext
  gf=#False  ; gefunden?
  For Ix=0 To CountGadgetItems(#Bf_gE)-1
    TdE=GetGadgetItemText(#Bf_gE, Ix)  ; Text des Eintrags
    If FindString(TdE, St, 1, #PB_String_NoCase)
      SetGadgetItemState(#Bf_gE, Ix, #PB_Tree_Expanded|#PB_Tree_Selected)
      gf=#True: Break ; gefunden
    EndIf
  Next
  If Not gf
    MessageRequester("Hinweis", "Der Suchtext wurde nicht gefunden.",
      #PB_MessageRequester_Ok|#PB_MessageRequester_Info)
  EndIf

Die eigentliche Suchfunktion (also die For-Next-Schleife, die Eintrag für Eintrag des Baumes #Bf_gE durchgeht) funktioniert, wie gesagt, perfekt. Bis auf den SetGadgetItemState-Befehl, der den Untereintrag, der den Suchbegriff enthält, aufklappen sollte. So versteht ich zumindest die Funktion der Flags #PB_Tree_Expanded|#PB_Tree_Selected laut Hilfe. Es wird aber trotz erfolgreicher Suche überhaupt nichts aufgeklappt, der SetGadgetItemState-Befehl bleibt ohne sichtbare Wirkung. Warum?

Vielen Dank

Verfasst: **08.08.2018 22:03**

Kannst du uns einen kompletten Code geben, mit dem das Verhalten nachvollziehbar ist?

Verfasst: **09.08.2018 07:29**

Wenn ich das richtig sehe, dann versuchst du den Eintrag aufzuklappen der im Eltern-Knoten ist (welcher aufgeklappt werden sollte).
Was du allerdings machen müsstest ist, den Eltern-Knoten erst finden, der den Knoten enthält den du sehen willst, und dann den Eltern-Knoten öffnen.

Verfasst: **09.08.2018 19:03**

Danke für Eure Antworten. Stargate hat recht mit seiner Annahme, der aufzuklappende Eintrag ist ein Unterpunkt des zweiten Unterknotens (s. https://www.magentacloud.de/lnk/vXrPLQnt), d.h. man müßte mit SetGadgetItemState erst den Hauptknoten expandieren, dann die beiden Unterknoten und könnte erst dann den gewünschten Eintrag selektieren.

Mit anderen Worten: SetGadgetItemState ist derart nutzlos, daß man fast schon von einem Bug sprechen muß. Zum Glück habe ich in einem API-Makro Rettung gefunden; hier nochmal die For-Next-Schleife mit API-Message:

Code: Alles auswählen

For Ix=0 To CountGadgetItems(#Bf_gE)-1
  If FindString(GetGadgetItemText(#Bf_gE, Ix), St, 1, #PB_String_NoCase)
    SendMessage_(GadgetID(#Bf_gE), #TVM_SELECTITEM, #TVGN_CARET,
      GadgetItemID(#Bf_gE, Ix))
    Rdl(zlRd): gf=#True
    SetActiveGadget(#Bf_gE): Break
  EndIf
Next

Der SendMessage-Befehl klappt die Fundstelle auf und selektiert den Eintrag noch obendrein (was man ja meistens will).

Ich habe darüber hinaus festgestellt, daß SetGadgetItemStatet nicht nur für das Expandieren ungeeignet ist, sondern manchmal auch für das schlichte Markieren. Nach SetGadgetItemState(#Baum-Gadget, Ix, #PB_Tree_Selected) gibt GetGadgetState(#Baum-Gadget) zuweilen 0 oder -1 zurück, und nicht den Index des Eintrags, der zuvor eigentlich mit SetGadgetItemState selektiert worden war. Auch dieses Problem erinnert sich durch obiges SendMessage. Will man übrigens nur expandieren, ohne etwas zu markieren, dann kann man das so:

Code: Alles auswählen

SendMessage_(GadgetID(#Baum-Gadget), #TVM_ENSUREVISIBLE, 0,
  GadgetItemID(#Baum-Gadget, Index des zu expandierenden Eintrags))

PureBoard

Aufklappen eines TreeGadgets

Aufklappen eines TreeGadgets

Re: Aufklappen eines TreeGadgets

Re: Aufklappen eines TreeGadgets

Re: Aufklappen eines TreeGadgets