Vielen dank, sieht gut aus.
mit folgendem Code wird der Text auch nicht unterstrichen und die Textfarbe geändert wenn ich mit der Maus drüber fahre (so wie ich es haben möchte - und nur für Spalte 3)
Code:
procedure TfrmFilterEditor.vstPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
begin
TargetCanvas.Font.Style := TargetCanvas.Font.Style - [fsUnderline];
if (Node = vst.HotNode) and (Column = vst.HotColumn) and (Column = 3) then
TargetCanvas.Font.Color := clWhite;
end;