object MainForm: TMainForm Left = 231 Top = 134 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'TImageEnDBView Demo - www.ImageEn.com' ClientHeight = 434 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 DBGrid1: TDBGrid Left = 0 Top = 0 Width = 140 Height = 393 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 = 'Title' Visible = True end> end object Panel2: TPanel Left = 0 Top = 393 Width = 638 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 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 = 140 Top = 0 Width = 498 Height = 393 Align = alClient BevelOuter = bvNone Caption = 'Panel1' TabOrder = 2 object Panel3: TPanel Left = 0 Top = 281 Width = 498 Height = 112 Align = alBottom BevelOuter = bvNone Caption = 'Panel3' TabOrder = 0 object Zoom: TLabel Left = 201 Top = 10 Width = 26 Height = 13 Caption = 'Zoom' end object Label1: TLabel Left = 8 Top = 32 Width = 27 Height = 13 Caption = 'Name' end object Label2: TLabel Left = 8 Top = 64 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 = 91 Width = 69 Height = 13 Caption = 'Saved format:' end object Label4: TLabel Left = 80 Top = 91 Width = 8 Height = 13 Caption = '--' end object Label5: TLabel Left = 208 Top = 88 Width = 230 Height = 13 Caption = 'TDBImageEn without Blob fields using file paths.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False 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 TrackBar1: TTrackBar Left = 232 Top = 8 Width = 249 Height = 19 Max = 3000 Frequency = 100 Position = 100 TabOrder = 2 OnChange = TrackBar1Change end object DBEdit1: TDBEdit Left = 49 Top = 30 Width = 121 Height = 21 DataField = 'Title' DataSource = DataSource1 TabOrder = 3 end object ComboBox1: TComboBox Left = 48 Top = 61 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 4 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 = 5 OnClick = Button5Click end object Button6: TButton Left = 200 Top = 41 Width = 71 Height = 19 Caption = 'Paste' TabOrder = 6 OnClick = Button6Click end object Button7: TButton Left = 304 Top = 41 Width = 71 Height = 19 Caption = 'Color adjust...' TabOrder = 7 OnClick = Button7Click end object Button8: TButton Left = 144 Top = 62 Width = 19 Height = 19 Caption = '...' TabOrder = 8 OnClick = Button8Click end end object ImageEnDBView1: TImageEnDBView Left = 0 Top = 0 Width = 498 Height = 281 Background = clWhite ParentCtl3D = False BorderStyle = bsNone MouseInteract = [miZoom, miSelect] BackgroundStyle = iebsCropped EnableInteractionHints = True Align = alClient TabOrder = 1 DataField = 'ImagePath' DataSource = DataSource1 DataFieldImageFormat = ifJpeg IOPreviewsParams = [ioppDefaultLockPreview] PreviewFont.Charset = DEFAULT_CHARSET PreviewFont.Color = clWindowText PreviewFont.Height = -11 PreviewFont.Name = 'Tahoma' PreviewFont.Style = [] StreamHeaders = True end end object Table1: TTable AfterScroll = Table1AfterScroll TableName = 'titles.db' Left = 16 Top = 136 end object DataSource1: TDataSource AutoEdit = False DataSet = Table1 Left = 64 Top = 136 end object ImageEnProc1: TImageEnProc AttachedImageEn = ImageEnDBView1 Background = clWhite PreviewsParams = [prppShowResetButton, prppHardReset] 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 = clWhite 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