diff --git a/components/jvcllaz/examples/JvSpecialProgress/main.lfm b/components/jvcllaz/examples/JvSpecialProgress/main.lfm index b765354df..d547db8e3 100644 --- a/components/jvcllaz/examples/JvSpecialProgress/main.lfm +++ b/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