388 lines
11 KiB
Plaintext
388 lines
11 KiB
Plaintext
object JvThumbnailMainForm: TJvThumbnailMainForm
|
|
Left = 106
|
|
Top = 59
|
|
Width = 893
|
|
Height = 647
|
|
Caption = 'JvThumbView Demo'
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 430
|
|
Constraints.MinWidth = 760
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 885
|
|
Height = 596
|
|
ActivePage = TabSheet1
|
|
Align = alClient
|
|
TabOrder = 0
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'ThumbView Component'
|
|
object Splitter1: TSplitter
|
|
Left = 153
|
|
Top = 46
|
|
Width = 3
|
|
Height = 522
|
|
Cursor = crHSplit
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 877
|
|
Height = 46
|
|
Align = alTop
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 148
|
|
Top = 3
|
|
Width = 150
|
|
Height = 17
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'Thumbnail size'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 2
|
|
Top = 5
|
|
Width = 145
|
|
Height = 15
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'Select Drive'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 612
|
|
Top = 3
|
|
Width = 61
|
|
Height = 16
|
|
Hint = 'Change the thumbgup to change the space between the thumbnails '
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'Gap:'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
end
|
|
object Label4: TLabel
|
|
Left = 677
|
|
Top = 4
|
|
Width = 61
|
|
Height = 16
|
|
Hint = 'Change the selected to select the Nth element in the list.'
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'Selected:'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 148
|
|
Top = 15
|
|
Width = 150
|
|
Height = 28
|
|
Hint =
|
|
'Change the size property to change the size of the thumbs it acc' +
|
|
'epts values for 10..100'
|
|
Max = 100
|
|
Min = 10
|
|
Orientation = trHorizontal
|
|
ParentShowHint = False
|
|
PageSize = 10
|
|
Frequency = 10
|
|
Position = 100
|
|
SelEnd = 0
|
|
SelStart = 0
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
TickMarks = tmTopLeft
|
|
TickStyle = tsNone
|
|
OnChange = TrackBar1Change
|
|
end
|
|
object DriveComboBox1: TJvDriveCombo
|
|
Left = 2
|
|
Top = 22
|
|
Width = 145
|
|
Height = 22
|
|
DriveTypes = [dtFixed, dtRemote, dtCDROM]
|
|
Offset = 4
|
|
ItemHeight = 16
|
|
TabOrder = 1
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 304
|
|
Top = 2
|
|
Width = 103
|
|
Height = 17
|
|
Hint =
|
|
'Set AutoScrolling to true to let the Thumbview component scroll ' +
|
|
'the selected thumb into the screen automatically'
|
|
Caption = 'AutoScrolling'
|
|
Checked = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
State = cbChecked
|
|
TabOrder = 2
|
|
OnClick = CheckBox1Click
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
Left = 304
|
|
Top = 24
|
|
Width = 103
|
|
Height = 17
|
|
Hint =
|
|
'Set AutoHandlekeyb to true to let the Thumbview Cupture the curs' +
|
|
'or key and navigate through the view using them'
|
|
Caption = 'AutoHandleKeyb'
|
|
Checked = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
State = cbChecked
|
|
TabOrder = 3
|
|
OnClick = CheckBox2Click
|
|
end
|
|
object SpinEdit1: TSpinEdit
|
|
Left = 611
|
|
Top = 21
|
|
Width = 64
|
|
Height = 22
|
|
Hint = 'Change the thumbgup to change the space between the thumbnails '
|
|
MaxLength = 3
|
|
MaxValue = 300
|
|
MinValue = 1
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 4
|
|
Value = 1
|
|
OnChange = SpinEdit1Change
|
|
end
|
|
object SpinEdit2: TSpinEdit
|
|
Left = 676
|
|
Top = 20
|
|
Width = 64
|
|
Height = 22
|
|
Hint = 'Change the thumbgup to change the space between the thumbnails '
|
|
MaxValue = 0
|
|
MinValue = 0
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
Value = 0
|
|
OnChange = SpinEdit2Change
|
|
end
|
|
object CheckBox3: TCheckBox
|
|
Left = 411
|
|
Top = 2
|
|
Width = 58
|
|
Height = 17
|
|
Hint =
|
|
'Set Sorted to true to sort the files found in the directory by n' +
|
|
'ame (other posibilities in the next version)'
|
|
Caption = 'Sorted'
|
|
Checked = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
State = cbChecked
|
|
TabOrder = 6
|
|
end
|
|
object CheckBox4: TCheckBox
|
|
Left = 411
|
|
Top = 24
|
|
Width = 103
|
|
Height = 17
|
|
Hint =
|
|
'Set Sorted to true to sort the files found in the directory by n' +
|
|
'ame (other posibilities in the next version)'
|
|
Caption = 'MinMemory'
|
|
Checked = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
State = cbChecked
|
|
TabOrder = 7
|
|
OnClick = CheckBox4Click
|
|
end
|
|
object Button1: TButton
|
|
Left = 489
|
|
Top = 3
|
|
Width = 117
|
|
Height = 20
|
|
Caption = 'Stop Loading'
|
|
Enabled = False
|
|
TabOrder = 8
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 489
|
|
Top = 24
|
|
Width = 117
|
|
Height = 20
|
|
Caption = 'Edit Selected Thumb'
|
|
TabOrder = 9
|
|
OnClick = Button2Click
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 46
|
|
Width = 153
|
|
Height = 522
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel2'
|
|
TabOrder = 1
|
|
object DirectoryListBox1: TJvDirectoryListBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 153
|
|
Height = 331
|
|
Hint =
|
|
'Set the directory property to the directory where your images lo' +
|
|
'cated and wach the thumbview creating this thumbs'
|
|
Align = alClient
|
|
Directory = 'C:\'
|
|
DriveCombo = DriveComboBox1
|
|
ItemHeight = 16
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
OnChange = DirectoryListBox1Change
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Left = 0
|
|
Top = 331
|
|
Width = 153
|
|
Height = 86
|
|
Hint =
|
|
'Change the AlignView property to either use the thumbGup (VTNorm' +
|
|
'al) autocalculate the empty space to equall parts(VTSPACEEQUAL) ' +
|
|
'or Cender the thumbs in the using the htumbgup between them.'
|
|
Align = alBottom
|
|
Caption = ' AlignView '
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'VTNormal'
|
|
'VTCenter'
|
|
'VTFitToScreen')
|
|
TabOrder = 1
|
|
OnClick = RadioGroup1Click
|
|
end
|
|
object RadioGroup2: TRadioGroup
|
|
Left = 0
|
|
Top = 417
|
|
Width = 153
|
|
Height = 105
|
|
Hint =
|
|
'Change the ScrollMode to change the direction the thumb are scro' +
|
|
'lling in the screen SMVertical You will see a vertical scrollbar' +
|
|
' SMHorizontal For A horizontal ScrollBar or SMBoth to create a s' +
|
|
'quare view '
|
|
Align = alBottom
|
|
Caption = ' ScrollMode '
|
|
ItemIndex = 2
|
|
Items.Strings = (
|
|
'SMHorizontal'
|
|
'SMVertical'
|
|
'SMBoth')
|
|
TabOrder = 2
|
|
OnClick = RadioGroup2Click
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 156
|
|
Top = 46
|
|
Width = 721
|
|
Height = 522
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel3'
|
|
TabOrder = 2
|
|
object Panel4: TPanel
|
|
Left = 0
|
|
Top = 506
|
|
Width = 721
|
|
Height = 16
|
|
Hint =
|
|
'Read the selectedFile property to get the path+filename of the s' +
|
|
'elected thumb'
|
|
Align = alBottom
|
|
BevelOuter = bvLowered
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
end
|
|
object THumbview1: TJvThumbView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 721
|
|
Height = 506
|
|
HorzScrollBar.Tracking = True
|
|
VertScrollBar.Tracking = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
TabStop = True
|
|
OnDblClick = THumbview1DblClick
|
|
OnMouseUp = THumbview1MouseUp
|
|
AlignView = vtNormal
|
|
AutoScrolling = True
|
|
ThumbGap = 4
|
|
AutoHandleKeyb = True
|
|
MinMemory = True
|
|
MaxWidth = 200
|
|
MaxHeight = 200
|
|
Size = 100
|
|
ScrollMode = smHorizontal
|
|
Sorted = True
|
|
OnStartScanning = THumbview1StartScanning
|
|
OnStopScanning = THumbview1StopScanning
|
|
OnScanProgress = THumbview1ScanProgress
|
|
OnChange = THumbview1Change
|
|
OnKeyUp = THumbview1keyup
|
|
AsButtons = False
|
|
Filter =
|
|
'Portable Graphics Network (*.png)|*.png|PCX Image (*.pcx)|*.pcx|' +
|
|
'ANI Image (*.ani)|*.ani|JPEG Image File (*.jpg)|*.jpg|Bitmaps (*' +
|
|
'.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' +
|
|
'|Metafiles (*.wmf)|*.wmf'
|
|
ThumbColor = clNone
|
|
ShowShadow = False
|
|
ShadowColor = clBlack
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 596
|
|
Width = 885
|
|
Height = 24
|
|
Align = alBottom
|
|
BorderWidth = 2
|
|
TabOrder = 1
|
|
object Bevel1: TBevel
|
|
Left = 3
|
|
Top = 3
|
|
Width = 291
|
|
Height = 18
|
|
Align = alLeft
|
|
end
|
|
object JvSpecialProgress1: TJvSpecialProgress
|
|
Left = 5
|
|
Top = 5
|
|
Width = 284
|
|
Height = 13
|
|
EndColor = clNavy
|
|
HintColor = clBtnFace
|
|
Solid = True
|
|
Step = 0
|
|
end
|
|
end
|
|
end
|