finddlg.dfm

这是一个有关文本编辑器的源程序,支持彩色语法,你可以任意修改,修改后发给我一份

object FindFrm: TFindFrm
  Left = 395
  Top = 175
  ActiveControl = Edit1
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Find&Replace'
  ClientHeight = 218
  ClientWidth = 263
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 77
    Width = 263
    Height = 109
    Align = alTop
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 4
      Top = 2
      Width = 121
      Height = 52
      Caption = 'Option'
      TabOrder = 0
      object CheckBox1: TCheckBox
        Left = 8
        Top = 16
        Width = 97
        Height = 17
        Caption = 'Case Sensitive'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = 'Whole word equal'
        TabOrder = 1
        Visible = False
      end
    end
    object GroupBox2: TGroupBox
      Left = 132
      Top = 2
      Width = 121
      Height = 52
      Caption = 'Direction'
      TabOrder = 1
      object CheckBox4: TCheckBox
        Left = 8
        Top = 16
        Width = 97
        Height = 17
        Caption = 'Up'
        TabOrder = 0
        OnClick = CheckBox4Click
      end
      object CheckBox5: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = 'down'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = CheckBox5Click
      end
    end
    object GroupBox3: TGroupBox
      Left = 4
      Top = 54
      Width = 121
      Height = 52
      Caption = 'Scope'
      TabOrder = 2
      object CheckBox7: TCheckBox
        Left = 8
        Top = 16
        Width = 97
        Height = 17
        Caption = 'All text'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CheckBox7Click
      end
      object CheckBox8: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = 'Selected Text'
        TabOrder = 1
        OnClick = CheckBox8Click
      end
    end
    object GroupBox4: TGroupBox
      Left = 132
      Top = 54
      Width = 121
      Height = 52
      Caption = 'Origin'
      TabOrder = 3
      object CheckBox10: TCheckBox
        Left = 8
        Top = 16
        Width = 97
        Height = 17
        Caption = 'From cursor'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CheckBox10Click
      end
      object CheckBox11: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = 'Whole scope'
        TabOrder = 1
        OnClick = CheckBox11Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 263
    Height = 28
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 5
      Top = 8
      Width = 23
      Height = 13
      Caption = 'Find:'
    end
    object Edit1: TEdit
      Left = 67
      Top = 4
      Width = 187
      Height = 21
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 28
    Width = 263
    Height = 49
    Align = alTop
    TabOrder = 2
    Visible = False
    object Label2: TLabel
      Left = 5
      Top = 8
      Width = 43
      Height = 13
      Caption = 'Replace:'
    end
    object Edit2: TEdit
      Left = 67
      Top = 4
      Width = 187
      Height = 21
      TabOrder = 0
    end
    object CheckBox6: TCheckBox
      Left = 5
      Top = 29
      Width = 100
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Replace All:'
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 186
    Width = 263
    Height = 32
    Align = alTop
    TabOrder = 3
    object BitBtn1: TBitBtn
      Left = 104
      Top = 4
      Width = 75
      Height = 25
      Caption = 'Ok'
      TabOrder = 0
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 179
      Top = 4
      Width = 75
      Height = 25
      TabOrder = 1
      Kind = bkCancel
    end
  end
end