+ Some fixes to wince api units by Vasil Maximov.

git-svn-id: trunk@11905 -

packages/winceunits/src/connmgr.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 //
 // Module Name:
 //

packages/winceunits/src/devload.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 //
 // Module Name:
 //

packages/winceunits/src/devmgmt.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 //
 // Module Name:
 //

packages/winceunits/src/mmreg.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 //
 // Module Name:
 //

packages/winceunits/src/mmsystem.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 //
 // Module Name:mmsystem.h -- Include file for Multimedia API's
 //

packages/winceunits/src/msacm.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 // -----------------------------------------------------------------------------
 //
 //  msacm.h     Audio Compression Manager Public Header File

packages/winceunits/src/wininet.pp

@@ -1,3 +1,16 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ********************************************************************** }
+
 //
 // Module Name:
 //

rtl/wince/wininc/coredll.inc

@@ -409,31 +409,6 @@
       485 QAUnhookWindowsJournalHook
       2F2 QueryAPISetID
        91 Random
-      1FC RasDeleteEntry
-      207 RasDevConfigDialogEditW
-      1F3 RasDial
-      1FE RasEnumConnections
-      203 RasEnumDevicesW
-      1F6 RasEnumEntries
-      1FF RasGetConnectStatus
-      206 RasGetDispPhoneNumW
-      20A RasGetEapConnectionData
-      208 RasGetEapUserData
-      200 RasGetEntryDevConfig
-      1F7 RasGetEntryDialParams
-      1F9 RasGetEntryProperties
-      205 RasGetLinkStatistics
-      204 RasGetProjectionInfoW
-      1F5 RasHangUp
-      1F4 RasHangup
-      202 RasIOControl
-      1FD RasRenameEntry
-      20B RasSetEapConnectionData
-      209 RasSetEapUserData
-      201 RasSetEntryDevConfig
-      1F8 RasSetEntryDialParams
-      1FA RasSetEntryProperties
-      1FB RasValidateEntryName
       181 ReadFileWithSeek
       3C0 ReadRegistryFromOEM
       1BE RectangleAnimation

rtl/wince/wininc/defines.inc

@@ -667,7 +667,7 @@
      WS_BORDER = $800000;
      WS_CAPTION = $c00000;
      WS_CHILD = $40000000;
