object MainForm: TMainForm Left = 343 Top = 135 Caption = 'TIFF TIEMultiBitmap Demo - www.ImageEn.com' ClientHeight = 617 ClientWidth = 936 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 257 Height = 617 Align = alLeft BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 16 Top = 264 Width = 24 Height = 13 Caption = 'Page' end object lblMax: TLabel Left = 120 Top = 264 Width = 19 Height = 13 Caption = 'of 0' end object lblCompression: TLabel Left = 16 Top = 299 Width = 65 Height = 13 Caption = 'Compression:' end object lblPageName: TLabel Left = 16 Top = 353 Width = 58 Height = 13 Caption = 'Page Name:' end object lblDescription: TLabel Left = 16 Top = 326 Width = 57 Height = 13 Caption = 'Description:' end object Button6: TButton Left = 174 Top = 258 Width = 67 Height = 25 Caption = 'Show Page' TabOrder = 7 OnClick = Button6Click end object DriveComboBox1: TDriveComboBox Left = 12 Top = 8 Width = 229 Height = 19 DirList = DirectoryListBox1 TabOrder = 0 end object DirectoryListBox1: TDirectoryListBox Left = 12 Top = 33 Width = 229 Height = 97 FileList = FileListBox1 ItemHeight = 16 TabOrder = 1 end object FileListBox1: TFileListBox Left = 12 Top = 136 Width = 229 Height = 105 ItemHeight = 13 Mask = '*.tiff;*.tif' TabOrder = 2 OnChange = FileListBox1Change end object edtPage: TEdit Left = 46 Top = 260 Width = 47 Height = 21 TabOrder = 3 Text = '0' end object updPage: TUpDown Left = 93 Top = 260 Width = 16 Height = 21 Associate = edtPage TabOrder = 4 OnClick = updPageClick end object Button1: TButton Left = 131 Top = 541 Width = 91 Height = 25 Caption = 'Save File' TabOrder = 5 OnClick = Button1Click end object Button5: TButton Left = 131 Top = 466 Width = 91 Height = 25 Caption = 'Delete Page' TabOrder = 6 OnClick = Button5Click end object ProgressBar1: TProgressBar Left = 0 Top = 600 Width = 257 Height = 17 Align = alBottom TabOrder = 8 end object btnAddPage: TButton Left = 131 Top = 435 Width = 91 Height = 25 Caption = 'Add Page' TabOrder = 9 OnClick = btnAddPageClick end object chkShowContent: TCheckBox Left = 8 Top = 576 Width = 131 Height = 17 Caption = 'Show Thumbnails' Checked = True State = cbChecked TabOrder = 10 OnClick = chkShowContentClick end object btnInsertPage: TButton Left = 34 Top = 435 Width = 91 Height = 25 Caption = 'Insert Page' TabOrder = 11 OnClick = btnInsertPageClick end object btnMovePage: TButton Left = 34 Top = 466 Width = 91 Height = 25 Caption = 'Move Page' TabOrder = 12 OnClick = btnMovePageClick end object edtTIFFImageDescription: TEdit Left = 87 Top = 322 Width = 154 Height = 21 TabOrder = 13 OnChange = cmbTIFFCompressionChange end object edtTIFFPageName: TEdit Left = 87 Top = 349 Width = 154 Height = 21 TabOrder = 14 OnChange = cmbTIFFCompressionChange end object cmbTIFFCompression: TComboBox Left = 87 Top = 295 Width = 154 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 15 OnChange = cmbTIFFCompressionChange Items.Strings = ( 'ioTIFF_UNCOMPRESSED' 'ioTIFF_CCITT1D' 'ioTIFF_G3FAX1D' 'ioTIFF_G3FAX2D' 'ioTIFF_G4FAX' 'ioTIFF_LZW' 'ioTIFF_OLDJPEG' 'ioTIFF_JPEG' 'ioTIFF_PACKBITS' 'ioTIFF_ZIP' 'ioTIFF_DEFLATE' 'ioTIFF_UNKNOWN') end object btnUpdate: TButton Left = 166 Top = 376 Width = 75 Height = 25 Caption = 'Update' TabOrder = 16 OnClick = btnUpdateClick end object btnAdjustParams: TButton Left = 34 Top = 510 Width = 91 Height = 25 Caption = 'Adjust Params' TabOrder = 17 OnClick = btnAdjustParamsClick end object btnRotate: TButton Left = 131 Top = 510 Width = 91 Height = 25 Caption = 'Rotate 90' TabOrder = 18 OnClick = btnRotateClick end end object IEMView1: TImageEnMView Left = 257 Top = 0 Width = 679 Height = 617 Background = clBtnFace ParentCtl3D = False StoreType = ietThumb ThumbWidth = 100 ThumbHeight = 100 HorizBorder = 4 VertBorder = 4 TextMargin = 0 GridWidth = 0 Style = iemsACD ThumbnailsBackground = clBtnFace ThumbnailsBackgroundSelected = clBtnFace MultiSelectionOptions = [] ThumbnailsBorderWidth = 0 DefaultBottomText = iedtNone Align = alClient TabOrder = 1 OnClick = IEMView1Click end object OpenImageEnDialog1: TOpenImageEnDialog Filter = 'TIFF files|*.tif;*.tiff' Left = 448 Top = 56 end object SaveImageEnDialog1: TSaveImageEnDialog Filter = 'JPEG Bitmap (JPG)|*.jpg|CompuServe Bitmap (GIF)|*.gif|TIFF Bitma' + 'p (TIF)|*.tif|PaintBrush (PCX)|*.pcx|Portable Network Graphics (' + 'PNG)|*.png|Windows Bitmap (BMP)|*.bmp|OS/2 Bitmap (BMP)|*.bmp|Ta' + 'rga Bitmap (TGA)|*.tga|Portable PixMap (PXM)|*.pxm|Portable PixM' + 'ap (PPM)|*.ppm|Portable GreyMap (PGM)|*.pgm|Portable Bitmap (PBM' + ')|*.pbm|JPEG2000 (JP2)|*.jp2|JPEG2000 Code Stream (J2K)|*.j2k|Mu' + 'ltipage PCX (DCX)|*.dcx' ExOptions = [sdShowPreview, sdShowAdvanced] Left = 448 Top = 112 end end