Einzelnen Beitrag anzeigen

stifflersmom

Registriert seit: 8. Dez 2005
Ort: 24994 Holt
379 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Problem mit VirtualStringTree

  Alt 8. Nov 2017, 14:19
Moin,

vielleicht kann mir jemand kurz helfen.
Ich versuche in einem VS in der 2 Unterebene ein Checkbox darzustellen, allerdings taucht diese immer bei mir in der 1 Unterebene auf (da, wo im Screenshot immer Node steht, soll die Checkbox hin).
Im Anhang mal ein kleiner Screenshot wie das aussieht.

Hier mal die verkürzte Version wie ich die Nodes dem VS hinzufüge
Delphi-Quellcode:
       // Fahrzeugmodellreihe
      Node := FindNodebyModNr(VS_TD, q_td_fahrzeuge.FieldByName('kModnr').AsInteger, q_td_fahrzeuge.FieldByName('hernr').AsInteger);
      If Node = NIL Then
       Begin
       Node := FindNodebyherNr(VS_TD,q_td_fahrzeuge.FieldByName('herNr').AsInteger);
       ArtikelTecDocRec.level :=1;
       ArtikelTecDocRec.HerNr := q_td_fahrzeuge.FieldByName('herNr').AsInteger;
       ArtikelTecDocRec.artikel_id := -1;
              Node.CheckType := ctNone;
       Node := AddVSTStructure(VS_TD, Node, ArtikelTecDocRec);
       End;

       // Fahrzeugvariation
       ArtikelTecDocRec.level :=2;
       
       Node.checkType := ctCheckBox;

       AddVSTStructure(VS_TD, Node, ArtikelTecDocRec);
       q_td_fahrzeuge.Next;
Irgendwie mach ich da was falsch und ich sehe es partout nicht...
Miniaturansicht angehängter Grafiken
vstd.jpg  

Geändert von stifflersmom ( 8. Nov 2017 um 14:23 Uhr)
  Mit Zitat antworten Zitat