我在canvas上画了一个矩形或线条然后可以拖动和缩放这个矩形框或线条这个功能是怎么实现

[zgpsblxkj]

我在canvas上画了一个矩形或线条，然后可以拖动和缩放这个矩形框或线条。这个功能是怎么实现的？给个例子。各位大哥，大侠帮帮忙了！！！！！！！

[taxi]

我有例子，发邮件或留下EMAIL，我发给你。
[e-mail]

[zgpsblxkj]

我的邮件:[e-mail]

[taxi]

发了。

[rainsea]

给我一份好吗？
[e-mail]

[ly_liuyang]

其实是CAD的功能，Canvas那么简单肯定不行的，有第三方控件支持，国产的都有，就是收费的，叫TCAD2002在www.codeidea.com，我也会自己写，不过暂时不能公开，帮你Up了，看谁可以帮你

[taxi]

Rainsea(飞龙在天) ：已发。

[netlib]

To： ly_liuyang(Liu Yang)

你觉得Canvas真的不行吗？

[taxi]

图形的移动、拉伸和Canvas没什么关系，我们只是利用Canvas绘制图形。
如果利用OOP，这些功能其实很简单的。

[jyu1221]

给你一个头定义。有了以下的头定义，接下去的事情就简单了。

TDrawObject = class(TObject)
private
m_PenColor:TColor;
m_strType:String;
public
m_bSelected:Boolean;
m_nStyle:Integer;
Constructor Create();
Destructor Destory();
procedure SetPenColor(color:TColor);
function GetPenColor():TColor;
procedure HotPoint(canvas:TCanvas;x:Integer;y:Integer);
function AtPoint(x1,y1,x,y:Integer):Boolean;//判断二点位置关系
function AtLine(x1,y1,x2,y2,x,y:Integer):Boolean;//判断点和直线的位置关系
procedure Selected(canvas:TCanvas;select:Boolean);virtual;
procedure Draw(canvas:TCanvas);virtual;
function SelectAt(x,y:Integer):Integer;virtual;
procedure MoveAt(canvas:Tcanvas;flags:Integer;x:Integer;y:Integer);virtual;
function NewPoint(x,y:Integer):Integer;overload;virtual;
function AddPoint(x,y:Integer):Integer;virtual;
procedure HotPoints(canvas:TCanvas);virtual;
procedure SetType(s:String);
function GetType():String;
end;

TDrawLine = class(TDrawObject)
private
m_x1,m_y1,m_x2,m_y2:Integer;
m_oldx,m_oldy:Integer;
public
procedure Selected(canvas:TCanvas;select:Boolean);override;
procedure Draw(canvas:TCanvas);override;
function SelectAt(x,y:Integer):Integer;override;
procedure MoveAt(canvas:Tcanvas;flags:Integer;x:Integer;y:Integer);override;
function NewPoint(x,y:Integer):Integer;override;
procedure HotPoints(canvas:TCanvas);override; //绘制热点
end;

TDrawRect = class(TDrawObject)
private
m_x1,m_y1,m_x2,m_y2:Integer;
m_oldx,m_oldy:Integer;
public
procedure Selected(canvas:TCanvas;select:Boolean);override;
procedure Draw(canvas:TCanvas);override;
function SelectAt(x,y:Integer):Integer;override;
procedure MoveAt(canvas:Tcanvas;flags:Integer;x:Integer;y:Integer);override;
function NewPoint(x,y:Integer):Integer;override;
procedure HotPoints(canvas:TCanvas);override; //绘制热点
end;