1,183
社区成员
发帖
与我相关
我的任务
分享
begin
with Self.PaintBox1 do
begin
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;
canvas.MoveTo(width, 0);
canvas.LineTo(width, height);
canvas.MoveTo(0, height);
canvas.LineTo(width, height);
end;
end;
with paintbox1 do
begin
canvas.MoveTo(left,top);
canvas.LineTo(left,top+height);
canvas.MoveTo(left,top);
canvas.LineTo(left+width,top);
end;