Ich mach das hier im BeforeCellPaint Ereignis:
Delphi-Quellcode:
procedure Tblub.VST2BeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellRect: TRect);
begin
if(Column <> 0) and (Node.Index mod 2 = 0)then
begin
TargetCanvas.Brush.Color := $F2F2F2;
TargetCanvas.FillRect(CellRect);
end;
end;
Färbe jede zweite Spalte benutze den VST als Tabellarische Ansicht.
greetz Lun