汉化 Delphi6.0 的报表预览器

Delphi 语言以其高效、简单和强大的功能受到广大程序员的推崇。但是，直到最近推出的6.0版，由于它们都是英文版，所以用 Delphi开发数据库应用程序时，其报表预览控件在界面上显示的提示信息全都是英文字符，这对于开发中文界面的程序，显得很不协调。
笔者经过分析发现，Delphi6.0 在进行报表预览时，调用了窗体文件 Qrprev.dfm，该文件位于 \Program Files\Borland\Delphi6\Lib文件夹下。报表预览器上的工具条、按钮等控件全部在该文件中定义！找到了问题的关键所在，解决起来就比较简单了。用 Delphi6.0 打开Qrprev.dfm 文件，会发现其中定义了一个 TQRStandardPreview 对象类，在该类下，又定义了状态条（TStatusBar）、工具条（TToolBar）、预览窗体（TQRPreview）和图形列表（TImageList）四个类。我们就是要对工具条上按钮的 Caption、Hint和状态条上的Panels 的英文提示进行汉化。
文后所附程序清单标明了笔者所做的修改，其中语句前标有一个 * 号的是笔者所做的汉化修改，标有两个 * 号的是笔者为了支持中文字体和美化界面而加的语句。程序中不能加注 // 和 {} 注释语句(当然也不能保留语句前的 * 号)。如果你愿意，还可以给工具条上再定义一些按钮，甚至添加一幅图片。
当然了，应用这种方法，您还可以对 Delphi 的其它系统资源进行汉化，使您编制的软件界面更加友好，更符合中文用户的操作要求。

//Qrprev.dfm 文件的内容：
object QRStandardPreview: TQRStandardPreview
Left = 229
Top = 191
Width = 652
Height = 579

• Caption = '"西安电子科技大学电达科技公司"报表预览器'
  Color = clBtnFace
  ** Font.Charset = GB2312_CHARSET
  ** Font.Height = -12
  ** Font.Name = '宋体'
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
• TextHeight = 12
  object StatusBar: TStatusBar
  Left = 0
  Top = 533
  Width = 644
  Height = 19
  Panels = <
  item
  Alignment = taRightJustify
  Text = '0%'
  Width = 40
  end
  item
• Text = '页'
  Width = 50
  end>
  SimplePanel = False
  end
  object ToolBar1: TToolBar
  Left = 0
  Top = 0
  Width = 644
  AutoSize = True
  BorderWidth = 2
  Flat = True
  Images = Images
  TabOrder = 1
  ** ShowCaptions = True
  object ToolButton1: TToolButton
  Left = 0
  Top = 0
  Width = 8
  Caption = 'ToolButton1'
  ImageIndex = 12
  Style = tbsDivider
  end
  object ZoomFit: TToolButton
  Left = 8
  Top = 0
  ** AutoSize = True
• Hint = '缩 小'
• Caption = '缩小'
  Grouped = True
  ImageIndex = 0
  Style = tbsCheck
  OnClick = ZoomToFitClick
  end
  object Zoom100: TToolButton
  Left = 31
  Top = 0
  ** AutoSize = True
• Hint = '满屏100%显示'
• Caption = '满屏'
  Grouped = True
  ImageIndex = 1
  Style = tbsCheck
  OnClick = ZoomTo100Click
  end
  object ZoomToWidth: TToolButton
  Left = 54
  Top = 0
  ** AutoSize = True
• Hint = '适应屏幕宽度'
• Caption = '等宽'
  Grouped = True
  ImageIndex = 2
  Style = tbsCheck
  OnClick = ZoomToWidthClick
  end
  object Separator1: TToolButton
  Left = 77
  Top = 0
  Width = 8
  Caption = 'Separator1'
  ImageIndex = 3
  Style = tbsDivider
  end
  object FirstPage: TToolButton
  Left = 85
  Top = 0
  ** AutoSize = True
• Hint = '第一页'
• Caption = '首页'
  ImageIndex = 3
  OnClick = FirstPageClick
  end
  object PreviousPage: TToolButton
  Left = 108
  Top = 0
  ** AutoSize = True
• Hint = '上一页'
• Caption = '前页'
  ImageIndex = 4
  OnClick = PrevPageClick
  end
  object ToolButton2: TToolButton
  Left = 131
  Top = 0
  ** AutoSize = True
• Hint = '下一页'
• Caption = '后页'
  ImageIndex = 5
  OnClick = NextPageClick
  end
  object LastPage: TToolButton
  Left = 154
  Top = 0
  ** AutoSize = True
• Hint = '最后一页'
• Caption = '末页'
  ImageIndex = 6
  OnClick = LastPageClick
  end
  object Separator2: TToolButton
  Left = 177
  Top = 0
  Width = 8
  Caption = 'Separator2'
  ImageIndex = 7
  Style = tbsDivider
  end
  object PrintSetup: TToolButton
  Left = 185
  Top = 0
  ** AutoSize = True
• Hint = '打印机设置'
• Caption = '设置'
  Enabled = False
  ImageIndex = 7
  OnClick = PrintSetupClick
  end
  object Print: TToolButton
  Left = 208
  Top = 0
  ** AutoSize= True
• Hint = '打印'
• Caption = '打印'
  Enabled = False
  ImageIndex = 8
  OnClick = PrintClick
  end
  object Separator3: TToolButton
  Left = 231
  Top = 0
  Width = 8
  Caption = 'Separator3'
  ImageIndex = 9
  Style = tbsDivider
  end
  object SaveReport: TToolButton
  Left = 239
  Top = 0
  ** AutoSize = True
• Hint = '保存到文件'
• Caption = '保存'
  ImageIndex = 10
  OnClick = SaveClick
  end
  object LoadReport: TToolButton
  Left = 262
  Top = 0
  ** AutoSize = True
• Hint = '从文件装载'
• Caption = '装载'
  ImageIndex = 9
  OnClick = LoadClick
  end
  object Separator4: TToolButton
  Left = 285
  Top = 0
  Width = 8
  Caption = 'Separator4'
  ImageIndex = 11
  Style = tbsDivider
  end
  object ExitButton: TSpeedButton
  Left = 293
  Top = 0
  Width = 50
  Height = 22
  Caption = '关闭'
  OnClick = ExitClick
  end
  end
  object QRPreview: TQRPreview
  Left = 0
  Top = 32
  Width = 622
  Height = 501
  HorzScrollBar.Tracking = True
  VertScrollBar.Tracking = True
  Align = alClient
  TabOrder = 2
  OnPageAvailable = QRPreviewPageAvailable
  OnProgressUpdate = QRPreviewProgressUpdate
  PageNumber = 1
  Zoom = 100
  end
  object Images: TImageList
  Left = 54
  Top = 42
  Bitmap = {494C0101……} // 省略
  end
  end