132 lines
2.7 KiB
Plaintext
132 lines
2.7 KiB
Plaintext
object Form1: TForm1
|
|
Left = 242
|
|
Top = 247
|
|
ActiveControl = ImageEnMView1
|
|
Caption = 'Thumbnail Demo - www.ImageEn.com'
|
|
ClientHeight = 464
|
|
ClientWidth = 826
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 583
|
|
Top = 0
|
|
Height = 445
|
|
end
|
|
object GroupBox1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 164
|
|
Height = 445
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object DriveComboBox1: TDriveComboBox
|
|
Left = 8
|
|
Top = 6
|
|
Width = 145
|
|
Height = 19
|
|
DirList = DirectoryListBox1
|
|
TabOrder = 0
|
|
end
|
|
object DirectoryListBox1: TDirectoryListBox
|
|
Left = 8
|
|
Top = 34
|
|
Width = 145
|
|
Height = 296
|
|
ItemHeight = 16
|
|
TabOrder = 1
|
|
OnChange = DirectoryListBox1Change
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
Left = 24
|
|
Top = 352
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Soft Shadow'
|
|
TabOrder = 2
|
|
OnClick = CheckBox2Click
|
|
end
|
|
object CheckBox4: TCheckBox
|
|
Left = 24
|
|
Top = 376
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Wallpaper'
|
|
TabOrder = 3
|
|
OnClick = CheckBox4Click
|
|
end
|
|
object CheckBox7: TCheckBox
|
|
Left = 24
|
|
Top = 400
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Rounded'
|
|
TabOrder = 4
|
|
OnClick = CheckBox7Click
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 24
|
|
Top = 424
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Preview'
|
|
TabOrder = 5
|
|
OnClick = CheckBox1Click
|
|
end
|
|
end
|
|
object ImageEnMView1: TImageEnMView
|
|
Left = 164
|
|
Top = 0
|
|
Width = 419
|
|
Height = 445
|
|
StoreType = ietThumb
|
|
ThumbWidth = 150
|
|
ThumbHeight = 150
|
|
OnBeforeImageDrawEx = ImageEnMView1BeforeImageDrawEx
|
|
OnImageSelect = ImageEnMView1ImageSelect
|
|
MouseInteract = [mmiScroll, mmiSelect]
|
|
GridWidth = -1
|
|
SelectionWidth = 3
|
|
SelectionColor = clRed
|
|
Style = iemsFlat
|
|
EnableMultiSelect = True
|
|
ThumbnailsBorderColor = clBlack
|
|
WallPaperStyle = iewoTile
|
|
ImageEnVersion = '4.0.0'
|
|
Align = alLeft
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnMouseDown = ImageEnMView1MouseDown
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 445
|
|
Width = 826
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = False
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 586
|
|
Top = 0
|
|
Width = 240
|
|
Height = 445
|
|
AutoFit = True
|
|
BackgroundStyle = iebsGradient
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
Visible = False
|
|
TabOrder = 3
|
|
end
|
|
end
|