669 lines
16 KiB
Plaintext
669 lines
16 KiB
Plaintext
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
|