求huizhang做的TLine控件及源码！急！ (50分)

求huizhang做的TLine控件及源码！急！

My Email:supernal@citiz.net

把panel控件的高度或宽度设为1不就是line了吗?[:I]

我要的是可以选中、拖动、改变长度角度的Line呀，你的方法只能画出水平线或者垂直线

哪位英雄有huizhang做的TLine，请Mail一份给我，保证送分，急急急急急急急急
[][][][][][][][][][][][][][][][][][][][][][]

我又需要，大侠帮忙给我一份，谢谢！
terranwfq@chinaren.com

我又需要，大侠帮忙给我一份，谢谢！
ah_wcw@sohu.com

自己解决了

自己试着做一下,其实很简单的
我的思路是这样的
自己写一个类继承TPaintBox,在重画事件里写画线的方法就可以了
重写MouseDown,MouseMove,MouseUp事件

这需要控件吗，在OnPaint事件中，以Canvas上画不就行了。

我也需要这个控件，
yuntian312@163.com

谢谢了！！！

哦？有什么特别的么
有的话给我发一个，研究研究，谢谢
cbychen@sina.com

我非常需要，大侠帮忙给我一份，谢谢！
wang.xf@sac.com.cn

TLine= class(TGraphicControl)
private
FPen: TPen;
FShape: TLineType;
procedure SetPen(Value: TPen);
procedure SetShape(Value: TLineType);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure writeToFile(Var F:TextFile);
published
procedure StyleChanged(Sender: TObject);
property Align;
property Anchors;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Constraints;
property ParentShowHint;
property Pen: TPen read FPen write SetPen;
property Shape: TLineType read FShape write SetShape default ltDiagonal;
property ShowHint;
property Visible;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;

我也想要，fenglhua@163.com，谢谢！