runder Button

[Hansa]

Der schweizer Code ist nicht schlecht (bitte selber suchen -> 1. Tip zu TButton). So geht es :

Delphi-Quellcode:

  begin
    Font.Style := Font.Style - [fsBold];
  end;
(*
Width := 100;
Height := 100;
*)
Height := Width;
//  rgn := CreateRoundRectRgn(3,3,Width - 2,Height - 2,20,20);
//showmessage (IntToStr (Width)+'  '+IntToStr (Height));
  rgn := CreateRoundRectRgn(3,3,Width - 2,Height - 2,Width,Height);
  SetWindowRgn(Handle, rgn, True);
end; (*DrawButton*)

Beweis : siehe Anhang. Weiß noch jemand, was gemacht werden muss, damit um die jetzt gefüllte Fläche (also genau auf der Umrandung) eine Linie um die Fläche gezogen wird, in anderer Farbe, ohne die Fläche selbst zu beeinflussen ?