290 lines
6.1 KiB
Plaintext
290 lines
6.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 309
|
|
Top = 147
|
|
Width = 823
|
|
Height = 751
|
|
ActiveControl = ImageEnMView1
|
|
Caption = 'Thumbnail Demo (www.ImageEn.com)'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 534
|
|
Top = 0
|
|
Height = 713
|
|
Align = alRight
|
|
Beveled = True
|
|
Visible = False
|
|
end
|
|
object Splitter2: TSplitter
|
|
Left = 164
|
|
Top = 0
|
|
Height = 713
|
|
Beveled = True
|
|
end
|
|
object GroupBox1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 164
|
|
Height = 713
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object lblOptions: TLabel
|
|
Left = 8
|
|
Top = 470
|
|
Width = 43
|
|
Height = 13
|
|
Caption = 'Options'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblStyle: TLabel
|
|
Left = 8
|
|
Top = 323
|
|
Width = 29
|
|
Height = 13
|
|
Caption = 'Style'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object lblZoom: TLabel
|
|
Left = 16
|
|
Top = 436
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Zoom:'
|
|
end
|
|
object DriveComboBox1: TDriveComboBox
|
|
Left = 8
|
|
Top = 13
|
|
Width = 145
|
|
Height = 19
|
|
DirList = DirectoryListBox1
|
|
TabOrder = 0
|
|
end
|
|
object DirectoryListBox1: TDirectoryListBox
|
|
Left = 8
|
|
Top = 40
|
|
Width = 145
|
|
Height = 277
|
|
ItemHeight = 16
|
|
TabOrder = 1
|
|
OnChange = DirectoryListBox1Change
|
|
end
|
|
object chkSoftShadow: TCheckBox
|
|
Left = 16
|
|
Top = 342
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Soft Shadow'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
OnClick = chkSoftShadowClick
|
|
end
|
|
object chkWallpaper: TCheckBox
|
|
Left = 16
|
|
Top = 365
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Wallpaper'
|
|
TabOrder = 3
|
|
OnClick = chkWallpaperClick
|
|
end
|
|
object chkShowText: TCheckBox
|
|
Left = 16
|
|
Top = 388
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Show Text'
|
|
TabOrder = 4
|
|
OnClick = chkShowTextClick
|
|
end
|
|
object chkShowPreview: TCheckBox
|
|
Left = 16
|
|
Top = 490
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Show Preview'
|
|
TabOrder = 8
|
|
OnClick = chkShowPreviewClick
|
|
end
|
|
object Button1: TButton
|
|
Left = 38
|
|
Top = 582
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Sort By Size'
|
|
TabOrder = 12
|
|
OnClick = Button1Click
|
|
end
|
|
object chkExplorerColors: TCheckBox
|
|
Left = 16
|
|
Top = 411
|
|
Width = 97
|
|
Height = 19
|
|
Caption = 'Explorer Colors'
|
|
TabOrder = 5
|
|
OnClick = chkExplorerColorsClick
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 16
|
|
Top = 621
|
|
Width = 134
|
|
Height = 65
|
|
Caption = ' Debug '
|
|
TabOrder = 13
|
|
object Label1: TLabel
|
|
Left = 14
|
|
Top = 18
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Jobs running:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 86
|
|
Top = 18
|
|
Width = 6
|
|
Height = 13
|
|
Caption = '0'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 14
|
|
Top = 42
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Jobs Waiting:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 86
|
|
Top = 42
|
|
Width = 6
|
|
Height = 13
|
|
Caption = '0'
|
|
end
|
|
end
|
|
object chkLookAhead: TCheckBox
|
|
Left = 16
|
|
Top = 559
|
|
Width = 134
|
|
Height = 17
|
|
Caption = 'Look ahead (Pre-load)'
|
|
TabOrder = 11
|
|
OnClick = chkLookAheadClick
|
|
end
|
|
object chkAutoRotate: TCheckBox
|
|
Left = 16
|
|
Top = 513
|
|
Width = 126
|
|
Height = 17
|
|
Caption = 'Auto-rotate Thumbs'
|
|
TabOrder = 9
|
|
OnClick = chkAutoRotateClick
|
|
end
|
|
object chkLoadEXIFThumbs: TCheckBox
|
|
Left = 16
|
|
Top = 536
|
|
Width = 126
|
|
Height = 17
|
|
Caption = 'Use EXIF Thumbs'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 10
|
|
OnClick = chkLoadEXIFThumbsClick
|
|
end
|
|
object edtZoom: TEdit
|
|
Left = 52
|
|
Top = 433
|
|
Width = 33
|
|
Height = 21
|
|
ReadOnly = True
|
|
TabOrder = 6
|
|
Text = '100'
|
|
OnChange = edtZoomChange
|
|
end
|
|
object updZoom: TUpDown
|
|
Left = 85
|
|
Top = 433
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtZoom
|
|
Min = 10
|
|
Max = 1000
|
|
Increment = 10
|
|
Position = 100
|
|
TabOrder = 7
|
|
end
|
|
end
|
|
object ImageEnMView1: TImageEnMView
|
|
Left = 167
|
|
Top = 0
|
|
Width = 367
|
|
Height = 713
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
StoreType = ietThumb
|
|
ThumbWidth = 150
|
|
ThumbHeight = 150
|
|
HorizBorder = 4
|
|
VertBorder = 4
|
|
TextMargin = 0
|
|
OnBeforeImageDraw = ImageEnMView1BeforeImageDraw
|
|
OnImageSelect = ImageEnMView1ImageSelect
|
|
MouseInteract = [mmiScroll, mmiSelect]
|
|
GridWidth = -1
|
|
SelectionColor = clRed
|
|
Style = iemsFlat
|
|
ThumbnailsBackground = clBtnFace
|
|
ThumbnailsBackgroundSelected = clBtnFace
|
|
MultiSelectionOptions = []
|
|
ThumbnailsBorderWidth = 0
|
|
ThumbnailsBorderColor = clBlack
|
|
WallPaperStyle = iewoTile
|
|
Align = alClient
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnMouseMove = ImageEnMView1MouseMove
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 537
|
|
Top = 0
|
|
Width = 270
|
|
Height = 713
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
AutoFit = True
|
|
BackgroundStyle = iebsGradient
|
|
EnableInteractionHints = True
|
|
Align = alRight
|
|
Visible = False
|
|
TabOrder = 2
|
|
end
|
|
object DebugTimer: TTimer
|
|
Interval = 100
|
|
OnTimer = DebugTimerTimer
|
|
Left = 118
|
|
Top = 594
|
|
end
|
|
end
|