object MainForm: TMainForm Left = 351 Top = 245 Width = 435 Height = 331 Caption = 'Image Editor' Ctl3D = False Color = clAppWorkSpace Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIForm Menu = MainMenu Position = poDefault WindowMenu = WindowMenu OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object ToolArea: TPanel Left = 0 Top = 0 Width = 65 Height = 266 Align = alLeft TabOrder = 0 end object StatusBar: TStatusBar Left = 0 Top = 266 Width = 427 Height = 19 Panels = < item Width = 300 end item Width = 50 end> SimplePanel = False end object MainMenu: TMainMenu Left = 368 Top = 192 object FileMenu: TMenuItem Caption = '&File' GroupIndex = 1 ShortCut = 0 OnClick = FileMenuClick object FileNewItem: TMenuItem Caption = '&New...' Hint = 'Create a new file' ShortCut = 0 object FileNewResItem: TMenuItem Caption = '&Resource File (.res)' Hint = 'Create a new resource file' ShortCut = 0 OnClick = FileNewResItemClick end object FileNewDCRItem: TMenuItem Caption = 'C&omponent Resource File (.dcr)' Hint = 'Create a new DCR file for use with custom VCL components' ShortCut = 0 OnClick = FileNewDCRItemClick end object FileNewBitmapItem: TMenuItem Caption = '&Bitmap File (.bmp)' Hint = 'Create a new bitmap file' ShortCut = 0 OnClick = FileNewBitmapItemClick end object FileNewIconItem: TMenuItem Caption = '&Icon File (.ico)' Hint = 'Create a new icon file' ShortCut = 0 OnClick = FileNewIconItemClick end object FileNewCursorItem: TMenuItem Caption = '&Cursor File (.cur)' Hint = 'Create a new cursor file' ShortCut = 0 OnClick = FileNewCursorItemClick end end object FileOpenItem: TMenuItem Caption = '&Open...' Hint = 'Open an existing file' ShortCut = 16463 OnClick = FileOpen end object FileSaveItem: TMenuItem Caption = '&Save' Hint = 'Save current file' ShortCut = 16467 OnClick = FileSaveItemClick end object FileSaveAsItem: TMenuItem Caption = 'Save &As...' Hint = 'Save current file with a new name' ShortCut = 0 OnClick = FileSaveAsItemClick end object FileCloseItem: TMenuItem Caption = '&Close' Hint = 'Close the current window' ShortCut = 0 OnClick = FileCloseItemClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object FileExitItem: TMenuItem Caption = 'E&xit' Hint = 'Exit the Image Editor' ShortCut = 32856 OnClick = FileExit end end object WindowMenu: TMenuItem Caption = '&Window' GroupIndex = 20 ShortCut = 0 OnClick = WindowMenuClick object WindowCascadeItem: TMenuItem Caption = '&Cascade' Hint = 'Cascade all open windows' ShortCut = 0 OnClick = WindowCascadeClick end object WindowTileHorzItem: TMenuItem Caption = 'Tile &Horizontal' Hint = 'Arrange open windows horizontally' ShortCut = 0 OnClick = WindowTileClick end object WindowTileVertItem: TMenuItem Caption = 'Tile &Vertical' Hint = 'Arrange all open windows vertically' ShortCut = 0 OnClick = WindowTileClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object WindowArrangeItem: TMenuItem Caption = '&Arrange Icons' Hint = 'Arrange all iconized windows' ShortCut = 0 OnClick = WindowArrangeClick end end object HelpMenu: TMenuItem Caption = '&Help' GroupIndex = 20 ShortCut = 0 object HelpTopics: TMenuItem Caption = '&Help Topics' ShortCut = 0 OnClick = HelpTopicsClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object HelpAboutItem: TMenuItem Caption = '&About...' Hint = 'Display program information' ShortCut = 0 OnClick = HelpAboutClick end end end object OpenDialog: TOpenDialog FileEditStyle = fsEdit Filter = 'Resource/DCR files (*.res;*.dcr)|*.res;*.dcr|Bitmaps (*.bmp)|*.b' + 'mp|Icons (*.ico)|*.ico|Cursors (*.cur)|*.cur|All files (*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Left = 352 Top = 120 end end