übrigens fällt mir gerade auf, dass das schwachsinn ist:
Delphi-Quellcode:
procedure TMyPfeil.SetSelection(Value : Boolean);
begin
FSelected := Value;
if Value = True then //Ist ohnehin gefährlich, denn das Prüfen auf True kann Probleme mit sich bringen. "if value then" wäre korrekt.
Self.DoubleBuffered := true
else
Self.DoubleBuffered := False;
Invalidate;
end;
Sinnvoller wäre:
Delphi-Quellcode:
procedure TMyPfeil.SetSelection(Value : Boolean);
begin
FSelected := Value;
doublebuffered := value;
Invalidate;
end;
zum thema doublebuffered: das kannst du ja selber machen, indem du zuerst auf ein bitmap zeichnest und dann auf canvas. (Wobei mir gerade einfällt, dass man dann mit dem transparenten hintergrund ein bisschen tricksen muss)