彩票走势图

你可以在自定义向导的帮助下，扩展FastReport VCL报表功能。通过“File >|New…”菜单项调用FastReport VCL中包含的标准“Report Wizard”。FastReport VCL 支持2种类型的向导。上述提到的是第一种类型的向导，通过“File >|New…”菜单项调用它。第二种类型的向导通过“Wizards”工具栏来对其进行调用。

“TfrxCustomWizard”是任何向导类型的基类，在 “frxClass” 文件中，已对其作了声明：

TfrxCustomWizard = class(TComponent)
Public
Constructor Create(AOwner: TComponent); override;
class function GetDescription: String; virtual; abstract;
function Execute: Boolean; virtual; abstract;
property Designer: TfrxCustomDesigner read FDesigner;
property Report: TfrxReport read FReport;
end;

你可以从“TfrxCustomWizard”基类中继承你自己的向导，并且至少重写“GetDescription”和“Execute” 方法。第一种方法返回向导的名称;当运行向导时，便调用第二种方法。如何完成向导操作并对报表进行了修改，第二种方法便返回为“True”。运行向导时，通过“Designer”和“Report” 属性，你可以像平时一样访问设计器，报表方法和属性。

利用“frxDsgnIntf”文件中所定义的程序实现向导注册和删除。

frxWizards.Register(ClassRef: TfrxWizardClass; ButtonBmp: TBitmap;
IsToolbarWizard: Boolean = False);
frxWizards.Unregister(ClassRef: TfrxWizardClass);

在向导注册过程中，需要提供向导类名，图片以及向导是否放置到 “Wizards” 工具栏上。如果向导被放置到工具栏上，ButtonBmp大小可以为16×16像素或者32x32像素。

接下来的示例，我们就用本文中所提及的第一种向导来为报表添加一个新页面。

uses frxClass, frxDsgnIntf;
type
TfrxMyWizard = class(TfrxCustomWizard)
public
class function GetDescription: String; override;
function Execute: Boolean; override;
end;
class function TfrxMyWizard.GetDescription: String;
begin
Result := 'My Wizard';
end;
function TfrxMyWizard.Execute: Boolean;
var
Page: TfrxReportPage;
begin
{ lock any drawings in designer }
Designer.Lock;
{ create new page in report }
Page := TfrxReportPage.Create(Report);
{ create unique name for page }
Page.CreateUniqueName;
{ set paper sizes and orientation to defaults }
Page.SetDefaults;
{ update report pages and switch focus to last added page }
Designer.ReloadPages(Report.PagesCount - 1);
end;
var
Bmp: TBitmap;
initialization
Bmp := TBitmap.Create;
{ load picture from resource; of course, it must already be there }
Bmp.LoadFromResourceName(hInstance, 'frxMyWizard');
frxWizards.Register(TfrxMyWizard, Bmp);
finalization
frxWizards.Unregister(TfrxMyWizard);
Bmp.Free;
end.