AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Virtualstringtree suchen mit Child-Nodes

Ein Thema von HPB · begonnen am 11. Okt 2013 · letzter Beitrag vom 16. Mär 2016
Antwort Antwort
generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.416 Beiträge
 
Delphi XE5 Professional
 
#1

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 11. Okt 2013, 12:35
Ich würde meinen die Unterknoten sind mit isVisible abgeschaltet und der Aufklapper wurde noch gecached angezeigt.

Mit IterateTree wird durch alle Knoten gegangen.

Willst du nur die Hauptknoten ausblenden?
Dir fehlt im Callback eine Prüfung auf den Datentyp der Daten.
Coding BOTT - Video Tutorials rund um das Programmieren - https://www.youtube.com/@codingbott
  Mit Zitat antworten Zitat
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#2

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 11. Okt 2013, 14:20
Ich würde meinen die Unterknoten sind mit isVisible abgeschaltet und der Aufklapper wurde noch gecached angezeigt.

Mit IterateTree wird durch alle Knoten gegangen.

Willst du nur die Hauptknoten ausblenden?
Dir fehlt im Callback eine Prüfung auf den Datentyp der Daten.
Danke für Deine rasche Antwort,
wo kann ich denn die ChildNodes mit "isVisible" ein- oder ausschalten? Ich habe in den Einstellungen des VST nichts gefunden.
Nein ich möchte natürlich nicht nur die Hauptknoten ausblenden. Ich möchte das die ParentNodes gefunden werden und mit den dazugehörenden ChildNodes angezeigt werden.
Was meinst Du mit "Dir fehlt im Callback eine Prüfung auf den Datentyp der Daten"?
Kannst Du mir bitte auf die Sprünge helfen? Evtl. mit einem kleinen Beispiel
Ich stehe z. Z. völlig auf dem Schlauch oder sehe ich vor lauter Wald die Bäume nicht mehr
Mit Gruß
HPB
  Mit Zitat antworten Zitat
generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.416 Beiträge
 
Delphi XE5 Professional
 
#3

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 11. Okt 2013, 14:42
Ich muss gestehen, ich habe übersehen, dass die Dokumente von dem Angebot vererbt ist.
Sorry

Allerdings hat mich der getText auf verwirrt:
Delphi-Quellcode:
var
  pDaten: TOVSTAngebote;
begin
  pDaten := TOVSTAngebote(vstangebote.GetNodeData(Node)^);
  case column of
    0:
      begin
        if pDaten is TOVSTAngebote then
          celltext := TOVSTAngebote(pDaten).FAngebotstitel
            + ' (' + TOVSTAngebote(pDaten).FPKAngebotsNr + ')';
Du castest die Daten auf den Datentyp TOVSTAngebote und prüfst ob die Variable vom Typ TOVSTAngebote Daten vom Typ TOVSTAngebote enthält, um es dann wieder auf TOVSTAngebote zu casten.


Welche Version vom VST nutzt du?

Das ermitteln des Plus Zeichen wird in der Methode DetermineHiddenChildrenFlagAllNodes gemacht.
Die wird u.a. aufgerufen, wenn du deine Suche mit BeginUpdate und EndUpdate einkapselst. Gibt da aber paar Bedingungen.

Delphi-Quellcode:
vst.beginupdate();
try
  vst.iterateSubtree(...);
finally
  vst.endupdate();
end;
Du kannst übrigens auch IsFiltered nutzen.
Coding BOTT - Video Tutorials rund um das Programmieren - https://www.youtube.com/@codingbott
  Mit Zitat antworten Zitat
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#4

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 11. Okt 2013, 15:02
Ich muss gestehen, ich habe übersehen, dass die Dokumente von dem Angebot vererbt ist.
Sorry

Allerdings hat mich der getText auf verwirrt:
Delphi-Quellcode:
var
  pDaten: TOVSTAngebote;
begin
  pDaten := TOVSTAngebote(vstangebote.GetNodeData(Node)^);
  case column of
    0:
      begin
        if pDaten is TOVSTAngebote then
          celltext := TOVSTAngebote(pDaten).FAngebotstitel
            + ' (' + TOVSTAngebote(pDaten).FPKAngebotsNr + ')';
