paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-20 18:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated compilation pb

Browse Source 
git-svn-id: trunk@2012 -
This commit is contained in:
oro06 2005-12-20 18:55:53 +00:00
parent f0c028d6c8
commit 06d8d7c03c
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/wince/windows.pp
View File

@ -38,7 +38,6 @@ interface
{$ifdef UNDER_CE}
{$define UNICODE} //ce is unicode only
//{$define _X86_} //for testing compilation
{$calling cedcl}
{$endif UNDER_CE}
@ -64,12 +63,13 @@ interface
{$ifdef UNDER_CE}
{$i aygshell.inc}
//{$i commctrl.inc}
{$i commctrl.inc}
{$endif UNDER_CE}
{$undef read_interface}
implementation
{$undef read_interface}
{$define read_implementation}
{$i base.inc}
@ -94,9 +94,10 @@ implementation
{$ifdef UNDER_CE}
{$i aygshell.inc}
//{$i commctrl.inc}
{$i commctrl.inc}
{$endif UNDER_CE}
{$undef read_implementation}
begin
end.

10
rtl/wince/wininc/commctrl.inc
View File

@ -121,39 +121,41 @@
// consts
//*****************************************************************************
const
{ already defined in defines.inc
TBSTATE_CHECKED = $01;
TBSTATE_PRESSED = $02;
TBSTATE_ENABLED = $04;
TBSTATE_HIDDEN = $08;
TBSTATE_INDETERMINATE = $10;
TBSTATE_WRAP = $20;
}
TBSTATE_ELLIPSES = $40;
TBSTATE_HIGHLIGHTED = $80;
{ already defined in defines.inc
TBSTYLE_BUTTON = $0000;
TBSTYLE_SEP = $0001;
TBSTYLE_CHECK = $0002;
TBSTYLE_GROUP = $0004;
TBSTYLE_CHECKGROUP =(TBSTYLE_GROUP or TBSTYLE_CHECK);
}
TBSTYLE_DROPDOWN = $0008;
TBSTYLE_AUTOSIZE = $0010; // automatically calculate the cx of the button
{ already defined in defines.inc
TBSTYLE_TOOLTIPS = $0100;
TBSTYLE_WRAPABLE = $0200;
TBSTYLE_ALTDRAG = $0400;
}
TBSTYLE_FLAT = $0800;
TBSTYLE_LIST = $1000;
TBSTYLE_CUSTOMERASE = $2000;
TBSTYLE_TRANSPARENT = $8000;
I_IMAGENONE = -2; // Desktop listview uses this same value for I_IMAGENONE when (_WIN32_IE >= 0x0501)
//*****************************************************************************
// types
//*****************************************************************************
type
//*****************************************************************************