paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes lcl-wince compilation

Browse Source 
git-svn-id: trunk@23427 -
This commit is contained in:
sekelsenmat 2010-01-12 13:06:50 +00:00
parent 21dff33608
commit 86aba2e9e2
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/wincedef.pp
View File

@ -30,7 +30,7 @@ unit WinCEDef;
interface
uses
Windows, CTypes, Classes, LCLType;
Windows, CTypes, Classes, LCLType, Interfacebase;
const
// Used by TCalendar

14
lcl/lcltype.pp
View File

@ -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;