Kreis simulation

[bitsetter]

Hi,

ich hoffe mal ich habe mich nicht verrechnet:

Delphi-Quellcode:

var
  h, Grad: integer;
begin
  with Image1 do
  begin
    Grad:= 45;
    image1.Width:= 100;
    Image1.Height:= 100;
    h:= trunc(Height * sin(Grad / 180 * Pi));
    Canvas.Ellipse(0, Height- h, Width, Height);
  end;