object MainForm: TMainForm Left = 157 Top = 122 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'TImageEnDBVect Demo - www.ImageEn.com' 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 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 = 604 Height = 468 Align = alClient BevelOuter = bvNone Caption = 'Panel1' TabOrder = 2 object Panel3: TPanel Left = 0 Top = 342 Width = 604 Height = 126 Align = alBottom BevelOuter = bvNone 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 Label4: TLabel Left = 8 Top = 96 Width = 71 Height = 13 Caption = 'Stored format:' end object Label5: TLabel Left = 80 Top = 96 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 TrackBar1: TTrackBar Left = 232 Top = 8 Width = 249 Height = 19 Max = 3000 Frequency = 100 Position = 100 TabOrder = 1 OnChange = TrackBar1Change end object DBEdit1: TDBEdit Left = 49 Top = 30 Width = 121 Height = 21 DataField = 'Name' DataSource = DataSource1 TabOrder = 2 end object ComboBox1: TComboBox Left = 48 Top = 61 Width = 89 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 OnChange = ComboBox1Change Items.Strings = ( 'Bmp' 'Jpeg' 'Gif' 'Pcx' 'Tiff' 'Tiff with Annot' 'Png' 'Tga' 'Pxm' 'Unknown') end object Button8: TButton Left = 144 Top = 62 Width = 19 Height = 19 Caption = '...' TabOrder = 4 OnClick = Button8Click end end object ImageEnDBVect1: TImageEnDBVect Left = 0 Top = 41 Width = 604 Height = 301 Background = clBtnFace ParentCtl3D = False MouseInteract = [miZoom, miSelect] EnableInteractionHints = True Align = alClient TabOrder = 1 DataField = 'Photo' DataSource = DataSource1 DataFieldImageFormat = ifJpeg IOPreviewsParams = [ioppDefaultLockPreview] PreviewFont.Charset = DEFAULT_CHARSET PreviewFont.Color = clWindowText PreviewFont.Height = -11 PreviewFont.Name = 'Tahoma' PreviewFont.Style = [] end object Panel4: TPanel Left = 0 Top = 0 Width = 604 Height = 41 Align = alTop BevelOuter = bvNone TabOrder = 2 object Label3: TLabel Left = 336 Top = 11 Width = 254 Height = 13 Caption = 'See "vectorial" example for more objects and options' end object Button9: TButton Left = 120 Top = 8 Width = 75 Height = 25 Caption = 'Put line' TabOrder = 0 OnClick = Button9Click end object Button10: TButton Left = 200 Top = 8 Width = 75 Height = 25 Caption = 'Put text' TabOrder = 1 OnClick = Button10Click end object Button11: TButton Left = 8 Top = 8 Width = 75 Height = 25 Caption = 'Select' TabOrder = 2 OnClick = Button11Click 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 = ImageEnDBVect1 Background = clBtnFace 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 = ImageEnDBVect1 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