From f7dc81a9d1403e3c218b26a00aad94a552edd1f0 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Sat, 5 Nov 2011 16:34:56 +0000
Subject: [PATCH] customdrawn tests: adds TCDStaticText

git-svn-id: trunk@33345 -
---
 test/customdrawn/mainform.lfm | 54 +++++++++++++++++++++++++----------
 test/customdrawn/mainform.pas |  4 +++
 2 files changed, 43 insertions(+), 15 deletions(-)

diff --git a/test/customdrawn/mainform.lfm b/test/customdrawn/mainform.lfm
index d55a421028..cef4fcd2a4 100644
--- a/test/customdrawn/mainform.lfm
+++ b/test/customdrawn/mainform.lfm
@@ -27,6 +27,8 @@ object Form1: TForm1
       'TCDComboBox'
       'TCDScrollBar'
       'TCDGroupBox'
+      'TCDPanel'
+      'TCDStaticText'
       'TCDTrackBar'
       'TCDCustomTabControl'
     )
@@ -48,7 +50,7 @@ object Form1: TForm1
     Height = 240
     Top = 40
     Width = 439
-    PageIndex = 7
+    PageIndex = 13
     TabOrder = 2
     TabStop = True
     object pageMenu: TPage
@@ -56,8 +58,8 @@ object Form1: TForm1
     object pagePopUp: TPage
     end
     object pageButtons: TPage
-      ClientWidth = 878
-      ClientHeight = 480
+      ClientWidth = 3512
+      ClientHeight = 1920
       object CDButton1: TCDButton
         Left = 119
         Height = 25
@@ -113,8 +115,8 @@ object Form1: TForm1
       end
     end
     object pageEdits: TPage
-      ClientWidth = 1756
-      ClientHeight = 960
+      ClientWidth = 7024
+      ClientHeight = 3840
       object CDEdit1: TCDEdit
         Left = 119
         Height = 24
@@ -153,8 +155,8 @@ object Form1: TForm1
     object Page1: TPage
     end
     object pageCheckboxes: TPage
-      ClientWidth = 7024
-      ClientHeight = 3840
+      ClientWidth = 28096
+      ClientHeight = 15360
       object CheckBox1: TCheckBox
         Left = 20
         Height = 17
@@ -181,8 +183,8 @@ object Form1: TForm1
       end
     end
     object pageRadioButton: TPage
-      ClientWidth = 439
-      ClientHeight = 240
+      ClientWidth = 1756
+      ClientHeight = 960
       object RadioButton1: TRadioButton
         Left = 16
         Height = 17
@@ -224,8 +226,8 @@ object Form1: TForm1
     object Page7: TPage
     end
     object pageGroupBoxes: TPage
-      ClientWidth = 3512
-      ClientHeight = 1920
+      ClientWidth = 14048
+      ClientHeight = 7680
       object GroupBox1: TGroupBox
         Left = 7
         Height = 100
@@ -285,9 +287,31 @@ object Form1: TForm1
         Caption = 'dsWinCE'
       end
     end
+    object Page2: TPage
+    end
+    object pageStaticTexts: TPage
+      ClientWidth = 439
+      ClientHeight = 240
+      object StaticText6: TStaticText
+        Left = 18
+        Height = 17
+        Top = 31
+        Width = 65
+        Caption = 'StaticText6'
+        TabOrder = 0
+      end
+      object CDStaticText1: TCDStaticText
+        Left = 144
+        Height = 20
+        Top = 31
+        Width = 70
+        DrawStyle = dsCommon
+        Caption = 'dsCommon'
+      end
+    end
     object pageTrackBars: TPage
-      ClientWidth = 28096
-      ClientHeight = 15360
+      ClientWidth = 112384
+      ClientHeight = 61440
       object TrackBar1: TTrackBar
         Left = 7
         Height = 25
@@ -345,8 +369,8 @@ object Form1: TForm1
         Height = 88
         Top = 32
         Width = 192
-        ActivePage = TabSheet1
-        TabIndex = 0
+        ActivePage = TabSheet2
+        TabIndex = 1
         TabOrder = 1
         object TabSheet1: TTabSheet
           Caption = 'TabSheet1'
diff --git a/test/customdrawn/mainform.pas b/test/customdrawn/mainform.pas
index bbc0b635c6..9c39767193 100644
--- a/test/customdrawn/mainform.pas
+++ b/test/customdrawn/mainform.pas
@@ -25,6 +25,7 @@ type
     CDEdit1: TCDEdit;
     CDEdit2: TCDEdit;
     CDRadioButton1: TCDRadioButton;
+    CDStaticText1: TCDStaticText;
     editWinXP: TCDEdit;
     CDGroupBox1: TCDGroupBox;
     CDGroupBox2: TCDGroupBox;
@@ -44,6 +45,8 @@ type
     memoLog: TMemo;
     notebookControls: TNotebook;
     Page1: TPage;
+    Page2: TPage;
+    pageStaticTexts: TPage;
     pageMenu: TPage;
     pagePopUp: TPage;
     pageEditMultiline: TPage;
@@ -68,6 +71,7 @@ type
     StaticText3: TStaticText;
     StaticText4: TStaticText;
     StaticText5: TStaticText;
+    StaticText6: TStaticText;
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
     TabSheet3: TTabSheet;