VirtualDrawTree: Bereich rechts von letzter Spalte zeichnen

[Hawkeye219]

Hallo Armin,

vielleicht geht es so:

Delphi-Quellcode:

procedure TDemoForm.VDTBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; ItemRect: TRect; var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
  ItemRect.Left := 0;
  ItemRect.Right := Sender.ClientWidth;
  {GraphUtil.}GradientFillCanvas (TargetCanvas, clAqua, clYellow, ItemRect, gdHorizontal);

  EraseAction := eaNone;
end;

Gruß Hawkeye