820 lines
18 KiB
Plaintext
820 lines
18 KiB
Plaintext
object Form1: TForm1
|
|
Left = 20
|
|
Top = 20
|
|
Caption = 'TImageEnMView Styles 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 ImageEnMView1: TImageEnFolderMView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 450
|
|
Height = 811
|
|
Background = clWindow
|
|
StoreType = ietFastThumb
|
|
ThumbWidth = 140
|
|
ThumbHeight = 120
|
|
HorizBorder = 8
|
|
VertBorder = 8
|
|
TextMargin = 3
|
|
OnImageSelect = ImageEnMView1ImageSelect
|
|
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
|
|
EnableSpecialFolders = True
|
|
DefaultFolder = iedfMyPictures
|
|
OnFolderChanged = ImageEnMView1FolderChanged
|
|
end
|
|
object pnlRight: TPanel
|
|
Left = 453
|
|
Top = 0
|
|
Width = 431
|
|
Height = 811
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
431
|
|
811)
|
|
object grpFolder: TGroupBox
|
|
Left = 6
|
|
Top = 3
|
|
Width = 419
|
|
Height = 89
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Folder'
|
|
TabOrder = 0
|
|
object lblFileTypes: TLabel
|
|
Left = 16
|
|
Top = 56
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'File Types:'
|
|
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 = 52
|
|
Width = 167
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
OnChange = cmbFileTypesChange
|
|
Items.Strings = (
|
|
'Images'
|
|
'Images and Videos'
|
|
'All Files'
|
|
'Custom')
|
|
end
|
|
object btnSelectFolder: TButton
|
|
Left = 328
|
|
Top = 19
|
|
Width = 80
|
|
Height = 26
|
|
Caption = 'Select Folder'
|
|
TabOrder = 1
|
|
OnClick = btnSelectFolderClick
|
|
end
|
|
object btnOpenParent: TButton
|
|
Left = 328
|
|
Top = 48
|
|
Width = 80
|
|
Height = 26
|
|
Caption = 'Go Up'
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnClick = btnOpenParentClick
|
|
end
|
|
end
|
|
object grpThumbSettings: TGroupBox
|
|
Left = 6
|
|
Top = 236
|
|
Width = 419
|
|
Height = 204
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Layout Settings'
|
|
TabOrder = 2
|
|
object lblThumbnailClipping: TLabel
|
|
Left = 200
|
|
Top = 59
|
|
Width = 104
|
|
Height = 13
|
|
Caption = 'Thumbnail Clipping:'
|
|
end
|
|
object lblPercent: TLabel
|
|
Left = 365
|
|
Top = 59
|
|
Width = 9
|
|
Height = 13
|
|
Caption = '%'
|
|
end
|
|
object lblThumbSize: TLabel
|
|
Left = 16
|
|
Top = 28
|
|
Width = 80
|
|
Height = 13
|
|
Caption = 'Thumbnail Size:'
|
|
end
|
|
object lblX: TLabel
|
|
Left = 165
|
|
Top = 28
|
|
Width = 11
|
|
Height = 13
|
|
Caption = ' x '
|
|
end
|
|
object lblThumbZoom: TLabel
|
|
Left = 16
|
|
Top = 59
|
|
Width = 89
|
|
Height = 13
|
|
Caption = 'Thumbnail Zoom:'
|
|
end
|
|
object lblBottomGap: TLabel
|
|
Left = 152
|
|
Top = 122
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Bottom Gap:'
|
|
end
|
|
object lblUpperGap: TLabel
|
|
Left = 16
|
|
Top = 122
|
|
Width = 59
|
|
Height = 13
|
|
Caption = 'Upper Gap:'
|
|
end
|
|
object lblSideGap: TLabel
|
|
Left = 295
|
|
Top = 122
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Side Gap:'
|
|
end
|
|
object lblTextMargin: TLabel
|
|
Left = 158
|
|
Top = 152
|
|
Width = 62
|
|
Height = 13
|
|
Caption = 'Text Margin:'
|
|
end
|
|
object lblVertBorder: TLabel
|
|
Left = 16
|
|
Top = 90
|
|
Width = 84
|
|
Height = 13
|
|
Caption = 'Vertical Spacing:'
|
|
end
|
|
object lblHorizBorder: TLabel
|
|
Left = 204
|
|
Top = 90
|
|
Width = 101
|
|
Height = 13
|
|
Caption = 'Horizontal Spacing:'
|
|
end
|
|
object Label1: TLabel
|
|
Left = 166
|
|
Top = 59
|
|
Width = 9
|
|
Height = 13
|
|
Caption = '%'
|
|
end
|
|
object lblTextWidthAuto: TLabel
|
|
Left = 80
|
|
Top = 172
|
|
Width = 49
|
|
Height = 13
|
|
Caption = '(-1=Auto)'
|
|
end
|
|
object lblTextWidth: TLabel
|
|
Left = 16
|
|
Top = 152
|
|
Width = 57
|
|
Height = 13
|
|
Caption = 'Text Width:'
|
|
end
|
|
object btnSetLayout: TButton
|
|
Left = 296
|
|
Top = 167
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'Update Layout'
|
|
Enabled = False
|
|
TabOrder = 6
|
|
OnClick = btnSetLayoutClick
|
|
end
|
|
object edtThumbWidth: TEdit
|
|
Left = 111
|
|
Top = 24
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '130'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updThumbWidth: TUpDown
|
|
Left = 144
|
|
Top = 24
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtThumbWidth
|
|
Min = 10
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = 130
|
|
TabOrder = 1
|
|
end
|
|
object edtThumbHeight: TEdit
|
|
Left = 182
|
|
Top = 24
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = '130'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updThumbHeight: TUpDown
|
|
Left = 215
|
|
Top = 24
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtThumbHeight
|
|
Min = 10
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = 130
|
|
TabOrder = 3
|
|
end
|
|
object edtClipping: TEdit
|
|
Left = 310
|
|
Top = 55
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 4
|
|
Text = '0'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updClipping: TUpDown
|
|
Left = 343
|
|
Top = 55
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtClipping
|
|
Increment = 5
|
|
TabOrder = 5
|
|
end
|
|
object edtThumbZoom: TEdit
|
|
Left = 111
|
|
Top = 55
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 7
|
|
Text = '100'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updThumbZoom: TUpDown
|
|
Left = 144
|
|
Top = 55
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtThumbZoom
|
|
Min = 1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = 100
|
|
TabOrder = 8
|
|
end
|
|
object edtBottomGap: TEdit
|
|
Left = 223
|
|
Top = 118
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 9
|
|
Text = '1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updBottomGap: TUpDown
|
|
Left = 256
|
|
Top = 118
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtBottomGap
|
|
Min = 1
|
|
Max = 1000
|
|
Position = 1
|
|
TabOrder = 10
|
|
end
|
|
object edtUpperGap: TEdit
|
|
Left = 81
|
|
Top = 118
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 11
|
|
Text = '1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updUpperGap: TUpDown
|
|
Left = 114
|
|
Top = 118
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtUpperGap
|
|
Min = 1
|
|
Max = 1000
|
|
Position = 1
|
|
TabOrder = 12
|
|
end
|
|
object edtSideGap: TEdit
|
|
Left = 350
|
|
Top = 118
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 13
|
|
Text = '1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updSideGap: TUpDown
|
|
Left = 383
|
|
Top = 118
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtSideGap
|
|
Min = 1
|
|
Max = 1000
|
|
Position = 1
|
|
TabOrder = 14
|
|
end
|
|
object edtTextMargin: TEdit
|
|
Left = 223
|
|
Top = 148
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 15
|
|
Text = '1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updTextMargin: TUpDown
|
|
Left = 256
|
|
Top = 148
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtTextMargin
|
|
Min = 1
|
|
Max = 1000
|
|
Position = 1
|
|
TabOrder = 16
|
|
end
|
|
object edtVertBorder: TEdit
|
|
Left = 111
|
|
Top = 86
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 17
|
|
Text = '1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updVertBorder: TUpDown
|
|
Left = 144
|
|
Top = 86
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtVertBorder
|
|
Min = 1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = 1
|
|
TabOrder = 18
|
|
end
|
|
object edtHorizBorder: TEdit
|
|
Left = 311
|
|
Top = 86
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 19
|
|
Text = '1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updHorizBorder: TUpDown
|
|
Left = 344
|
|
Top = 86
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtHorizBorder
|
|
Min = 1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = 1
|
|
TabOrder = 20
|
|
end
|
|
object edtTextWidth: TEdit
|
|
Left = 81
|
|
Top = 148
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 21
|
|
Text = '-1'
|
|
OnChange = spnClippingChange
|
|
end
|
|
object updTextWidth: TUpDown
|
|
Left = 114
|
|
Top = 148
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtTextWidth
|
|
Min = -1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = -1
|
|
TabOrder = 22
|
|
end
|
|
end
|
|
object grpPreview: TGroupBox
|
|
Left = 6
|
|
Top = 622
|
|
Width = 419
|
|
Height = 184
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Caption = 'Preview'
|
|
TabOrder = 3
|
|
object pnlPreview: TPanel
|
|
Left = 2
|
|
Top = 15
|
|
Width = 415
|
|
Height = 167
|
|
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 = 139
|
|
Background = clWindow
|
|
LegacyBitmap = False
|
|
ZoomFilter = rfFastLinear
|
|
AutoShrink = True
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object grpDisplayStyle: TGroupBox
|
|
Left = 6
|
|
Top = 99
|
|
Width = 419
|
|
Height = 129
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Display Style'
|
|
TabOrder = 1
|
|
object rdbShowThumbs: TRadioButton
|
|
Left = 16
|
|
Top = 62
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'Show Thumbnails'
|
|
TabOrder = 0
|
|
OnClick = rdbShowThumbsClick
|
|
end
|
|
object rdbShowDetails: TRadioButton
|
|
Left = 16
|
|
Top = 41
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'Show Details'
|
|
TabOrder = 1
|
|
OnClick = rdbShowDetailsClick
|
|
end
|
|
object rdbShowColumns: TRadioButton
|
|
Left = 16
|
|
Top = 104
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'Show Columns'
|
|
TabOrder = 2
|
|
OnClick = rdbShowColumnsClick
|
|
end
|
|
object rdbShowLargeThumbs: TRadioButton
|
|
Left = 16
|
|
Top = 83
|
|
Width = 217
|
|
Height = 17
|
|
Caption = 'Show Large Thumbnails'
|
|
TabOrder = 3
|
|
OnClick = rdbShowLargeThumbsClick
|
|
end
|
|
object rdbShowFileList: TRadioButton
|
|
Left = 16
|
|
Top = 20
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'Show File List'
|
|
TabOrder = 4
|
|
OnClick = rdbShowFileListClick
|
|
end
|
|
end
|
|
object grpOtherSettings: TGroupBox
|
|
Left = 6
|
|
Top = 448
|
|
Width = 419
|
|
Height = 166
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Other Settings'
|
|
TabOrder = 4
|
|
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 lblTopWidth: TLabel
|
|
Left = 264
|
|
Top = 25
|
|
Width = 35
|
|
Height = 13
|
|
Caption = 'Width:'
|
|
end
|
|
object lblInfoWidth: TLabel
|
|
Left = 264
|
|
Top = 52
|
|
Width = 35
|
|
Height = 13
|
|
Caption = 'Width:'
|
|
end
|
|
object lblBottomWidth: TLabel
|
|
Left = 264
|
|
Top = 79
|
|
Width = 35
|
|
Height = 13
|
|
Caption = 'Width:'
|
|
end
|
|
object lblWidthAuto: TLabel
|
|
Left = 304
|
|
Top = 102
|
|
Width = 49
|
|
Height = 13
|
|
Caption = '(-1=Auto)'
|
|
end
|
|
object chkSoftShadow: TCheckBox
|
|
Left = 16
|
|
Top = 119
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Soft Shadow'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 3
|
|
OnClick = chkSoftShadowClick
|
|
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')
|
|
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')
|
|
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')
|
|
end
|
|
object chkCenterThumbs: TCheckBox
|
|
Left = 15
|
|
Top = 142
|
|
Width = 114
|
|
Height = 17
|
|
Caption = 'Center Columns'
|
|
TabOrder = 4
|
|
OnClick = chkCenterThumbsClick
|
|
end
|
|
object chkThumbnailBorder: TCheckBox
|
|
Left = 132
|
|
Top = 119
|
|
Width = 162
|
|
Height = 17
|
|
Caption = 'Thumbnail Border'
|
|
TabOrder = 5
|
|
OnClick = chkThumbnailBorderClick
|
|
end
|
|
object edtTopWidth: TEdit
|
|
Left = 304
|
|
Top = 21
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = '-1'
|
|
OnChange = edtTopWidthChange
|
|
end
|
|
object updTopWidth: TUpDown
|
|
Left = 337
|
|
Top = 21
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtTopWidth
|
|
Min = -1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = -1
|
|
TabOrder = 7
|
|
end
|
|
object edtInfoWidth: TEdit
|
|
Left = 304
|
|
Top = 48
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 8
|
|
Text = '-1'
|
|
OnChange = edtInfoWidthChange
|
|
end
|
|
object updInfoWidth: TUpDown
|
|
Left = 337
|
|
Top = 48
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtInfoWidth
|
|
Min = -1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = -1
|
|
TabOrder = 9
|
|
end
|
|
object edtBottomWidth: TEdit
|
|
Left = 304
|
|
Top = 75
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 10
|
|
Text = '-1'
|
|
OnChange = edtBottomWidthChange
|
|
end
|
|
object updBottomWidth: TUpDown
|
|
Left = 337
|
|
Top = 75
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtBottomWidth
|
|
Min = -1
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = -1
|
|
TabOrder = 11
|
|
end
|
|
object chkIconsOnly: TCheckBox
|
|
Left = 132
|
|
Top = 142
|
|
Width = 114
|
|
Height = 17
|
|
Caption = 'Show Icons Only'
|
|
TabOrder = 12
|
|
OnClick = chkIconsOnlyClick
|
|
end
|
|
object chkExplorerThumbs: TCheckBox
|
|
Left = 262
|
|
Top = 142
|
|
Width = 147
|
|
Height = 17
|
|
Caption = 'Get Explorer Thumbnails'
|
|
TabOrder = 13
|
|
OnClick = chkExplorerThumbsClick
|
|
end
|
|
end
|
|
end
|
|
object tmrUpdatePreview: TTimer
|
|
Enabled = False
|
|
Interval = 250
|
|
OnTimer = tmrUpdatePreviewTimer
|
|
Left = 64
|
|
Top = 24
|
|
end
|
|
end
|