actionfrm.~dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

          end
          item
            Items = <
              item
                Action = HelpContents1
                ImageIndex = 18
              end>
            Caption = #24110#21161'(&H)'
          end>
        ActionBar = ActionMainMenuBar1
        AutoSize = False
      end
      item
        AutoSize = False
      end
      item
        AutoSize = False
      end
      item
        AutoSize = False
      end
      item
        Items = <
          item
            Action = FileSaveAs1
            ImageIndex = 13
            LastSession = 2
          end
          item
            Action = ActionShowStatus
            Caption = #26174#31034#29366#24577'(&W)'
          end
          item
            Action = CustomizeActionBars1
            Caption = #23450#21046#30028#38754'(&Y)'
          end
          item
            Action = HelpContents1
            Caption = #24110#21161#20027#39064'(&Z)'
            ImageIndex = 18
          end>
        ActionBar = ActionToolBar3
        AutoSize = False
      end>
    LinkedActionLists = <>
    Images = ImageList1
    PrioritySchedule.Strings = (
      '0=3'
      '1=3'
      '10=23'
      '11=23'
      '12=23'
      '13=23'
      '14=31'
      '15=31'
      '16=31'
      '17=31'
      '18=31'
      '19=31'
      '2=6'
      '20=31'
      '21=31'
      '22=31'
      '23=31'
      '24=31'
      '25=31'
      '3=9'
      '4=12'
      '5=12'
      '6=17'
      '7=17'
      '8=17'
      '9=23')
    Left = 112
    Top = 136
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = #21098#20999'(&T)'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = #22797#21046'(&C)'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = #31896#36148'(&P)'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = #20840#36873'(&A)'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = #25764#38144'(&U)'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = #21024#38500'(&D)'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 4
      ShortCut = 46
    end
    object RichEditBold1: TRichEditBold
      Category = 'Format'
      AutoCheck = True
      Caption = #40657#20307'(&B)'
      Hint = 'Bold'
      ImageIndex = 5
      ShortCut = 16450
    end
    object RichEditItalic1: TRichEditItalic
      Category = 'Format'
      AutoCheck = True
      Caption = #26012#20307'(&I)'
      Hint = 'Italic'
      ImageIndex = 6
      ShortCut = 16457
    end
    object RichEditUnderline1: TRichEditUnderline
      Category = 'Format'
      AutoCheck = True
      Caption = #19979#21010#32447'(&U)'
      Hint = 'Underline'
      ImageIndex = 7
      ShortCut = 16469
    end
    object RichEditStrikeOut1: TRichEditStrikeOut
      Category = 'Format'
      AutoCheck = True
      Caption = #20013#21010#32447'(&S)'
      Hint = 'Strikeout'
    end
    object RichEditBullets1: TRichEditBullets
      Category = 'Format'
      AutoCheck = True
      Caption = #39033#30446#31526#21495'(&B)'
      Hint = 'Bullets|Inserts a bullet on the current line'
      ImageIndex = 8
    end
    object RichEditAlignLeft1: TRichEditAlignLeft
      Category = 'Format'
      AutoCheck = True
      Caption = #24038#23545#40784'(&L)'
      Hint = 'Align Left|Aligns text at the left indent'
      ImageIndex = 9
    end
    object RichEditAlignRight1: TRichEditAlignRight
      Category = 'Format'
      AutoCheck = True
      Caption = #21491#23545#40784'(&R)'
      Hint = 'Align Right|Aligns text at the right indent'
      ImageIndex = 10
    end
    object RichEditAlignCenter1: TRichEditAlignCenter
      Category = 'Format'
      AutoCheck = True
      Caption = #23621#20013#23545#40784'(&C)'
      Hint = 'Center|Centers text between margins'
      ImageIndex = 11
    end
    object FileOpen1: TFileOpen
      Category = 'File'
      Caption = #25171#24320'(&O)'
      Hint = 'Open|Opens an existing file'
      ImageIndex = 12
      ShortCut = 16463
      BeforeExecute = FileOpen1BeforeExecute
      OnAccept = FileOpen1Accept
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'File'
      Caption = #20445#23384'(&A)'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 13
      OnAccept = FileSaveAs1Accept
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = #36864#20986'(&X)'
      Hint = 'Exit|Quits the application'
      ImageIndex = 14
    end
    object SearchFind1: TSearchFind
      Category = 'Search'
      Caption = #26597#25214'(&F)'
      Hint = 'Find|Finds the specified text'
      ImageIndex = 15
      ShortCut = 16454
    end
    object SearchFindNext1: TSearchFindNext
      Category = 'Search'
      Caption = #26597#25214#19979#19968#20010'(&N)'
      Enabled = False
      Hint = 'Find Next|Repeats the last find'
      ImageIndex = 16
      ShortCut = 114
    end
    object SearchReplace1: TSearchReplace
      Category = 'Search'
      Caption = #26367#25442'(&R)'
      Hint = 'Replace|Replaces specific text with different text'
      ImageIndex = 17
    end
    object CustomizeActionBars1: TCustomizeActionBars
      Category = 'Tools'
      Caption = #23450#21046#30028#38754
    end
    object HelpContents1: THelpContents
      Category = 'Help'
      Caption = #24110#21161#20027#39064
      Enabled = False
      Hint = 'Help Contents'
      ImageIndex = 18
    end
    object ActionShowStatus: TAction
      Category = 'Tools'
      Caption = #26174#31034#29366#24577
      OnExecute = ActionShowStatusExecute
    end
  end
  object ImageList1: TImageList
    Left = 168
    Top = 136
    Bitmap = {
      494C010113001400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000005000000001001000000000000028
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      1040104010420000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000010401040
      FF7FFF7F18631042000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000010401040FF7FFF7F
      0000000018631863104200000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000104210401040FF7FFF7F00000000
      1040104000001863186310420000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863000000000000
      0000000000000000186300000000000000000000000000000000000000000000
      00000000000000000000000000000000000010421040FF7F0000000010401040
      1040104010400000186318631042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000010420000
      0000000010420000000000000000000000000000000000001863000000000000
      0000000000000000186300000000000000001042000000001040104010400042
      E07F104010401040000018631863104200000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000010420000
      0000000010420000000000000000000000001042104010401040104010401040
      0042104010401040104000001863000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863000000000000
      0000186300000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000001040FF7F1040104010401040
      1040E07FE07F1040104010400000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863000000000000
      0000186300000000000000000000000000000000000000001863000000000000
      000018630000000000000000000000000000000000001040FF7F104010401040
      104010400042E07FE07F10401040000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863000000000000
      0000186300000000000000000000000000000000000000001040FF7F10401040
      104000421040E07FE07F10401040104000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      1042000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001040FF7F1040
      1040E07FE07FE07F104010401040000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000