object MainForm: TMainForm Left = 286 Top = 207 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'TImageEnDBView Demo - www.ImageEn.com' ClientHeight = 418 ClientWidth = 638 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 Panel2: TPanel Left = 0 Top = 377 Width = 638 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 0 object New: TButton Left = 16 Top = 8 Width = 89 Height = 25 Caption = 'Append' TabOrder = 0 OnClick = NewClick end object Del: TButton Left = 336 Top = 8 Width = 89 Height = 25 Caption = 'Delete/Cancel' TabOrder = 1 OnClick = DelClick end object Button1: TButton Left = 240 Top = 8 Width = 89 Height = 25 Caption = 'Post' TabOrder = 2 OnClick = Button1Click end object Button4: TButton Left = 112 Top = 8 Width = 89 Height = 25 Caption = 'Modify' TabOrder = 3 OnClick = Button4Click end end object Panel1: TPanel Left = 0 Top = 0 Width = 638 Height = 377 Align = alClient BevelOuter = bvNone Caption = 'Panel1' TabOrder = 1 object Panel3: TPanel Left = 0 Top = 279 Width = 638 Height = 98 Align = alBottom BevelOuter = bvNone TabOrder = 0 object Label2: TLabel Left = 8 Top = 40 Width = 30 Height = 13 Caption = 'Put as' end object Bevel1: TBevel Left = 182 Top = 4 Width = 7 Height = 91 Shape = bsLeftLine end object Label3: TLabel Left = 8 Top = 72 Width = 71 Height = 13 Caption = 'Stored format:' end object Label4: TLabel Left = 80 Top = 72 Width = 8 Height = 13 Caption = '--' end object Button2: TButton Left = 8 Top = 6 Width = 71 Height = 19 Caption = 'Import...' TabOrder = 0 OnClick = Button2Click end object Button3: TButton Left = 304 Top = 62 Width = 71 Height = 19 Caption = 'Effects...' TabOrder = 1 OnClick = Button3Click end object ComboBox1: TComboBox Left = 48 Top = 37 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = ComboBox1Change Items.Strings = ( 'Bmp' 'Jpeg' 'Gif' 'Pcx' 'Tiff' 'Tiff with Annot' 'Png' 'Tga' 'Pxm' 'Unknown') end object Button5: TButton Left = 200 Top = 62 Width = 71 Height = 19 Caption = 'Copy' TabOrder = 3 OnClick = Button5Click end object Button6: TButton Left = 200 Top = 41 Width = 71 Height = 19 Caption = 'Paste' TabOrder = 4 OnClick = Button6Click end object Button7: TButton Left = 304 Top = 41 Width = 71 Height = 19 Caption = 'Color adjust...' TabOrder = 5 OnClick = Button7Click end object Button8: TButton Left = 144 Top = 38 Width = 19 Height = 19 Caption = '...' TabOrder = 6 OnClick = Button8Click end end object DBCtrlGrid1: TDBCtrlGrid Left = 0 Top = 0 Width = 638 Height = 279 Align = alClient AllowDelete = False AllowInsert = False ColCount = 2 DataSource = DataSource1 PanelHeight = 139 PanelWidth = 310 TabOrder = 1 RowCount = 2 object Label1: TLabel Left = 8 Top = 8 Width = 27 Height = 13 Caption = 'Name' end object DBEdit1: TDBEdit Left = 41 Top = 6 Width = 80 Height = 21 DataField = 'Name' DataSource = DataSource1 TabOrder = 0 end object ImageEnDBView1: TImageEnDBView Left = 128 Top = 6 Width = 174 Height = 125 Background = clBtnFace ParentCtl3D = False BorderStyle = bsNone DoubleBuffer = False MouseInteract = [miSelect] AutoFit = True BackgroundStyle = iebsCropped EnableInteractionHints = True TabOrder = 1 DataField = 'Photo' DataSource = DataSource1 DataFieldImageFormat = ifPCX IOPreviewsParams = [ioppDefaultLockPreview] PreviewFont.Charset = DEFAULT_CHARSET PreviewFont.Color = clWindowText PreviewFont.Height = -11 PreviewFont.Name = 'Tahoma' PreviewFont.Style = [] end 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 ImageEnProc1: TImageEnProc AttachedImageEn = ImageEnDBView1 Background = clBtnFace PreviewsParams = [prppDefaultLockPreview] PreviewFont.Charset = DEFAULT_CHARSET PreviewFont.Color = clWindowText PreviewFont.Height = -11 PreviewFont.Name = 'Tahoma' PreviewFont.Style = [] Left = 400 Top = 160 end object ImageEnIO1: TImageEnIO AttachedImageEn = ImageEnDBView1 Background = clBtnFace PreviewFont.Charset = DEFAULT_CHARSET PreviewFont.Color = clWindowText PreviewFont.Height = -11 PreviewFont.Name = 'Tahoma' PreviewFont.Style = [] Left = 332 Top = 160 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