Kenne mich leider auch nicht so gut damit aus. Aber OnClick kann man dafür nicht benutzen soweit ich weiß.
ich dachte hiermit funktioniert es, tut es aber nicht.
Delphi-Quellcode:
procedure TForm1.VSTBeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
// Variante 1 - funktioniert nicht
// if TVirtualStringTree(Sender).Selected[Node] then
// begin
// TargetCanvas.Brush.Color := TVirtualStringTree(Sender).Colors.FocusedSelectionColor;
// TargetCanvas.FillRect(CellRect);
// end;
// Variante 2 - funktioniert nicht
// if TVirtualStringTree(Sender).FocusedNode = Node then // - FigVam
// begin
// TVirtualStringTree(Sender).Selected[Node] := True;
// TargetCanvas.Brush.Color := $00FF0000;
// TargetCanvas.FillRect(CellRect);
// end;
end;