-     WS_CHILDWINDOW = $40000000;
+{     WS_CHILDWINDOW = $40000000; // Not declared in WinCE }
      WS_CLIPCHILDREN = $2000000;
      WS_CLIPSIBLINGS = $4000000;
      WS_DISABLED = $8000000;
@@ -684,6 +684,7 @@
      WS_THICKFRAME = $40000;
      WS_VISIBLE = $10000000;
      WS_VSCROLL = $200000;
+
      BS_3STATE = $5;
      BS_AUTO3STATE = $6;
      BS_AUTOCHECKBOX = $3;
@@ -704,12 +705,13 @@
      BS_PUSHLIKE = $1000;
      BS_RADIOBUTTON = $4;
      BS_RIGHT = $200;
-     BS_RIGHTBUTTON = $20;
+     BS_RIGHTBUTTON = BS_LEFTTEXT;
      BS_TEXT = 0;
      BS_TOP = $400;
-     BS_USERBUTTON = $8;
+{     BS_USERBUTTON = $8; // Unsupported under WinCE. }
      BS_VCENTER = $c00;
-     BS_FLAT = $8000;
+{     BS_FLAT = $8000; // Unsupported under WinCE. }
+
      CBS_AUTOHSCROLL = $40;
      CBS_DISABLENOSCROLL = $800;
      CBS_DROPDOWN = $2;
@@ -718,11 +720,23 @@
      CBS_LOWERCASE = $4000;
      CBS_NOINTEGRALHEIGHT = $400;
      CBS_OEMCONVERT = $80;
-     CBS_OWNERDRAWFIXED = $10;
+{     CBS_OWNERDRAWFIXED = $10; // Unsupported under WinCE. }
-     CBS_OWNERDRAWVARIABLE = $20;
+{     CBS_OWNERDRAWVARIABLE = $20; // Unsupported under WinCE. }
-     CBS_SIMPLE = $1;
+{     CBS_SIMPLE = $1; // Unsupported under WinCE. }
      CBS_SORT = $100;
      CBS_UPPERCASE = $2000;
+
+{ Extended combo box styles }
+    CBS_EX_CONSTSTRINGDATA  = $00000002;
+{ If you specify the CBS_EX_CONSTSTRINGDATA style when the application 
+  inserts a string into the list part of a combo box, the combo box 
+  stores the pointer passed to it by the application rather than copying 
+  the string. This saves RAM resources when you have a large table of 
+  strings in ROM that you want to insert into a combo box. }
+
+
+
+{ Edit Control Styles }
      ES_AUTOHSCROLL = $80;
      ES_AUTOVSCROLL = $40;
      ES_CENTER = $1;
@@ -737,6 +751,9 @@
      ES_RIGHT = $2;
      ES_UPPERCASE = $8;
      ES_WANTRETURN = $1000;
+     ES_COMBOBOX   = $0200; { Indicates that the edit control is part of a combo box. }
+
+{ List box styles }
      LBS_DISABLENOSCROLL = $1000;
      LBS_EXTENDEDSEL = $800;
      LBS_HASSTRINGS = $40;
@@ -750,83 +767,95 @@
      LBS_OWNERDRAWFIXED = $10;
      LBS_OWNERDRAWVARIABLE = $20;
      LBS_SORT = $2;
-     LBS_STANDARD = $a00003;
+//     LBS_STANDARD = $a00003;
      LBS_USETABSTOPS = $80;
      LBS_WANTKEYBOARDINPUT = $400;
-     SBS_BOTTOMALIGN = $4;
+     LBS_STANDARD = LBS_NOTIFY or LBS_SORT or WS_VSCROLL or WS_BORDER;
+
+{ Extended list box styles }
+     LBS_EX_CONSTSTRINGDATA   = $00000002;
+{ Windows CE supports the LBS_EX_CONSTSTRINGDATA style that saves RAM 
+  resources when you have a large table of strings in ROM that you want 
+  to insert into a list box. }
+
+{ Scroll bar styles }
+{     SBS_BOTTOMALIGN = $4; // Unsupported under WinCE. }
      SBS_HORZ = 0;
-     SBS_LEFTALIGN = $2;
+{     SBS_LEFTALIGN = $2; // Unsupported under WinCE. }
-     SBS_RIGHTALIGN = $4;
+{     SBS_RIGHTALIGN = $4; // Unsupported under WinCE. }
-     SBS_SIZEBOX = $8;
+{     SBS_SIZEBOX = $8; // Unsupported under WinCE. }
-     SBS_SIZEBOXBOTTOMRIGHTALIGN = $4;
+{     SBS_SIZEBOXBOTTOMRIGHTALIGN = $4; // Unsupported under WinCE. }
-     SBS_SIZEBOXTOPLEFTALIGN = $2;
+{     SBS_SIZEBOXTOPLEFTALIGN = $2; // Unsupported under WinCE. }
-     SBS_SIZEGRIP = $10;
+{     SBS_SIZEGRIP = $10; // Unsupported under WinCE. }
-     SBS_TOPALIGN = $2;
+{     SBS_TOPALIGN = $2; // Unsupported under WinCE. }
      SBS_VERT = $1;
+
+{ Static control styles }
      SS_BITMAP = $e;
-     SS_BLACKFRAME = $7;
+{     SS_BLACKFRAME = $7; // Unsupported under WinCE. }
-     SS_BLACKRECT = $4;
+{     SS_BLACKRECT = $4; // Unsupported under WinCE. }
      SS_CENTER = $1;
      SS_CENTERIMAGE = $200;
-     SS_ENHMETAFILE = $f;
+{     SS_ENHMETAFILE = $f; // Unsupported under WinCE. }
-     SS_ETCHEDFRAME = $12;
+{     SS_ETCHEDFRAME = $12; // Unsupported under WinCE. }
-     SS_ETCHEDHORZ = $10;
+{     SS_ETCHEDHORZ = $10; // Unsupported under WinCE. }
-     SS_ETCHEDVERT = $11;
+{     SS_ETCHEDVERT = $11; // Unsupported under WinCE. }
-     SS_GRAYFRAME = $8;
+{     SS_GRAYFRAME = $8; // Unsupported under WinCE. }
-     SS_GRAYRECT = $5;
+{     SS_GRAYRECT = $5; // Unsupported under WinCE. }
      SS_ICON = $3;
      SS_LEFT = 0;
      SS_LEFTNOWORDWRAP = $c;
      SS_NOPREFIX = $80;
      SS_NOTIFY = $100;
-     SS_OWNERDRAW = $d;
+{     SS_OWNERDRAW = $d; // Unsupported under WinCE. }
-     SS_REALSIZEIMAGE = $800;
+{     SS_REALSIZEIMAGE = $800; // Unsupported under WinCE. }
      SS_RIGHT = $2;
-     SS_RIGHTJUST = $400;
+{     SS_RIGHTJUST = $400; // Unsupported under WinCE. }
-     SS_SIMPLE = $b;
+{     SS_SIMPLE = $b; // Unsupported under WinCE. }
-     SS_SUNKEN = $1000;
+{     SS_SUNKEN = $1000; // Unsupported under WinCE. }
-     SS_USERITEM = $a;
+{     SS_USERITEM = $a; // Unsupported under WinCE. }
-     SS_WHITEFRAME = $9;
+{     SS_WHITEFRAME = $9; // Unsupported under WinCE. }
-     SS_WHITERECT = $6;
+{     SS_WHITERECT = $6; // Unsupported under WinCE. }
+
     { Dialog styles }
-     DS_ABSALIGN      = $1;
+{     DS_ABSALIGN      = $1; // Unsupported under WinCE. }
-     DS_SYSMODAL      = $2;
+{     DS_SYSMODAL      = $2; // Unsupported under WinCE. }
      DS_3DLOOK        = $4;
-     DS_FIXEDSYS      = $8;
+{     DS_FIXEDSYS      = $8; // Unsupported under WinCE. }
-     DS_NOFAILCREATE  = $10;
+{     DS_NOFAILCREATE  = $10; // Unsupported under WinCE. }
-     DS_LOCALEDIT     = $20;
+     DS_LOCALEDIT     = $20; { Edit items get Local storage. }
-     DS_SETFONT       = $40;
+     DS_SETFONT       = $40; { User specified font for Dlg controls. }
-     DS_MODALFRAME    = $80;
+     DS_MODALFRAME    = $80; { Can be combined with WS_CAPTION. }
-     DS_NOIDLEMSG     = $100;
+{     DS_NOIDLEMSG     = $100; // Unsupported under WinCE. }
-     DS_SETFOREGROUND = $200;
+     DS_SETFOREGROUND = $200; { not in Windows 3.1 }
      DS_CONTROL       = $400;
      DS_CENTER        = $800;
-     DS_CENTERMOUSE   = $1000;
+{     DS_CENTERMOUSE   = $1000; // Unsupported under WinCE. }
-     DS_CONTEXTHELP   = $2000;
+{     DS_CONTEXTHELP   = $2000; // Unsupported under WinCE. }
      DS_NOCLOSEBTN    = $4000;
 
   { CreateWindowEx  }
-     WS_EX_LEFT             = 0;
+{     WS_EX_LEFT             = 0; // Not declared. }
-     WS_EX_LTRREADING       = 0;
+{     WS_EX_LTRREADING       = 0; // Not declared. }
-     WS_EX_RIGHTSCROLLBAR   = 0;
+{     WS_EX_RIGHTSCROLLBAR   = 0; // Not declared. }
      WS_EX_DLGMODALFRAME    = $1;
-     WS_EX_NOPARENTNOTIFY   = $4;
+{     WS_EX_NOPARENTNOTIFY   = $4; // Unsupported under WinCE. }
      WS_EX_TOPMOST          = $8;
-     WS_EX_ACCEPTFILES      = $10;
+{     WS_EX_ACCEPTFILES      = $10; // Unsupported under WinCE. }
-     WS_EX_TRANSPARENT      = $20;
+{     WS_EX_TRANSPARENT      = $20; // Unsupported under WinCE. }
-     WS_EX_MDICHILD         = $40;
+{     WS_EX_MDICHILD         = $40; // Unsupported under WinCE. }
      WS_EX_TOOLWINDOW       = $80;
-     WS_EX_PALETTEWINDOW    = $188;
+{     WS_EX_PALETTEWINDOW    = $188; // Unsupported under WinCE. }
      WS_EX_WINDOWEDGE       = $100;
      WS_EX_CLIENTEDGE       = $200;
-     WS_EX_OVERLAPPEDWINDOW = $300;
+     WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE or WS_EX_CLIENTEDGE;
      WS_EX_CONTEXTHELP      = $400;
      WS_EX_RIGHT            = $1000;
      WS_EX_RTLREADING       = $2000;
      WS_EX_LEFTSCROLLBAR    = $4000;
-     WS_EX_CONTROLPARENT    = $10000;
+{     WS_EX_CONTROLPARENT    = $10000; // Unsupported under WinCE. }
      WS_EX_STATICEDGE       = $20000;
-     WS_EX_APPWINDOW        = $40000;
+{     WS_EX_APPWINDOW        = $40000; // Unsupported under WinCE. }
      WS_EX_NOANIMATION      = $4000000;
      WS_EX_NOACTIVATE       = $8000000;
      WS_EX_INK              = $10000000;
@@ -834,6 +863,10 @@
      WS_EX_NODRAG           = $40000000;
      WS_EX_CAPTIONOKBTN     = $80000000;
 
+     WS_EX_NOINHERITLAYOUT  = $00100000; // Disable inheritence of mirroring by children
+     WS_EX_LAYOUTRTL        = $00400000; // Right to left mirroring
+     
+
   { CreateWindowStation  }
      WINSTA_ACCESSCLIPBOARD = $4;
      WINSTA_ACCESSGLOBALATOMS = $20;
@@ -1567,12 +1600,13 @@
      QS_SENDMESSAGE = 64;
      QS_TIMER = 16;
   { GetScrollInfo, SetScrollInfo  }
-     SIF_ALL = 23;
+{     SIF_ALL = 23; }
      SIF_PAGE = 2;
      SIF_POS = 4;
      SIF_RANGE = 1;
      SIF_DISABLENOSCROLL = 8;
      SIF_TRACKPOS = $10;
+     SIF_ALL = SIF_RANGE or SIF_PAGE or SIF_POS or SIF_TRACKPOS;
   { GetStdHandle  }
 
 
@@ -5077,6 +5111,7 @@ PROCESSOR_ARM_V4TFP_INSTRUCTION        PROCESSOR_ARM_V4TFP_INSTRUCTION
      LB_ERRSPACE = -(2);
      LB_OKAY = 0;
   { CB_DIR message  }
+     CB_OKAY = 0;
      CB_ERR = -(1);
      CB_ERRSPACE = -(2);
   { WM_IME_CONTROL message  }

rtl/wince/wininc/messages.inc

@@ -126,6 +126,7 @@
      CB_SETLOCALE = 345;
      CB_SETTOPINDEX = 348;
      CB_SHOWDROPDOWN = 335;
+     CB_GETCOMBOBOXINFO = $0162;
   { Combo Box notifications  }
      CBN_CLOSEUP = 8;
      CBN_DBLCLK = 2;

rtl/wince/wininc/struct.inc

@@ -849,6 +849,22 @@
      TCOLORMAP = COLORMAP;
      PCOLORMAP = ^COLORMAP;
 
+{*
+ * Combo Box Structures
+ *}
+     tagCOMBOBOXINFO = record
+       cbSize:DWORD;
+       rcItem:RECT;
+       rcButton:RECT;
+       stateButton:DWORD; // Currently unsupported on CE
+       hwndCombo:HWND;
+       hwndItem:HWND;
+       hwndList:HWND;
+     end;
+     COMBOBOXINFO = tagCOMBOBOXINFO;
+     PCOMBOBOXINFO = ^tagCOMBOBOXINFO;
+     LPCOMBOBOXINFO = ^tagCOMBOBOXINFO;
+
      DCB = record
           DCBlength : DWORD;
           BaudRate : DWORD;