2018-03-23 00:10:05 +00:00
object JvThumbnailMainForm: TJvThumbnailMainForm
2020-01-17 23:53:43 +00:00
Left = 354
Height = 741
Top = 122
Width = 800
2018-03-23 00:10:05 +00:00
Caption = 'JvThumbView Demo'
2020-01-17 23:53:43 +00:00
ClientHeight = 741
ClientWidth = 800
2018-03-23 00:10:05 +00:00
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Color = clWindowText
OnShow = FormShow
Position = poScreenCenter
2019-05-29 23:35:34 +00:00
LCLVersion = '2.1.0.0'
2018-03-23 00:10:05 +00:00
Scaled = False
object PageControl1: TPageControl
Left = 0
2020-01-17 23:53:43 +00:00
Height = 717
2018-03-23 00:10:05 +00:00
Top = 0
2020-01-17 23:53:43 +00:00
Width = 800
2018-03-23 00:10:05 +00:00
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'ThumbView Component'
2020-01-17 23:53:43 +00:00
ClientHeight = 689
ClientWidth = 792
2018-03-23 00:10:05 +00:00
object Splitter1: TSplitter
2018-03-25 00:05:20 +00:00
Left = 205
2020-01-17 23:53:43 +00:00
Height = 629
2018-04-18 22:20:45 +00:00
Top = 60
2018-03-23 00:10:05 +00:00
Width = 3
end
object Panel1: TPanel
Left = 0
2018-04-18 22:20:45 +00:00
Height = 60
2018-03-23 00:10:05 +00:00
Top = 0
2020-01-17 23:53:43 +00:00
Width = 792
2018-03-23 00:10:05 +00:00
Align = alTop
AutoSize = True
BevelOuter = bvNone
2018-04-18 22:20:45 +00:00
ClientHeight = 60
2020-01-17 23:53:43 +00:00
ClientWidth = 792
2018-03-23 00:10:05 +00:00
TabOrder = 0
object LblThumbSize: TLabel
AnchorSideLeft.Control = TbThumbSize
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = TbThumbSize
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 8
Width = 150
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Caption = 'Thumbnail size'
ParentColor = False
end
object Label3: TLabel
2018-04-21 14:46:46 +00:00
AnchorSideLeft.Control = EdGap
AnchorSideRight.Control = EdGap
2018-03-23 00:10:05 +00:00
AnchorSideRight.Side = asrBottom
2020-01-17 23:53:43 +00:00
AnchorSideBottom.Control = BtnStopLoading
AnchorSideBottom.Side = asrBottom
Left = 631
Height = 15
2018-03-23 00:10:05 +00:00
Hint = 'Change the thumbgup to change the space between the thumbnails '
2020-01-17 23:53:43 +00:00
Top = 12
Width = 24
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
2018-03-23 00:10:05 +00:00
Caption = 'Gap:'
ParentColor = False
ParentShowHint = False
ShowHint = True
end
object Label4: TLabel
2018-04-21 14:46:46 +00:00
AnchorSideLeft.Control = EdSelected
2018-03-23 00:10:05 +00:00
AnchorSideTop.Control = Label3
2018-04-21 14:46:46 +00:00
AnchorSideRight.Control = EdSelected
2018-03-23 00:10:05 +00:00
AnchorSideRight.Side = asrBottom
2020-01-17 23:53:43 +00:00
Left = 711
Height = 15
2018-03-23 00:10:05 +00:00
Hint = 'Change the selected to select the Nth element in the list.'
2020-01-17 23:53:43 +00:00
Top = 12
Width = 47
2018-03-23 00:10:05 +00:00
Caption = 'Selected:'
ParentColor = False
ParentShowHint = False
ShowHint = True
end
object TbThumbSize: TTrackBar
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = LblThumbSize
AnchorSideTop.Side = asrBottom
Left = 0
Height = 28
Hint = 'Changes the size of the thumbs, it accepts values between 10 and 100'
Top = 25
Width = 150
Frequency = 10
Max = 100
Min = 10
OnChange = TbThumbSizeChange
PageSize = 10
Position = 100
TickMarks = tmTopLeft
TickStyle = tsNone
BorderSpacing.Top = 2
BorderSpacing.Bottom = 4
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object CbAutoScrolling: TCheckBox
AnchorSideLeft.Control = TbThumbSize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
2020-01-17 23:53:43 +00:00
Left = 174
2018-03-23 00:10:05 +00:00
Height = 19
Hint = 'Set "AutoScrolling" to true to let the ThumbView component scroll the selected thumb into the screen automatically'
Top = 8
Width = 92
2020-01-17 23:53:43 +00:00
BorderSpacing.Left = 24
2018-03-23 00:10:05 +00:00
BorderSpacing.Top = 8
Caption = 'AutoScrolling'
Checked = True
OnClick = CbAutoScrollingClick
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 1
end
object CbAutoHandleKeyboard: TCheckBox
AnchorSideLeft.Control = TbThumbSize
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbAutoScrolling
AnchorSideTop.Side = asrBottom
2020-01-17 23:53:43 +00:00
Left = 174
2018-03-23 00:10:05 +00:00
Height = 19
Hint = 'Set "AutoHandlekeyboard" to true to let the Thumbview capture the cursor key and navigate through the view using them'
Top = 31
Width = 134
2020-01-17 23:53:43 +00:00
BorderSpacing.Left = 24
2018-03-23 00:10:05 +00:00
BorderSpacing.Top = 4
Caption = 'AutoHandleKeyboard'
Checked = True
OnClick = CbAutoHandleKeyboardClick
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 2
end
2018-04-21 14:46:46 +00:00
object EdGap: TSpinEdit
2018-03-23 00:10:05 +00:00
AnchorSideLeft.Control = BtnEditSelThumb
AnchorSideLeft.Side = asrBottom
2020-01-17 23:53:43 +00:00
AnchorSideTop.Control = BtnEditSelThumb
Left = 631
2018-03-23 00:10:05 +00:00
Height = 23
Hint = 'Changes the space between the thumbnails '
2020-01-17 23:53:43 +00:00
Top = 31
2018-03-23 00:10:05 +00:00
Width = 64
2020-01-17 23:53:43 +00:00
BorderSpacing.Left = 24
BorderSpacing.Bottom = 4
2018-03-23 00:10:05 +00:00
MaxValue = 300
MinValue = 1
2018-04-21 14:46:46 +00:00
OnChange = EdGapChange
2018-03-23 00:10:05 +00:00
ParentShowHint = False
ShowHint = True
TabOrder = 3
Value = 1
end
2018-04-21 14:46:46 +00:00
object EdSelected: TSpinEdit
AnchorSideLeft.Control = EdGap
2018-03-23 00:10:05 +00:00
AnchorSideLeft.Side = asrBottom
2018-04-21 14:46:46 +00:00
AnchorSideTop.Control = EdGap
2020-01-17 23:53:43 +00:00
Left = 711
2018-03-23 00:10:05 +00:00
Height = 23
Hint = 'Selects the thumbnail with this index'
2020-01-17 23:53:43 +00:00
Top = 31
2018-03-23 00:10:05 +00:00
Width = 64
BorderSpacing.Left = 16
2020-01-17 23:53:43 +00:00
BorderSpacing.Bottom = 4
2018-03-23 00:10:05 +00:00
MaxValue = 0
2018-04-21 14:46:46 +00:00
OnChange = EdSelectedChange
2018-03-23 00:10:05 +00:00
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object CbSorted: TCheckBox
AnchorSideLeft.Control = CbMinMemory
AnchorSideTop.Control = CbAutoScrolling
2020-01-17 23:53:43 +00:00
Left = 332
2018-03-23 00:10:05 +00:00
Height = 19
Hint = 'Set "Sorted" to true to sort the files found in the directory by name (other posibilities in the next version)'
Top = 8
Width = 54
Caption = 'Sorted'
Checked = True
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 5
end
object CbMinMemory: TCheckBox
AnchorSideLeft.Control = CbAutoHandleKeyboard
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbAutoHandleKeyboard
2020-01-17 23:53:43 +00:00
Left = 332
2018-03-23 00:10:05 +00:00
Height = 19
Top = 31
2018-03-23 19:44:39 +00:00
Width = 117
2020-01-17 23:53:43 +00:00
BorderSpacing.Left = 24
2018-03-23 19:44:39 +00:00
Caption = 'Minimize memory'
2018-03-23 00:10:05 +00:00
Checked = True
OnClick = CbMinMemoryClick
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 6
end
object BtnStopLoading: TButton
AnchorSideLeft.Control = BtnEditSelThumb
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = BtnEditSelThumb
AnchorSideRight.Side = asrBottom
2020-01-17 23:53:43 +00:00
Left = 473
2018-03-23 00:10:05 +00:00
Height = 25
2018-04-18 22:20:45 +00:00
Top = 4
2020-01-17 23:53:43 +00:00
Width = 134
2018-03-23 00:10:05 +00:00
Anchors = [akTop, akLeft, akRight]
AutoSize = True
2018-04-18 22:20:45 +00:00
BorderSpacing.Top = 4
2018-03-23 00:10:05 +00:00
Caption = 'Stop Loading'
Enabled = False
OnClick = BtnStopLoadingClick
TabOrder = 8
end
object BtnEditSelThumb: TButton
AnchorSideLeft.Control = CbMinMemory
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnStopLoading
AnchorSideTop.Side = asrBottom
2020-01-17 23:53:43 +00:00
Left = 473
2018-03-23 00:10:05 +00:00
Height = 25
2018-04-18 22:20:45 +00:00
Top = 31
2020-01-17 23:53:43 +00:00
Width = 134
2018-03-23 00:10:05 +00:00
AutoSize = True
2020-01-17 23:53:43 +00:00
BorderSpacing.Left = 24
2018-03-23 00:10:05 +00:00
BorderSpacing.Top = 2
BorderSpacing.Bottom = 4
Caption = 'Edit Selected Thumb'
OnClick = BtnEditSelThumbClick
TabOrder = 7
end
end
object Panel2: TPanel
Left = 0
2020-01-17 23:53:43 +00:00
Height = 629
2018-04-18 22:20:45 +00:00
Top = 60
2018-03-25 00:05:20 +00:00
Width = 205
2018-03-23 00:10:05 +00:00
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel2'
2020-01-17 23:53:43 +00:00
ClientHeight = 629
2018-03-25 00:05:20 +00:00
ClientWidth = 205
2018-03-23 00:10:05 +00:00
TabOrder = 1
object ShellTreeView: TShellTreeView
Left = 0
2020-01-17 23:53:43 +00:00
Height = 431
2018-03-23 00:10:05 +00:00
Hint = 'Set directory where your images are located and watch the thumbview creating the thumbs'
Top = 0
2018-03-25 00:05:20 +00:00
Width = 205
2018-03-23 00:10:05 +00:00
Align = alClient
2018-04-21 14:46:46 +00:00
FileSortType = fstAlphabet
2018-03-23 00:10:05 +00:00
HideSelection = False
2018-03-23 18:57:52 +00:00
Images = DataModule1.ImageList1
2018-03-23 00:10:05 +00:00
ReadOnly = True
TabOrder = 0
OnChange = ShellTreeViewChange
2018-03-23 18:57:52 +00:00
OnGetImageIndex = ShellTreeViewGetImageIndex
2018-04-21 23:25:49 +00:00
OnGetSelectedIndex = ShellTreeViewGetSelectedIndex
2018-03-23 00:10:05 +00:00
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders]
end
2018-04-21 14:46:46 +00:00
object GroupBox4: TGroupBox
2018-03-23 00:10:05 +00:00
Left = 0
2018-04-21 14:46:46 +00:00
Height = 190
2020-01-17 23:53:43 +00:00
Top = 439
2018-03-25 00:05:20 +00:00
Width = 205
2018-03-23 00:10:05 +00:00
Align = alBottom
AutoSize = True
BorderSpacing.Top = 8
2018-04-21 14:46:46 +00:00
Caption = 'File info'
ClientHeight = 170
2018-03-25 00:05:20 +00:00
ClientWidth = 201
2018-03-23 00:10:05 +00:00
TabOrder = 1
2018-04-21 14:46:46 +00:00
object LblFileSize: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = InfoFileName
AnchorSideTop.Side = asrBottom
Left = 12
Height = 15
Top = 34
Width = 23
BorderSpacing.Left = 12
Caption = 'Size:'
ParentColor = False
end
object InfoFileSize: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = LblFileSize
AnchorSideTop.Side = asrBottom
Left = 20
Height = 15
Top = 49
Width = 5
BorderSpacing.Left = 20
BorderSpacing.Bottom = 4
Caption = '-'
ParentColor = False
end
object LblDateCreated: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = InfoFileSize
AnchorSideTop.Side = asrBottom
Left = 12
Height = 15
Top = 68
Width = 69
BorderSpacing.Left = 12
BorderSpacing.Top = 4
Caption = 'Date created:'
ParentColor = False
end
object InfoDateCreated: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = LblDateCreated
AnchorSideTop.Side = asrBottom
Left = 20
Height = 15
Top = 83
Width = 5
BorderSpacing.Left = 20
BorderSpacing.Bottom = 4
Caption = '-'
ParentColor = False
end
object LblDateModified: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = InfoDateCreated
AnchorSideTop.Side = asrBottom
Left = 12
Height = 15
Top = 102
Width = 75
BorderSpacing.Left = 12
BorderSpacing.Top = 4
Caption = 'Date modified'
ParentColor = False
end
object InfoDateModified: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = LblDateModified
AnchorSideTop.Side = asrBottom
Left = 20
Height = 15
Top = 117
Width = 5
BorderSpacing.Left = 20
BorderSpacing.Bottom = 4
Caption = '-'
ParentColor = False
end
object LblDateAccessed: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = InfoDateModified
AnchorSideTop.Side = asrBottom
Left = 12
Height = 15
Top = 136
Width = 77
BorderSpacing.Left = 12
BorderSpacing.Top = 4
Caption = 'Date accessed:'
ParentColor = False
end
object InfoDateAccessed: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = LblDateAccessed
AnchorSideTop.Side = asrBottom
Left = 20
Height = 15
Top = 151
Width = 5
BorderSpacing.Left = 20
BorderSpacing.Bottom = 4
Caption = '-'
ParentColor = False
end
object LblFilename: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = GroupBox4
Left = 12
Height = 15
Top = 0
Width = 54
BorderSpacing.Left = 12
Caption = 'File name:'
ParentColor = False
end
object InfoFileName: TLabel
AnchorSideLeft.Control = GroupBox4
AnchorSideTop.Control = LblFilename
AnchorSideTop.Side = asrBottom
Left = 20
Height = 15
Top = 15
Width = 5
BorderSpacing.Left = 20
BorderSpacing.Bottom = 4
Caption = '-'
ParentColor = False
end
2018-03-23 00:10:05 +00:00
end
end
object Panel3: TPanel
2018-03-25 00:05:20 +00:00
Left = 208
2020-01-17 23:53:43 +00:00
Height = 629
2018-04-18 22:20:45 +00:00
Top = 60
2020-01-17 23:53:43 +00:00
Width = 584
2018-03-23 00:10:05 +00:00
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
2020-01-17 23:53:43 +00:00
ClientHeight = 629
ClientWidth = 584
2018-03-23 00:10:05 +00:00
TabOrder = 2
object ThumbView: TJvThumbView
Left = 0
2020-01-17 23:53:43 +00:00
Height = 629
2018-03-23 00:10:05 +00:00
Top = 0
2020-01-17 23:53:43 +00:00
Width = 417
HorzScrollBar.Page = 1
2018-03-23 00:10:05 +00:00
HorzScrollBar.Tracking = True
2020-01-17 23:53:43 +00:00
VertScrollBar.Page = 1
2018-03-23 00:10:05 +00:00
VertScrollBar.Tracking = True
Align = alClient
2018-04-21 14:46:46 +00:00
TabOrder = 0
2018-03-23 00:10:05 +00:00
TabStop = True
OnDblClick = ThumbViewDblClick
2018-03-25 00:05:20 +00:00
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
2018-03-23 00:10:05 +00:00
OnChange = ThumbViewChange
2018-03-25 00:05:20 +00:00
OnScanProgress = ThumbViewScanProgress
OnStartScanning = ThumbViewStartScanning
OnStopScanning = ThumbViewStopScanning
end
object Panel4: TPanel
2020-01-17 23:53:43 +00:00
Left = 430
Height = 629
2018-03-25 00:05:20 +00:00
Top = 0
Width = 146
Align = alRight
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BevelOuter = bvNone
2020-01-17 23:53:43 +00:00
ClientHeight = 629
2018-03-25 00:05:20 +00:00
ClientWidth = 146
2018-04-21 14:46:46 +00:00
TabOrder = 1
2018-03-25 00:05:20 +00:00
object GroupBox1: TGroupBox
Left = 0
Height = 80
Top = 0
Width = 146
Align = alTop
AutoSize = True
Caption = 'Colors'
ClientHeight = 60
ClientWidth = 142
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = CbThumbColor
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 5
2020-01-17 23:53:43 +00:00
Width = 57
2018-03-25 00:05:20 +00:00
BorderSpacing.Left = 16
BorderSpacing.Top = 4
Caption = 'Thumbnail'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbTitleColor
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 32
2020-01-17 23:53:43 +00:00
Width = 22
2018-03-25 00:05:20 +00:00
Caption = 'Title'
ParentColor = False
end
object CbThumbColor: TColorButton
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
2020-01-17 23:53:43 +00:00
Left = 89
2018-03-25 00:05:20 +00:00
Height = 25
Top = 0
Width = 27
BorderSpacing.Left = 16
2020-01-17 23:53:43 +00:00
BorderSpacing.Right = 16
2018-03-25 00:05:20 +00:00
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
OnColorChanged = CbThumbColorColorChanged
end
object CbTitleColor: TColorButton
AnchorSideLeft.Control = CbThumbColor
2018-04-18 22:20:45 +00:00
AnchorSideTop.Control = CbThumbColor
2018-03-25 00:05:20 +00:00
AnchorSideTop.Side = asrBottom
2020-01-17 23:53:43 +00:00
Left = 89
2018-03-25 00:05:20 +00:00
Height = 25
Top = 27
Width = 27
2018-04-18 22:20:45 +00:00
BorderSpacing.Top = 2
2018-03-25 00:05:20 +00:00
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
OnColorChanged = CbTitleColorColorChanged
end
end
object GroupBox2: TGroupBox
Left = 0
Height = 164
Top = 88
Width = 146
Align = alTop
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Thumbnail border'
ClientHeight = 144
ClientWidth = 142
TabOrder = 1
object CbThumbBevelInner: TComboBox
AnchorSideLeft.Control = Label5
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 17
Width = 110
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'bvNone'
'bvLowered'
'bvRaised'
)
OnChange = CbThumbBevelInnerChange
Style = csDropDownList
TabOrder = 0
Text = 'bvNone'
end
object Label5: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 16
Height = 15
Top = 0
Width = 58
BorderSpacing.Left = 16
Caption = 'Inner bevel'
ParentColor = False
end
object Label6: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = CbThumbBevelInner
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 48
Width = 61
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'Outer bevel'
ParentColor = False
end
object CbThumbBevelOuter: TComboBox
AnchorSideLeft.Control = Label6
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbThumbBevelInner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 65
Width = 110
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
ItemHeight = 15
ItemIndex = 2
Items.Strings = (
'bvNone'
'bvLowered'
'bvRaised'
)
OnChange = CbThumbBevelOuterChange
Style = csDropDownList
TabOrder = 1
Text = 'bvRaised'
end
object Label7: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = CbThumbBevelOuter
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 96
Width = 62
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'Border style'
ParentColor = False
end
object CbThumbBorderStyle: TComboBox
AnchorSideLeft.Control = Label7
AnchorSideTop.Control = Label7
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbThumbBevelInner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 113
Width = 110
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'bsNone'
'bsSingle'
)
OnChange = CbThumbBorderStyleChange
Style = csDropDownList
TabOrder = 2
Text = 'bsNone'
end
end
object GroupBox3: TGroupBox
Left = 0
Height = 164
Top = 260
Width = 146
Align = alTop
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Title border'
ClientHeight = 144
ClientWidth = 142
TabOrder = 2
object CbThumbTitleBevelInner: TComboBox
AnchorSideLeft.Control = Label8
AnchorSideTop.Control = Label8
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox3
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 17
Width = 110
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 16
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'bvNone'
'bvLowered'
'bvRaised'
)
OnChange = CbThumbTitleBevelInnerChange
Style = csDropDownList
TabOrder = 0
Text = 'bvNone'
end
object Label8: TLabel
AnchorSideLeft.Control = GroupBox3
AnchorSideTop.Control = GroupBox3
Left = 16
Height = 15
Top = 0
Width = 58
BorderSpacing.Left = 16
Caption = 'Inner bevel'
ParentColor = False
end
object Label9: TLabel
AnchorSideLeft.Control = GroupBox3
AnchorSideTop.Control = CbThumbTitleBevelInner
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 48
Width = 61
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'Outer bevel'
ParentColor = False
end
object CbThumbTitleBevelOuter: TComboBox
AnchorSideLeft.Control = Label9
AnchorSideTop.Control = Label9
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbThumbTitleBevelInner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 65
Width = 110
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
ItemHeight = 15
ItemIndex = 2
Items.Strings = (
'bvNone'
'bvLowered'
'bvRaised'
)
OnChange = CbThumbTitleBevelOuterChange
Style = csDropDownList
TabOrder = 1
Text = 'bvRaised'
end
object Label10: TLabel
AnchorSideLeft.Control = GroupBox3
AnchorSideTop.Control = CbThumbTitleBevelOuter
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 96
Width = 62
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'Border style'
ParentColor = False
end
object CbThumbTitleBorderStyle: TComboBox
AnchorSideLeft.Control = Label10
AnchorSideTop.Control = Label10
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbThumbTitleBevelInner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 113
Width = 110
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'bsNone'
'bsSingle'
)
OnChange = CbThumbTitleBorderStyleChange
Style = csDropDownList
TabOrder = 2
Text = 'bsNone'
end
end
2018-04-21 14:46:46 +00:00
object RgAlignView: TRadioGroup
Left = 0
Height = 93
Hint = 'Change the AlignView property to either use the thumbGup (VTNormal) autocalculate the empty space to equall parts(VTSPACEEQUAL) or Cender the thumbs in the using the htumbgup between them.'
Top = 432
Width = 146
Align = alTop
AutoFill = False
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.InnerBorder = 4
Caption = ' AlignView '
ChildSizing.LeftRightSpacing = 16
ChildSizing.VerticalSpacing = 4
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 73
ClientWidth = 142
ItemIndex = 0
Items.Strings = (
'VTNormal'
'VTCenter'
'VTFitToScreen'
)
OnClick = RgAlignViewClick
TabOrder = 3
end
object RgScrollMode: TRadioGroup
Left = 0
Height = 93
Hint = 'Change the ScrollMode to change the direction the thumb are scrolling in the screen SMVertical You will see a vertical scrollbar SMHorizontal For A horizontal ScrollBar or SMBoth to create a square view '
Top = 533
Width = 146
Align = alTop
AutoFill = False
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.InnerBorder = 4
Caption = ' ScrollMode '
ChildSizing.LeftRightSpacing = 16
ChildSizing.VerticalSpacing = 4
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 73
ClientWidth = 142
ItemIndex = 2
Items.Strings = (
'SMHorizontal'
'SMVertical'
'SMBoth'
)
OnClick = RgScrollModeClick
TabOrder = 4
end
2018-03-23 00:10:05 +00:00
end
2020-01-17 23:53:43 +00:00
object Splitter2: TSplitter
Left = 417
Height = 629
Top = 0
Width = 5
Align = alRight
ResizeAnchor = akRight
end
2018-03-23 00:10:05 +00:00
end
end
end
object Panel5: TPanel
Left = 0
Height = 24
2020-01-17 23:53:43 +00:00
Top = 717
Width = 800
2018-03-23 00:10:05 +00:00
Align = alBottom
BorderWidth = 2
ClientHeight = 24
2020-01-17 23:53:43 +00:00
ClientWidth = 800
2018-03-23 00:10:05 +00:00
TabOrder = 1
object ProgressBar: TProgressBar
Left = 5
Height = 13
Top = 5
Width = 284
Step = 0
TabOrder = 0
Visible = False
end
end
end
