frmmainunit.dfm

delphi 运行期间窗体设计

      Category = 'Edit'
      Caption = 'Unlock &all'
      OnExecute = actUnlockAllExecute
      OnUpdate = actUnlockAllUpdate
    end
    object actSelectAll: TAction
      Category = 'Edit'
      Caption = '&Select all'
      ShortCut = 16449
      OnExecute = actSelectAllExecute
      OnUpdate = actSelectAllUpdate
    end
    object actAlignToGrid: TAction
      Category = 'Edit'
      Caption = 'Ali&gn to grid'
      ImageIndex = 12
      OnExecute = actAlignToGridExecute
      OnUpdate = actAlignToGridUpdate
    end
    object actBringToFront: TAction
      Category = 'Edit'
      Caption = '&Bring to front'
      ImageIndex = 14
      OnExecute = actBringToFrontExecute
      OnUpdate = actBringToFrontUpdate
    end
    object actSendToBack: TAction
      Category = 'Edit'
      Caption = 'Send &to back'
      ImageIndex = 13
      OnExecute = actSendToBackExecute
      OnUpdate = actSendToBackUpdate
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = '&Cascade'
      Enabled = False
      Hint = 'Cascade'
      ImageIndex = 16
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = 'Tile &Horizontally'
      Enabled = False
      Hint = 'Tile Horizontal'
      ImageIndex = 17
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = '&Tile Vertically'
      Enabled = False
      Hint = 'Tile Vertical'
      ImageIndex = 18
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = '&Minimize All'
      Enabled = False
      Hint = 'Minimize All'
    end
    object WindowArrange1: TWindowArrange
      Category = 'Window'
      Caption = '&Arrange'
      Enabled = False
    end
    object actEnabled: TAction
      Category = 'Edit'
      Caption = '&Enabled'
      OnExecute = actEnabledExecute
      OnUpdate = actEnabledUpdate
    end
    object actEnableAll: TAction
      Category = 'Edit'
      Caption = 'Enable A&ll'
      OnExecute = actEnableAllExecute
      OnUpdate = actEnableAllUpdate
    end
    object actChangeData: TAction
      Category = 'Report'
      Caption = '&Change data...'
      ImageIndex = 18
      ShortCut = 16505
      OnExecute = actChangeDataExecute
      OnUpdate = actChangeDataUpdate
    end
    object actZoom100: TAction
      Category = 'View'
      Caption = '&Zoom to 100 %'
      OnExecute = actZoom100Execute
      OnUpdate = actZoom100Update
    end
    object actPrint: TAction
      Category = 'Report'
      Caption = 'Pr&int'
      ImageIndex = 19
      ShortCut = 16464
      OnExecute = actPrintExecute
      OnUpdate = actPrintUpdate
    end
    object actALLeft: TAction
      Category = 'Align'
      Caption = 'Align left adges'
      ImageIndex = 27
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALRight: TAction
      Tag = 1
      Category = 'Align'
      Caption = 'Align right adges'
      ImageIndex = 28
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALTop: TAction
      Tag = 2
      Category = 'Align'
      Caption = 'Align top adges'
      ImageIndex = 29
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALBottom: TAction
      Tag = 3
      Category = 'Align'
      Caption = 'Align bottom adges'
      ImageIndex = 32
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALHSpace: TAction
      Tag = 4
      Category = 'Align'
      Caption = 'Space equally, horizontally'
      ImageIndex = 24
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALVSpace: TAction
      Tag = 5
      Category = 'Align'
      Caption = 'Space equally, vertically'
      ImageIndex = 31
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALHCenter: TAction
      Tag = 6
      Category = 'Align'
      Caption = 'Align horizontal centers'
      ImageIndex = 23
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALVCenter: TAction
      Tag = 7
      Category = 'Align'
      Caption = 'Align vertical centers'
      ImageIndex = 30
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALHCenterWindow: TAction
      Tag = 8
      Category = 'Align'
      Caption = 'Center horizontally in window'
      ImageIndex = 25
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actALVCenterWindow: TAction
      Tag = 9
      Category = 'Align'
      Caption = 'Center vertically in window'
      ImageIndex = 22
      OnExecute = actALLeftExecute
      OnUpdate = actALLeftUpdate
    end
    object actRepProps: TAction
      Category = 'Report'
      Caption = '&Properties'
      ImageIndex = 33
      ShortCut = 123
      OnExecute = actRepPropsExecute
      OnUpdate = actRepPropsUpdate
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 144
    Top = 120
    object New1: TMenuItem
      Caption = '&File'
      object New2: TMenuItem
        Action = actNew
      end
      object Open1: TMenuItem
        Action = actOpen
      end
      object Save1: TMenuItem
        Action = actSave
      end
      object SaveAs1: TMenuItem
        Action = actSaveAs
      end
      object Close1: TMenuItem
        Action = actClose
      end
      object Closeall1: TMenuItem
        Action = actCloseAll
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Close2: TMenuItem
        Caption = 'Close'
        ImageIndex = 8
        ShortCut = 32883
        OnClick = Close2Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object actEnable1: TMenuItem
        Action = actEnabled
      end
      object EnableAll1: TMenuItem
        Action = actEnableAll
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Action = actCut
      end
      object Copy1: TMenuItem
        Action = actCopy
      end
      object Paste1: TMenuItem
        Action = actPaste
      end
      object Delete1: TMenuItem
        Action = actDelete
      end
      object actSelectAll1: TMenuItem
        Action = actSelectAll
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Align1: TMenuItem
        Caption = 'Alig&n'
        object actALLeft1: TMenuItem
          Action = actALLeft
        end
        object actALRight1: TMenuItem
          Action = actALRight
        end
        object actALHSpace1: TMenuItem
          Action = actALHSpace
        end
        object actALHCenter1: TMenuItem
          Action = actALHCenter
        end
        object actALHCenterWindow1: TMenuItem
          Action = actALHCenterWindow
        end
        object N9: TMenuItem
          Caption = '-'
        end
        object actALTop1: TMenuItem
          Action = actALTop
        end
        object actALBottom1: TMenuItem
          Action = actALBottom
        end
        object actALVSpace1: TMenuItem
          Action = actALVSpace
        end
        object actALVCenter1: TMenuItem
          Action = actALVCenter
        end
        object actALVCenterWindow1: TMenuItem
          Action = actALVCenterWindow
        end
      end
      object actAlignToGrid1: TMenuItem
        Action = actAlignToGrid
      end
      object AlignToGrid2: TMenuItem
        Action = actBringToFront
      end