103 lines
2.4 KiB
Plaintext
103 lines
2.4 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 252
|
|
Top = 172
|
|
Caption = 'Thumbnails with Checkboxes - www.ImageEn.com'
|
|
ClientHeight = 461
|
|
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
|
|
OnDestroy = FormDestroy
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object GroupBox1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 164
|
|
Height = 461
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 370
|
|
Width = 145
|
|
Height = 83
|
|
AutoSize = False
|
|
Caption =
|
|
'Note: This demo shows custom drawing onto a TImageEnMView. If yo' +
|
|
'u only require checkboxes, use the TImageEnMView.Checkboxes prop' +
|
|
'erty'
|
|
WordWrap = True
|
|
end
|
|
object DriveComboBox1: TDriveComboBox
|
|
Left = 8
|
|
Top = 11
|
|
Width = 145
|
|
Height = 19
|
|
DirList = DirectoryListBox1
|
|
TabOrder = 0
|
|
end
|
|
object DirectoryListBox1: TDirectoryListBox
|
|
Left = 8
|
|
Top = 40
|
|
Width = 145
|
|
Height = 297
|
|
ItemHeight = 16
|
|
TabOrder = 1
|
|
OnChange = DirectoryListBox1Change
|
|
end
|
|
object chkCustomDraw: TCheckBox
|
|
Left = 8
|
|
Top = 343
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Custom Draw'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
OnClick = chkCustomDrawClick
|
|
end
|
|
end
|
|
object ImageEnMView1: TImageEnMView
|
|
Left = 164
|
|
Top = 0
|
|
Width = 690
|
|
Height = 461
|
|
Background = clBtnFace
|
|
StoreType = ietThumb
|
|
ThumbWidth = 150
|
|
ThumbHeight = 150
|
|
HorizBorder = 4
|
|
VertBorder = 4
|
|
TextMargin = 3
|
|
OnImageAtPos = ImageEnMView1ImageAtPos
|
|
OnCreateImage = ImageEnMView1CreateImage
|
|
OnDestroyImage = ImageEnMView1DestroyImage
|
|
OnImageDraw2 = ImageEnMView1ImageDraw2
|
|
MouseInteract = [mmiScroll, mmiSelect]
|
|
GridWidth = -1
|
|
SelectionWidth = 3
|
|
SelectionColor = clGreen
|
|
Style = iemsFlat
|
|
ThumbnailsBackground = clBtnFace
|
|
ThumbnailsBackgroundSelected = clBtnFace
|
|
EnableMultiSelect = True
|
|
MultiSelectionOptions = []
|
|
ThumbnailsBorderWidth = 0
|
|
ThumbnailsBorderColor = clBlack
|
|
WallPaperStyle = iewoTile
|
|
Align = alClient
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnMouseDown = ImageEnMView1MouseDown
|
|
end
|
|
end
|