actionfrm.dfm

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

object MainForm: TMainForm
  Left = 422
  Top = 173
  Width = 366
  Height = 315
  Caption = 'Action'#28436#31034#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 0
    Top = 87
    Width = 358
    Height = 201
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    TabOrder = 0
  end
  object ActionToolBar1: TActionToolBar
    Left = 0
    Top = 29
    Width = 358
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    HorzSeparator = True
    Orientation = boLeftToRight
    ParentShowHint = False
    PersistentHotKeys = False
    ShowHint = False
    Spacing = 0
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 358
    Height = 29
    ActionManager = ActionManager1
    AnimationStyle = asSlide
    Caption = 'ActionMainMenuBar1'
    EdgeBorders = [ebTop, ebBottom]
    EdgeOuter = esNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    Spacing = 0
  end
  object ActionToolBar3: TActionToolBar
    Left = 0
    Top = 58
    Width = 358
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar3'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    HorzSeparator = True
    Orientation = boLeftToRight
    ParentFont = False
    PersistentHotKeys = False
    Spacing = 0
  end
  object ActionManager1: TActionManager
    FileName = 'E:\Delphi'#25991#20214'\Action\savefile'
    ActionBars.HintShortCuts = False
    ActionBars.SessionCount = 10
    ActionBars.ShowHints = False
    ActionBars = <
      item
        Items = <
          item
            Action = EditUndo1
            ImageIndex = 3
            ShowCaption = False
            ShortCut = 16474
          end
          item
            Action = EditCut1
            ImageIndex = 0
            ShowCaption = False
            ShortCut = 16472
          end
          item
            Action = EditCopy1
            ImageIndex = 1
            ShowCaption = False
            ShortCut = 16451
          end
          item
            Action = EditPaste1
            ImageIndex = 2
            ShowCaption = False
            ShortCut = 16470
          end
          item
            Action = SearchFind1
            ImageIndex = 15
            ShowCaption = False
            ShortCut = 16454
          end
          item
            Action = SearchReplace1
            ImageIndex = 17
            ShowCaption = False
          end
          item
            Action = RichEditBold1
            ImageIndex = 5
            ShowCaption = False
            ShortCut = 16450
          end
          item
            Action = RichEditUnderline1
            Caption = #19979#21010#32447'(&W)'
            ImageIndex = 7
            LastSession = 9
            ShowCaption = False
            ShortCut = 16469
          end
          item
            Action = RichEditBullets1
            Caption = #39033#30446#31526#21495'(&Z)'
            ImageIndex = 8
            LastSession = 9
            ShowCaption = False
          end
          item
            Action = RichEditItalic1
            ImageIndex = 6
            ShowCaption = False
            ShortCut = 16457
          end
          item
            Action = RichEditAlignLeft1
            ImageIndex = 9
            ShowCaption = False
          end
          item
            Action = RichEditAlignRight1
            Caption = #21491#23545#40784'(&X)'
            ImageIndex = 10
            LastSession = 9
            ShowCaption = False
          end
          item
            Action = RichEditAlignCenter1
            Caption = #23621#20013#23545#40784'(&Y)'
            ImageIndex = 11
            LastSession = 9
            ShowCaption = False
          end>
        ActionBar = ActionToolBar1
        AutoSize = False
      end
      item
        Items = <
          item
            Items = <
              item
                Action = FileOpen1
                ImageIndex = 12
                ShortCut = 16463
              end
              item
                Action = FileSaveAs1
                ImageIndex = 13
              end
              item
                Action = FileExit1
                ImageIndex = 14
                LastSession = -1
                UsageCount = -1
              end>
            Caption = #25991#20214'(&F)'
          end
          item
            Items = <
              item
                Action = EditUndo1
                ImageIndex = 3
                ShortCut = 16474
              end
              item
                Action = EditSelectAll1
                ShortCut = 16449
              end
              item
                Action = EditCut1
                ImageIndex = 0
                ShortCut = 16472
              end
              item
                Action = EditCopy1
                ImageIndex = 1
                ShortCut = 16451
              end
              item
                Action = EditPaste1
                ImageIndex = 2
                ShortCut = 16470
              end
              item
                Action = EditDelete1
                ImageIndex = 4
                ShortCut = 46
              end>
            Caption = #32534#36753'(&E)'
          end
          item
            Items = <
              item
                Action = RichEditBold1
                ImageIndex = 5
                ShortCut = 16450
              end
              item
                Action = RichEditItalic1
                ImageIndex = 6
                ShortCut = 16457
              end
              item
                Action = RichEditUnderline1
                ImageIndex = 7
                ShortCut = 16469
              end
              item
                Action = RichEditStrikeOut1
              end
              item
                Action = RichEditBullets1
                ImageIndex = 8
              end
              item
                Action = RichEditAlignLeft1
                ImageIndex = 9
              end
              item
                Action = RichEditAlignRight1
                ImageIndex = 10
              end
              item
                Action = RichEditAlignCenter1
                ImageIndex = 11
              end>
            Caption = #26684#24335'(&O)'
          end
          item
            Items = <
              item
                Action = SearchFind1
                ImageIndex = 15
                ShortCut = 16454
              end
              item
                Action = SearchFindNext1
                ImageIndex = 16
                ShortCut = 114
              end
              item
                Action = SearchReplace1
                ImageIndex = 17
              end>
            Caption = #26597#25214'(&S)'
          end
          item
            Items = <
              item
                Action = CustomizeActionBars1
              end>
            Caption = #24037#20855'(&T)'