我现在必须用quickrep,我用的是6.0,帮帮忙!
解决方案 »
- Form中new了一些指针,但没有dispose,整个程序关闭的时候会自动释放吗?
- 注册表中的REG_MULTI_SZ是个什么类型
- 为什么用Tdcomconnection组件做C/S客户端连接时,C与S在一台机子上可以,做是把S放在其它机子上时就不能访问了?
- 一个关于内存读取的问题,再线等
- 为什么我的frpreview不能预览?
- 请问:VB和Delphi有什么不同??
- 这是DELPHI的一个BUG吗?
- 客户和服务器联接问题?
- ODBC的SQLSetPos、SQLSetCursorName等函数的问题
- RichEdit 怎么限宽?
- 简单问题:怎样设置文件的系统、隐藏、只读属性?(在线)
- 怎样用ADO创建Access数据库文件,怎样用ADO获得数据库中所有表的名称和字段信息??
将此文本拷贝过去存盘为。*.pas,安装该控件计可用了。
unit MyQRShape;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, Qrctrls, ppPrnabl, ppClass, ppCtrls,
ppBands, ppCache, ppComm, ppRelatv, ppProd, ppReport;type
TLines = ( None,TopBottom,BottomTop ) ;TMyQRShape = class(TppShape)
private
FLineType:TLines ;
procedure SetFLineType(Value:TLines) ;
protected
procedure Print(OfsX, OfsY : integer); override;
procedure Paint ;Override ;
publicpublished
property LineType:TLines Read FLineType Write SetFLineType ;
end;procedure Register;implementationprocedure TMyQRShape.SetFLineType(Value:TLines);
begin
if Value<>FLineType then
begin
FLineType:=Value ;
Invalidate ;
end ;
end ;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 ;procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
with QRPrinter do
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;procedure Register;
begin
RegisterComponents('rbuilder', [TMyQRShape]);
end;
end.