unit1.dfm

delphi text editor源码

object Form1: TForm1
  Left = 231
  Top = 22
  Width = 696
  Height = 480
  Caption = 'Text Edit Example'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 426
    Align = alClient
    Lines.Strings = (
      '')
    OEMConvert = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 232
    Top = 200
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Action = Open
      end
      object Save1: TMenuItem
        Action = Save
      end
      object Exit1: TMenuItem
        Action = Exit
      end
    end
    object Edir1: TMenuItem
      Caption = 'Edit'
      object Copy1: TMenuItem
        Action = EditCopy1
      end
      object Cut1: TMenuItem
        Action = EditCut1
      end
      object Color1: TMenuItem
        Action = EditDelete1
        Caption = 'Clear'
        Hint = 'Clear the Text'
      end
      object Paste1: TMenuItem
        Action = EditPaste1
      end
      object SelectAll1: TMenuItem
        Action = EditSelectAll1
      end
      object Undo1: TMenuItem
        Action = EditUndo1
      end
    end
    object Font1: TMenuItem
      Action = Font
    end
    object BGColor1: TMenuItem
      Action = Color
    end
  end
  object OD1: TOpenDialog
    DefaultExt = 'TXT'
    Filter = 'TXT Files|*.txt'
    Left = 256
    Top = 32
  end
  object SD1: TSaveDialog
    DefaultExt = 'TXT'
    Filter = 'TXT Files|*.txt'
    Left = 328
    Top = 64
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 456
    Top = 88
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 384
    Top = 160
  end
  object ActionList1: TActionList
    Left = 560
    Top = 48
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
      OnExecute = EditCut1Execute
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
      OnExecute = EditCopy1Execute
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
      OnExecute = EditPaste1Execute
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
      OnExecute = EditSelectAll1Execute
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
      OnExecute = EditUndo1Execute
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
      OnExecute = EditDelete1Execute
    end
    object Open: TAction
      Caption = 'Open'
      OnExecute = OpenExecute
    end
    object Save: TAction
      Caption = 'Save'
      OnExecute = SaveExecute
    end
    object Exit: TAction
      Caption = 'Exit'
      OnExecute = ExitExecute
    end
    object Font: TAction
      Caption = 'Font'
      OnExecute = FontExecute
    end
    object Color: TAction
      Caption = 'Color'
      OnExecute = ColorExecute
    end
  end
end