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