如何在delphi中画线条、画矩形框？

[pzh508]

在delphi如何自己画线段、画矩形框等这些图形？而且还可以实现线条的粗细、线条的颜色。还可以是实线还是虚线还是点？就像类似windows画笔那样！谁能提供思路或者源代码啊？谢谢

[柯本]

Canvas.MoveTo(x,y); //移动光标
Canvas.LineTo(x,y); //画线
Canvas.Rectangle(X1, Y1, X2, Y2); //画框
Canvas.Pen.Width //线宽
Canvas.Pen.Style //线型
如:
procedure TForm1.Button1Click(Sender: TObject);
begin

Canvas.Pen.Width:=10;
Canvas.Pen.Style:=psDash;
Canvas.Pen.Color:=clred;
Canvas.MoveTo(100,100);
Canvas.lineto(200, 200);
Canvas.Pen.Width:=1;
Canvas.Rectangle(10,10,100,100);
end;

[pzh508]

我知道这种方法可以画出来，可是如果我想对画好的那个线段、或者是那个矩形进行选中，然后进行调整位置或者调整长度宽度我就不知道怎么搞了，谁能提供思路或者代码？

[wudi_1982]

MoveTo(x,y); //移动光标
LineTo(x,y); //画线


Rectangle(X1, Y1, X2, Y2);

[nevergetwin]

楼上说得对，你可以看看书，关于Canvas画图的，Pen，brush等等
再结合Onmousemove OnMouseUp OnMouseDown等属性就能制作自己的画图板了

[pzh508]

我知道这种方法可以画出来，可是如果我想对画好的那个线段、或者是那个矩形进行选中，然后进行调整位置或者调整长度宽度我就不知道怎么搞了，谁能提供思路或者代码？

自己up

[pzh508]

再Up

[lileammm]

up