首页 热点专区 义务教育 高等教育 出国留学 考研考公

delphi Canvas画线问题

发布网友

我来回答

1个回答

热心网友

要么直接用矩形代替 嘿嘿
反正效果一样
Canvas.Pen.Width := 2; //设置笔刷宽度为20
Canvas.Pen.Color:=clblack; //线颜色
Canvas.Brush.Color:=clblack;//填充颜色
Canvas.Rectangle(200,200,210,100);

不需要释放。

假如需要倾斜的线条 那要用polygon()了

var
s1:array of TPoint;
begin
Canvas.Pen.Width := 2; //设置笔刷宽度为20
Canvas.Pen.Color:=clblack;
Canvas.Brush.Color:=clblack;
setlength(s1,4);
S1[0].X:=200;
S1[0].y:=200;

S1[1].X:=204;
S1[1].y:=204;

S1[2].X:=304;
S1[2].y:=104;

S1[3].X:=300;
S1[3].y:=100;
Canvas.Polygon(S1);
就是需要计算角度 然后计算出4个点的坐标值
封装成函数才能方便调用

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com