runder Button

[Hansa]

Was weiß denn ich ? Wollte ja Kreis. Da gilt Width = Height. Und das ist auch eine Ellipse.

Delphi-Quellcode:

  rgn := CreateRoundRectRgn(3,3,Width - 2,Height - 2,Width,Height);
  SetWindowRgn(Handle, rgn, True);
  FCanvas.Pen.Color := clBlack;
  FCanvas.Pen.Width := 5;
  FCanvas.Brush.Color := clBlue;
  FCanvas.RoundRect(3,3,Width - 2 - 1,Height - 2 - 1,Width,Height);
end; (*DrawButton*)

Der Rand wird jetzt auch gezeichnet, überdeckt aber die Caption dieses runden Buttons. Was ist zu tun ? DP-Ampeln kann man damit aber zumindest mal bauen.