2018-04-08 11:27:52 +00:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 258
|
2018-04-18 22:20:45 +00:00
|
|
|
Height = 358
|
2018-04-08 11:27:52 +00:00
|
|
|
Top = 127
|
|
|
|
Width = 459
|
|
|
|
Caption = 'JvSpecialProgress Demo'
|
2018-04-18 22:20:45 +00:00
|
|
|
ClientHeight = 358
|
2018-04-08 11:27:52 +00:00
|
|
|
ClientWidth = 459
|
|
|
|
OnCreate = FormCreate
|
2019-04-28 20:08:30 +00:00
|
|
|
LCLVersion = '2.1.0.0'
|
2018-04-08 11:27:52 +00:00
|
|
|
object Bevel1: TBevel
|
|
|
|
Left = 20
|
|
|
|
Height = 44
|
|
|
|
Top = 12
|
|
|
|
Width = 176
|
|
|
|
end
|
|
|
|
object JvSpecialProgress1: TJvSpecialProgress
|
2019-04-28 20:08:30 +00:00
|
|
|
AnchorSideTop.Control = Bevel1
|
|
|
|
AnchorSideTop.Side = asrCenter
|
2018-04-08 11:27:52 +00:00
|
|
|
Left = 32
|
|
|
|
Height = 15
|
2019-04-28 20:08:30 +00:00
|
|
|
Top = 27
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 150
|
|
|
|
Caption = 'JvSpecialProgress1'
|
|
|
|
Position = 50
|
|
|
|
end
|
|
|
|
object ScrollBar1: TScrollBar
|
|
|
|
Left = 31
|
|
|
|
Height = 17
|
|
|
|
Top = 88
|
|
|
|
Width = 150
|
|
|
|
PageSize = 0
|
|
|
|
TabOrder = 0
|
|
|
|
OnChange = ScrollBar1Change
|
|
|
|
end
|
|
|
|
object CbStartColor: TColorBox
|
|
|
|
Left = 328
|
|
|
|
Height = 22
|
|
|
|
Top = 22
|
|
|
|
Width = 100
|
|
|
|
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
|
|
|
ItemHeight = 16
|
|
|
|
OnChange = CbStartColorChange
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object Label1: TLabel
|
|
|
|
Left = 245
|
|
|
|
Height = 15
|
|
|
|
Top = 26
|
|
|
|
Width = 57
|
|
|
|
Caption = 'Start color:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
Left = 245
|
|
|
|
Height = 15
|
|
|
|
Top = 60
|
|
|
|
Width = 57
|
|
|
|
Caption = 'Start color:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object CbEndColor: TColorBox
|
|
|
|
Left = 328
|
|
|
|
Height = 22
|
|
|
|
Top = 56
|
|
|
|
Width = 100
|
|
|
|
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
|
|
|
ItemHeight = 16
|
|
|
|
OnChange = CbEndColorChange
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object CbGradientBlocks: TCheckBox
|
|
|
|
Left = 245
|
|
|
|
Height = 19
|
|
|
|
Top = 96
|
|
|
|
Width = 102
|
|
|
|
Caption = 'Gradient blocks'
|
|
|
|
OnChange = CbGradientBlocksChange
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
|
|
|
object CbSolid: TCheckBox
|
|
|
|
Left = 245
|
|
|
|
Height = 19
|
|
|
|
Top = 128
|
|
|
|
Width = 46
|
|
|
|
Caption = 'Solid'
|
|
|
|
OnChange = CbSolidChange
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object CbBorder: TCheckBox
|
|
|
|
Left = 245
|
|
|
|
Height = 19
|
|
|
|
Top = 159
|
|
|
|
Width = 55
|
|
|
|
Caption = 'Border'
|
|
|
|
OnChange = CbBorderChange
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object Label3: TLabel
|
|
|
|
Left = 31
|
|
|
|
Height = 15
|
|
|
|
Top = 64
|
|
|
|
Width = 128
|
|
|
|
Caption = 'Please drag the scrollbar'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object CbBorderColor: TColorBox
|
|
|
|
Left = 328
|
|
|
|
Height = 22
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 170
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 100
|
|
|
|
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
|
|
|
ItemHeight = 16
|
|
|
|
OnChange = CbBorderColorChange
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object CbFlat: TCheckBox
|
|
|
|
Left = 245
|
|
|
|
Height = 19
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 184
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 39
|
|
|
|
Caption = 'Flat'
|
|
|
|
OnChange = CbFlatChange
|
|
|
|
TabOrder = 7
|
|
|
|
end
|
|
|
|
object CbTextOption: TComboBox
|
|
|
|
Left = 328
|
|
|
|
Height = 23
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 216
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 100
|
|
|
|
ItemHeight = 15
|
|
|
|
Items.Strings = (
|
|
|
|
'toCaption'
|
|
|
|
'toFormat'
|
|
|
|
'toNoText'
|
|
|
|
'toPercent'
|
|
|
|
)
|
|
|
|
OnChange = CbTextOptionChange
|
|
|
|
TabOrder = 8
|
|
|
|
Text = 'CbTextOption'
|
|
|
|
end
|
|
|
|
object Label4: TLabel
|
|
|
|
Left = 245
|
|
|
|
Height = 15
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 220
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 62
|
|
|
|
Caption = 'Text option:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object CbTextCentered: TCheckBox
|
|
|
|
Left = 245
|
|
|
|
Height = 19
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 304
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 91
|
|
|
|
Caption = 'Text centered'
|
|
|
|
OnChange = CbTextCenteredChange
|
|
|
|
TabOrder = 9
|
|
|
|
end
|
|
|
|
object EdFormat: TEdit
|
|
|
|
Left = 328
|
|
|
|
Height = 23
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 244
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 100
|
|
|
|
TabOrder = 10
|
2018-04-08 12:25:51 +00:00
|
|
|
Text = '%0:d%% done (%1:d of %2:d).'
|
2018-04-08 11:27:52 +00:00
|
|
|
end
|
|
|
|
object LblFormat: TLabel
|
|
|
|
Left = 247
|
|
|
|
Height = 15
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 248
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 38
|
|
|
|
Caption = 'Format'
|
|
|
|
FocusControl = EdFormat
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object CbTextColor: TColorBox
|
|
|
|
Left = 328
|
|
|
|
Height = 22
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 272
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 100
|
|
|
|
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
|
|
|
|
ItemHeight = 16
|
|
|
|
OnChange = CbTextColorChange
|
|
|
|
TabOrder = 11
|
|
|
|
end
|
|
|
|
object Label5: TLabel
|
|
|
|
Left = 245
|
|
|
|
Height = 15
|
2018-04-18 22:20:45 +00:00
|
|
|
Top = 276
|
2018-04-08 11:27:52 +00:00
|
|
|
Width = 54
|
|
|
|
Caption = 'Text color:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
end
|