unit1.dfm.~73~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

object Form1: TForm1
  Left = 0
  Top = 0
  Width = 584
  Height = 519
  Caption = #25991#26412#32534#36753#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 80
    Top = 37
    Width = 57
    Height = 25
    AutoSize = False
    Caption = #26597#25214#20869#23481#65306
  end
  object Label2: TLabel
    Left = 88
    Top = 45
    Width = 57
    Height = 25
    AutoSize = False
    Caption = #26597#25214#20869#23481#65306
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 2
    Width = 561
    Height = 287
    TabOrder = 0
    object RichEdit1: TRichEdit
      Left = 7
      Top = 13
      Width = 545
      Height = 265
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      HideSelection = False
      Lines.Strings = (
        'aeeeebeeeee'
        'eeeeeeeeeee')
      ParentFont = False
      TabOrder = 0
      OnMouseDown = RichEdit1MouseDown
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 289
    Width = 561
    Height = 168
    TabOrder = 1
    object GroupBox3: TGroupBox
      Left = 8
      Top = 9
      Width = 393
      Height = 152
      Caption = #26597#25214#19982#26367#25442
      TabOrder = 0
      object Label3: TLabel
        Left = 8
        Top = 32
        Width = 65
        Height = 17
        AutoSize = False
        Caption = #26597#25214#20869#23481#65306
      end
      object Label4: TLabel
        Left = 8
        Top = 62
        Width = 57
        Height = 17
        AutoSize = False
        Caption = #26367'  '#25442'  '#20026#65306
      end
      object IsCase: TCheckBox
        Left = 11
        Top = 115
        Width = 97
        Height = 17
        Caption = #21306#20998#22823#23567#20889
        TabOrder = 0
        OnClick = IsCaseClick
      end
      object GroupBox4: TGroupBox
        Left = 120
        Top = 104
        Width = 137
        Height = 41
        Caption = #26041#21521
        TabOrder = 1
        object downRadio: TRadioButton
          Left = 9
          Top = 18
          Width = 53
          Height = 17
          Caption = #21521#19979
          TabOrder = 0
          OnClick = downRadioClick
        end
        object upRadio: TRadioButton
          Left = 80
          Top = 18
          Width = 49
          Height = 17
          Caption = #21521#19978
          TabOrder = 1
          OnClick = upRadioClick
        end
      end
      object BitBtn1: TBitBtn
        Left = 282
        Top = 118
        Width = 75
        Height = 25
        Caption = #20840#37096#26367#25442
        TabOrder = 2
        OnClick = BitBtn1Click
      end
    end
  end
  object OpenFile: TBitBtn
    Left = 463
    Top = 302
    Width = 75
    Height = 25
    Caption = #25171#24320#25991#20214
    TabOrder = 2
    OnClick = OpenFileClick
  end
  object SaveFile: TBitBtn
    Left = 463
    Top = 341
    Width = 75
    Height = 25
    Caption = #20445#23384#25991#20214
    TabOrder = 3
    OnClick = SaveFileClick
  end
  object SetFont: TBitBtn
    Left = 463
    Top = 380
    Width = 75
    Height = 25
    Caption = #23383#20307#35774#32622
    TabOrder = 4
    OnClick = SetFontClick
  end
  object SetColor: TBitBtn
    Left = 464
    Top = 419
    Width = 75
    Height = 25
    Caption = #35774#32622#39068#33394
    TabOrder = 5
    OnClick = SetColorClick
  end
  object tofindText: TEdit
    Left = 86
    Top = 326
    Width = 195
    Height = 21
    TabOrder = 6
    Text = 'eee'
  end
  object Find: TBitBtn
    Left = 299
    Top = 324
    Width = 75
    Height = 25
    Caption = #26597#25214#19979#19968#20010
    TabOrder = 7
    OnClick = FindClick
  end
  object Replace: TBitBtn
    Left = 299
    Top = 356
    Width = 75
    Height = 25
    Caption = #26367'    '#25442
    TabOrder = 8
    OnClick = ReplaceClick
  end
  object toreplaceText: TEdit
    Left = 87
    Top = 356
    Width = 194
    Height = 21
    TabOrder = 9
    Text = 'eee'
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Word files(*.doc)|*.doc|Txtfile(*.txt)|*.txt'
    Left = 472
    Top = 48
  end
  object SaveDialog1: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 472
    Top = 104
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Left = 472
    Top = 160
  end
  object ColorDialog1: TColorDialog
    Left = 472
    Top = 208
  end
end