请问怎么在FR使用繁体呀？？我要在繁体系统下开发，还不知FR能否支持繁体呀

Question

如题
FR的RES下有提供语言，不知怎么用？

Answer 1

res中有taiwan目录，运行其中的MK、MKDLL。BAT试试。

Answer 2

可以用繁体字, 我就是在繁体系统下开发的.
系统要装英文版的FastReport, 它支持繁体字, 
给我加分哦!

Answer 3

英文版的FastReport？界面那不是成E文了？那些提示也是E文，那不好呀
MK、MKDLL。BAT我都试了好几次，还是不行，出乱码了，不知是不是版本问题，我用的是FR2.52

Answer 4

我运行res的taiwan下的mkdll、mk.bat，再frd7.dpk，但出现了乱码，不知是不是版本问题，我用的是fr2.52
请提供解决方法，谢谢
to liqinxiong
  问题是怎么定义？？

Answer 5

建一个新窗口，里面放按钮，再放frreport,frpreview，简单写一下按钮事件。注意frreport的preview属性用frpreview。

Answer 6

inherited FormMP: TFormMP
  Left = 118
  Top = 131
  Caption = 'Ì×´ò'
  ClientHeight = 565
  ClientWidth = 876
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 41
    Width = 876
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 876
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 144
      Top = 10
      Width = 24
      Height = 13
      Caption = 'µ½µÚ'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 232
      Top = 10
      Width = 24
      Height = 13
      Caption = '¼Ç¼'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 264
      Top = 9
      Width = 33
      Height = 16
      AutoSize = False
      Caption = 'µÚ'
    end
    object Label4: TLabel
      Left = 328
      Top = 9
      Width = 33
      Height = 16
      AutoSize = False
      Caption = 'Ò³'
    end
    object RadioButton1: TRadioButton
      Left = 0
      Top = 8
      Width = 105
      Height = 17
      Caption = '´òÓ¡´Ó¼Ç¼µÚ'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object DBNumberEditEh1: TDBNumberEditEh
      Left = 104
      Top = 6
      Width = 37
      Height = 19
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      MaxValue = 3500.000000000000000000
      MinValue = 1.000000000000000000
      ParentFont = False
      TabOrder = 1
      Value = 1.000000000000000000
      Visible = True
    end
    object DBNumberEditEh2: TDBNumberEditEh
      Left = 184
      Top = 6
      Width = 37
      Height = 19
      EditButton.Style = ebsUpDownEh
      EditButton.Visible = True
      EditButtons = <>
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      MaxValue = 100.000000000000000000
      MinValue = 1.000000000000000000
      ParentFont = False
      TabOrder = 2
      Value = 26.000000000000000000
      Visible = True
    end

Answer 7

object RadioButton2: TRadioButton
      Left = 0
      Top = 24
      Width = 113
      Height = 17
      Caption = '&acute;ò&Oacute;&iexcl;&Egrave;&laquo;&sup2;&iquest;&frac14;&Ccedil;&Acirc;&frac14;'
      TabOrder = 3
    end
    object Edit1: TEdit
      Left = 288
      Top = 5
      Width = 33
      Height = 24
      Enabled = False
      ReadOnly = True
      TabOrder = 4
      Text = 'Edit1'
    end
    object Button1: TButton
      Left = 352
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Iuml;&Acirc;&Ograve;&raquo;&Ograve;&sup3;'
      TabOrder = 5
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 448
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Eacute;&Iuml;&Ograve;&raquo;&Ograve;&sup3;'
      TabOrder = 6
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 536
      Top = 8
      Width = 75
      Height = 25
      Caption = '&micro;&Uacute;&Ograve;&raquo;&Ograve;&sup3;'
      TabOrder = 7
      OnClick = Button3Click
    end
    object btOK: TBitBtn
      Left = 632
      Top = 8
      Width = 70
      Height = 25
      Caption = '&acute;ò&Oacute;&iexcl;&O'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '&Euml;&Icirc;&Igrave;&aring;'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = btOKClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        04000000000068010000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        3F33333300003222A3A2222433333338F3838F3333F3333300003A2A333A2222
        43333338F83338F3333F3333000033A33333A222243333338333338F3333F333
        0000333333333A222243333333333338F3333F3300003333333333A222243333
        333333338F3333F3000033333333333A222243333333333338F3333F00003333
        33333333A222433333333333338F333F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btCancel: TBitBtn
      Left = 792
      Top = 8
      Width = 70
      Height = 25
      Caption = '&Egrave;&iexcl;&Iuml;&ucirc;&C'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '&Euml;&Icirc;&Igrave;&aring;'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = btCancelClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object Button4: TButton
      Left = 712
      Top = 8
      Width = 75
      Height = 25
      Caption = '&iquest;&Oslash;&Ouml;&AElig;&acute;ò&Oacute;&iexcl;'
      TabOrder = 10
      OnClick = Button4Click
    end
  end
  object frPreview1: TfrPreview
    Left = 0
    Top = 44
    Width = 876
    Height = 521
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'frPreview1'
    TabOrder = 1
    ScrollBars = ssBoth
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    Preview = frPreview1
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 408
    Top = 32
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOQueMst
    Left = 432
    Top = 32
  end
  object frDBDataSet2: TfrDBDataSet
    DataSet = QueTmp
    Left = 464
    Top = 40
  end
  object ADOQueMst: TADOQuery
    Connection = DMgenCon.DataCon
    Parameters = <>
    Left = 248
    Top = 48
  end
  object QueTmp: TADOQuery
    Connection = DMgenCon.DataCon
    Parameters = <>
    Left = 296
    Top = 56
  end
end
不能显示的是中文。

Answer 8

晕真的没人能解决这个问题吗？？
liqinxiong说的做法我还没试，不过真的这样做，那FR提供的语言包(res\)还有什么用呢？？？

Answer 9

我的就可以，我也是　在繁體下　開發的，
res中有taiwan目录，运行其中的MK、MKDLL。BAT试试。然後重新編譯　，OK!

Answer 10

这是定制做法。是麻烦一些。
TFormMP = class(TFormGenModal)
    Panel1: TPanel;
    frPreview1: TfrPreview;
    Splitter1: TSplitter;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frDBDataSet2: TfrDBDataSet;
    ADOQueMst: TADOQuery;
    QueTmp: TADOQuery;
    RadioButton1: TRadioButton;
    DBNumberEditEh1: TDBNumberEditEh;
    Label1: TLabel;
    DBNumberEditEh2: TDBNumberEditEh;
    Label2: TLabel;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    btOK: TBitBtn;
    btCancel: TBitBtn;
    Button4: TButton;
    procedure btCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure btOKClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    m_iStart:integer;
    procedure PrShow;
  public
    { Public declarations }
    m_iID,m_iNumber:integer;
  end;var
  FormMP: TFormMP;
  procedure ShowMP(iID,iNumber:integer);implementationuses genConnect, genFunc;{$R *.dfm}procedure ShowMP(iID,iNumber:integer);
begin
  FormMP:=TFormMP.Create(Application);
  FormMP.m_iID:=iID;
  FormMP.m_iNumber:=iNumber;
  FormMP.ShowModal;
  FormMP.Free;
end;

Answer 11

快给分吧。你可以任意定制你的打印窗口，多方便啊。这是最简单做法。不过想想连打印都要写frpreview.print代码，是麻烦一些。