pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Add JvSpecialProgress

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6294 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-08 11:27:52 +00:00
parent bd7f427964
commit 7eadb2c7d2
12 changed files with 1291 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

192
components/jvcllaz/examples/JvSpecialProgress/main.lfm Normal file
View File

@ -0,0 +1,192 @@
object MainForm: TMainForm
Left = 258
Height = 340
Top = 127
Width = 459
Caption = 'JvSpecialProgress Demo'
ClientHeight = 340
ClientWidth = 459
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
object Bevel1: TBevel
Left = 20
Height = 44
Top = 12
Width = 176
end
object JvSpecialProgress1: TJvSpecialProgress
Left = 32
Height = 15
Top = 24
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 = 166
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
ItemHeight = 16
OnChange = CbBorderColorChange
TabOrder = 6
end
object CbFlat: TCheckBox
Left = 245
Height = 19
Top = 176
Width = 39
Caption = 'Flat'
OnChange = CbFlatChange
TabOrder = 7
end
object CbTextOption: TComboBox
Left = 328
Height = 23
Top = 208
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 = 212
Width = 62
Caption = 'Text option:'
ParentColor = False
end
object CbTextCentered: TCheckBox
Left = 245
Height = 19
Top = 296
Width = 91
Caption = 'Text centered'
OnChange = CbTextCenteredChange
TabOrder = 9
end
object EdFormat: TEdit
Left = 328
Height = 23
Top = 236
Width = 100
TabOrder = 10
Text = '%d%% done.'
end
object LblFormat: TLabel
Left = 247
Height = 15
Top = 240
Width = 38
Caption = 'Format'
FocusControl = EdFormat
ParentColor = False
end
object CbTextColor: TColorBox
Left = 328
Height = 22
Top = 264
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
ItemHeight = 16
OnChange = CbTextColorChange
TabOrder = 11
end
object Label5: TLabel
Left = 245
Height = 15
Top = 268
Width = 54
Caption = 'Text color:'
ParentColor = False
end
end