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个点的坐标值
封装成函数才能方便调用
