object MainForm: TMainForm Left = 157 Top = 122 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'OpenFromFileAll/SaveToFileAll example' ClientHeight = 509 ClientWidth = 744 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 140 Height = 468 Align = alLeft Color = clBtnFace DataSource = DataSource1 Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'Name' Visible = True end> end object Panel2: TPanel Left = 0 Top = 468 Width = 744 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 object Button4: TButton Left = 144 Top = 8 Width = 89 Height = 25 Caption = 'Save in Table' TabOrder = 0 OnClick = Button4Click end object Button1: TButton Left = 8 Top = 8 Width = 75 Height = 25 Caption = 'Open File...' TabOrder = 1 OnClick = Button1Click end end object Panel1: TPanel Left = 140 Top = 0 Width = 604 Height = 468 Align = alClient BevelOuter = bvNone Caption = 'Panel1' TabOrder = 2 object Panel4: TPanel Left = 0 Top = 0 Width = 604 Height = 41 Align = alTop BevelOuter = bvNone TabOrder = 0 object Button10: TButton Left = 112 Top = 8 Width = 75 Height = 25 Caption = 'Put text' TabOrder = 0 OnClick = Button10Click end object Button11: TButton Left = 8 Top = 8 Width = 75 Height = 25 Caption = 'Select' TabOrder = 1 OnClick = Button11Click end end object ImageEnVect1: TImageEnVect Left = 0 Top = 41 Width = 604 Height = 427 ParentCtl3D = False ImageEnVersion = '4.0.0' EnableInteractionHints = True Align = alClient TabOrder = 1 end end object Table1: TTable AfterScroll = Table1AfterScroll TableName = 'IMAGES.DB' Left = 16 Top = 136 end object DataSource1: TDataSource AutoEdit = False DataSet = Table1 Left = 64 Top = 136 end object OpenImageEnDialog1: TOpenImageEnDialog Filter = 'All graphics|*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.pcx;*.png;*.bmp;*' + '.wmf;*.emf;*.ico;*.cur;*.avi|JPEG files (*.jpg;*.jpeg)|*.jpg;*.j' + 'peg|GIF files (*.gif)|*.gif|TIFF files (*.tif;*.tiff)|*.tif;*.ti' + 'ff|PCX files (*.pcx)|*.pcx|PNG files (*.png)|*.png|BMP files (*.' + 'bmp)|*.bmp|WMF files (*.wmf)|*.wmf|EMF files (*.emf)|*.emf|ICO f' + 'iles (*.ico)|*.ico|CUR files (*.cur)|*.cur|AVI files (*.avi)|*.a' + 'vi' Left = 167 Top = 179 end end