mainedit.dfm

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

    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 26
    Width = 792
    Height = 504
    Align = alClient
    DockSite = True
    PopupMenu = EditorPopup
    TabOrder = 1
    TabStop = False
    OnChange = PageControlChange
    OnDockOver = PageControlDockOver
    OnGetSiteInfo = PageControlGetSiteInfo
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 535
    Width = 792
    Height = 19
    Hint = 
      'Current Row:Column, Modified,Total Lines, Insert/Overwrite,'#13#10'Sel' +
      'ection, date,Hint'
    Panels = <
      item
        Text = 'Line:Column'
        Width = 68
      end
      item
        Width = 42
      end
      item
        Text = 'Total Lines'
        Width = 60
      end
      item
        Width = 40
      end
      item
        Width = 50
      end
      item
        Text = '1999-07-08'
        Width = 80
      end
      item
        Text = 'Hint'
        Width = 50
      end>
    SimplePanel = False
  end
  object pnlBottomDockSite: TPanel
    Left = 0
    Top = 532
    Width = 792
    Height = 3
    Align = alBottom
    DockSite = True
    TabOrder = 3
    OnDockDrop = pnlBottomDockSiteDockDrop
    OnGetSiteInfo = pnlBottomDockSiteGetSiteInfo
    OnUnDock = pnlBottomDockSiteUnDock
  end
  object ActionList: TActionList
    Images = ImageList
    OnUpdate = ActionListUpdate
    Left = 61
    Top = 148
    object EditCopy: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy'
      ImageIndex = 4
      ShortCut = 16451
      OnExecute = EditCopyExecute
    end
    object EditCut: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut'
      ImageIndex = 3
      ShortCut = 16472
      OnExecute = EditCutExecute
    end
    object EditPaste: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = '粘贴'
      ImageIndex = 5
      ShortCut = 16470
      OnExecute = EditPasteExecute
    end
    object FileNew: TAction
      Category = 'File'
      Caption = '&New'
      Hint = 'New'
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = FileNewExecute
    end
    object FileOpen: TAction
      Category = 'File'
      Caption = '&Open...'
      Hint = 'Open'
      ImageIndex = 1
      ShortCut = 16463
      OnExecute = FileOpenExecute
    end
    object FileSave: TAction
      Category = 'File'
      Caption = '&Save'
      Hint = 'Save'
      ImageIndex = 2
      ShortCut = 16467
      OnExecute = FileSaveExecute
    end
    object FileSaveAs: TAction
      Category = 'File'
      Caption = 'S&ave As...'
      Hint = 'Save as'
      ImageIndex = 17
      OnExecute = FileSaveAsExecute
    end
    object FileClose: TAction
      Category = 'File'
      Caption = '&Close'
      Hint = 'Close|Close File'
      ImageIndex = 9
      ShortCut = 16499
      OnExecute = FileCloseExecute
    end
    object EditSelectAll: TAction
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All'
      ShortCut = 16449
      OnExecute = EditSelectAllExecute
    end
    object EditUndo: TAction
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo'
      ImageIndex = 6
      ShortCut = 16474
      OnExecute = EditUndoExecute
    end
    object EditRedo: TAction
      Category = 'Edit'
      Caption = '&Redo'
      Hint = 'Redo'
      ImageIndex = 7
      ShortCut = 24666
      OnExecute = EditRedoExecute
    end
    object EditFind: TAction
      Category = 'Edit'
      Caption = '&Find...'
      Hint = 'Find'
      ImageIndex = 8
      ShortCut = 16454
      OnExecute = EditFindExecute
    end
    object EditFindInFiles: TAction
      Category = 'Edit'
      Caption = '&Search in Files'
      Hint = 'Find in files'
      ImageIndex = 26
      ShortCut = 115
      OnExecute = EditFindInFilesExecute
    end
    object EditReplace: TAction
      Category = 'Edit'
      Caption = '&Replace...'
      Hint = 'Replace...'
      ImageIndex = 11
      ShortCut = 16466
      OnExecute = EditReplaceExecute
    end
    object EditFindNext: TAction
      Category = 'Edit'
      Caption = 'Find &Next'
      Hint = 'Search again'
      ImageIndex = 10
      ShortCut = 114
      OnExecute = EditFindNextExecute
    end
    object NormalSelection: TAction
      Category = 'SelectionMode'
      Caption = '&Normal Selection'
      Hint = 'Normal Selection'
      ImageIndex = 14
      ShortCut = 32846
      OnExecute = NormalSelectionExecute
    end
    object ColumnSelection: TAction
      Category = 'SelectionMode'
      Caption = '&Column Selection'
      Hint = 'Column Selection'
      ImageIndex = 12
      ShortCut = 32835
      OnExecute = ColumnSelectionExecute
    end
    object LineSelection: TAction
      Category = 'SelectionMode'
      Caption = '&Line Selection'
      Hint = 'Line Selection'
      ImageIndex = 13
      ShortCut = 32844
      OnExecute = LineSelectionExecute
    end
    object ShowLineNo: TAction
      Category = 'Edit'
      Caption = 'Show &Line Number'
      Hint = 'Show Line Number'
      ImageIndex = 19
      ShortCut = 16460
      OnExecute = ShowLineNoExecute
    end
    object Print: TAction
      Category = 'File'
      Caption = '&Print'
      Hint = 'Print'
      ImageIndex = 15
      ShortCut = 16464
      OnExecute = PrintExecute
    end
    object PrintSetup: TAction
      Category = 'File'
      Caption = 'Print S&etup'
      Hint = 'Print Setup'
      ImageIndex = 16
      OnExecute = PrintSetupExecute
    end
    object EditDateTime: TAction
      Category = 'Edit'
      Caption = '&Date/Time'
      Hint = 'Insert Date/Time'
      ImageIndex = 20
      ShortCut = 116
      OnExecute = EditDateTimeExecute
    end
    object FileExport: TAction
      Category = 'File'
      Caption = '&Export...'
      Hint = 'Export'
      ImageIndex = 21
      OnExecute = FileExportExecute
    end
    object Quit: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Bye!'
      ImageIndex = 22
      OnExecute = QuitExecute
    end
    object EditGotoLine: TAction
      Category = 'Edit'
      Caption = '&Goto line'
      Hint = 'Goto line'
      ShortCut = 16455
      OnExecute = EditGotoLineExecute
    end
    object HelpAbout: TAction
      Category = 'Help'
      Caption = '&About...'
      ImageIndex = 23
      OnExecute = HelpAboutExecute
    end
    object ViewStatusbar: TAction