customdrawn test: Adds a wince build mode

git-svn-id: trunk@33303 -

test/customdrawn/cd_test_all.lpi

@@ -6,7 +6,6 @@
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
       <ResourceType Value="res"/>
-      <UseXPManifest Value="True"/>
       <Icon Value="0"/>
     </General>
     <i18n>
@@ -15,8 +14,40 @@
     <VersionInfo>
       <StringTable ProductVersion=""/>
     </VersionInfo>
-    <BuildModes Count="1">
+    <BuildModes Count="2">
       <Item1 Name="Default" Default="True"/>
+      <Item2 Name="WinCE">
+        <MacroValues Count="1">
+          <Macro1 Name="LCLWidgetType" Value="wince"/>
+        </MacroValues>
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="cd_test_all"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <TargetCPU Value="arm"/>
+            <TargetOS Value="wince"/>
+          </CodeGeneration>
+          <Linking>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+          <Other>
+            <CompilerMessages>
+              <UseMsgFile Value="True"/>
+            </CompilerMessages>
+            <CompilerPath Value="$(CompPath)"/>
+          </Other>
+        </CompilerOptions>
+      </Item2>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>

test/customdrawn/mainform.lfm

@@ -11,8 +11,8 @@ object Form1: TForm1
     Left = 80
     Height = 21
     Top = 12
-    Width = 172
-    ItemHeight = 0
+    Width = 136
+    ItemHeight = 13
     ItemIndex = 0
     Items.Strings = (
       'TCDButton'
@@ -39,7 +39,7 @@ object Form1: TForm1
     Height = 240
     Top = 40
     Width = 439
-    PageIndex = 0
+    PageIndex = 1
     TabOrder = 2
     TabStop = True
     object pageButtons: TPage
@@ -51,7 +51,6 @@ object Form1: TForm1
         Top = 16
         Width = 75
         Caption = 'dsCommon'
-        Color = 15857141
         DrawStyle = dsCommon
         OnClick = HandleClick
         TabOrder = 1
@@ -63,7 +62,6 @@ object Form1: TForm1
         Top = 50
         Width = 75
         Caption = 'dsWinCE'
-        Color = 15857141
         DrawStyle = dsWinCE
         OnClick = HandleClick
         TabOrder = 2
@@ -84,7 +82,6 @@ object Form1: TForm1
         Top = 88
         Width = 75
         Caption = 'dsWin2000'
-        Color = 15857141
         DrawStyle = dsWin2000
         OnClick = HandleClick
         TabOrder = 3
@@ -96,7 +93,6 @@ object Form1: TForm1
         Top = 121
         Width = 75
         Caption = 'dsWinXP'
-        Color = 15857141
         DrawStyle = dsWinXP
         OnClick = HandleClick
         TabOrder = 4
@@ -116,44 +112,60 @@ object Form1: TForm1
       end
       object Edit1: TEdit
         Left = 8
-        Height = 22
+        Height = 21
         Top = 28
         Width = 80
         TabOrder = 1
         Text = 'Edit1'
       end
+      object CDEdit2: TCDEdit
+        Left = 119
+        Height = 25
+        Top = 62
+        Width = 88
+        DrawStyle = dsWinCE
+        Text = 'dsWinCE'
+      end
+      object editWinXP: TCDEdit
+        Left = 119
+        Height = 25
+        Top = 96
+        Width = 88
+        DrawStyle = dsWinXP
+        Text = 'editWinXP'
+      end
     end
     object pageCheckboxes: TPage
       ClientWidth = 439
       ClientHeight = 240
       object CheckBox1: TCheckBox
         Left = 20
-        Height = 18
+        Height = 17
         Top = 29
-        Width = 91
+        Width = 71
         Caption = 'CheckBox1'
         TabOrder = 0
       end
       object CDCheckBox1: TCDCheckBox
         Left = 119
-        Height = 19
+        Height = 16
         Top = 29
-        Width = 93
+        Width = 73
         DrawStyle = dsCommon
         Caption = 'dsCommon'
       end
       object CDCheckBox2: TCDCheckBox
         Left = 119
-        Height = 19
+        Height = 16
         Top = 48
-        Width = 75
+        Width = 63
         DrawStyle = dsWinCE
         Caption = 'dsWinCE'
       end
     end
     object pageGroupBoxes: TPage
-      ClientWidth = 56192
-      ClientHeight = 30720
+      ClientWidth = 224
+      ClientHeight = 122
       object GroupBox1: TGroupBox
         Left = -1
         Height = 105
@@ -214,8 +226,8 @@ object Form1: TForm1
       end
     end
     object pageTrackBars: TPage
-      ClientWidth = 439
-      ClientHeight = 240
+      ClientWidth = 1756
+      ClientHeight = 960
       object TrackBar1: TTrackBar
         Left = 7
         Height = 25

test/customdrawn/mainform.pas

@@ -23,6 +23,8 @@ type
     CDCheckBox1: TCDCheckBox;
     CDCheckBox2: TCDCheckBox;
     CDEdit1: TCDEdit;
+    CDEdit2: TCDEdit;
+    editWinXP: TCDEdit;
     CDGroupBox1: TCDGroupBox;
     CDGroupBox2: TCDGroupBox;
     CDPageControl1: TCDPageControl;
@@ -70,6 +72,8 @@ var
 
 implementation
 
+uses TypInfo, customdrawndrawers;
+
 {$R *.lfm}
 
 { TForm1 }
@@ -77,6 +81,7 @@ implementation
 procedure TForm1.comboControlsChange(Sender: TObject);
 begin
   notebookControls.PageIndex := comboControls.ItemIndex;
+//  Caption := GetEnumName(TypeInfo(TCDDrawStyle), Integer(editWinXP.DrawStyle));
 end;
 
 procedure TForm1.HandleClick(Sender: TObject);