VirtualTreeView - 在同一節點不同顏色的文字

Question

我試圖創建TVirtualStringTree視圖，這將是類似這樣的：

在上面的例子中，我已經表明了一些我想要達到的可能場景。 文件夾A具有粗體文本，然後在同一節點後面顯示紅色的無襯線文本。我正在尋找做出這種輸出的方式。

但是，如果這是太硬或太有問題的創建，我將很高興與FolderB中或FolderC類型的輸出 - 這也許可以有2列，包含一個文件夾名稱，另一種含發裏面的文件數。

FolderD在這裏只是作爲沒有文件和該文件夾的輸出（文本是unbolded，沒有數字）的文件夾的示例。

我正在尋找任何方向如何使這種效果，因爲似乎VirtualTreeView只能有一個顏色或粗體設置每個節點。任何提示或建議如何向FolderA或方向移動FolderB或FolderC高度讚賞，所以我有一個起點。 Delphi或C++ Builder示例都是受歡迎的（最終代碼將在C++ Builder中）。

Answer 1

你可以簡單地使用toShowStaticText（StringOptions）選項：

implementation 

type 
    PNodeRec = ^TNodeRec; 
    TNodeRec = record 
    Name: WideString; 
    Count: Integer; 
    IsBold: Boolean; 
    end; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    Node: PVirtualNode; 
    NodeRec: PNodeRec; 
    I: Integer; 
begin 
    VirtualStringTree1.TreeOptions.StringOptions := 
    VirtualStringTree1.TreeOptions.StringOptions + [toShowStaticText]; 
    VirtualStringTree1.NodeDataSize := Sizeof(TNodeRec); 
    // Populate some data 
    for I := 1 to 10 do 
    begin 
    Node := VirtualStringTree1.AddChild(nil); 
    NodeRec := VirtualStringTree1.GetNodeData(Node); 
    Initialize(NodeRec^); 
    NodeRec.Name := 'Node' + IntToStr(I); 
    NodeRec.Count := I; 
    NodeRec.IsBold := I mod 2 = 0; 
    end; 
end; 

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; 
    Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; 
    var CellText: WideString); 
var 
    NodeRec: PNodeRec; 
begin 
    NodeRec := PNodeRec(TVirtualStringTree(Sender).GetNodeData(Node)); 
    if TextType = ttNormal then 
    CellText := NodeRec^.Name 
    else // ttStatic 
    CellText := Format('(%d)', [NodeRec^.Count]); 
end; 

procedure TForm1.VirtualStringTree1PaintText(Sender: TBaseVirtualTree; 
    const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; 
    TextType: TVSTTextType); 
var 
    NodeRec: PNodeRec; 
begin 
    NodeRec := PNodeRec(TVirtualStringTree(Sender).GetNodeData(Node)); 
    if TextType = ttNormal then 
    begin 
    if NodeRec^.IsBold then 
     TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold]; 
    end 
    else // ttStatic 
    TargetCanvas.Font.Color := clRed; 
end; 

輸出：