object MainForm: TMainForm Left = 234 Top = 185 Width = 478 Height = 331 Caption = 'Picture Dialogs' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 470 Height = 285 Align = alClient end object OpenPictureDialog1: TOpenPictureDialog Filter = 'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*' + '.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' + '|Metafiles (*.wmf)|*.wmf' Left = 48 Top = 40 end object SavePictureDialog1: TSavePictureDialog Filter = 'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*' + '.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' + '|Metafiles (*.wmf)|*.wmf' Left = 168 Top = 40 end object MainMenu1: TMainMenu Left = 288 Top = 40 object File1: TMenuItem Caption = '&File' object Open1: TMenuItem Caption = '&Open...' OnClick = Open1Click end object Save1: TMenuItem Caption = '&Save...' Enabled = False OnClick = Save1Click end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end end end