是否有可能更改虚拟字符串树中行的颜色？
我想改变虚拟字符串树的特定行中的文本的颜色。 可能吗？
使用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;
这将改变每隔一行的背景（如果行在同一级别）。
要控制特定行中文本的颜色，请使用OnPaintText事件并设置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;
请注意，此方法是为TreeView中的每个单元调用的。 节点指针在一行的每个单元中是相同的。 因此，如果您有多个列，并且想要根据特定列的内容设置整行的颜色，则可以使用示例代码中的给定节点。
要更改特定行中文本的颜色，可以使用OnDrawText事件来更改当前的TargetCanvas.Font.Color属性。
下面的代码适用于Delphi XE 1和虚拟树视图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;
上一篇: Is it possible to change the color of a row in a virtual string tree?