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.
