È possibile cambiare il colore di una riga in una struttura ad albero virtuale?

Question

Voglio cambiare il colore del testo in una riga specifica di un albero di stringa virtuale. È possibile?

Answer 1

utilizzare l'evento OnBeforeCellPaint:

procedure TForm1.VirtualStringTree1BeforeCellPaint(Sender: TBaseVirtualTree; 
    TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; 
    CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); 
begin 
    if Node.Index mod 2 = 0 then 
    begin 
    TargetCanvas.Brush.Color := clFuchsia; 
    TargetCanvas.FillRect(CellRect); 
    end; 
end; 

questo cambierà lo sfondo su ogni altra riga (se le righe sono sullo stesso livello).

Answer 2

Per controllare il colore del testo in una riga specifica, utilizzare l'evento OnPaintText e impostare TargetCanvas.Font.Color.

procedure TForm.TreePaintText(Sender: TBaseVirtualTree; const TargetCanvas: 
    TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType); 
var 
    YourRecord: PYourRecord; 

begin 
    YourRecord := Sender.GetNodeData(Node); 

    // an example for checking the content of a specific record field 
    if YourRecord.Text = 'SampleText' then 
    TargetCanvas.Font.Color := clRed; 
end; 

Si noti che questo metodo viene chiamato per ogni cellula del TreeView. Il puntatore del Nodo è lo stesso in ogni cella di una riga. Quindi, se si dispone di più colonne e si desidera impostare il colore per una fila intera accoring al contenuto di una colonna specifica, è possibile utilizzare il dato nodo, come nel codice di esempio.

Answer 3

Per modificare il colore del testo in una riga specifica, OnDrawText evento può essere utilizzato in cui si cambia corrente TargetCanvas.Font.Color proprietà.

Il codice sotto funziona con Delphi XE 1 e TreeView virtuale 5.5.2 (http://virtual-treeview.googlecode.com/svn/branches/V5_stable/)

type 
    TFileVirtualNode = packed record 
    filePath: String; 
    exists: Boolean; 
    end; 

    PTFileVirtualNode = ^TFileVirtualNode ; 

procedure TForm.TVirtualStringTree_OnDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; 
    Column: TColumnIndex; const Text: UnicodeString; const CellRect: TRect; var DefaultDraw: Boolean); 
var 
    pileVirtualNode: PTFileVirtualNode; 
begin 
    pileVirtualNode:= Sender.GetNodeData(Node); 

    if not pileVirtualNode^.exists then 
    begin 
    TargetCanvas.Font.Color := clGrayText; 
    end; 
end;