main.dfm.svn-base

支持自定义语法高亮显示的编辑器控件

      Category = 'File'
      Caption = '&New'
      Hint = 'New|Create a new file'
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = FileNewActionExecute
    end
    object FileOpenAction: TAction
      Category = 'File'
      Caption = '&Open...'
      Hint = 'Open|Open a file'
      ImageIndex = 1
      ShortCut = 16463
      OnExecute = FileOpenActionExecute
    end
    object FileCloseAction: TWindowClose
      Category = 'File'
      Caption = '&Close'
      Hint = 'Close|Close current file'
      ImageIndex = 29
      OnExecute = FileCloseActionExecute
      OnUpdate = EditSelectAllUpdate
    end
    object FileSaveAction: TAction
      Category = 'File'
      Caption = '&Save'
      Hint = 'Save|Save current file'
      ImageIndex = 2
      ShortCut = 16467
      OnExecute = FileSaveActionExecute
      OnUpdate = FileSaveActionUpdate
    end
    object FileSaveAsAction: TAction
      Category = 'File'
      Caption = 'Save &As...'
      Hint = 'Save As'
      ImageIndex = 12
      OnExecute = FileSaveAsActionExecute
      OnUpdate = EditSelectAllUpdate
    end
    object FileSaveAllAction: TAction
      Category = 'File'
      Caption = 'Save All'
      Hint = 'Save All Files'
      ImageIndex = 4
      OnExecute = FileSaveAllActionExecute
    end
    object FilePrintAction: TAction
      Category = 'File'
      Caption = '&Print...'
      Hint = 'Print'
      ImageIndex = 3
    end
    object FileCloseAllFiles: TAction
      Category = 'File'
      Caption = 'Close All Files'
      Hint = 'Close All Files'
      ImageIndex = 28
      OnExecute = FileCloseAllFilesExecute
    end
    object FileExplorer: TAction
      Category = 'File'
      Caption = 'Code Explorer'
      Hint = 'Code Explorer'
      ImageIndex = 25
      OnExecute = FileExplorerExecute
    end
    object WindowCascadeAction: TWindowCascade
      Category = 'Window'
      Caption = '&Cascade'
      Hint = 'Cascade'
      ImageIndex = 17
    end
    object WindowTileHorizontalAction: TWindowTileHorizontal
      Category = 'Window'
      Caption = 'Tile &Horizontally'
      Hint = 'Tile Horizontally'
      ImageIndex = 15
    end
    object FileExitAction: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Exit application'
      ImageIndex = 8
      OnExecute = FileExitActionExecute
    end
    object WindowTileVerticalAction: TWindowTileVertical
      Category = 'Window'
      Caption = 'Tile &Vertically'
      Hint = 'Tile Vertically'
      ImageIndex = 16
    end
    object WindowMinimizeAllAction: TWindowMinimizeAll
      Category = 'Window'
      Caption = '&Minimize All'
      Hint = 'Minimize All'
    end
    object WindowArrangeAllAction: TWindowArrange
      Category = 'Window'
      Caption = '&Arrange All'
      Hint = 'Arrange All'
    end
    object HelpAboutAction: TAction
      Category = 'Help'
      Caption = '&About...'
      Hint = 
        'About|Displays program information, version number, and copyrigh' +
        't'
      ImageIndex = 5
      OnExecute = HelpAboutActionExecute
    end
    object FindAction: TAction
      Category = 'Find'
      Caption = '&Find...'
      Hint = 'Find'
      ImageIndex = 7
      ShortCut = 16454
      OnExecute = FindActionExecute
      OnUpdate = EditSelectAllUpdate
    end
    object ReplaceAction: TAction
      Category = 'Find'
      Caption = 'Replace...'
      Hint = 'Replace'
      ImageIndex = 9
      ShortCut = 16466
      OnExecute = ReplaceActionExecute
      OnUpdate = EditSelectAllUpdate
    end
    object GotoLineAction: TAction
      Category = 'Find'
      Caption = '&Goto Line...'
      Hint = 'Goto Line'
      ImageIndex = 24
      ShortCut = 16455
      OnExecute = GotoLineActionExecute
      OnUpdate = EditSelectAllUpdate
    end
    object ToolEnvOptions: TAction
      Category = 'Tools'
      Caption = '&Environment Options...'
      Hint = 'Environment Options'
      ImageIndex = 27
      OnExecute = ToolEnvOptionsExecute
    end
    object EditUndo: TAction
      Category = 'Edit'
      Caption = '&Undo'
      ImageIndex = 19
      ShortCut = 16474
      OnExecute = EditUndoExecute
      OnUpdate = EditUndoUpdate
    end
    object EditRedo: TAction
      Category = 'Edit'
      Caption = 'Redo'
      ImageIndex = 20
      ShortCut = 24666
      OnExecute = EditRedoExecute
      OnUpdate = EditRedoUpdate
    end
    object EditCut: TAction
      Category = 'Edit'
      Caption = 'Cut'
      ImageIndex = 18
      ShortCut = 16472
      OnExecute = EditCutExecute
      OnUpdate = EditCutUpdate
    end
    object EditCopy: TAction
      Category = 'Edit'
      Caption = 'Copy'
      ImageIndex = 22
      ShortCut = 16451
      OnExecute = EditCopyExecute
      OnUpdate = EditCutUpdate
    end
    object EditPaste: TAction
      Category = 'Edit'
      Caption = 'Paste'
      ImageIndex = 23
      ShortCut = 16470
      OnExecute = EditPasteExecute
      OnUpdate = EditPasteUpdate
    end
    object EditDelete: TAction
      Category = 'Edit'
      Caption = 'Delete'
      ImageIndex = 21
      ShortCut = 16430
      OnExecute = EditDeleteExecute
      OnUpdate = EditCutUpdate
    end
    object EditSelectAll: TAction
      Category = 'Edit'
      Caption = 'Select All'
      ShortCut = 16449
      OnExecute = EditSelectAllExecute
      OnUpdate = EditSelectAllUpdate
    end
    object FindAgainAction: TAction
      Category = 'Find'
      Caption = 'Search Again'
      ImageIndex = 10
      ShortCut = 114
      OnExecute = FindAgainActionExecute
      OnUpdate = EditSelectAllUpdate
    end
    object Separator: TAction
      Category = 'Separator'
      Caption = 'Separator'
      ImageIndex = 26
    end
  end
  object MainMenu1: TMainMenu
    Images = Images
    Left = 40
    Top = 200
    object File1: TMenuItem
      Caption = '&File'
      Hint = 'File related commands'
      object FileNewItem: TMenuItem
        Action = FileNewAction
      end
      object FileOpenItem: TMenuItem
        Action = FileOpenAction
      end
      object FileCloseItem: TMenuItem
        Action = FileCloseAction
      end
      object FileSaveItem: TMenuItem
        Action = FileSaveAction
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAsAction
      end
      object SaveAllItem: TMenuItem
        Action = FileSaveAllAction
      end
      object Print1: TMenuItem
        Action = FilePrintAction
      end
      object CloseAllFiles1: TMenuItem
        Action = FileCloseAllFiles
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object CodeExplorer1: TMenuItem
        Action = FileExplorer
      end
      object FileExitItem: TMenuItem
        Action = FileExitAction
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Undo1: TMenuItem
        Action = EditUndo
      end
      object Redo1: TMenuItem