delphi - 是否可以更改虚拟字符串树中行的颜色？

Question

我想更改虚拟字符串树特定行中文本的颜色。这可能吗？

Answer 1

使用 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;

这将更改每隔一行的背景(如果行位于同一级别)。