From 5db4db8822e20c4be3f48ac6523fdaf3cbf70334 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Tue, 8 Nov 2011 16:06:17 +0000
Subject: [PATCH] customdrawn tests: Adds progressbar tests

git-svn-id: trunk@33419 -
---
 test/customdrawn/mainform.lfm | 107 ++++++++++++++++++++++++++++------
 test/customdrawn/mainform.pas |  16 +++--
 2 files changed, 100 insertions(+), 23 deletions(-)

diff --git a/test/customdrawn/mainform.lfm b/test/customdrawn/mainform.lfm
index f7400f0205..73bdb48e35 100644
--- a/test/customdrawn/mainform.lfm
+++ b/test/customdrawn/mainform.lfm
@@ -9,10 +9,11 @@ object Form1: TForm1
   LCLVersion = '0.9.31'
   object comboControls: TComboBox
     Left = 80
-    Height = 27
+    Height = 21
     Top = 12
     Width = 136
-    ItemHeight = 0
+    ItemHeight = 13
+    ItemIndex = 0
     Items.Strings = (
       'TCDMenu'
       'TCDPopUp'
@@ -32,9 +33,9 @@ object Form1: TForm1
       'TCDTrackBar'
       'TCDProgressBar'
       'TCDListView'
+      'TCDStatusBar'
       'TCDToolBar'
-      'TCDPageControl'
-      'TCDTabControl'
+      'TCDUpDown'
       'TCDPageControl'
       'TCDTabControl'
     )
@@ -58,7 +59,7 @@ object Form1: TForm1
     Height = 240
     Top = 40
     Width = 463
-    PageIndex = 0
+    PageIndex = 16
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 2
     TabStop = True
@@ -168,6 +169,14 @@ object Form1: TForm1
       end
     end
     object pageToggleBoxes: TPage
+      object ToggleBox1: TToggleBox
+        Left = 16
+        Height = 23
+        Top = 8
+        Width = 90
+        Caption = 'Native'
+        TabOrder = 0
+      end
     end
     object pageCheckboxes: TPage
       object CheckBox1: TCheckBox
@@ -474,14 +483,74 @@ object Form1: TForm1
       end
     end
     object pageProgressBars: TPage
+      object ProgressBar1: TProgressBar
+        Left = 8
+        Height = 20
+        Top = 16
+        Width = 100
+        Position = 30
+        TabOrder = 0
+      end
+      object ProgressBar2: TProgressBar
+        Left = 24
+        Height = 84
+        Top = 120
+        Width = 20
+        Orientation = pbVertical
+        Position = 30
+        TabOrder = 1
+      end
+      object ProgressBar3: TProgressBar
+        Left = 9
+        Height = 20
+        Top = 40
+        Width = 100
+        Orientation = pbRightToLeft
+        Position = 30
+        TabOrder = 2
+      end
+      object ProgressBar4: TProgressBar
+        Left = 52
+        Height = 84
+        Top = 120
+        Width = 20
+        Orientation = pbTopDown
+        Position = 30
+        TabOrder = 3
+      end
+      object Label10: TLabel
+        Left = 32
+        Height = 14
+        Top = 2
+        Width = 32
+        Caption = 'Native'
+        ParentColor = False
+      end
+      object ProgressBar5: TProgressBar
+        Left = 8
+        Height = 20
+        Top = 64
+        Width = 100
+        Position = 30
+        Smooth = True
+        TabOrder = 4
+      end
+      object ProgressBar6: TProgressBar
+        Left = 8
+        Height = 20
+        Top = 91
+        Width = 100
+        Style = pbstMarquee
+        TabOrder = 5
+      end
     end
-    object Page3: TPage
+    object pageListViews: TPage
     end
-    object Page4: TPage
+    object pageStatusBars: TPage
     end
-    object Page1: TPage
+    object pageToolBars: TPage
     end
-    object Page2: TPage
+    object pageUpDowns: TPage
     end
     object pagePageControls: TPage
       object CDPageControl1: TCDPageControl
@@ -497,16 +566,16 @@ object Form1: TForm1
         TabIndex = 1
         object CDTabSheet2: TCDTabSheet
           Left = 2
-          Height = 73
-          Top = 29
+          Height = 77
+          Top = 25
           Width = 196
           Caption = 'CDTabSheet2'
           TabVisible = False
         end
         object CDTabSheet1: TCDTabSheet
           Left = 2
-          Height = 73
-          Top = 29
+          Height = 77
+          Top = 25
           Width = 196
           Caption = 'CDTabSheet1'
           TabVisible = False
@@ -559,24 +628,24 @@ object Form1: TForm1
         TabIndex = 2
         object CDTabSheet3: TCDTabSheet
           Left = 2
-          Height = 65
-          Top = 29
+          Height = 69
+          Top = 25
           Width = 188
           Caption = 'CDTabSheet3'
           TabVisible = False
         end
         object CDTabSheet4: TCDTabSheet
           Left = 2
-          Height = 65
-          Top = 29
+          Height = 69
+          Top = 25
           Width = 188
           Caption = 'CDTabSheet4'
           TabVisible = False
         end
         object CDTabSheet5: TCDTabSheet
           Left = 2
-          Height = 65
-          Top = 29
+          Height = 69
+          Top = 25
           Width = 188
           Caption = 'CDTabSheet5'
           TabVisible = False
diff --git a/test/customdrawn/mainform.pas b/test/customdrawn/mainform.pas
index 357df56497..d919050847 100644
--- a/test/customdrawn/mainform.pas
+++ b/test/customdrawn/mainform.pas
@@ -47,6 +47,7 @@ type
     GroupBox2: TGroupBox;
     GroupBox3: TGroupBox;
     Label1: TLabel;
+    Label10: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
@@ -58,10 +59,10 @@ type
     Memo1: TMemo;
     memoLog: TMemo;
     notebookControls: TNotebook;
-    Page1: TPage;
-    Page2: TPage;
-    Page3: TPage;
-    Page4: TPage;
+    pageToolBars: TPage;
+    pageUpDowns: TPage;
+    pageListViews: TPage;
+    pageStatusBars: TPage;
     pageScrollBars: TPage;
     pageToggleBoxes: TPage;
     pageComboBoxes: TPage;
@@ -83,6 +84,12 @@ type
     pagePageControls: TPage;
     pageTabControls: TPage;
     Panel1: TPanel;
+    ProgressBar1: TProgressBar;
+    ProgressBar2: TProgressBar;
+    ProgressBar3: TProgressBar;
+    ProgressBar4: TProgressBar;
+    ProgressBar5: TProgressBar;
+    ProgressBar6: TProgressBar;
     RadioButton1: TRadioButton;
     RadioButton2: TRadioButton;
     RadioButton3: TRadioButton;
@@ -95,6 +102,7 @@ type
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
     TabSheet3: TTabSheet;
+    ToggleBox1: TToggleBox;
     TrackBar1: TTrackBar;
     CDTrackBar1: TCDTrackBar;
     TrackBar2: TTrackBar;