delpih画上半圆

 

procedure TForm1.FormPaint(Sender: TObject);
const
  x1 = 10;  //left
  y1 = 10;  //top

  x2 = 200;  //right
  y2 = 200;  //bottom

  x3 = x2;
  y3 = y1+(y2-y1) div 2;

  x4 = x1;
  y4 = y1+(y2-y1) div 2;
begin
  Canvas.TextOut(x1,y1, '第一点');
  Canvas.TextOut(x2,y2, '第二点');
  Canvas.TextOut(x3,y3, '第三点');
  Canvas.TextOut(x4,y4, '第四点');

  Pie(Canvas.Handle, x1,y1, x2,y2, x3,y3, x4,y4);
end;