Zitat von
richard_boderich:
Also ich verwende zurzeit noch Records
Ist doch nicht schlecht. In den meinsten Fällen reicht das auch.
Mein Beispiel hätte nur paar Sachen doppelt implementieren müssen.
(Die Gesamtsumme für OnCompareNodes und onGetText)
Zitat von
richard_boderich:
Delphi-Quellcode:
procedure TForm1.VstPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
var d: PRMeineDaten;
begin
d:=Sender.GetNodeData(Node);
with TargetCanvas do
begin
if (Column=3) then if (d^.Hidden='test') then Font.Color:=clRed;
end; // with TargetCanvas
end;
Das sieht richtig aus.
Ich meine dein Vergleich geht nicht richtig.
Dran gedacht das Column's bei 0 anfangen zu zählen?
4. Column muss nicht Wert 3 sein.
Wenn du die Reihenfolge in der
IDE verändert hast, kann das ein andere Wert sein.
(Position)
[edit]
es wird [wenn] auch nur der text der 4. Cell eingefärbt!