jvcllaz: Autosized JvSpecialProgress demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6993 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/examples/JvSpecialProgress/main.lfm

@@ -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