关于制作tqrshape控件(100分)

在网上见到以下
　　以TQShape 为父类，建立新的控件，新控件可以画竖线、斜线和反斜线。
　　重载TQShape 类的Paint 方法，这样在设计阶段可以非常直观地画坚线、斜线和反斜线。用户可以在设计阶段选择线的类型，如果选择直线，控件自动将其高度调整为所属Band 的高度，用户可以调整其横向位置但不能调整其高度；如果选择斜线，用户可以根据需要调整斜线的长度和倾角。
　　重载TQShape 类的Print 方法，这样可以在运行阶段输出直线和斜线。
　　说明：该控件只能画直线和斜线，如果读者需要画矩形和圆，可以使用TQShape 控件来实现。
控件设计步骤
　　步骤1. 使用Delphi 提供的控件向导，选择TQShape 为父类，建立新类TMyQRShape，并选择适当的包(Package)，最后生成单元文件。
　　步骤2. 在生成的单元文件中，增加枚举类型。
　 TLines = ( None,TopBottom,BottomTop ) ;
　　None、TopBottom、BottomTop 三种取值，分别代表直线、斜线/ 和反斜线/。
　　步骤3. 在新类TMyQRShape 中增加private 成员FLineType:TLines ，增加published 属性LineType:TLines Read FLineType Write SetFLineType。
　　步骤4. 建立过程SetFLineType。
procedure TMyQRShape.SetFLineType
　　(Value:TLines);
begin
　if ValueFLineType then
　begin
　　FLineType:=Value ;
　　Invalidate ;
　end ;
end ;
　　步骤5. 重载Paint 方法。
procedure TMyQRShape.Paint ;
begin
　case LineType　of
　BottomTop:
　　begin
　　　Canvas.MoveTo(0,Height) ;
　　　Canvas.LineTo(width,0 ) ;
　　end ;
　TopBottom:
　　begin
　　　Canvas.MoveTo(0,0) ;
　　　Canvas.LineTo(width,Height ) ;
　　end ;
　None:
　　begin
　　　Height := Parent.Height ;
　　　Top:=0 ;
　　　Width:=4 ;
　　　Shape:=qrsVertLine ;
　　　Inherited Paint ;
　　end ;
　end ;
end ;
　　步骤6. 重载Print 方法。
procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
　with QRPrinterdo
　begin
　　case LineType　of
　　BottomTop:
　　　begin
　　　　Canvas.MoveTo(XPos(OfsX ＋Size.Left),
　　　　　YPos(OfsY ＋Size.Top) ＋Height) ;
　　　　Canvas.LineTo(XPos(OfsX ＋Size.Left)
　　　　　＋width,YPos(OfsY ＋Size.Top) ) ;
　　end ;
　　TopBottom:
　　　begin
　　　　Canvas.MoveTo(XPos(OfsX ＋Size.Left),
　　　　　YPos(OfsY ＋Size.Top)) ;
　　　　Canvas.LineTo(XPos(OfsX ＋Size.Left)
　　　　　＋Width,YPos(OfsY ＋Size.Top) ＋Height ) ;
　　　end ;
　　None:
　　　Inherited Print(OfsX,OfsY ) ;
　　end ;
　end ;
end;
　　步骤7. 保存并安装TMyQRShape 控件。
　　本控件在Delphi40 下调试、安装，并成功地应用于某数据库管理系统的开发中。
＊＊＊＊可我在产生unit QQRShape1之后，却无法跟踪链接QuickRpt, QRCtrls，也就是说跟本找不到这两个unit，[][][][][]以至无法编译！

附加：上文.倒数第三行.visible：=false；