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;

[Angel.Matilla]

En Builder el VST no tiene el evento OnDrawText, por eso lo estaba haciendo en el OnPaintText.

[Casimiro Noteví]

Empezado por Angel.Matilla

En Builder el VST no tiene el evento OnDrawText, por eso lo estaba haciendo en el OnPaintText.

Pero si el ejemplo lo he sacado de Builder
Y lo he adaptado a delphi.
¿Y CustomDraw, o algo así?

[Angel.Matilla]

No; tal vez tenga que ver con que uso BCB 6. En la ayuda del VST cita los siguientes eventos:

OnBeforePaint
OnBeforeItemPaint
OnBeforeItemErase
OnAfterItemErase
OnBeforeCellPaint
string trees only, OnPaintText
OnAfterCellPaint
OnAfterItemPaint
OnAfterPaint

Creo que los he probado todos, pero estoy volviendo a probar.

[Angel.Matilla]

Es que lo que me llama la atención es que sí admita la letra en negrita pero no el cambio de fondo.

[Casimiro Noteví]

Pues no sé, es que no tengo el Builder para probar.

[Angel.Matilla]

Llevo desde ayer dándole vueltas y lo más que he conseguido ha sido esto:

con este código:

void __fastcall TfDatos::DesglosesBeforeItemPaint(TBaseVirtualTree *Sender,
      TCanvas *TargetCanvas, PVirtualNode Node, TRect &ItemRect,
      bool &CustomDraw)
{
     vsRect = ItemRect;     
}
//---------------------------------------------------------------------------

void __fastcall TfDatos::DesglosesPaintText(TBaseVirtualTree *Sender, const TCanvas *TargetCanvas, PVirtualNode Node, TColumnIndex Column, TVSTTextType TextType)
{
     TargetCanvas->Font->Color  = clBlack;
     TargetCanvas->Font->Style  = ((PTreeDesglose)Sender->GetNodeData(Node))->Concepto.Pos("TOTAL") != 0 ? TFontStyles() << fsBold : TFontStyles() >> fsBold;
     TargetCanvas->Brush->Color = ((PTreeDatos)Sender->GetNodeData(Node))->Concepto.Pos("TOTAL") != 0 ? clYellow : clWhite;
     TargetCanvas->FillRect(vsRect);
}
//---------------------------------------------------------------------------

Evidentemente vsRec está definida a nivel de todo el formulario con TRect vsREct. Está claro que tiene que poderse pero no encuentro la forma. Seguiremos probando