frmmainunit.dfm

delphi 运行期间窗体设计

        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 131
        Top = 0
        Action = actCut
      end
      object ToolButton5: TToolButton
        Left = 154
        Top = 0
        Action = actCopy
      end
      object ToolButton7: TToolButton
        Left = 177
        Top = 0
        Action = actPaste
      end
      object ToolButton8: TToolButton
        Left = 200
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 208
        Top = 0
        Action = actDelete
      end
      object ToolButton14: TToolButton
        Left = 231
        Top = 0
        Action = actAlignToGrid
      end
      object ToolButton15: TToolButton
        Left = 254
        Top = 0
        Action = actBringToFront
      end
      object ToolButton16: TToolButton
        Left = 277
        Top = 0
        Action = actSendToBack
      end
      object ToolButton17: TToolButton
        Left = 300
        Top = 0
        Width = 8
        Caption = 'ToolButton17'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton10: TToolButton
        Left = 308
        Top = 0
        Action = actLock
      end
      object ToolButton11: TToolButton
        Left = 331
        Top = 0
        Action = actUnlock
      end
      object ToolButton12: TToolButton
        Left = 354
        Top = 0
        Width = 8
        Caption = 'ToolButton12'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object ToolButton13: TToolButton
        Left = 362
        Top = 0
        Action = actPropsView
      end
      object ToolButton18: TToolButton
        Left = 385
        Top = 0
        Width = 8
        Caption = 'ToolButton18'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ComboBox1: TComboBox
        Left = 393
        Top = 0
        Width = 78
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = ComboBox1Change
        Items.Strings = (
          '25 %'
          '50 %'
          '75 %'
          '100 %'
          '150 %'
          '200 %')
      end
    end
    object ToolBar2: TToolBar
      Left = 11
      Top = 28
      Width = 242
      Height = 22
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      TabOrder = 1
      object ToolButton22: TToolButton
        Left = 0
        Top = 0
        Action = actALLeft
      end
      object ToolButton23: TToolButton
        Left = 23
        Top = 0
        Action = actALRight
      end
      object ToolButton24: TToolButton
        Left = 46
        Top = 0
        Action = actALHSpace
      end
      object ToolButton25: TToolButton
        Left = 69
        Top = 0
        Action = actALHCenter
      end
      object ToolButton26: TToolButton
        Left = 92
        Top = 0
        Action = actALHCenterWindow
      end
      object ToolButton27: TToolButton
        Left = 115
        Top = 0
        Width = 8
        Caption = 'ToolButton27'
        ImageIndex = 26
        Style = tbsSeparator
      end
      object ToolButton28: TToolButton
        Left = 123
        Top = 0
        Action = actALTop
      end
      object ToolButton29: TToolButton
        Left = 146
        Top = 0
        Action = actALBottom
      end
      object ToolButton30: TToolButton
        Left = 169
        Top = 0
        Action = actALVSpace
      end
      object ToolButton31: TToolButton
        Left = 192
        Top = 0
        Action = actALVCenter
      end
      object ToolButton32: TToolButton
        Left = 215
        Top = 0
        Action = actALVCenterWindow
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 112
    Top = 120
    object actNew: TAction
      Category = 'File'
      Caption = '&New...'
      ImageIndex = 0
      ShortCut = 16462
      OnExecute = actNewExecute
    end
    object actPreview: TAction
      Category = 'Report'
      Caption = '&Preview'
      ImageIndex = 20
      ShortCut = 120
      OnExecute = actPreviewExecute
      OnUpdate = actPreviewUpdate
    end
    object actPropsView: TAction
      Category = 'View'
      Caption = '&Properties'
      ImageIndex = 21
      ShortCut = 122
      OnExecute = actPropsViewExecute
      OnUpdate = actPropsViewUpdate
    end
    object actOpen: TAction
      Category = 'File'
      Caption = '&Open...'
      ImageIndex = 1
      ShortCut = 16463
      OnExecute = actOpenExecute
    end
    object actSave: TAction
      Category = 'File'
      Caption = '&Save'
      ImageIndex = 2
      ShortCut = 16467
      OnExecute = actSaveExecute
      OnUpdate = actSaveUpdate
    end
    object actSaveAs: TAction
      Category = 'File'
      Caption = 'Save &as...'
      ImageIndex = 2
      OnExecute = actSaveAsExecute
      OnUpdate = actSaveAsUpdate
    end
    object actCloseAll: TAction
      Category = 'File'
      Caption = '&Close all'
      ImageIndex = 4
      OnExecute = actCloseAllExecute
      OnUpdate = actCloseAllUpdate
    end
    object actClose: TAction
      Category = 'File'
      Caption = 'C&lose'
      ImageIndex = 3
      OnExecute = actCloseExecute
      OnUpdate = actCloseUpdate
    end
    object actSaveSaveAll: TAction
      Category = 'File'
      Caption = 'actSaveSaveAll'
      ImageIndex = 2
      OnExecute = actSaveSaveAllExecute
      OnUpdate = actSaveSaveAllUpdate
    end
    object actCopy: TAction
      Category = 'Edit'
      Caption = '&Copy'
      ImageIndex = 5
      ShortCut = 16451
      OnExecute = actCopyExecute
      OnUpdate = actCopyUpdate
    end
    object actCut: TAction
      Category = 'Edit'
      Caption = 'C&ut'
      ImageIndex = 6
      ShortCut = 16472
      OnExecute = actCutExecute
      OnUpdate = actCutUpdate
    end
    object actPaste: TAction
      Category = 'Edit'
      Caption = '&Paste'
      ImageIndex = 7
      ShortCut = 16470
      OnExecute = actPasteExecute
      OnUpdate = actPasteUpdate
    end
    object actDelete: TAction
      Category = 'Edit'
      Caption = '&Delete'
      ImageIndex = 9
      ShortCut = 46
      OnExecute = actDeleteExecute
      OnUpdate = actDeleteUpdate
    end
    object actLock: TAction
      Category = 'Edit'
      Caption = '&Lock'
      ImageIndex = 10
      OnExecute = actLockExecute
      OnUpdate = actLockUpdate
    end
    object actUnlock: TAction
      Category = 'Edit'
      Caption = '&Unlock'
      ImageIndex = 11
      OnExecute = actUnlockExecute
      OnUpdate = actUnlockUpdate
    end
    object actUnlockAll: TAction