Shape Hintergrund transparent

[Namenloser]

ü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)