Efectos en un TVirtualStringTree

[Casimiro Noteví]

En el DrawText, ejemplo:

Código Delphi [-]
procedure TFcuentas.vstArbolDrawText(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  const Text: WideString; const CellRect: TRect; var DefaultDraw: Boolean);
var
  NodeData : PTrecBase;
begin
  inherited;
  NodeData := (Sender as TBaseVirtualTree).GetNodeData(Node);
  if iMaxDigitos = NodeData.Nivel then
    if column=1 then
    begin
      TargetCanvas.Font.Color := clYellow;
      TargetCanvas.Brush.Color := clRed;
      targetcanvas.FillRect(cellrect);
    end;
end;