ExCtrls/ProgressBarEx: Add TextMode tmValueAndPercent

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

components/exctrls/examples/ProgressBarEx/main.lfm

@@ -1,21 +1,21 @@
 object Form1: TForm1
   Left = 261
-  Height = 567
+  Height = 511
   Top = 130
-  Width = 473
+  Width = 528
   Caption = 'TProgressBarEx Demo'
-  ClientHeight = 567
-  ClientWidth = 473
+  ClientHeight = 511
+  ClientWidth = 528
   OnCreate = FormCreate
   LCLVersion = '2.3.0.0'
   object GroupBox1: TGroupBox
     Left = 106
     Height = 136
     Top = 88
-    Width = 347
+    Width = 409
     Caption = 'Style'
     ClientHeight = 116
-    ClientWidth = 343
+    ClientWidth = 405
     TabOrder = 0
     object rbNormalStyle: TRadioButton
       AnchorSideTop.Control = ScrollBar1
@@ -46,7 +46,7 @@ object Form1: TForm1
       Left = 136
       Height = 17
       Top = 4
-      Width = 201
+      Width = 257
       BorderSpacing.Top = 4
       PageSize = 0
       TabOrder = 2
@@ -58,7 +58,7 @@ object Form1: TForm1
       Left = 136
       Height = 23
       Top = 29
-      Width = 201
+      Width = 257
       BorderSpacing.Top = 8
       OnChange = Edit1Change
       TabOrder = 3
@@ -110,7 +110,7 @@ object Form1: TForm1
     end
   end
   object btnFont: TButton
-    Left = 310
+    Left = 374
     Height = 25
     Top = 344
     Width = 75
@@ -121,13 +121,13 @@ object Form1: TForm1
   object ProgressBar1: TProgressBar
     Left = 13
     Height = 20
-    Top = 32
+    Top = 40
     Width = 450
     TabOrder = 2
     Visible = False
   end
   object clbBackColor: TColorButton
-    Left = 305
+    Left = 369
     Height = 25
     Top = 232
     Width = 146
@@ -140,7 +140,7 @@ object Form1: TForm1
     OnColorChanged = clbBackColorColorChanged
   end
   object clbBarColor: TColorButton
-    Left = 304
+    Left = 368
     Height = 25
     Top = 259
     Width = 146
@@ -153,7 +153,7 @@ object Form1: TForm1
     OnColorChanged = clbBarColorColorChanged
   end
   object clbGradientEndColor: TColorButton
-    Left = 304
+    Left = 368
     Height = 25
     Top = 287
     Width = 146
@@ -166,7 +166,7 @@ object Form1: TForm1
     OnColorChanged = clbGradientEndColorColorChanged
   end
   object clbBorderColor: TColorButton
-    Left = 304
+    Left = 368
     Height = 25
     Top = 315
     Width = 146
@@ -191,7 +191,7 @@ object Form1: TForm1
     Left = 105
     Height = 64
     Top = 232
-    Width = 190
+    Width = 235
     AutoFill = True
     Caption = 'Orientation'
     ChildSizing.LeftRightSpacing = 6
@@ -202,7 +202,7 @@ object Form1: TForm1
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
     ClientHeight = 44
-    ClientWidth = 186
+    ClientWidth = 231
     Columns = 2
     ItemIndex = 0
     Items.Strings = (
@@ -217,8 +217,8 @@ object Form1: TForm1
   object rgDrawingStyle: TRadioGroup
     Left = 105
     Height = 81
-    Top = 304
-    Width = 185
+    Top = 312
+    Width = 237
     AutoFill = True
     Caption = 'Drawing style'
     ChildSizing.LeftRightSpacing = 6
@@ -229,7 +229,7 @@ object Form1: TForm1
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
     ClientHeight = 61
-    ClientWidth = 181
+    ClientWidth = 233
     Columns = 2
     ItemIndex = 0
     Items.Strings = (
@@ -243,10 +243,10 @@ object Form1: TForm1
     TabOrder = 5
   end
   object RadioGroup1: TRadioGroup
-    Left = 105
-    Height = 64
-    Top = 392
-    Width = 185
+    Left = 104
+    Height = 88
+    Top = 408
+    Width = 235
     AutoFill = True
     Caption = 'Caption'
     ChildSizing.LeftRightSpacing = 6
@@ -256,23 +256,24 @@ object Form1: TForm1
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
-    ClientHeight = 44
-    ClientWidth = 181
+    ClientHeight = 68
+    ClientWidth = 231
     Columns = 2
     ItemIndex = 0
     Items.Strings = (
       'None'
       'Position'
       'Percentage'
+      'Position+Percentage'
       'Custom text'
     )
     OnClick = RadioGroup1Click
     TabOrder = 6
   end
   object RadioGroup2: TRadioGroup
-    Left = 304
-    Height = 80
-    Top = 376
+    Left = 374
+    Height = 88
+    Top = 408
     Width = 140
     AutoFill = True
     Caption = 'Border'
@@ -283,7 +284,7 @@ object Form1: TForm1
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
-    ClientHeight = 60
+    ClientHeight = 68
     ClientWidth = 136
     Columns = 2
     ItemIndex = 1
@@ -309,7 +310,7 @@ object Form1: TForm1
   object FontDialog1: TFontDialog
     MinFontSize = 0
     MaxFontSize = 0
-    Left = 408
+    Left = 456
     Top = 344
   end
 end