object Form1: TForm1 Left = 20 Top = 20 Caption = 'TImageEnMView Styles Demo - www.imageen.com' ClientHeight = 811 ClientWidth = 884 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Segoe UI' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 450 Top = 0 Height = 811 Align = alRight end object ImageEnMView1: TImageEnFolderMView Left = 0 Top = 0 Width = 450 Height = 811 Background = clWindow StoreType = ietFastThumb ThumbWidth = 140 ThumbHeight = 120 HorizBorder = 8 VertBorder = 8 TextMargin = 3 OnImageSelect = ImageEnMView1ImageSelect GridWidth = -1 SelectionWidth = 1 SelectionColor = 13542013 ImageCacheSize = 100 Style = iemsFlat ThumbnailsBackground = clWindow ThumbnailsBackgroundSelected = 16575194 EnableMultiSelect = True MultiSelectionOptions = [iemoRegion] ThumbnailsBorderWidth = 1 DefaultBottomText = iedtFilename Align = alClient ParentShowHint = False ShowHint = True TabOrder = 0 FileTypes = iefAllFiles EnableSpecialFolders = True DefaultFolder = iedfMyPictures OnFolderChanged = ImageEnMView1FolderChanged end object pnlRight: TPanel Left = 453 Top = 0 Width = 431 Height = 811 Align = alRight BevelOuter = bvNone TabOrder = 1 DesignSize = ( 431 811) object grpFolder: TGroupBox Left = 6 Top = 3 Width = 419 Height = 89 Anchors = [akLeft, akTop, akRight] Caption = 'Folder' TabOrder = 0 object lblFileTypes: TLabel Left = 16 Top = 56 Width = 51 Height = 13 Caption = 'File Types:' end object edtFolder: TEdit Left = 16 Top = 21 Width = 306 Height = 21 TabStop = False ReadOnly = True TabOrder = 0 end object cmbFileTypes: TComboBox Left = 74 Top = 52 Width = 167 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 OnChange = cmbFileTypesChange Items.Strings = ( 'Images' 'Images and Videos' 'All Files' 'Custom') end object btnSelectFolder: TButton Left = 328 Top = 19 Width = 80 Height = 26 Caption = 'Select Folder' TabOrder = 1 OnClick = btnSelectFolderClick end object btnOpenParent: TButton Left = 328 Top = 48 Width = 80 Height = 26 Caption = 'Go Up' Enabled = False TabOrder = 2 OnClick = btnOpenParentClick end end object grpThumbSettings: TGroupBox Left = 6 Top = 236 Width = 419 Height = 204 Anchors = [akLeft, akTop, akRight] Caption = 'Layout Settings' TabOrder = 2 object lblThumbnailClipping: TLabel Left = 200 Top = 59 Width = 104 Height = 13 Caption = 'Thumbnail Clipping:' end object lblPercent: TLabel Left = 365 Top = 59 Width = 9 Height = 13 Caption = '%' end object lblThumbSize: TLabel Left = 16 Top = 28 Width = 80 Height = 13 Caption = 'Thumbnail Size:' end object lblX: TLabel Left = 165 Top = 28 Width = 11 Height = 13 Caption = ' x ' end object lblThumbZoom: TLabel Left = 16 Top = 59 Width = 89 Height = 13 Caption = 'Thumbnail Zoom:' end object lblBottomGap: TLabel Left = 152 Top = 122 Width = 65 Height = 13 Caption = 'Bottom Gap:' end object lblUpperGap: TLabel Left = 16 Top = 122 Width = 59 Height = 13 Caption = 'Upper Gap:' end object lblSideGap: TLabel Left = 295 Top = 122 Width = 49 Height = 13 Caption = 'Side Gap:' end object lblTextMargin: TLabel Left = 158 Top = 152 Width = 62 Height = 13 Caption = 'Text Margin:' end object lblVertBorder: TLabel Left = 16 Top = 90 Width = 84 Height = 13 Caption = 'Vertical Spacing:' end object lblHorizBorder: TLabel Left = 204 Top = 90 Width = 101 Height = 13 Caption = 'Horizontal Spacing:' end object Label1: TLabel Left = 166 Top = 59 Width = 9 Height = 13 Caption = '%' end object lblTextWidthAuto: TLabel Left = 80 Top = 172 Width = 49 Height = 13 Caption = '(-1=Auto)' end object lblTextWidth: TLabel Left = 16 Top = 152 Width = 57 Height = 13 Caption = 'Text Width:' end object btnSetLayout: TButton Left = 296 Top = 167 Width = 105 Height = 25 Caption = 'Update Layout' Enabled = False TabOrder = 6 OnClick = btnSetLayoutClick end object edtThumbWidth: TEdit Left = 111 Top = 24 Width = 33 Height = 21 TabOrder = 0 Text = '130' OnChange = spnClippingChange end object updThumbWidth: TUpDown Left = 144 Top = 24 Width = 16 Height = 21 Associate = edtThumbWidth Min = 10 Max = 1000 Increment = 10 Position = 130 TabOrder = 1 end object edtThumbHeight: TEdit Left = 182 Top = 24 Width = 33 Height = 21 TabOrder = 2 Text = '130' OnChange = spnClippingChange end object updThumbHeight: TUpDown Left = 215 Top = 24 Width = 16 Height = 21 Associate = edtThumbHeight Min = 10 Max = 1000 Increment = 10 Position = 130 TabOrder = 3 end object edtClipping: TEdit Left = 310 Top = 55 Width = 33 Height = 21 TabOrder = 4 Text = '0' OnChange = spnClippingChange end object updClipping: TUpDown Left = 343 Top = 55 Width = 16 Height = 21 Associate = edtClipping Increment = 5 TabOrder = 5 end object edtThumbZoom: TEdit Left = 111 Top = 55 Width = 33 Height = 21 TabOrder = 7 Text = '100' OnChange = spnClippingChange end object updThumbZoom: TUpDown Left = 144 Top = 55 Width = 16 Height = 21 Associate = edtThumbZoom Min = 1 Max = 1000 Increment = 10 Position = 100 TabOrder = 8 end object edtBottomGap: TEdit Left = 223 Top = 118 Width = 33 Height = 21 TabOrder = 9 Text = '1' OnChange = spnClippingChange end object updBottomGap: TUpDown Left = 256 Top = 118 Width = 16 Height = 21 Associate = edtBottomGap Min = 1 Max = 1000 Position = 1 TabOrder = 10 end object edtUpperGap: TEdit Left = 81 Top = 118 Width = 33 Height = 21 TabOrder = 11 Text = '1' OnChange = spnClippingChange end object updUpperGap: TUpDown Left = 114 Top = 118 Width = 16 Height = 21 Associate = edtUpperGap Min = 1 Max = 1000 Position = 1 TabOrder = 12 end object edtSideGap: TEdit Left = 350 Top = 118 Width = 33 Height = 21 TabOrder = 13 Text = '1' OnChange = spnClippingChange end object updSideGap: TUpDown Left = 383 Top = 118 Width = 16 Height = 21 Associate = edtSideGap Min = 1 Max = 1000 Position = 1 TabOrder = 14 end object edtTextMargin: TEdit Left = 223 Top = 148 Width = 33 Height = 21 TabOrder = 15 Text = '1' OnChange = spnClippingChange end object updTextMargin: TUpDown Left = 256 Top = 148 Width = 16 Height = 21 Associate = edtTextMargin Min = 1 Max = 1000 Position = 1 TabOrder = 16 end object edtVertBorder: TEdit Left = 111 Top = 86 Width = 33 Height = 21 TabOrder = 17 Text = '1' OnChange = spnClippingChange end object updVertBorder: TUpDown Left = 144 Top = 86 Width = 16 Height = 21 Associate = edtVertBorder Min = 1 Max = 1000 Increment = 10 Position = 1 TabOrder = 18 end object edtHorizBorder: TEdit Left = 311 Top = 86 Width = 33 Height = 21 TabOrder = 19 Text = '1' OnChange = spnClippingChange end object updHorizBorder: TUpDown Left = 344 Top = 86 Width = 16 Height = 21 Associate = edtHorizBorder Min = 1 Max = 1000 Increment = 10 Position = 1 TabOrder = 20 end object edtTextWidth: TEdit Left = 81 Top = 148 Width = 33 Height = 21 TabOrder = 21 Text = '-1' OnChange = spnClippingChange end object updTextWidth: TUpDown Left = 114 Top = 148 Width = 16 Height = 21 Associate = edtTextWidth Min = -1 Max = 1000 Increment = 10 Position = -1 TabOrder = 22 end end object grpPreview: TGroupBox Left = 6 Top = 622 Width = 419 Height = 184 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'Preview' TabOrder = 3 object pnlPreview: TPanel Left = 2 Top = 15 Width = 415 Height = 167 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 0 object chkPreview: TCheckBox Left = 4 Top = 4 Width = 407 Height = 20 Align = alTop Caption = 'Show Preview' TabOrder = 0 OnClick = chkPreviewClick end object ImageEnView1: TImageEnView Left = 4 Top = 24 Width = 407 Height = 139 Background = clWindow LegacyBitmap = False ZoomFilter = rfFastLinear AutoShrink = True EnableInteractionHints = True Align = alClient TabOrder = 1 end end end object grpDisplayStyle: TGroupBox Left = 6 Top = 99 Width = 419 Height = 129 Anchors = [akLeft, akTop, akRight] Caption = 'Display Style' TabOrder = 1 object rdbShowThumbs: TRadioButton Left = 16 Top = 62 Width = 113 Height = 17 Caption = 'Show Thumbnails' TabOrder = 0 OnClick = rdbShowThumbsClick end object rdbShowDetails: TRadioButton Left = 16 Top = 41 Width = 113 Height = 17 Caption = 'Show Details' TabOrder = 1 OnClick = rdbShowDetailsClick end object rdbShowColumns: TRadioButton Left = 16 Top = 104 Width = 113 Height = 17 Caption = 'Show Columns' TabOrder = 2 OnClick = rdbShowColumnsClick end object rdbShowLargeThumbs: TRadioButton Left = 16 Top = 83 Width = 217 Height = 17 Caption = 'Show Large Thumbnails' TabOrder = 3 OnClick = rdbShowLargeThumbsClick end object rdbShowFileList: TRadioButton Left = 16 Top = 20 Width = 113 Height = 17 Caption = 'Show File List' TabOrder = 4 OnClick = rdbShowFileListClick end end object grpOtherSettings: TGroupBox Left = 6 Top = 448 Width = 419 Height = 166 Anchors = [akLeft, akTop, akRight] Caption = 'Other Settings' TabOrder = 4 object lblTopText: TLabel Left = 16 Top = 25 Width = 43 Height = 13 Caption = 'Top Text:' end object lblInfoText: TLabel Left = 16 Top = 52 Width = 46 Height = 13 Caption = 'Info Text:' end object lblBottomText: TLabel Left = 16 Top = 79 Width = 63 Height = 13 Caption = 'Bottom Text:' end object lblTopWidth: TLabel Left = 264 Top = 25 Width = 35 Height = 13 Caption = 'Width:' end object lblInfoWidth: TLabel Left = 264 Top = 52 Width = 35 Height = 13 Caption = 'Width:' end object lblBottomWidth: TLabel Left = 264 Top = 79 Width = 35 Height = 13 Caption = 'Width:' end object lblWidthAuto: TLabel Left = 304 Top = 102 Width = 49 Height = 13 Caption = '(-1=Auto)' end object chkSoftShadow: TCheckBox Left = 16 Top = 119 Width = 97 Height = 17 Caption = 'Soft Shadow' Checked = True State = cbChecked TabOrder = 3 OnClick = chkSoftShadowClick end object cmbTopText: TComboBox Left = 85 Top = 21 Width = 167 Height = 21 Style = csDropDownList DropDownCount = 15 ItemHeight = 13 TabOrder = 0 OnChange = cmbTopTextChange Items.Strings = ( 'None ' 'Filename' 'Filename without Extension' 'File Path' 'Image Dimensions' 'Image Dimensions and Size' 'File Size' 'File Create Date' 'File Create Date and Time' 'File Create Date and Size' 'File Edit Date' 'File Edit Date and Time' 'File Edit Date and Size' 'File Type') end object cmbInfoText: TComboBox Left = 85 Top = 48 Width = 167 Height = 21 Style = csDropDownList DropDownCount = 15 ItemHeight = 13 TabOrder = 1 OnChange = cmbInfoTextChange Items.Strings = ( 'None ' 'Filename' 'Filename without Extension' 'File Path' 'Image Dimensions' 'Image Dimensions and Size' 'File Size' 'File Create Date' 'File Create Date and Time' 'File Create Date and Size' 'File Edit Date' 'File Edit Date and Time' 'File Edit Date and Size' 'File Type') end object cmbBottomText: TComboBox Left = 85 Top = 75 Width = 167 Height = 21 Style = csDropDownList DropDownCount = 15 ItemHeight = 13 TabOrder = 2 OnChange = cmbBottomTextChange Items.Strings = ( 'None ' 'Filename' 'Filename without Extension' 'File Path' 'Image Dimensions' 'Image Dimensions and Size' 'File Size' 'File Create Date' 'File Create Date and Time' 'File Create Date and Size' 'File Edit Date' 'File Edit Date and Time' 'File Edit Date and Size' 'File Type') end object chkCenterThumbs: TCheckBox Left = 15 Top = 142 Width = 114 Height = 17 Caption = 'Center Columns' TabOrder = 4 OnClick = chkCenterThumbsClick end object chkThumbnailBorder: TCheckBox Left = 132 Top = 119 Width = 162 Height = 17 Caption = 'Thumbnail Border' TabOrder = 5 OnClick = chkThumbnailBorderClick end object edtTopWidth: TEdit Left = 304 Top = 21 Width = 33 Height = 21 TabOrder = 6 Text = '-1' OnChange = edtTopWidthChange end object updTopWidth: TUpDown Left = 337 Top = 21 Width = 16 Height = 21 Associate = edtTopWidth Min = -1 Max = 1000 Increment = 10 Position = -1 TabOrder = 7 end object edtInfoWidth: TEdit Left = 304 Top = 48 Width = 33 Height = 21 TabOrder = 8 Text = '-1' OnChange = edtInfoWidthChange end object updInfoWidth: TUpDown Left = 337 Top = 48 Width = 16 Height = 21 Associate = edtInfoWidth Min = -1 Max = 1000 Increment = 10 Position = -1 TabOrder = 9 end object edtBottomWidth: TEdit Left = 304 Top = 75 Width = 33 Height = 21 TabOrder = 10 Text = '-1' OnChange = edtBottomWidthChange end object updBottomWidth: TUpDown Left = 337 Top = 75 Width = 16 Height = 21 Associate = edtBottomWidth Min = -1 Max = 1000 Increment = 10 Position = -1 TabOrder = 11 end object chkIconsOnly: TCheckBox Left = 132 Top = 142 Width = 114 Height = 17 Caption = 'Show Icons Only' TabOrder = 12 OnClick = chkIconsOnlyClick end object chkExplorerThumbs: TCheckBox Left = 262 Top = 142 Width = 147 Height = 17 Caption = 'Get Explorer Thumbnails' TabOrder = 13 OnClick = chkExplorerThumbsClick end end end object tmrUpdatePreview: TTimer Enabled = False Interval = 250 OnTimer = tmrUpdatePreviewTimer Left = 64 Top = 24 end end