paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More small compat fixes and constants.

Browse Source 
git-svn-id: trunk@10190 -
This commit is contained in:
marco 2008-02-03 17:57:56 +00:00
parent 13f6396221
commit f2d6410812
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/winunits-base/src/commctrl.pp
View File

@ -657,7 +657,7 @@ function ImageList_GetDragImage(ppt:PPOINT;pptHotspot:PPOINT):HIMAGELIST; stdcal
Procedure ImageList_RemoveAll(himl:HIMAGELIST);
// Macro 14
Procedure ImageList_ExtractIcon(hi:longint; himl:HIMAGELIST;i:longint);
function ImageList_ExtractIcon(hi:longint; himl:HIMAGELIST;i:longint):HICON;
// Macro 15
@ -9152,10 +9152,10 @@ End;
// Macro 14
// #define ImageList_ExtractIcon(hi, himl, i) ImageList_GetIcon(himl, i, 0)
Procedure ImageList_ExtractIcon(hi:longint; himl:HIMAGELIST;i:longint);
function ImageList_ExtractIcon(hi:longint; himl:HIMAGELIST;i:longint):HICON;
Begin
ImageList_GetIcon(himl, i,0);
result:=ImageList_GetIcon(himl, i,0);
end;

9
rtl/win/wininc/defines.inc
View File

@ -5425,8 +5425,11 @@
{ e_magic field }
IMAGE_DOS_SIGNATURE = $5a4d;
{ nt_signature field }
IMAGE_NT_SIGNATURE = $4550;
IMAGE_NT_SIGNATURE = CARDINAL($4550);
IMAGE_OS2_SIGNATURE = $454E; // NE
IMAGE_OS2_SIGNATURE_LE = $454C; // LE
IMAGE_VXD_SIGNATURE = $454C; // LE
{ Severity values }
SEVERITY_SUCCESS = 0;
@ -5519,7 +5522,7 @@ const
IMAGE_SUBSYSTEM_EFI_RUNTIME_DRIVER = 12;
IMAGE_SUBSYSTEM_EFI_ROM = 13;
IMAGE_SUBSYSTEM_XBOX = 14;
IMAGE_SUBSYSTEM_RESERVED8 = IMAGE_SUBSYSTEM_NATIVE_WINDOWS; // older Delphi's? See JCLPEImage
// DllCharacteristics Entries
// IMAGE_LIBRARY_PROCESS_INIT 0x0001 // Reserved.
@ -5558,8 +5561,8 @@ const
STRRET_OFFSET = 1;
STRRET_CSTR = 2;
{$endif read_interface}
{$endif read_interface}
{$ifdef read_implementation}