如何显示中文化的打印设置对话框?
拷贝C:\Rave5\Source目录中的RpFormSetup.pas和RpFormSetup.dfm到对应的项目目
录中。
把RpFormSetup.pas加入到对应的项目文件中,把对应窗体的名字从RPSetupForm更改
为SCSetupForm;将文件RpFormSetup.pas另存为SCFormSetup.pas。
把窗体SCSetupForm中的对应文字从英文更改为中文。
在主窗体上加上 RvProject和 RvSystem部件,通过设定RvProject.Engine为
RvSystem部件来把两者挂接。
设置RvSystem部件的OverrideSetup事件过程为以下代码:
procedure TForm1.RvSystem1OverrideSetup(ReportSystem: TRvSystem;
OverrideMode: TOverrideMode; var OverrideForm: TForm);
begin
case
OverrideMode of
omCreate:
begin
OverrideForm := TSCSetupForm.Create(nil);
//OverrideForm.Caption := RvSystem1.TitleSetup;
(OverrideForm as TSCSetupForm).ReportSystem := ReportSystem;
end;
omShow:
begin
with OverrideForm as TSCSetupForm, ReportSystem do
begin
PreviewSetup := False;
Aborted := ShowModal = mrCancel;
end;
end;
omWait:
begin
{because showModal: no wait necessary!}
end;
omFree:
begin
OverrideForm.Free;
end;
end;
end;
编译运行这个项目,其打印设置对话框就会变成中文的了!
这种方式进行中文化不会受到RAVE版本升级的影响!
对于其它对话框应该可以同法炮制吧!