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;