From 86aba2e9e2e732f1027eb582fc39d2c309715801 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Tue, 12 Jan 2010 13:06:50 +0000
Subject: [PATCH] Fixes lcl-wince compilation

git-svn-id: trunk@23427 -
---
 lcl/interfaces/wince/wincedef.pp |  2 +-
 lcl/lcltype.pp                   | 14 +++++++++-----
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/lcl/interfaces/wince/wincedef.pp b/lcl/interfaces/wince/wincedef.pp
index bf2066b0ed..547a70015c 100644
--- a/lcl/interfaces/wince/wincedef.pp
+++ b/lcl/interfaces/wince/wincedef.pp
@@ -30,7 +30,7 @@ unit WinCEDef;
 interface
 
 uses
-  Windows, CTypes, Classes, LCLType;
+  Windows, CTypes, Classes, LCLType, Interfacebase;
 
 const
 // Used by TCalendar
diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp
index e8e4ed46c3..524a9bb4b6 100644
--- a/lcl/lcltype.pp
+++ b/lcl/lcltype.pp
@@ -1966,10 +1966,6 @@ const
   RT_GROUP_CURSOR = Windows.RT_GROUP_CURSOR;
   RT_GROUP_ICON = Windows.RT_GROUP_ICON;
   RT_VERSION = Windows.RT_VERSION;
-  RT_ANICURSOR = Windows.RT_ANICURSOR;
-  RT_ANIICON = Windows.RT_ANIICON;
-  RT_HTML = Windows.RT_HTML;
-  RT_MANIFEST = Windows.RT_MANIFEST;
 {$else}
   RT_CURSOR = TResourceType(1);
   RT_BITMAP = TResourceType(2);
@@ -1985,13 +1981,21 @@ const
   RT_GROUP_CURSOR = TResourceType(12);
   RT_GROUP_ICON = TResourceType(14);
   RT_VERSION = TResourceType(16);
+{$endif}
+
+  // The following resource types are not available in Windows CE
+{$ifdef mswindows}
+  RT_ANICURSOR = Windows.RT_ANICURSOR;
+  RT_ANIICON = Windows.RT_ANIICON;
+  RT_HTML = Windows.RT_HTML;
+  RT_MANIFEST = Windows.RT_MANIFEST;
+{$else}
   RT_ANICURSOR = TResourceType(21);
   RT_ANIICON = TResourceType(22);
   RT_HTML = TResourceType(23);
   RT_MANIFEST = TResourceType(24);
 {$endif}
 
-
 type
   TFarProc = Pointer;