Hallo Leute
Ich habe folgendes Problem:
Ich möchte einen Node auswählen und dieser soll sich automatisch Einfärben (Farbe ist egal)
Wenn ich ihn wieder los lasse und einen anderen auswähle soll der zuletzt ausgewählte seine Farbe behalten.
Ich bin schon über das PaintText Ereigniss gestoßen. Doch das erschien mir nicht ganz das richtige...
Delphi-Quellcode:
procedure TFrameDB.VSTDBPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
begin
if Node.Index mod 2 = 0 then
begin
TargetCanvas.Font.Color := clRed;
TargetCanvas.Font.Style := [fsBold];
end
else
begin
TargetCanvas.Font.Color := clBlack;
TargetCanvas.Font.Style := [];
end;
end;
Das ist meine erste Übung dazu, jeden 2ten Node ein zu färben...
Funktioniert jedoch nur beim erstmaligen Laden des VST. Wie ändere ich die Farbe nachtröglich?