delphi Canvas画线问题

要么直接用矩形代替 嘿嘿
反正效果一样
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个点的坐标值
封装成函数才能方便调用