object Form1: TForm1
  Left = 20
  Top = 20
  Caption = 'TImageEnFolderMView 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 IEFolderMView: TImageEnFolderMView
    Left = 0
    Top = 0
    Width = 450
    Height = 811
    Background = clWindow
    StoreType = ietFastThumb
    ThumbWidth = 140
    ThumbHeight = 120
    HorizBorder = 8
    VertBorder = 8
    TextMargin = 3
    ThumbnailOptionsEx = [ietxCenterThumbnailColumn, ietxShowIconForUnknownFormat, ietxShowIconWhileLoading, ietxEnableInternalIcons, ietxStretchSmallImages]
    OnImageSelect = IEFolderMViewImageSelect
    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
    DefaultFolder = iedfMyPictures
    OnFolderChanged = IEFolderMViewFolderChanged
  end
  object pnlRight: TPanel
    Left = 453
    Top = 0
    Width = 431
    Height = 811
    Align = alRight
    BevelOuter = bvNone
    PopupMenu = popSettings
    TabOrder = 1
    object lblAlso: TLabel
      Left = 8
      Top = 792
      Width = 380
      Height = 13
      Anchors = [akLeft, akBottom]
      Caption = 
        'See also: TImageEnFolderMView Actions demo in \Other\Actions_Fol' +
        'der\'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object grpFolder: TGroupBox
      Left = 6
      Top = 3
      Width = 419
      Height = 146
      Anchors = [akLeft, akTop, akRight]
      Caption = 'Folder'
      TabOrder = 0
      object lblFileTypes: TLabel
        Left = 16
        Top = 61
        Width = 51
        Height = 13
        Caption = 'File Types:'
      end
      object lblMask: TLabel
        Left = 16
        Top = 90
        Width = 51
        Height = 13
        Caption = 'File Mask:'
        Enabled = False
      end
      object lblExample: TLabel
        Left = 247
        Top = 90
        Width = 77
        Height = 13
        Caption = '(e.g. '#39'jpg,jpeg'#39')'
        Enabled = False
      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 = 58
        Width = 167
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
        OnChange = cmbFileTypesChange
        Items.Strings = (
          'Images'
          'Images and Videos'
          'All Files'
          'Custom')
      end
      object edtFileMask: TEdit
        Left = 74
        Top = 86
        Width = 167
        Height = 21
        Enabled = False
        TabOrder = 4
      end
      object btnRefresh: TButton
        Left = 328
        Top = 112
        Width = 80
        Height = 25
        Caption = 'Refresh'
        TabOrder = 7
        OnClick = btnRefreshClick
      end
      object chkShowHiddenFiles: TCheckBox
        Left = 136
        Top = 115
        Width = 137
        Height = 17
        Caption = 'Show Hidden Files'
        TabOrder = 6
        OnClick = chkShowHiddenFilesClick
      end
      object chkShowFolders: TCheckBox
        Left = 16
        Top = 115
        Width = 105
        Height = 17
        Caption = 'Show Folders'
        TabOrder = 5
        OnClick = chkShowFoldersClick
      end
      object btnSelectFolder: TButton
        Left = 328
        Top = 19
        Width = 80
        Height = 26
        Anchors = [akLeft, akTop, akBottom]
        Caption = 'Select Folder'
        TabOrder = 1
        OnClick = btnSelectFolderClick
      end
      object btnOpenParent: TButton
        Left = 328
        Top = 48
        Width = 80
        Height = 26
        Anchors = [akLeft, akTop, akBottom]
        Caption = 'Go Up'
        Enabled = False
        TabOrder = 2
        OnClick = btnOpenParentClick
      end
    end
    object grpThumbSettings: TGroupBox
      Left = 6
      Top = 254
      Width = 419
      Height = 193
      Anchors = [akLeft, akTop, akRight]
      Caption = 'Thumbnail Settings'
      PopupMenu = popThumbOptionsEx
      TabOrder = 2
      object lblThumbnailClipping: TLabel
        Left = 16
        Top = 142
        Width = 104
        Height = 13
        Caption = 'Thumbnail Clipping:'
      end
      object lblPercent: TLabel
        Left = 181
        Top = 142
        Width = 9
        Height = 13
        Caption = '%'
      end
      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 lblThumbSize: TLabel
        Left = 16
        Top = 116
        Width = 80
        Height = 13
        Caption = 'Thumbnail Size:'
      end
      object lblX: TLabel
        Left = 156
        Top = 116
        Width = 11
        Height = 13
        Caption = ' x '
      end
      object lblThumbOptionsEx: TLabel
        Left = 232
        Top = 168
        Width = 27
        Height = 13
        Cursor = crHandPoint
        Caption = 'More'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Segoe UI'
        Font.Style = [fsUnderline]
        ParentFont = False
        OnMouseDown = lblThumbOptionsExMouseDown
      end
      object chkSoftShadow: TCheckBox
        Left = 16
        Top = 167
        Width = 97
        Height = 17
        Caption = 'Soft Shadow'
        Checked = True
        State = cbChecked
        TabOrder = 10
        OnClick = chkSoftShadowClick
      end
      object btnSetClipping: TButton
        Left = 260
        Top = 136
        Width = 77
        Height = 25
        Caption = 'Update Size'
        Enabled = False
        TabOrder = 9
        OnClick = btnSetClippingClick
      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'
          'File Extension')
      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'
          'File Extension')
      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'
          'File Extension')
      end
      object chkShowFileHint: TCheckBox
        Left = 119
        Top = 167
        Width = 97
        Height = 17
        Caption = 'Show File Hint'
        TabOrder = 11
        OnClick = chkShowFileHintClick
      end
      object edtThumbWidth: TEdit
        Left = 102
        Top = 112
        Width = 33
        Height = 21
        ReadOnly = True
        TabOrder = 3
        Text = '130'
        OnChange = spnClippingChange
      end
      object updThumbWidth: TUpDown
        Left = 135
        Top = 112
        Width = 16
        Height = 21
        Associate = edtThumbWidth
        Min = 10
        Max = 1000
        Increment = 10
        Position = 130
        TabOrder = 4
      end
      object edtThumbHeight: TEdit
        Left = 173
        Top = 112
        Width = 33
        Height = 21
        ReadOnly = True
        TabOrder = 5
        Text = '130'
        OnChange = spnClippingChange
      end
      object updThumbHeight: TUpDown
        Left = 206
        Top = 112
        Width = 16
        Height = 21
        Associate = edtThumbHeight
        Min = 10
        Max = 1000
        Increment = 10
        Position = 130
        TabOrder = 6
      end
      object edtClipping: TEdit
        Left = 126
        Top = 138
        Width = 33
        Height = 21
        ReadOnly = True
        TabOrder = 7
        Text = '0'
        OnChange = spnClippingChange
      end
      object updClipping: TUpDown
        Left = 159
        Top = 138
        Width = 16
        Height = 21
        Associate = edtClipping
        Increment = 5
        TabOrder = 8
      end
    end
    object grpPreview: TGroupBox
      Left = 6
      Top = 523
      Width = 419
      Height = 263
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = 'Preview'
      TabOrder = 4
      object pnlPreview: TPanel
        Left = 2
        Top = 15
        Width = 415
        Height = 246
        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 = 218
          Background = clWindow
          LegacyBitmap = True
          ZoomFilter = rfFastLinear
          AutoShrink = True
          EnableInteractionHints = True
          Align = alClient
          TabOrder = 1
        end
      end
    end
    object grpFolderSettings: TGroupBox
      Left = 6
      Top = 154
      Width = 419
      Height = 94
      Anchors = [akLeft, akTop, akRight]
      Caption = 'Folder Settings'
      TabOrder = 1
      object lblSorting: TLabel
        Left = 16
        Top = 24
        Width = 41
        Height = 13
        Caption = 'Sorting:'
      end
      object chkAscending: TCheckBox
        Left = 260
        Top = 22
        Width = 97
        Height = 17
        Caption = 'Ascending'
        TabOrder = 1
        OnClick = chkAscendingClick
      end
      object chkMonitorFolder: TCheckBox
        Left = 16
        Top = 48
        Width = 169
        Height = 17
        Caption = 'Monitor Folder Changes'
        TabOrder = 2
        OnClick = chkMonitorFolderClick
      end
      object chkUseSystemPopup: TCheckBox
        Left = 16
        Top = 69
        Width = 153
        Height = 17
        Caption = 'Use System Popup Menu'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = chkUseSystemPopupClick
      end
      object chkDragDrop: TCheckBox
        Left = 196
        Top = 48
        Width = 153
        Height = 17
        Caption = 'Drag drop from Explorer'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = chkDragDropClick
      end
      object cmbSorting: TComboBox
        Left = 74
        Top = 20
        Width = 167
        Height = 21
        Style = csDropDownList
        DropDownCount = 15
        ItemHeight = 13
        TabOrder = 0
        OnChange = cmbSortingChange
        Items.Strings = (
          'Filename'
          'TopText'
          'BottomText'
          'InfoText'
          'ImageSize'
          'Filename without Path'
          'File Extension'
          'File Size'
          'Create Date'
          'Edit Date'
          'File Type')
      end
      object chkEnableSpecialFolders: TCheckBox
        Left = 196
        Top = 69
        Width = 153
        Height = 17
        Caption = 'Enable Special Folders'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = chkEnableSpecialFoldersClick
      end
    end
    object grpFileOpSettings: TGroupBox
      Left = 6
      Top = 453
      Width = 419
      Height = 64
      Anchors = [akLeft, akTop, akRight]
      Caption = 'File Operation Options'
      TabOrder = 3
      object chkShowConfirmation: TCheckBox
        Left = 16
        Top = 18
        Width = 137
        Height = 17
        Caption = 'Show Confirmation'
        TabOrder = 0
        OnClick = FileOpCtrlClick
      end
      object chkShowProgress: TCheckBox
        Left = 158
        Top = 18
        Width = 137
        Height = 17
        Caption = 'Show Progress'
        TabOrder = 1
        OnClick = FileOpCtrlClick
      end
      object chkVerboseErrors: TCheckBox
        Left = 158
        Top = 39
        Width = 137
        Height = 17
        Caption = 'Verbose Errors'
        TabOrder = 3
        OnClick = FileOpCtrlClick
      end
      object chkSendToRecycleBin: TCheckBox
        Left = 16
        Top = 39
        Width = 137
        Height = 17
        Caption = 'Send to Recycle Bin'
        TabOrder = 2
        OnClick = FileOpCtrlClick
      end
    end
  end
  object tmrUpdatePreview: TTimer
    Enabled = False
    Interval = 250
    OnTimer = tmrUpdatePreviewTimer
    Left = 64
    Top = 24
  end
  object popSettings: TPopupMenu
    Left = 168
    Top = 24
    object pupLoadSettings: TMenuItem
      Caption = 'Load Settings from Registry'
      OnClick = pupLoadSettingsClick
    end
    object popSaveSettings: TMenuItem
      Caption = 'Save Settings to Registry'
      OnClick = popSaveSettingsClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object pupIncludeSubFolders: TMenuItem
      Caption = 'Include Sub-Folders'
      OnClick = pupIncludeSubFoldersClick
    end
  end
  object popThumbOptionsEx: TPopupMenu
    OnPopup = popThumbOptionsExPopup
    Left = 264
    Top = 24
    object pitShowIconForUnknownFormat: TMenuItem
      Caption = 'Show Icon for Unknown Format'
      OnClick = pitShowShadowForFoldersClick
    end
    object pitShowIconWhileLoading: TMenuItem
      Caption = 'Show Icon while Loading'
      OnClick = pitShowShadowForFoldersClick
    end
    object pitShowShadowForIcons: TMenuItem
      Caption = 'Show Shadow for Icons'
      OnClick = pitShowShadowForFoldersClick
    end
    object pitShowShadowForFolders: TMenuItem
      Caption = 'Show Shadow for Folders'
      OnClick = pitShowShadowForFoldersClick
    end
  end
end