kreise ineinander zeichnen

[Stevie]

Hi,
versuch mal das hier:

Delphi-Quellcode:

var
  k  : Integer;
  rect: TRect;
  max, step: Integer;
begin
  rect := Image1.Canvas.ClipRect;
  if Rect.Right > Rect.Bottom then
  begin
    Rect.Top := (Rect.Right - Rect.Bottom) div 2;
    Rect.Bottom := Rect.Bottom - Rect.Top;
  end
  else
  begin
    Rect.Left := (Rect.Bottom - Rect.Right) div 2;
    Rect.Right := Rect.Right - Rect.Left;
  end;

  max := 4;
  step := (rect.Right div 2) div (max + 1);

  for k := 1 to max do
    Image1.Canvas.Ellipse(Rect.Left + k * step,
      Rect.Top + k * step,
      Rect.Right - k * step,
      Rect.Bottom - k * step);
end;