acmanform.dfm

delphi实例大全非常经典

object Form1: TForm1
  Left = 193
  Top = 105
  Width = 696
  Height = 480
  Caption = 'AcManTest'
  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 = 116
    Width = 688
    Height = 337
    Align = alClient
    Lines.Strings = (
      'RichEdit1')
    TabOrder = 0
  end
  object ActionToolBar1: TActionToolBar
    Left = 0
    Top = 29
    Width = 688
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    HorzSeparator = True
    Orientation = boLeftToRight
    ParentShowHint = False
    PersistentHotKeys = False
    ShowHint = True
    Spacing = 0
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 688
    Height = 29
    ActionManager = ActionManager1
    AnimationStyle = asSlide
    Caption = 'ActionMainMenuBar1'
    EdgeBorders = [ebTop, ebBottom]
    EdgeOuter = esNone
    ParentShowHint = False
    ShowHint = True
    Spacing = 0
  end
  object ActionToolBar2: TActionToolBar
    Left = 0
    Top = 58
    Width = 688
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar2'
    EdgeBorders = [ebTop, ebBottom]
    HorzSeparator = True
    Orientation = boLeftToRight
    ParentShowHint = False
    PersistentHotKeys = False
    ShowHint = True
    Spacing = 0
  end
  object ActionToolBar3: TActionToolBar
    Left = 0
    Top = 87
    Width = 688
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar3'
    HorzSeparator = True
    Orientation = boLeftToRight
    PersistentHotKeys = False
    Spacing = 0
  end
  object ActionManager1: TActionManager
    FileName = 'C:\md6code\08\AcManTest\settings'
    ActionBars.SessionCount = 4
    ActionBars = <
      item
        Items = <
          item
            Action = EditUndo1
            ImageIndex = 3
            ShortCut = 16474
          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 = SearchFind1
            ImageIndex = 15
            ShortCut = 16454
          end
          item
            Action = SearchReplace1
            ImageIndex = 17
          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 = FilePrintSetup1
              end
              item
                Action = FileRun1
              end
              item
                Action = FileExit1
                ImageIndex = 14
                LastSession = -1
                UsageCount = -1
              end>
            Caption = '&File'
          end
          item
            Items = <
              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 = EditSelectAll1
                ShortCut = 16449
              end
              item
                Action = EditUndo1
                ImageIndex = 3
                ShortCut = 16474
              end
              item
                Action = EditDelete1
                ImageIndex = 4
                ShortCut = 46
              end>
            Caption = '&Edit'
          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 = 'F&ormat'
          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
              item
                Action = SearchFindFirst1
              end>
            Caption = '&Search'
          end
          item
            Items = <
              item
                Action = CustomizeActionBars1
              end>
            Caption = '&Tools'
          end
          item
            Items = <
              item
                Action = HelpContents1
                ImageIndex = 18
              end>
            Caption = '&Help'
          end>
        ActionBar = ActionMainMenuBar1
        AutoSize = False
      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 = RichEditBullets1
            Caption = 'Bull&ets'
            ImageIndex = 8
          end
          item
            Action = RichEditAlignLeft1
            ImageIndex = 9
          end
          item
            Action = RichEditAlignRight1