画弧线DrawArc的研究-我自己 -- 直线交接圆角

 

procedure TForm4.Button7Click(Sender: TObject);
var
  pwith: Integer; //画笔的宽度
  hx1, hy1: Integer; //横线第一个点
  hx2, hy2: Integer; //横线的终点
  sx1, sy1: Integer; //竖线第一个点
  sx2, sy2: Integer; //竖线终点
  r: Integer; //圆的半径
  yleft: Integer;// 圆左侧的left
  ytop: Integer; // 圆顶部的top
  g: TGPGraphics;
  p: TGPPen;
begin
  pwith := 10;
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclBlueViolet, pwith);

  hx1 := 100;
  hy1 := 100;
  hx2 := 400;
  hy2 := 100;
  sx1 := 430;
  sy1 := 130;
  sx2 := 430;
  sy2 := 500;

  //x轴上的距离就是半径.
  r := sx2 - hx2;

  g.DrawLine(p, hx1, hy1, hx2, hy2);
  g.DrawLine(p, sx1, sy1, sx2, sy2);

  g.DrawArc(p, hx2 - r, hy1, r*2, r*2, 270,  90);
  //g.DrawArc(p, 370, 100 -1, 60,60, 270 - 10,  90+10+2); 这样可以看似完美

  p.Free;
  g.Free;
end;

procedure TForm4.Button8Click(Sender: TObject);
var
  g: TGPGraphics;
  p: TGPPen;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclBlueViolet, 20);

  //第一个参数是圆最左侧，左边距即left，第二个参数是圆的最上坐标即top，
  //第三个参数 是圆的横向直径，第四个参数是圆的纵向直径，如果横向与纵向不一致的话
  //画出来就是椭圆。第五个参数是画弧的起始度数，是顺时针的，第6个参数是画多少度，即扩展度数。
  g.DrawArc(p, Button8.Left, Button8.Top + Button8.Height, Button8.Width,Button8.Width, 0, 360);

  p.Free;
  g.Free;
end;