Quick.Report.Pro.v4.07.Delphi.2007 打印预览汉化问题

Question

我在Delphi 2007 下使用 Quick.Report.Pro.v4.07.Delphi.2007。
现打算把打印预览窗体中的显示信息改为中文， qrprev.dfm qrprev.pas我把按钮英文提法改为中文后，编译包，把.bpl .dcp 分发到 ..\CodeGear\RAD Studio\5.0\\bin  以及 \CodeGear\RAD Studio\5.0\QuickRep\bpl 下， 
可重新Build原来的工程后，预览窗体中的按钮提示信息仍然是英文。请问如何解决？

Answer 1

编译后，找到bpl再手动安装QuickReport

Answer 2

把编译后的bpl和dcp放到我的文档中的BDSProject/bpl文件夹中，2006好像是这个目录，2007没用过，不太清楚，你找找

Answer 3

QuickReport 4.07 原来的安装程序安装后， 它是bpl就只在这两个目录中：..\CodeGear\RAD Studio\5.0\\bin
..\CodeGear\RAD Studio\5.0\QuickRep\bpl 真是搞不懂了。我查了 .bpl 文件中（二进制文件），修改的文字已经在里面了， 可新建工程编译运行后，仍然是英文提示。

Answer 4

可以在BeforePrint里头对预览窗口直接进行获取按钮对象，然后对其进行汉化。

Answer 5

以下小代码可以实现把 Close 按钮汉化成“关闭”procedure TForm2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  i,j: integer;
  fmPreview: TForm;
  tBar, tButton: TComponent;
begin
  if (QuickRep.QRPrinter.Client=nil) or
     (not (QuickRep.QRPrinter.Client.Parent is TForm)) then Exit;
  fmPreview := TForm(QuickRep.QRPrinter.Client.Parent);  for i := 0 to fmPreview.ControlCount - 1 do
  begin
    tBar := fmPreview.Controls[i];
    if tBar is TToolbar then
    begin
      for j := 0 to TToolBar(tBar).ControlCount - 1 do
      begin
        tButton := TToolBar(tBar).Controls[j];
        if (tButton is TSpeedButton) then
        begin
          TSpeedButton(tButton).Font.Name := '宋体';
          TSpeedButton(tButton).Font.Size := 9;
          TSpeedButton(tButton).Hint := '关闭';
          TSpeedButton(tButton).Caption := '关闭';
        end;
      end;
    end;
  end;
end;

Answer 6

我是指直接调用   QuickRep1.Preview;  出现的打印预览窗体。

Answer 7

TQuickRep 报表对象有一个 BeforePrint 事件，在响应时间里头做汉化。

Answer 8

unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls,ToolWin,
  ComCtrls, Buttons;type
  TForm2 = class(TForm)
    QuickRep: TQuickRep;
    QRDBText1: TQRDBText;
    QRLabel1: TQRLabel;
    QRBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRDBText2: TQRDBText;
    ADODataSet1: TADODataSet;
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoPrint();
  end;var
  Form2: TForm2;implementation{$R *.dfm}//QuickRep 汉化的函数
procedure g_InitQuickRpt(const QuickRpt: TQuickRep);
var
  i,j: integer;
  fmPreview: TForm;
  tBar, tButton: TComponent;
begin
  if (QuickRpt.QRPrinter.Client=nil) or
     (not (QuickRpt.QRPrinter.Client.Parent is TForm)) then Exit;
  fmPreview := TForm(QuickRpt.QRPrinter.Client.Parent);  for i := 0 to fmPreview.ControlCount - 1 do
  begin
    tBar := fmPreview.Controls[i];
    if tBar is TToolbar then
    begin
      for j := 0 to TToolBar(tBar).ControlCount - 1 do
      begin
        tButton := TToolBar(tBar).Controls[j];
        //汉化工具栏的 TToolButton 按钮
        if tButton is TToolButton then
        begin
          //根据tButton.Name作汉化。
          if LowerCase(tButton.Name)='zoomfit' then TToolButton(tButton).Hint := '适合整页';
          if LowerCase(tButton.Name)='zoom100' then TToolButton(tButton).Hint := '原始比例';
          if LowerCase(tButton.Name)='zoomtowidth' then TToolButton(tButton).Hint := '适合页宽';
          if LowerCase(tButton.Name)='firstpage' then TToolButton(tButton).Hint := '首页';
          if LowerCase(tButton.Name)='previouspage' then TToolButton(tButton).Hint := '上一页';
          if LowerCase(tButton.Name)='toolbutton2' then TToolButton(tButton).Hint := '下一页';
          if LowerCase(tButton.Name)='lastpage' then TToolButton(tButton).Hint := '末页';
          if LowerCase(tButton.Name)='toolbutton3' then TToolButton(tButton).Hint := '跳转到';          
          if LowerCase(tButton.Name)='printsetup' then TToolButton(tButton).Hint := '打印设置';
          if LowerCase(tButton.Name)='print' then TToolButton(tButton).Hint := '打印';
          if LowerCase(tButton.Name)='savereport' then TToolButton(tButton).Hint := '保存报表';
          if LowerCase(tButton.Name)='loadreport' then TToolButton(tButton).Hint := '打开报表';
        end;
        //汉化 TSpeedButton 按钮，好像就一个 Close 按钮。
        if (tButton is TSpeedButton) then
        begin
          TSpeedButton(tButton).Font.Name := '宋体';
          TSpeedButton(tButton).Font.Size := 9;
          TSpeedButton(tButton).Hint := '关闭';
          TSpeedButton(tButton).Caption := '关闭';
        end;
      end;
    end;
  end;
end;procedure TForm2.DoPrint();
begin
  QuickRep.Preview;
end;procedure TForm2.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  //汉化工作.
  g_InitQuickRpt(QuickRep);
end;end.

Answer 9

to lynmison: 非常感谢你的热心，你的思路也不错。   你的分我是给定了。 ：）我再等等看，有没有我题目中的解决办法。