delphi - 如何突出显示VST的选定节点？

Question

这是我的代码：

procedure TfrmMain.vstListPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
begin
  if vsSelected in Node.States then
    begin
      TargetCanvas.brush.color := clBlue;
      TargetCanvas.FillRect(targetcanvas.ClipRect);
    end;
end;

但这是发生了什么：


我点击节点
整个VST涂成蓝色，除了先前选择的节点
选定的节点为蓝色（VST返回其默认颜色）


如何避免＃2？

Answer 1

如果要绘制单元格，则会发生错误事件-... PaintText用于设置颜色和字体样式。

尝试使用其他事件（OnBeforeCellPaint），您将自动获得该单元格的TRect。