VirtualTreeView: Es klappt nicht ganz

[generic]

das sieht sehr komplizert aus.
die vcl hat doch noch die klasse tpersistent.
warum leitest du nicht von der ab und nutzt die methoden der vcl um objekte in streams zu speichern?
(ich muss zugeben mit dem thema habe ich mich noch nicht beschäftigt)

[JPSelter]

So, habe heute endlich mal weitermachen können an dem Projekt. Laden und Speichern funktioniert jetzt einwandfrei. Nächstes Problem:

Ich rechtsklicke auf einen Node, um auf einem PopUpMenu "edit" auszuwählen. Dann erscheint ein neues Formblatt in das ich einen neuen Namen für den Knoten eintippe. Dann klicke ich auf Speichern und das Formblatt verschwindet. Der Name des Knotens wird nun im VST aktualisiert und angezeigt. Problem: Solange der Knoten immer noch blau selektiert ist bleibt diese "blaue Box" wie sie vorher war und passt sich nicht der neuen Wortlänge an. Ich muss erst woandershin klicken und zurückklicken, dann ist die "blaue Selektionsbox" so breit wie der Name des Knotens. Versteht Ihr was ich meine? Ich mache sonst maln Screenshot. Gibts irgendwie eine Repaint-Funktion, falls die überhaupt die Lösung wäre?

[Dale]

da sollte folgendes helfen:
VirtualTreeView.InvalidateNode(Node);
Gruß Dale

[JPSelter]

Wann genau soll ich das ausführen? Ich habs jetzt nach der Knotenaktualisierung, aber es passiert nichts.

[Dale]

hm, wundert mich, dass es nicht funktioniert. Versuchs mal mit:

Delphi-Quellcode:

VirtualTreeView.BeginUpdate;
...
// Knoten aktualisieren;
...
VirtualTreeView.EndUpdate;

ansonsten solltest du mal den Quelltext posten.

Gruß Dale

[JPSelter]

Hier etwas Code, es klappt immernoch nicht:

Delphi-Quellcode:

procedure updateSession;
var Data: PTreeData;
begin
  Form1.VST1.BeginUpdate();
  Data := Form1.VST1.GetNodeData(currentNode);
  TSessionObject(Data.FObject).datum:=datetimetounix(Form1.DateTimePicker1.date);
  [...]
  Form1.VST1.EndUpdate();
  Form1.VST1.InvalidateNode(currentNode);
end;

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if editmode then
    updatePoint
  else
    insertPoint;
  saveTree;
  editmode:=false;
  close;
end;

currentNode ist global und enthält die aktuell selektierte Node.

[Dale]

Stimmt alles was du geschrieben hast,

es hilft nur folgendes: (ich habs getestet)

Delphi-Quellcode:

VirtualStringTree.BeginUpdate;
...
VirtualStringTree.ReinitNode(CurrentNode, False);
VirtualStringTree.EndUpdate;

Gruß Dale

[JPSelter]

So, da bin ich wieder. Hab den Vorschlag mit dem ReInitNode getestet, aber es wirkt sich immernoch nicht positiv auf das Programm aus. Habe auch mal dieses RepaintNode ausprobiert, aber es klappt nicht. Vielleicht liegt der Fehler woanders, ich schau nochmal rein...