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

+ added the win16api basic gdi types

Browse Source 
git-svn-id: trunk@31590 -
This commit is contained in:
nickysn 2015-09-11 13:10:36 +00:00
parent 6fb71e55fd
commit 6bac838fce
2 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win16/win31.pp
View File

@ -162,6 +162,17 @@ const
OBM_RGARROWI = 32735;
OBM_LFARROWI = 32734;
type
{ GDI typedefs, structures, and functions }
PSIZE = ^SIZE;
NPSIZE = ^SIZE; near;
LPSIZE = ^SIZE; far;
SIZE = record
cx: SmallInt;
cy: SmallInt;
end;
TSize = SIZE;
function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';

33
rtl/win16/wintypes.inc
View File

@ -330,3 +330,36 @@ type
const
{ WIN.INI Support }
WM_WININICHANGE = $001A;
type
{ GDI typedefs, structures, and functions }
HDC = THandle;
HGDIOBJ = THandle;
HBITMAP = THandle;
HPEN = THandle;
HBRUSH = THandle;
HRGN = THandle;
HPALETTE = THandle;
HFONT = THandle;
PRECT = ^RECT;
NPRECT = ^RECT; near;
LPRECT = ^RECT; far;
RECT = record
left: SmallInt;
top: SmallInt;
right: SmallInt;
bottom: SmallInt;
end;
TRect = RECT;
PPOINT = ^POINT;
NPPOINT = ^POINT; near;
LPPOINT = ^POINT; far;
POINT = record
x: SmallInt;
y: SmallInt;
end;
TPoint = POINT;
MAKEPOINT = POINT;