object MainForm: TMainForm Left = 252 Top = 172 Caption = 'Thumbnails with Checkboxes - www.ImageEn.com' ClientHeight = 461 ClientWidth = 854 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TPanel Left = 0 Top = 0 Width = 164 Height = 461 Align = alLeft BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 8 Top = 370 Width = 145 Height = 83 AutoSize = False Caption = 'Note: This demo shows custom drawing onto a TImageEnMView. If yo' + 'u only require checkboxes, use the TImageEnMView.Checkboxes prop' + 'erty' WordWrap = True end object DriveComboBox1: TDriveComboBox Left = 8 Top = 11 Width = 145 Height = 19 DirList = DirectoryListBox1 TabOrder = 0 end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 40 Width = 145 Height = 297 ItemHeight = 16 TabOrder = 1 OnChange = DirectoryListBox1Change end object chkCustomDraw: TCheckBox Left = 8 Top = 343 Width = 97 Height = 17 Caption = 'Custom Draw' Checked = True State = cbChecked TabOrder = 2 OnClick = chkCustomDrawClick end end object ImageEnMView1: TImageEnMView Left = 164 Top = 0 Width = 690 Height = 461 Background = clBtnFace StoreType = ietThumb ThumbWidth = 150 ThumbHeight = 150 HorizBorder = 4 VertBorder = 4 TextMargin = 3 OnImageAtPos = ImageEnMView1ImageAtPos OnCreateImage = ImageEnMView1CreateImage OnDestroyImage = ImageEnMView1DestroyImage OnImageDraw2 = ImageEnMView1ImageDraw2 MouseInteract = [mmiScroll, mmiSelect] GridWidth = -1 SelectionWidth = 3 SelectionColor = clGreen Style = iemsFlat ThumbnailsBackground = clBtnFace ThumbnailsBackgroundSelected = clBtnFace EnableMultiSelect = True MultiSelectionOptions = [] ThumbnailsBorderWidth = 0 ThumbnailsBorderColor = clBlack WallPaperStyle = iewoTile Align = alClient ParentShowHint = False ShowHint = True TabOrder = 1 OnMouseDown = ImageEnMView1MouseDown end end