Du castest die Daten auf den Datentyp TOVSTAngebote und prüfst ob die Variable vom Typ TOVSTAngebote Daten vom Typ TOVSTAngebote enthält, um es dann wieder auf TOVSTAngebote zu casten.


Welche Version vom VST nutzt du?

Das ermitteln des Plus Zeichen wird in der Methode DetermineHiddenChildrenFlagAllNodes gemacht.
Die wird u.a. aufgerufen, wenn du deine Suche mit BeginUpdate und EndUpdate einkapselst. Gibt da aber paar Bedingungen.

Delphi-Quellcode:
vst.beginupdate();
try
  vst.iterateSubtree(...);
finally
  vst.endupdate();
end;
Du kannst übrigens auch IsFiltered nutzen.
Ich habe es einmal mit "vstBeginUpdate . . ." versucht. Bringt aber auch keine Lösung.
Ich arbeite mit der Version: 5.2.1
Ich habe mal das Cast und die erneute Prüfung herausgenommen. Auch keine Lösung.
Wo stelle ich "IsFiltered" ein. Ich habe nichts gefunden!
Übrigens ist mir folgendes noch aufgefallen:
Wenn ich alle Nodes expandiere und dann suche, werden sofort alle ChildNodes nicht mehr angezeigt
Warum ist dies so
Gruß HPB
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
10.044 Beiträge
 
Delphi 12 Athens
 
#5

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 11. Okt 2013, 22:15
Ich habe jetzt nur einen ganz kurzen Blick drauf geworfen... kann es sein, dass du in SucheCallback vst.GetNodeLevel benutzen müsstest um zu schauen, ob das die oberste Ebene ist? Denn so wie ich das verstehe blendest du die Childnodes dort mit aus, obwohl du wie ich es verstehe nur die Oberknoten filtern willst.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#6

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 12. Okt 2013, 15:42
Ich habe jetzt nur einen ganz kurzen Blick drauf geworfen... kann es sein, dass du in SucheCallback vst.GetNodeLevel benutzen müsstest um zu schauen, ob das die oberste Ebene ist? Denn so wie ich das verstehe blendest du die Childnodes dort mit aus, obwohl du wie ich es verstehe nur die Oberknoten filtern willst.
Guten Tag jaenicke,
ja, das ist mir gestern aufgefallen. Mit ItereeSubTree werden ja alle Nodes durchlaufen. Dies schrieb ja auch Generic. Wenn ich nun mit Pos(...) überprüfe, dann fallen ja alle Nodes heraus, die die Bedingungen nicht erfüllen, und dies sind die Subnodes. Ich werde also prüfen ob der selektierte Node der ParentNode ist und dann sollten auch die richtigen Nodes gefunden werden.
Nochmals Dank an allen, die mit bei der Lösung behilflich waren.
Mit Gruß HPB
  Mit Zitat antworten Zitat
Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#7

AW: Virtualstringtree suchen mit Child-Nodes

  Alt 10. Mär 2016, 22:15
Hallo zusammen,

ich habe vieleicht ein ähnliches Problem. Bei meiner Suche werden die Knoten von NodeLevel 3 nicht mehr angezeigt. Ich suche im NL 1 und 2 nach einem Ort und mache mit

vst.IsVisible[Node] die Knoten sichtbar oder nicht.

Da ich meine Knoten unter NodeLevel 3 erst mit

vst.Expanding erzeugen, gehe ich aktuell davon aus, dass diese aus diesem Grund nicht angezeigt werden. Mit einen Doppelklick auf einen Knoten aus NodeLevel werden die Childs aber ganz normal erzeugt.

Im OnInit sagen ich den Knoten unter NodeLevel 2, das Sie Childs haben...

vst.HasChildren[Node] := True; Dadurch werden im Normalfall (bei öffnen ohne vorher die Auswahl durch die Suche eingeschränkt zu haben) vor dem Note das + zum öffnen dargestellt. Dieses ist allerdings nach der Suche nicht mehr sichtbar.

Die Childs lassen sich trotzdem wie vor beschrieben per Doppelklick öffnen.

Jemand ne Idee...

Danke schonmal und Gruß jens
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz