Delphi runder Button - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

runder Button

Ein Thema von Hansa · begonnen am 27. Dez 2007 · letzter Beitrag vom 19. Jan 2008

Vorheriger Beitrag

Nächster Beitrag

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge

Delphi 8 Professional

Re: runder Button

28. Dez 2007, 01:43

Was weiß denn ich ?

Wollte ja Kreis. Da gilt Width = Height. Und das ist auch eine Ellipse.

markieren

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.