Czy można zmienić kolor wiersza w wirtualnym drzewie łańcuchowym?

Question

Chcę zmienić kolor tekstu w określonym wierszu wirtualnego drzewa ciągów. Czy to możliwe?

Answer 1

Użyj zdarzenie 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; 

To będzie zmienić tło na co drugim rzędzie (jeśli wiersze są na tym samym poziomie).

Answer 2

Aby kontrolować kolor tekstu w określonym wierszu, należy użyć zdarzenia OnPaintText i ustawić 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; 

Należy zauważyć, że ta metoda jest wywoływana dla każdej komórki w TreeView. Wskaźnik Node jest taki sam w każdej komórce w rzędzie. Jeśli więc masz wiele kolumn i chcesz ustawić kolor dla całego wiersza zgodnego z treścią konkretnej kolumny, możesz użyć danego węzła, tak jak w przykładowym kodzie.

Answer 3

Aby zmienić kolor tekstu w określonym wierszu OnDrawText zdarzenie może być stosowany, w którym zmienia bieżący TargetCanvas.Font.Color nieruchomości.

Poniższy kod działa z Delphi XE 1 i wirtualnych katalogów 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;