Ich habe es jetzt auch selbst herausgefunden. Nur habe ich AfterCellPaint genommen.
Delphi-Quellcode:
procedure Tfrm_main.vst_network_subnetdetailsAfterCellPaint(
Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; CellRect: TRect);
var
SubnetDetailsData : TOSubnetDetailsData;
begin
// Spalte 0 einfärben, wenn es sich um ein Exclude handelt
SubnetDetailsData := TOSubnetDetailsData(vst_network_subnetdetails.GetNodeData(Node)^);
if vst_network_subnetdetails.Header.Columns[Column].Text = '' then
begin
if SubnetDetailsData.dhcp_exclude = 0 then
begin
TargetCanvas.Brush.Color := clBlack;
TargetCanvas.FillRect(CellRect);
end;
end;
end;
Was ist denn besser AfterCellPaint oder OnBeforeCellPaint?