Kreis in Vier teile einteilen ?

[mimi]

das Problem ist, wie kann ich das hier am besten einbauen ?

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, iw, ih: integer);
var
  Halb,DMesser: integer;
begin
  Halb := DMesser div 2;
  with cav do
  begin
   // cav.Ellipse(iLeft, iTop, iLeft + DMesser, iTop+DMesser);
//    Brush.Color := clSilver;
  //  FloodFill(iLeft + Halb, iTop + Halb, Pen.Color, fsBorder);

    Pen.Color := clRed;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + DMesser, iTop + Halb, iLeft + Halb, iTop);

    Pen.Color := clYellow;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + Halb, iTop, iLeft, iTop + Halb);

    Pen.Color := clGreen;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft, iTop + Halb,iLeft + Halb, iTop + DMesser);

    Pen.Color := clAqua;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + Halb, iTop + DMesser, iLeft + DMesser, iTop + Halb);
  end;
end;

leider hatte ich mit Kreisen bisher wenig zu tun, darum fällt, mir das auch so schwer.

Mein Ziel ist es eine Procedure zu haben die genau wie FillRect auf gerufen werden kann.
mit einem TRect oder halt so wie ich es jetzt oben gemacht habe.

Letztendlich ist es egal ob es ein Kreis oder eine Ellipse ist,
Das sollen die Eckpunkte angeben.

Nochmals vielen Dank für eure gedult.