Halbkreis zeichnen auf Canvas

[Kroko1999]

Delphi-Quellcode:

  Canvas.Pen.Color := 0;
  canvas.Brush.COlor := ClYellow;
  Canvas.Ellipse (10,10,310,210);
  Canvas.Pen.Color := $FFFFFF;;
  canvas.Brush.COlor := ClGReen;
  Canvas.Pie (10,10,310,210,
              310,110,
              10,110);

TCanvas.Pie + F1