umain.~dfm

DELPHI DFM资源文件内码批量转换程序

object frmMain: TfrmMain
  Left = 176
  Top = 109
  Width = 772
  Height = 570
  Caption = 'Delphi'#25991#20214#20869#30721#36716#25442#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 32
    Width = 764
    Height = 4
    Cursor = crVSplit
    Align = alTop
    OnCanResize = Splitter2CanResize
  end
  object Splitter2: TSplitter
    Left = 191
    Top = 36
    Width = 5
    Height = 488
  end
  object Splitter3: TSplitter
    Left = 0
    Top = 36
    Width = 6
    Height = 488
    OnCanResize = Splitter2CanResize
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 764
    Height = 32
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 28
        Width = 760
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 747
      Height = 28
      ButtonHeight = 21
      ButtonWidth = 93
      Caption = 'ToolBar1'
      ShowCaptions = True
      TabOrder = 0
      object tbSelDir: TToolButton
        Left = 0
        Top = 2
        Caption = #36873#25321#30446#24405
        ImageIndex = 0
        OnClick = tbSelDirClick
      end
      object tbSelFile: TToolButton
        Left = 93
        Top = 2
        Caption = #36873#25321#25991#20214
        ImageIndex = 1
        OnClick = tbSelFileClick
      end
      object ToolButton3: TToolButton
        Left = 186
        Top = 2
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object tbCovDFM: TToolButton
        Left = 194
        Top = 2
        Caption = #36716#25442'DFM'#25991#20214
        ImageIndex = 2
        OnClick = tbCovDFMClick
      end
      object tbCovPas: TToolButton
        Left = 287
        Top = 2
        Caption = #36716#25442'Pas'#25991#20214
        ImageIndex = 3
        OnClick = tbCovPasClick
      end
      object tbModFont: TToolButton
        Left = 380
        Top = 2
        Caption = #26356#25913#36164#28304#23383#20307
        ImageIndex = 5
        OnClick = tbModFontClick
      end
      object tbModExt: TToolButton
        Left = 473
        Top = 2
        Caption = #38500#21435'New'#25193#23637#21517
        ImageIndex = 5
        OnClick = tbModExtClick
      end
      object ToolButton6: TToolButton
        Left = 566
        Top = 2
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 574
        Top = 2
        Caption = #35774#32622
        ImageIndex = 4
        PopupMenu = PopMenu
        Style = tbsDropDown
      end
    end
  end
  object Panel1: TPanel
    Left = 196
    Top = 36
    Width = 568
    Height = 488
    Align = alClient
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object Splitter4: TSplitter
      Left = 0
      Top = 257
      Width = 568
      Height = 5
      Cursor = crVSplit
      Align = alTop
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 262
      Width = 568
      Height = 226
      Align = alClient
      Caption = #36716#25442#21518#25991#20214#39044#35272
      TabOrder = 0
      object Splitter5: TSplitter
        Left = 2
        Top = 219
        Width = 564
        Height = 5
        Cursor = crVSplit
        Align = alBottom
        OnCanResize = Splitter2CanResize
      end
      object Splitter6: TSplitter
        Left = 2
        Top = 15
        Width = 5
        Height = 204
        OnCanResize = Splitter2CanResize
      end
      object Splitter7: TSplitter
        Left = 561
        Top = 15
        Width = 5
        Height = 204
        Align = alRight
        OnCanResize = Splitter2CanResize
      end
      object memDest: TMemo
        Left = 7
        Top = 15
        Width = 554
        Height = 204
        Align = alClient
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object GroupBox2: TGroupBox
      Left = 0
      Top = 0
      Width = 568
      Height = 257
      Align = alTop
      Caption = #28304#25991#20214
      TabOrder = 1
      object Splitter8: TSplitter
        Left = 2
        Top = 250
        Width = 564
        Height = 5
        Cursor = crVSplit
        Align = alBottom
        OnCanResize = Splitter2CanResize
      end
      object Splitter9: TSplitter
        Left = 2
        Top = 15
        Width = 5
        Height = 235
        OnCanResize = Splitter2CanResize
      end
      object Splitter10: TSplitter
        Left = 561
        Top = 15
        Width = 5
        Height = 235
        Align = alRight
        OnCanResize = Splitter2CanResize
      end
      object memSrc: TMemo
        Left = 7
        Top = 15
        Width = 554
        Height = 235
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 6
    Top = 36
    Width = 185
    Height = 488
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter11: TSplitter
      Left = 0
      Top = 249
      Width = 185
      Height = 8
      Cursor = crVSplit
      Align = alTop
    end
    object lstBox: TListBox
      Left = 0
      Top = 0
      Width = 185
      Height = 249
      Align = alTop
      ItemHeight = 13
      PopupMenu = PopupMenu1
      TabOrder = 0
      OnDblClick = lstBoxDblClick
    end
    object lstFailBox: TListBox
      Left = 0
      Top = 257
      Width = 185
      Height = 231
      Align = alClient
      ItemHeight = 13
      TabOrder = 1
      OnDblClick = lstFailBoxDblClick
    end
  end
  object PopMenu: TPopupMenu
    Left = 648
    Top = 112
    object miBinToText: TMenuItem
      AutoCheck = True
      Caption = 'DFM'#33258#21160#36716#25442'(Bin To Text)'
      Checked = True
      GroupIndex = 1
    end
    object miNumToCode: TMenuItem
      AutoCheck = True
      Caption = 'DFM'#33258#21160#36716#25442'(#xxxxx To '#20869#30721')'
      Checked = True
      GroupIndex = 1
    end
    object miShowTrue: TMenuItem
      AutoCheck = True
      Caption = #20445#23384#21069#26174#31034#30830#35748#23545#35805#26694
      Checked = True
      GroupIndex = 1
    end
    object miUnKnowClass: TMenuItem
      AutoCheck = True
      Caption = #25552#31034#21457#29616#26410#30693#30340#31867#24182#22686#21152
      GroupIndex = 1
    end
    object miUnknowEvent: TMenuItem
      AutoCheck = True
      Caption = #25552#31034#21457#29616#26410#30693#30340#20107#20214#24182#26032#22686#21152
      GroupIndex = 1
    end
    object miAutoCovClass: TMenuItem
      AutoCheck = True
      Caption = #33258#21160#36716#25442#26410#30693#30340#23545#35937#31867#22411
      GroupIndex = 1
    end
    object miShowCovFont: TMenuItem
      AutoCheck = True
      Caption = #36716#25442#23383#20307#21069#26174#31034#30830#35748#23545#35805#26694
      Checked = True
      GroupIndex = 1
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object miToBak: TMenuItem
      AutoCheck = True
      Caption = #21407#25991#20214#33258#21160#22791#20221'(.Bak)'
      GroupIndex = 2
      RadioItem = True
    end
    object miToNew: TMenuItem
      AutoCheck = True
      Caption = #36716#25442#21518#25991#20214#21152#25193#23637#21517'(.New)'
      Checked = True
      GroupIndex = 2
      RadioItem = True
    end
    object N1: TMenuItem
      Caption = '-'
      GroupIndex = 2
    end
    object miGBKSToT: TMenuItem
      AutoCheck = True
      Caption = 'GBK'#32321'To'#31616#30721
      GroupIndex = 3
      RadioItem = True
    end
    object miBigToGBK: TMenuItem
      AutoCheck = True
      Caption = 'BIG5 To GBK'#30721
      GroupIndex = 3
      RadioItem = True
    end
    object miNotCovert: TMenuItem
      AutoCheck = True
      Caption = #19981#36716#25442#20869#30721
      Checked = True
      GroupIndex = 3
      RadioItem = True
    end
    object N3: TMenuItem
      Caption = '-'
      GroupIndex = 4
    end
    object miSeldfm: TMenuItem
      AutoCheck = True
      Caption = #36873#25321'dfm'#25991#20214'(*.dfm)'
      Checked = True
      GroupIndex = 4
      RadioItem = True
    end
    object miSelpas: TMenuItem
      AutoCheck = True
      Caption = #36873#25321'pas'#25991#20214'(*.pas)'
      GroupIndex = 4
      RadioItem = True
    end
    object miSelNew: TMenuItem
      AutoCheck = True
      Caption = #36873#25321'new'#25991#20214'(*.new)'
      GroupIndex = 4
      RadioItem = True
    end
    object N4: TMenuItem
      Caption = '-'
      GroupIndex = 4
    end
    object miCovFont1: TMenuItem
      AutoCheck = True
      Caption = #36716#25442#23383#20307#20026#23435#20307
      Checked = True
      GroupIndex = 5
    end
    object miCovCharset: TMenuItem
      AutoCheck = True
      Caption = #36716#25442#23383#31526#38598'GB2312'
      Checked = True
      GroupIndex = 5
    end
    object miH11toH13: TMenuItem
      AutoCheck = True
      Caption = #36716#25442#23383#20307#22823#23567#20026'10'#21495#23383
      Checked = True
      GroupIndex = 5
    end
    object miCovToParent: TMenuItem
      AutoCheck = True
      Caption = #36716#25442#23383#20307#20026#29238#23481#22120#39118#26684
      Checked = True
      GroupIndex = 5
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'pas'#25991#20214'(*.pas)|*.pas|dfm'#25991#20214'(*.dfm)|*.dfm|'#25991#26412#25991#20214'(*.txt)|*.txt'
    Left = 352
    Top = 112
  end
  object RzLch: TRzLauncher
    Action = 'Open'
    FileName = 'D:\convertz802\ConvertZ.exe'
    Timeout = -1
    WaitUntilFinished = True
    Left = 480
    Top = 160
  end
  object RzSendMessage1: TRzSendMessage
    Left = 480
    Top = 112
  end
  object SaveDlg: TSaveDialog
    DefaultExt = '.Txt'
    Filter = #25991#26412#25991#20214'(*.txt)|*.Txt'
    Left = 408
    Top = 112
  end
  object RzSelDirDlg: TRzSelectFolderDialog
    Left = 288
    Top = 160
  end
  object PopupMenu1: TPopupMenu
    Left = 288
    Top = 208
    object MenuItem18: TMenuItem
      Caption = #21152#36733#25991#20214#21015#34920
      GroupIndex = 1
      OnClick = MenuItem18Click
    end
    object MenuItem19: TMenuItem
      Caption = #20445#23384#25991#20214#21015#34920
      GroupIndex = 1
      OnClick = MenuItem19Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 288
    Top = 112
    object File1: TMenuItem
      Caption = '&F'#25991#20214#25805#20316
      object DFM1: TMenuItem
        Caption = #36716#25442'DFM'#25991#20214
        OnClick = tbCovDFMClick
      end
      object PAS1: TMenuItem
        Caption = #36716#25442'PAS'#25991#20214
        OnClick = tbCovPasClick
      end
      object N5: TMenuItem
        Caption = #26356#25913#36164#28304#23383#20307
        OnClick = tbModFontClick
      end
      object tbAnsiToGB: TMenuItem
        Caption = #26356#25913'ANSI'#20026'GB'
        OnClick = tbAnsiToGBClick
      end
      object New1: TMenuItem
        Caption = #38500#21435'New'#25193#23637#21517
        OnClick = tbModExtClick
      end
    end
    object N6: TMenuItem
      Caption = #20854#23427#25805#20316
      object DFMPas1: TMenuItem
        Caption = #20174'DFM'#25991#20214#29983#25104#23545#35937#23450#20041'Pas'
        OnClick = DFMPas1Click
      end
    end
  end
  object ADOC1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DFM_BIGToGB\Conv' +
      'ert.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 576
    Top = 104
  end
  object ADOQryEvent: TADOQuery
    Active = True
    Connection = ADOC1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM EventList'
      'WHERE "IsUser"="True";')
    Left = 580
    Top = 156
  end
  object ADOQryClass: TADOQuery
    Active = True
    Connection = ADOC1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ClassList'
      'WHERE "IsUser"="True"')
    Left = 580
    Top = 204
  end
  object ADOQry: TADOQuery
    Connection = ADOC1
    Parameters = <>
    Left = 652
    Top = 204
  end
end