Delphi 7 中使用RAVE报表（七）

Delphi 7 中使用RAVE报表（七）

----  一些技巧

作为《Delphi 7 中使用RAVE报表》的最后，整理一些技巧给大家。
   
   

1．设计好的Rave报表文件如何打包到EXE文件中？
   
   

       在Rvproject的属性中有一个StoreRav，只要load对应的rav文件即可!
  
  

同时最好把对应rvproject的ProjectFile属性清空。
   
   

2．如何显示中文化的打印预览对话框？
   
   

      拷贝C:/Rave5/Source目录中的RpFormPreview.pas和RpFormPreview.dfm到对应的项
  
  

目目录中。
   
   

      把RpFormPreview.pas加入到对应的项目文件中，把对应窗体的名字从
  
  

RavePreviewForm更改为SCRavePreviewForm；将文件RpFormPreview.pas另存为
  
  

SCFormPreview.pas。
  
  

      把窗体SCRavePreviewForm中的对应文字从英文更改为中文。
  
  

      在主窗体上加上 RvProject和 RvSystem部件，通过设定RvProject.Engine为
  
  

RvSystem部件来把两者挂接。    
  
  

      设置RvSystem部件的OverridePreview事件过程为以下代码：
  
  

procedure TForm1.RvSystem1OverridePreview(ReportSystem: TRvSystem;
  
  

  OverrideMode: TOverrideMode; var OverrideForm: TForm);
  
  

begin
  
  

    Case OverrideMode Of
  
  

    omCreate:
  
  

    Begin
  
  

        OverrideForm := TSCRavePreviewForm.Create(self);
  
  

        //OverrideForm.Caption := ReportSystem.TitlePreview;
  
  

        OverrideForm.Width := ReportSystem.SystemPreview.FormWidth;
  
  

        OverrideForm.Height := ReportSystem.SystemPreview.FormHeight;
  
  

        OverrideForm.WindowState := ReportSystem.SystemPreview.FormState;
  
  

        (OverrideForm As TSCRavePreviewForm).ReportSystem := ReportSystem;
  
  

    End;
  
  

    omShow:
  
  

    Begin