VirtualTreeView MouseOver Color [Erledigt]

[SvB]

Moin,

ich möchte gerne in einem VirtualTreeView ähnlich dem Hottrack beim Drüberfahren mit der Maus über eine Zelle das die Hintergrund- und Schriftfarbe geändert werden.

Ich habe aktuell folgenden Code:

Code:

procedure TfrmFilterEditor.vstBeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect;
  var ContentRect: TRect);

function NodeAtCursorPos: PVirtualNode;
var
  P: TPoint;
  HitInfo: THitInfo;
begin
  P := vst.ScreenToClient(Mouse.CursorPos);
  vst.GetHitTestInfoAt(p.X, p.Y, True, HitInfo);
  if (hiOnItem in HitInfo.HitPositions) and (HitInfo.HitColumn = 3) then begin
    Result := HitInfo.HitNode;
  end;
end;

begin
  if Node = NodeAtCursorPos then begin
    if (Column = 3) then begin
      TargetCanvas.Brush.Color := $00555351;
      TargetCanvas.FillRect(CellRect);
      //TargetCanvas.Font.Color := clWhite;
      //TargetCanvas.TextOut(ContentRect.Left, ContentRect.Top, 'Entfernen')
    end else begin
      //TargetCanvas.Brush.Color := clWindow;
      //TargetCanvas.FillRect(CellRect);
      vst.InvalidateNode(Node);
    end;
  end else begin
    //TargetCanvas.Brush.Color := clWindow;
    //TargetCanvas.FillRect(CellRect);
    vst.InvalidateNode(Node);
  end;
end;

Das funktioniert teilweise mit folgenden Problemem:
a) der Text wird nicht an der selben Stelle wie der Originaltext geschrieben (deshalb auskommentiert)
b) die CPU-Nutzung steigt von ein paar % auf über 60% an, sobald ich das Formular öffne (durch Invalidate)
c) wenn ich das Invalidate durch die auskommentierten Stellen ersetze, dann bleibt die Farbe einer geänderten Zelle erhalten wenn ich mich aus dem Bereich aller Zellen bewege

Gibt es hierfür eventuell eine bessere Lösung?
Vielen Dank für alle hilfreichen Infos.