TVirtualTree, Knoten neuzeichnen

[hoika]

Hallo #,

folgender Code (vereinfacht)

Delphi-Quellcode:

procedure TForm.LV_TPDataFocusChanging(Sender: TBaseVirtualTree;
  OldNode, NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
  var Allowed: Boolean);
begin
  if OldNode=NIL then Exit;

  if DataSaved then
  begin
   // to "reload view"
    Sender.InvalidateNode(OldNode);
   // Sender.Invalidate.  klappt auch nicht
  end
end;

Im FocusChanging prüfe, ob sich Daten geändert haben (es gibt noch ein paar Edits zum Ändern).
Ist das der Fall wird in die DB gespeichert und jetzt soll der alte Knoten aktualisiert werden.

Klappt aber nicht.
Es passiert einfahc nix (keine Ändeurng).

Notlösung.
Neuladen des kompletten Views im OnFocusChanged.

Was mache ich denn falsch ?


Danke


Heiko

[generic]

lässt du den VST als ganzen Zeit um neuzuzeichnen?
Wird die Nachrichtenwarteschlange noch abgearbeitet?

[Prototypjack]

Moin,

Was ist, wenn du die direkte Anweisung (VirtualStringTree.RepaintNode(ANode);) verwendest?

Grüße,
Max

Edit: Smileys deaktiviert.

[hoika]

Hallo,

Wird die Nachrichtenwarteschlange noch abgearbeitet?

ich bin ja im Changing drin.
Auch in Application.ProcessMessages bringt nichts.

RepaintNode bringt auch nichts.


Ich mach mal ein Bsp.-Programm.
Wird aber erst Mitte nächster Woche was.



Heiko

[generic]

im Zweifelsfall setze den ganzen VST auf invalidate.

Delphi-Quellcode:

vst.invalidate;

[hoika]

Hallo,

habe den Bug gefunden,
er saß vor dem Monitor ... ;)

Ursache:
Beim Schreiben habe ich die Formular-Daten in eine eigenes (neues) Objekt geschrieben.
Das Original-Objekt (Data^-property) wurde nicht angerührt,
d.h. der alte Wert wurde bei jedem Neuzeichnen-Versuch wieder angezeigt.


Danke und schönen Sonntag noch.


Heiko