Kreis in Vier teile einteilen ?

[bitsetter]

Delphi-Quellcode:

procedure Ellipse4Farben(cav: TCanvas; iLeft, iTop, iW, iH: integer);
var
  iHalbW, iHalbH : integer;
begin
  iHalbW := iW div 2;
  iHalbH := iH div 2;
  with cav do
  begin
    Brush.Color := clSilver;
    Ellipse(iLeft, iTop, iLeft + iW, iTop+ iH);

    Pen.Color := clRed;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iW, iTop + iHalbH, iLeft + iHalbW, iTop);

    Pen.Color := clYellow;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iHalbW, iTop, iLeft, iTop + iHalbH);

    Pen.Color := clGreen;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft, iTop + iHalbH, iLeft + iHalbW, iTop + iH);

    Pen.Color := clAqua;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iHalbW, iTop + iH, iLeft + iW, iTop + iHalbH);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Ellipse4Farben(image1.Canvas, 33, 50, 121, 81);
end;

Das Ganze jetzt mit einer Ellipse.