pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
901b92fa7253da596d484795c088fd52c0c54b41
lazarus-ccr/components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.lfm
wp_xxyyzz 8cf44c572a jvcllaz: Improved layout of JvThumbView demo. 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7297 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-01-17 23:53:43 +00:00

876 lines
28 KiB
Plaintext
Raw Blame History

object JvThumbnailMainForm: TJvThumbnailMainForm
Left = 354
Height = 741
Top = 122
Width = 800
Caption = 'JvThumbView Demo'
ClientHeight = 741
ClientWidth = 800
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Color = clWindowText
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
Scaled = False
object PageControl1: TPageControl
Left = 0
Height = 717
Top = 0
Width = 800
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'ThumbView Component'
ClientHeight = 689
ClientWidth = 792
object Splitter1: TSplitter
Left = 205
Height = 629
Top = 60
Width = 3
end
object Panel1: TPanel
Left = 0
Height = 60
Top = 0
Width = 792
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 60
ClientWidth = 792
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
AnchorSideLeft.Control = EdGap
AnchorSideRight.Control = EdGap
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnStopLoading
AnchorSideBottom.Side = asrBottom
Left = 631
Height = 15
Hint = 'Change the thumbgup to change the space between the thumbnails '
Top = 12
Width = 24
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Gap:'
ParentColor = False
ParentShowHint = False
ShowHint = True
end
object Label4: TLabel
AnchorSideLeft.Control = EdSelected
AnchorSideTop.Control = Label3
AnchorSideRight.Control = EdSelected
AnchorSideRight.Side = asrBottom
Left = 711
Height = 15
Hint = 'Change the selected to select the Nth element in the list.'
Top = 12
Width = 47
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
Left = 174
Height = 19
Hint = 'Set "AutoScrolling" to true to let the ThumbView component scroll the selected thumb into the screen automatically'
Top = 8
Width = 92
BorderSpacing.Left = 24
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
Left = 174
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
BorderSpacing.Left = 24
BorderSpacing.Top = 4
Caption = 'AutoHandleKeyboard'
Checked = True
OnClick = CbAutoHandleKeyboardClick
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 2
end
object EdGap: TSpinEdit
AnchorSideLeft.Control = BtnEditSelThumb
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnEditSelThumb
Left = 631
Height = 23
Hint = 'Changes the space between the thumbnails '
Top = 31
Width = 64
BorderSpacing.Left = 24
BorderSpacing.Bottom = 4
MaxValue = 300
MinValue = 1
OnChange = EdGapChange
ParentShowHint = False
ShowHint = True
TabOrder = 3
Value = 1
end
object EdSelected: TSpinEdit
AnchorSideLeft.Control = EdGap
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EdGap
Left = 711
Height = 23
Hint = 'Selects the thumbnail with this index'
Top = 31
Width = 64
BorderSpacing.Left = 16
BorderSpacing.Bottom = 4
MaxValue = 0
OnChange = EdSelectedChange
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object CbSorted: TCheckBox
AnchorSideLeft.Control = CbMinMemory
AnchorSideTop.Control = CbAutoScrolling
Left = 332
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
Left = 332
Height = 19
Top = 31
Width = 117
BorderSpacing.Left = 24
Caption = 'Minimize memory'
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
Left = 473
Height = 25
Top = 4
Width = 134
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
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
Left = 473
Height = 25
Top = 31
Width = 134
AutoSize = True
BorderSpacing.Left = 24
BorderSpacing.Top = 2
BorderSpacing.Bottom = 4
Caption = 'Edit Selected Thumb'
OnClick = BtnEditSelThumbClick
TabOrder = 7
end
end
object Panel2: TPanel
Left = 0
Height = 629
Top = 60
Width = 205
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel2'
ClientHeight = 629
ClientWidth = 205
TabOrder = 1
object ShellTreeView: TShellTreeView
Left = 0
Height = 431
Hint = 'Set directory where your images are located and watch the thumbview creating the thumbs'
Top = 0
Width = 205
Align = alClient
FileSortType = fstAlphabet
HideSelection = False
Images = DataModule1.ImageList1
ReadOnly = True
TabOrder = 0
OnChange = ShellTreeViewChange
OnGetImageIndex = ShellTreeViewGetImageIndex
OnGetSelectedIndex = ShellTreeViewGetSelectedIndex
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders]
end
object GroupBox4: TGroupBox
Left = 0
Height = 190
Top = 439
Width = 205
Align = alBottom
AutoSize = True
BorderSpacing.Top = 8
Caption = 'File info'
ClientHeight = 170
ClientWidth = 201
TabOrder = 1
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
end
end
object Panel3: TPanel
Left = 208
Height = 629
Top = 60
Width = 584
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
ClientHeight = 629
ClientWidth = 584
TabOrder = 2
object ThumbView: TJvThumbView
Left = 0
Height = 629
Top = 0
Width = 417
HorzScrollBar.Page = 1
HorzScrollBar.Tracking = True
VertScrollBar.Page = 1
VertScrollBar.Tracking = True
Align = alClient
TabOrder = 0
TabStop = True
OnDblClick = ThumbViewDblClick
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
OnChange = ThumbViewChange
OnScanProgress = ThumbViewScanProgress
OnStartScanning = ThumbViewStartScanning
OnStopScanning = ThumbViewStopScanning
end
object Panel4: TPanel
Left = 430
Height = 629
Top = 0
Width = 146
Align = alRight
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BevelOuter = bvNone
ClientHeight = 629
ClientWidth = 146
TabOrder = 1
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
Width = 57
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
Width = 22
Caption = 'Title'
ParentColor = False
end
object CbThumbColor: TColorButton
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
Left = 89
Height = 25
Top = 0
Width = 27
BorderSpacing.Left = 16
BorderSpacing.Right = 16
BorderWidth = 2
ButtonColorSize = 16
ButtonColor = clBlack
OnColorChanged = CbThumbColorColorChanged
end
object CbTitleColor: TColorButton
AnchorSideLeft.Control = CbThumbColor
AnchorSideTop.Control = CbThumbColor
AnchorSideTop.Side = asrBottom
Left = 89
Height = 25
Top = 27
Width = 27
BorderSpacing.Top = 2
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
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
end
object Splitter2: TSplitter
Left = 417
Height = 629
Top = 0
Width = 5
Align = alRight
ResizeAnchor = akRight
end
end
end
end
object Panel5: TPanel
Left = 0
Height = 24
Top = 717
Width = 800
Align = alBottom
BorderWidth = 2
ClientHeight = 24
ClientWidth = 800
TabOrder = 1
object ProgressBar: TProgressBar
Left = 5
Height = 13
Top = 5
Width = 284
Step = 0
TabOrder = 0
Visible = False
end
end
end
Reference in New Issue View Git Blame Copy Permalink