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

jvcllaz: Autosized JvSpecialProgress demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6993 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-01 22:49:51 +00:00
parent 883ecc50a1
commit 66e1872319
1 changed files with 53 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
components/jvcllaz/examples/JvSpecialProgress/main.lfm
View File

@ -1,18 +1,23 @@
object MainForm: TMainForm
Left = 258
Height = 332
Height = 414
Top = 127
Width = 459
Width = 583
AutoSize = True
Caption = 'JvSpecialProgress Demo'
ClientHeight = 332
ClientWidth = 459
ClientHeight = 414
ClientWidth = 583
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Bevel1: TBevel
Left = 20
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 16
Height = 44
Top = 12
Top = 16
Width = 176
BorderSpacing.Left = 16
BorderSpacing.Top = 16
end
object JvSpecialProgress1: TJvSpecialProgress
AnchorSideLeft.Control = Bevel1
@ -20,9 +25,9 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Bevel1
AnchorSideRight.Side = asrBottom
Left = 32
Left = 28
Height = 15
Top = 27
Top = 31
Width = 152
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
@ -31,10 +36,17 @@ object MainForm: TMainForm
Position = 50
end
object ScrollBar1: TScrollBar
Left = 31
AnchorSideLeft.Control = Bevel1
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel1
AnchorSideRight.Side = asrBottom
Left = 16
Height = 17
Top = 88
Width = 150
Top = 99
Width = 176
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
PageSize = 0
TabOrder = 0
OnChange = ScrollBar1Change
@ -42,23 +54,27 @@ object MainForm: TMainForm
object CbStartColor: TColorBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
Left = 334
Left = 313
Height = 22
Top = 12
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
BorderSpacing.Left = 32
BorderSpacing.Right = 16
ItemHeight = 16
OnChange = CbStartColorChange
TabOrder = 1
end
object Label1: TLabel
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbStartColor
AnchorSideTop.Side = asrCenter
Left = 245
Left = 224
Height = 15
Top = 16
Width = 57
BorderSpacing.Left = 32
Caption = 'Start color:'
ParentColor = False
end
@ -66,7 +82,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbEndColor
AnchorSideTop.Side = asrCenter
Left = 245
Left = 224
Height = 15
Top = 44
Width = 53
@ -77,7 +93,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = CbStartColor
AnchorSideTop.Control = CbStartColor
AnchorSideTop.Side = asrBottom
Left = 334
Left = 313
Height = 22
Top = 40
Width = 100
@ -91,7 +107,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbEndColor
AnchorSideTop.Side = asrBottom
Left = 245
Left = 224
Height = 19
Top = 74
Width = 102
@ -104,7 +120,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbGradientBlocks
AnchorSideTop.Side = asrBottom
Left = 245
Left = 224
Height = 19
Top = 99
Width = 46
@ -117,7 +133,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbSolid
AnchorSideTop.Side = asrBottom
Left = 245
Left = 224
Height = 19
Top = 124
Width = 55
@ -127,10 +143,15 @@ object MainForm: TMainForm
TabOrder = 5
end
object Label3: TLabel
Left = 31
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 40
Height = 15
Top = 64
Top = 76
Width = 128
BorderSpacing.Top = 16
Caption = 'Please drag the scrollbar'
ParentColor = False
end
@ -138,7 +159,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = CbStartColor
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrCenter
Left = 334
Left = 313
Height = 22
Top = 135
Width = 100
@ -151,7 +172,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbBorder
AnchorSideTop.Side = asrBottom
Left = 245
Left = 224
Height = 19
Top = 149
Width = 39
@ -164,7 +185,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = CbStartColor
AnchorSideTop.Control = CbTextCentered
AnchorSideTop.Side = asrBottom
Left = 334
Left = 313
Height = 23
Top = 199
Width = 100
@ -184,7 +205,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbTextOption
AnchorSideTop.Side = asrCenter
Left = 245
Left = 224
Height = 15
Top = 203
Width = 62
@ -195,7 +216,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbFlat
AnchorSideTop.Side = asrBottom
Left = 245
Left = 224
Height = 19
Top = 174
Width = 91
@ -208,7 +229,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = CbStartColor
AnchorSideTop.Control = CbTextOption
AnchorSideTop.Side = asrBottom
Left = 334
Left = 313
Height = 23
Top = 228
Width = 100
@ -220,7 +241,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = EdFormat
AnchorSideTop.Side = asrCenter
Left = 245
Left = 224
Height = 15
Top = 232
Width = 38
@ -232,7 +253,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = CbStartColor
AnchorSideTop.Control = EdFormat
AnchorSideTop.Side = asrBottom
Left = 334
Left = 313
Height = 22
Top = 257
Width = 100
@ -246,7 +267,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CbTextColor
AnchorSideTop.Side = asrCenter
Left = 245
Left = 224
Height = 15
Top = 261
Width = 54
@ -270,13 +291,14 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CbTextColor
AnchorSideRight.Side = asrBottom
Left = 334
Left = 313
Height = 23
Top = 285
Width = 100
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 16
OnChange = seHeightChange
TabOrder = 12
Value = 15
@ -285,7 +307,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = seHeight
AnchorSideTop.Side = asrCenter
Left = 245
Left = 224
Height = 15
Top = 289
Width = 36