• 画弧线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;
  • 相关阅读:
    BeautifulSoup_第一节
    第一个python爬虫——保存淘宝mm图片
    面试题:css(一)
    面试:HTML(二)
    websocket
    面试题:HTML篇(一)
    HTML5遗忘知识点(一)
    webpack热更新原理
    webpack按需加载
    什么是process.env?
  • 原文地址:https://www.cnblogs.com/del88/p/6354322.html
Copyright © 2020-2023  润新知