delphi 用image 画图

Question

怎样用image 中的canvas画图，步骤是什么，只画几个简单的线条就可以了。（我是新手，请指导得详细一些。）

Answer 1

Canvas.Pen.Color设置颜色
Canvas.Pen.Width设置宽度
Canvas.Pen.Style设置线型Canvas.MoveTo设置线起点
Canvas.LineTo设置线终点

Answer 2

var
  Form1: TForm1;
  pt:tpoint;
implementation{$R *.dfm}procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Canvas.MoveTo(pt.X,pt.Y);
  Image1.Canvas.LineTo(x,y);
  pt.X:=x;
  pt.Y:=y;
end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  pt.x:=x;
  pt.Y:=y;
end;

Answer 3

Visual Graph是一套强大的交互图形开发平台，她能非常方便地建造基于图形的界面、制作各种图形元件、实现图形管理、图形建模、制作监控系统、表单系统、绘图系统、流程设计、CAD软件等。她提供功能非常强大的ActiveX控件，和其他流行的编程语言共同工作，极大地弥补了这些语言在图形处理方面的不足。也可以嵌入IE浏览器中，实现网上图形编辑和控制等。http://www.visual-graph.com