Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/MDIDEMO/MAIN.dfm/MAIN.txt

Text File | 1998-03-12 | 2KB | 99 lines

object MainForm: TMainForm
  Left = 261
  Top = 155
  Width = 435
  Height = 300
  Caption = 'MDI Demonstration'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  WindowMenu = WindowMenu
  PixelsPerInch = 96
  TextHeight = 16
  object MainMenu1: TMainMenu
    Left = 40
    Top = 8
    object FileMenu: TMenuItem
      Caption = '&File'
      OnClick = FileMenuClick
      object FileNew: TMenuItem
        Caption = '&New'
        OnClick = FileNewClick
      end
      object FileOpen: TMenuItem
        Caption = '&Open...'
        OnClick = FileOpenClick
      end
      object FileClose: TMenuItem
        Caption = '&Close'
        OnClick = FileCloseClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object FileSave: TMenuItem
        Caption = '&Save'
        OnClick = FileSaveClick
      end
      object FileSaveAs: TMenuItem
        Caption = '&Save as...'
        OnClick = FileSaveAsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = FileExitClick
      end
    end
    object WindowMenu: TMenuItem
      Caption = '&Window'
      OnClick = WindowMenuClick
      object WindowCascade: TMenuItem
        Caption = '&Cascade'
        OnClick = WindowCascadeClick
      end
      object WindowTile: TMenuItem
        Caption = '&Tile'
        OnClick = WindowTileClick
      end
      object WindowArrangeIcons: TMenuItem
        Caption = '&Arrange icons'
        OnClick = WindowArrangeIconsClick
      end
      object WindowMinimizeAll: TMenuItem
        Caption = '&Minimize all'
        OnClick = WindowMinimizeAllClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object WindowCloseAll: TMenuItem
        Caption = 'Close all'
        OnClick = WindowCloseAllClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpAbout: TMenuItem
        Caption = '&About'
        OnClick = HelpAboutClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Left = 112
    Top = 8
  end
  object SaveDialog: TSaveDialog
    Left = 192
    Top = 8
  end
end