启用toUseExplorerTheme的TVirtualStringTree如何修改选中与悬停项颜色？

嘿，我对TVirtualStringTree的主题定制这块熟得很！当你开启了toUseExplorerTheme和toThemeAware后，系统主题会接管大部分绘制逻辑，但要自定义选中项和鼠标悬停项的颜色，得靠自定义绘制事件来实现，具体操作步骤如下：

1. 开启自定义绘制权限 #

首先得让Tree允许我们干预绘制逻辑：

• 在Tree的Options.PaintOptions属性中，勾选toCustomDraw和toCustomDrawSelection两个选项，这是触发自定义绘制事件的前提。
• 如果需要支持鼠标悬停效果，还要在Options.MiscOptions里勾选toHotTrack，这样才能检测到鼠标悬停的节点。

2. 用OnBeforeCellPaint实现单元格级定制 #

这个事件会针对每个单元格触发，适合多列Tree的精细定制。下面是Delphi代码示例：

procedure TYourForm.VirtualStringTree1BeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
  NodeStates: TVTNodeStates;
begin
  NodeStates := Sender.GetNodeState(Node);
  
  // 处理鼠标悬停的单元格
  if vsHot in NodeStates then
  begin
    TargetCanvas.Brush.Color := $00F0E68C; // 自定义悬停背景色（这里是卡其色）
    TargetCanvas.FillRect(CellRect);
    TargetCanvas.Font.Color := clBlack; // 配套的文字颜色
  end
  // 处理选中的单元格
  else if vsSelected in NodeStates then
  begin
    TargetCanvas.Brush.Color := $004A708B; // 自定义选中背景色（这里是钢蓝色）
    TargetCanvas.FillRect(CellRect);
    TargetCanvas.Font.Color := clWhite; // 配套的文字颜色
  end;
end;

3. 用OnCustomDrawItem实现整行级定制 #

如果你的Tree是单列，或者希望整行统一颜色，可以用这个事件，它针对整个节点行触发：

procedure TYourForm.VirtualStringTree1CustomDrawItem(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;
  var PaintImages: Boolean; var DefaultDraw: Boolean);
var
  NodeStates: TVTNodeStates;
begin
  NodeStates := Sender.GetNodeState(Node);
  
  if vsHot in NodeStates then
  begin
    TargetCanvas.Brush.Color := $00F0E68C;
    TargetCanvas.FillRect(ItemRect);
    DefaultDraw := True; // 让系统继续绘制文字、图标等内容
    TargetCanvas.Font.Color := clBlack;
  end
  else if vsSelected in NodeStates then
  begin
    TargetCanvas.Brush.Color := $004A708B;
    TargetCanvas.FillRect(ItemRect);
    DefaultDraw := True;
    TargetCanvas.Font.Color := clWhite;
  end;
end;

4. 关键注意事项 #

• 不要忘记开启前面提到的PaintOptions和MiscOptions，否则自定义绘制事件根本不会触发。
• 颜色值可以用Delphi内置的颜色常量（比如clSkyBlue），也可以用十六进制RGB值（注意Delphi的颜色格式是$00BBGGRR）。
• 如果发现主题样式还是会覆盖你的自定义颜色，可以尝试调整事件的执行顺序，或者在OnAfterCellPaint中做补充绘制（不过一般前面的步骤就足够了）。

内容的提问来源于stack exchange，提问作者Петя Васечкин