Files
lazarus-ccr/components/jvcllaz/examples/JvSpecialProgress/main.lfm

195 lines
3.8 KiB
Plaintext
Raw Normal View History

object MainForm: TMainForm
Left = 258
Height = 358
Top = 127
Width = 459
Caption = 'JvSpecialProgress Demo'
ClientHeight = 358
ClientWidth = 459
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Bevel1: TBevel
Left = 20
Height = 44
Top = 12
Width = 176
end
object JvSpecialProgress1: TJvSpecialProgress
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrCenter
Left = 32
Height = 15
Top = 27
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
Top = 170
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
ItemHeight = 16
OnChange = CbBorderColorChange
TabOrder = 6
end
object CbFlat: TCheckBox
Left = 245
Height = 19
Top = 184
Width = 39
Caption = 'Flat'
OnChange = CbFlatChange
TabOrder = 7
end
object CbTextOption: TComboBox
Left = 328
Height = 23
Top = 216
Width = 100
ItemHeight = 15
Items.Strings = (
'toCaption'
'toFormat'
'toNoText'
'toPercent'
)
OnChange = CbTextOptionChange
TabOrder = 8
Text = 'CbTextOption'
end
object Label4: TLabel
Left = 245
Height = 15
Top = 220
Width = 62
Caption = 'Text option:'
ParentColor = False
end
object CbTextCentered: TCheckBox
Left = 245
Height = 19
Top = 304
Width = 91
Caption = 'Text centered'
OnChange = CbTextCenteredChange
TabOrder = 9
end
object EdFormat: TEdit
Left = 328
Height = 23
Top = 244
Width = 100
TabOrder = 10
Text = '%0:d%% done (%1:d of %2:d).'
end
object LblFormat: TLabel
Left = 247
Height = 15
Top = 248
Width = 38
Caption = 'Format'
FocusControl = EdFormat
ParentColor = False
end
object CbTextColor: TColorBox
Left = 328
Height = 22
Top = 272
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
ItemHeight = 16
OnChange = CbTextColorChange
TabOrder = 11
end
object Label5: TLabel
Left = 245
Height = 15
Top = 276
Width = 54
Caption = 'Text color:'
ParentColor = False
end
end