object MainForm: TMainForm
  Left = 252
  Top = 172
  Caption = 'Thumbnails with Checkboxes - www.ImageEn.com'
  ClientHeight = 462
  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
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TPanel
    Left = 0
    Top = 0
    Width = 193
    Height = 462
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object lblPos: TLabel
      Left = 8
      Top = 259
      Width = 41
      Height = 13
      Caption = 'Position:'
    end
    object lblCheckedCount: TLabel
      Left = 8
      Top = 435
      Width = 86
      Height = 13
      Caption = 'Checked Count: 0'
    end
    object lblHorzMargin: TLabel
      Left = 8
      Top = 286
      Width = 63
      Height = 13
      Caption = 'Horiz Margin:'
    end
    object lblVertMargin: TLabel
      Left = 8
      Top = 313
      Width = 59
      Height = 13
      Caption = 'Vert Margin:'
    end
    object lblCheckboxes: TLabel
      Left = 8
      Top = 232
      Width = 62
      Height = 13
      Caption = 'Checkboxes:'
    end
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 11
      Width = 174
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 0
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 40
      Width = 174
      Height = 169
      ItemHeight = 16
      TabOrder = 1
      OnChange = DirectoryListBox1Change
    end
    object chkCustomDraw: TCheckBox
      Left = 8
      Top = 365
      Width = 150
      Height = 17
      Caption = 'Custom Check Bitmaps'
      TabOrder = 10
      OnClick = chkCustomDrawClick
    end
    object cmbPosition: TComboBox
      Left = 77
      Top = 255
      Width = 104
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = 'Top Left'
      OnChange = cmbPositionChange
      Items.Strings = (
        'Top Left'
        'Top Right'
        'Bottom Left'
        'Bottom Right')
    end
    object btnCheckAll: TButton
      Left = 8
      Top = 390
      Width = 75
      Height = 25
      Caption = 'Check All'
      TabOrder = 11
      OnClick = btnCheckAllClick
    end
    object btnUncheckAll: TButton
      Left = 89
      Top = 390
      Width = 75
      Height = 25
      Caption = 'Uncheck All'
      TabOrder = 12
      OnClick = btnUncheckAllClick
    end
    object chkOnlyAllowJPEG: TCheckBox
      Left = 8
      Top = 342
      Width = 150
      Height = 17
      Caption = 'Checking of JPEGs only'
      TabOrder = 9
    end
    object edtMarginHorz: TEdit
      Left = 77
      Top = 282
      Width = 24
      Height = 21
      ReadOnly = True
      TabOrder = 4
      Text = '4'
    end
    object edtMarginVert: TEdit
      Left = 77
      Top = 309
      Width = 24
      Height = 21
      ReadOnly = True
      TabOrder = 6
      Text = '4'
    end
    object updMarginVert: TUpDown
      Left = 101
      Top = 309
      Width = 16
      Height = 21
      Associate = edtMarginVert
      Position = 4
      TabOrder = 7
    end
    object updMarginHorz: TUpDown
      Left = 101
      Top = 282
      Width = 16
      Height = 21
      Associate = edtMarginHorz
      Position = 4
      TabOrder = 5
    end
    object btnUpdate: TButton
      Left = 129
      Top = 305
      Width = 53
      Height = 25
      Caption = 'Update'
      TabOrder = 8
      OnClick = btnUpdateClick
    end
    object btnShowChecked: TButton
      Left = 120
      Top = 429
      Width = 62
      Height = 25
      Caption = 'Show...'
      TabOrder = 13
      OnClick = btnShowCheckedClick
    end
    object cmbCheckboxes: TComboBox
      Left = 77
      Top = 228
      Width = 104
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 2
      TabOrder = 2
      Text = 'Always Show'
      OnChange = cmbCheckboxesChange
      Items.Strings = (
        'None'
        'Show on Hover'
        'Always Show')
    end
  end
  object ImageEnMView1: TImageEnMView
    Left = 193
    Top = 0
    Width = 661
    Height = 462
    Background = clBtnFace
    ParentCtl3D = False
    StoreType = ietFastThumb
    ThumbWidth = 150
    ThumbHeight = 150
    HorizBorder = 4
    VertBorder = 4
    TextMargin = 3
    OnCheckboxClick = ImageEnMView1CheckboxClick
    MouseInteract = [mmiScroll, mmiSelect]
    GridWidth = -1
    SelectionColor = clGreen
    Style = iemsFlat
    ThumbnailsBackground = clBtnFace
    ThumbnailsBackgroundSelected = clBtnFace
    EnableMultiSelect = True
    MultiSelectionOptions = []
    ThumbnailsBorderWidth = 0
    ThumbnailsBorderColor = clBlack
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = ImageEnMView1Click
  end
end