232 lines
4.8 KiB
Plaintext
232 lines
4.8 KiB
Plaintext
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
|