object Form1: TForm1 Left = 309 Top = 147 Width = 823 Height = 751 ActiveControl = ImageEnMView1 Caption = 'Thumbnail Demo (www.ImageEn.com)' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 534 Top = 0 Height = 713 Align = alRight Beveled = True Visible = False end object Splitter2: TSplitter Left = 164 Top = 0 Height = 713 Beveled = True end object GroupBox1: TPanel Left = 0 Top = 0 Width = 164 Height = 713 Align = alLeft BevelOuter = bvNone TabOrder = 0 object lblOptions: TLabel Left = 8 Top = 470 Width = 43 Height = 13 Caption = 'Options' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblStyle: TLabel Left = 8 Top = 323 Width = 29 Height = 13 Caption = 'Style' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblZoom: TLabel Left = 16 Top = 436 Width = 30 Height = 13 Caption = 'Zoom:' end object DriveComboBox1: TDriveComboBox Left = 8 Top = 13 Width = 145 Height = 19 DirList = DirectoryListBox1 TabOrder = 0 end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 40 Width = 145 Height = 277 ItemHeight = 16 TabOrder = 1 OnChange = DirectoryListBox1Change end object chkSoftShadow: TCheckBox Left = 16 Top = 342 Width = 97 Height = 17 Caption = 'Soft Shadow' Checked = True State = cbChecked TabOrder = 2 OnClick = chkSoftShadowClick end object chkWallpaper: TCheckBox Left = 16 Top = 365 Width = 97 Height = 17 Caption = 'Wallpaper' TabOrder = 3 OnClick = chkWallpaperClick end object chkShowText: TCheckBox Left = 16 Top = 388 Width = 97 Height = 17 Caption = 'Show Text' TabOrder = 4 OnClick = chkShowTextClick end object chkShowPreview: TCheckBox Left = 16 Top = 490 Width = 97 Height = 17 Caption = 'Show Preview' TabOrder = 8 OnClick = chkShowPreviewClick end object Button1: TButton Left = 38 Top = 582 Width = 75 Height = 25 Caption = 'Sort By Size' TabOrder = 12 OnClick = Button1Click end object chkExplorerColors: TCheckBox Left = 16 Top = 411 Width = 97 Height = 19 Caption = 'Explorer Colors' TabOrder = 5 OnClick = chkExplorerColorsClick end object GroupBox2: TGroupBox Left = 16 Top = 621 Width = 134 Height = 65 Caption = ' Debug ' TabOrder = 13 object Label1: TLabel Left = 14 Top = 18 Width = 65 Height = 13 Caption = 'Jobs running:' end object Label3: TLabel Left = 86 Top = 18 Width = 6 Height = 13 Caption = '0' end object Label2: TLabel Left = 14 Top = 42 Width = 65 Height = 13 Caption = 'Jobs Waiting:' end object Label4: TLabel Left = 86 Top = 42 Width = 6 Height = 13 Caption = '0' end end object chkLookAhead: TCheckBox Left = 16 Top = 559 Width = 134 Height = 17 Caption = 'Look ahead (Pre-load)' TabOrder = 11 OnClick = chkLookAheadClick end object chkAutoRotate: TCheckBox Left = 16 Top = 513 Width = 126 Height = 17 Caption = 'Auto-rotate Thumbs' TabOrder = 9 OnClick = chkAutoRotateClick end object chkLoadEXIFThumbs: TCheckBox Left = 16 Top = 536 Width = 126 Height = 17 Caption = 'Use EXIF Thumbs' Checked = True State = cbChecked TabOrder = 10 OnClick = chkLoadEXIFThumbsClick end object edtZoom: TEdit Left = 52 Top = 433 Width = 33 Height = 21 ReadOnly = True TabOrder = 6 Text = '100' OnChange = edtZoomChange end object updZoom: TUpDown Left = 85 Top = 433 Width = 16 Height = 21 Associate = edtZoom Min = 10 Max = 1000 Increment = 10 Position = 100 TabOrder = 7 end end object ImageEnMView1: TImageEnMView Left = 167 Top = 0 Width = 367 Height = 713 Background = clBtnFace ParentCtl3D = False BorderStyle = bsNone StoreType = ietThumb ThumbWidth = 150 ThumbHeight = 150 HorizBorder = 4 VertBorder = 4 TextMargin = 0 OnBeforeImageDraw = ImageEnMView1BeforeImageDraw OnImageSelect = ImageEnMView1ImageSelect MouseInteract = [mmiScroll, mmiSelect] GridWidth = -1 SelectionColor = clRed Style = iemsFlat ThumbnailsBackground = clBtnFace ThumbnailsBackgroundSelected = clBtnFace MultiSelectionOptions = [] ThumbnailsBorderWidth = 0 ThumbnailsBorderColor = clBlack WallPaperStyle = iewoTile Align = alClient ParentShowHint = False ShowHint = True TabOrder = 1 OnMouseMove = ImageEnMView1MouseMove end object ImageEnView1: TImageEnView Left = 537 Top = 0 Width = 270 Height = 713 Background = clBtnFace ParentCtl3D = False BorderStyle = bsNone AutoFit = True BackgroundStyle = iebsGradient EnableInteractionHints = True Align = alRight Visible = False TabOrder = 2 end object DebugTimer: TTimer Interval = 100 OnTimer = DebugTimerTimer Left = 118 Top = 594 end end