unit1.~dfm

提供Delphi和C++builder整个目录的字符或类名的替换工具

object Form1: TForm1
  Left = 18
  Top = 6
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsSingle
  Caption = 'Form1 --  2005.03.07'
  ClientHeight = 530
  ClientWidth = 754
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Terminal'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 161
    Top = -11
    Width = 30
    Height = 12
    Caption = '查找:'
  end
  object Label3: TLabel
    Left = 207
    Top = 170
    Width = 36
    Height = 12
    Caption = '替换为'
    Visible = False
  end
  object Label2: TLabel
    Left = 207
    Top = 11
    Width = 156
    Height = 12
    Caption = '查找或替代的原字符串块开始'
    Visible = False
  end
  object Label4: TLabel
    Left = 722
    Top = 11
    Width = 60
    Height = 12
    Caption = '查找的结果'
    Visible = False
  end
  object Label6: TLabel
    Left = 210
    Top = 131
    Width = 36
    Height = 12
    Caption = '块结束'
    Visible = False
  end
  object Label5: TLabel
    Left = 547
    Top = 279
    Width = 36
    Height = 12
    Caption = '替换为'
  end
  object Label7: TLabel
    Left = 522
    Top = 12
    Width = 72
    Height = 12
    Caption = '要替代的集合'
  end
  object DirectoryListBoxSource: TDirectoryListBox
    Left = 7
    Top = 30
    Width = 193
    Height = 235
    ImeName = '中文 (简体) - 微软拼音'
    ItemHeight = 16
    TabOrder = 0
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 7
    Width = 194
    Height = 18
    DirList = DirectoryListBoxSource
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 1
  end
  object btnReplace: TButton
    Left = 215
    Top = 308
    Width = 113
    Height = 26
    Caption = '替换'
    TabOrder = 2
    OnClick = btnReplaceClick
  end
  object MemoSource: TRichEdit
    Left = 205
    Top = 25
    Width = 129
    Height = 104
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ImeName = '中文 (简体) - 微软拼音'
    ParentFont = False
    TabOrder = 3
    Visible = False
  end
  object MemoTarget: TRichEdit
    Left = 207
    Top = 183
    Width = 127
    Height = 81
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 4
    Visible = False
  end
  object MemoResult: TMemo
    Left = 721
    Top = 25
    Width = 72
    Height = 257
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 5
    Visible = False
  end
  object bntSearch: TButton
    Left = 217
    Top = 369
    Width = 112
    Height = 25
    Caption = '查找'
    TabOrder = 6
    Visible = False
    OnClick = bntSearchClick
  end
  object edtEnd: TEdit
    Left = 207
    Top = 145
    Width = 125
    Height = 20
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 7
    Visible = False
  end
  object btnReplaceBlock: TButton
    Left = 216
    Top = 338
    Width = 113
    Height = 26
    Caption = '模糊块替换'
    TabOrder = 8
    Visible = False
    OnClick = btnReplaceBlockClick
  end
  object Memo1: TMemo
    Left = 8
    Top = 458
    Width = 193
    Height = 68
    ImeName = '中文 (简体) - 微软拼音'
    Lines.Strings = (
      '说明：'
      '  在查找或替代的原字符：'
      '  输入要查找或替代的内容：'
      '  如果要替代块则在'
      '  查找或替代的原字符：'
      '  输入字符块的开始：'
      '  和块结束。'
      ''
      '')
    TabOrder = 9
  end
  object RichEditSource: TRichEdit
    Left = 337
    Top = 26
    Width = 377
    Height = 239
    TabOrder = 10
  end
  object RichEditTarget: TRichEdit
    Left = 336
    Top = 296
    Width = 377
    Height = 224
    TabOrder = 11
  end
  object ButtonAll: TButton
    Left = 217
    Top = 404
    Width = 112
    Height = 24
    Caption = '所有替换'
    TabOrder = 12
    Visible = False
    OnClick = ButtonAllClick
  end
  object CheckBox1: TCheckBox
    Left = 8
    Top = 289
    Width = 169
    Height = 17
    Caption = '变更后输出目标目录'
    TabOrder = 13
    OnClick = CheckBox1Click
  end
  object DriveComboBoxTarget: TDriveComboBox
    Left = 8
    Top = 312
    Width = 194
    Height = 18
    DirList = DirectoryListBoxTarget
    Enabled = False
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 14
  end
  object DirectoryListBoxTarget: TDirectoryListBox
    Left = 7
    Top = 338
    Width = 193
    Height = 109
    Enabled = False
    ItemHeight = 16
    TabOrder = 15
  end
  object Button1: TButton
    Left = 224
    Top = 440
    Width = 105
    Height = 33
    Caption = 'Button1'
    TabOrder = 16
    Visible = False
    OnClick = Button1Click
  end
  object CheckBoxUppercase: TCheckBox
    Left = 8
    Top = 272
    Width = 321
    Height = 20
    Caption = '区分大小写(小换小，大换大)  跟替换的大写没有关系 '
    Checked = True
    State = cbChecked
    TabOrder = 17
    OnClick = CheckBox1Click
  end
end