replacedialog.dfm

大家是不是为不知道如何在VB学到绝地程序

object dlgReplace: TdlgReplace
  Left = 363
  Top = 84
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Replace'
  ClientHeight = 224
  ClientWidth = 269
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 42
    Top = 4
    Width = 23
    Height = 13
    Caption = 'F&ind:'
    FocusControl = cbFindText
  end
  object Label2: TLabel
    Left = 0
    Top = 29
    Width = 65
    Height = 13
    Caption = '&Replace with:'
    FocusControl = cbReplaceText
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 49
    Width = 131
    Height = 76
    Caption = ' Option '
    TabOrder = 2
    object cbMatchCase: TCheckBox
      Left = 4
      Top = 17
      Width = 105
      Height = 19
      Caption = 'Case Sense&tive'
      TabOrder = 0
    end
    object cbWholeWord: TCheckBox
      Left = 4
      Top = 35
      Width = 113
      Height = 18
      Caption = '&Whole Word'
      TabOrder = 1
    end
    object cbPrompt: TCheckBox
      Left = 4
      Top = 53
      Width = 125
      Height = 19
      Caption = '&Prompt when Replace'
      TabOrder = 2
    end
  end
  object btnFind: TButton
    Left = 195
    Top = 197
    Width = 74
    Height = 27
    Caption = '&OK'
    Default = True
    ModalResult = 1
    TabOrder = 7
  end
  object btnCancel: TButton
    Left = 99
    Top = 197
    Width = 74
    Height = 27
    Cancel = True
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 8
  end
  object GroupBox2: TGroupBox
    Left = 138
    Top = 50
    Width = 131
    Height = 75
    Caption = ' Direction '
    TabOrder = 3
    object rbForward: TRadioButton
      Left = 9
      Top = 17
      Width = 113
      Height = 19
      Caption = 'Forwar&d'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbBackward: TRadioButton
      Left = 9
      Top = 47
      Width = 113
      Height = 18
      Caption = '&Backward'
      TabOrder = 1
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 132
    Width = 131
    Height = 62
    Caption = ' Scope '
    TabOrder = 4
    object rbGlobal: TRadioButton
      Left = 9
      Top = 17
      Width = 113
      Height = 19
      Caption = '&Globle'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbSelectedOnly: TRadioButton
      Left = 9
      Top = 35
      Width = 113
      Height = 18
      Caption = '&Selection Text'
      TabOrder = 1
    end
  end
  object GroupBox4: TGroupBox
    Left = 138
    Top = 132
    Width = 131
    Height = 62
    Caption = ' Position '
    TabOrder = 5
    object rbFromCursor: TRadioButton
      Left = 9
      Top = 17
      Width = 113
      Height = 19
      Caption = '&From Cursor'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbEntireScope: TRadioButton
      Left = 9
      Top = 35
      Width = 113
      Height = 18
      Caption = '&Entire Document'
      TabOrder = 1
    end
  end
  object cbFindText: TMRUComboBox
    Left = 69
    Top = 0
    Width = 200
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    IniSection = 'REPLACE_FIND'
  end
  object cbReplaceText: TMRUComboBox
    Left = 69
    Top = 24
    Width = 200
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    IniSection = 'REPLACE_TEXT'
  end
  object btnReplaceAll: TButton
    Tag = 1
    Left = 3
    Top = 197
    Width = 74
    Height = 27
    Caption = 'Replace &All'
    ModalResult = 10
    TabOrder = 6
  end
  object FormStorage: TFormStorage
    IniSection = 'ReplaceOptions'
    Options = []
    StoredProps.Strings = (
      'cbMatchCase.Checked'
      'cbPrompt.Checked'
      'cbWholeWord.Checked'
      'rbBackward.Checked'
      'rbEntireScope.Checked'
      'rbForward.Checked'
      'rbFromCursor.Checked'
      'rbGlobal.Checked'
      'rbSelectedOnly.Checked')
    StoredValues = <>
    Left = 7
    Top = 4
  end
end