VirtualTreeView MouseOver Color [Erledigt] - Delphi-PRAXiS
Summary
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? 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: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 bewegeGibt es hierfür eventuell eine bessere Lösung?Vielen Dank für alle hilfreichen Infos. Da kam einer, der wusste das nicht und hat es gemacht. Geändert von SvB (Heute um Uhr) Grund: erledigt