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

+ added the GetSystemMetrics win16api function and its related constants

Browse Source 
git-svn-id: trunk@31710 -
This commit is contained in:
nickysn 2015-09-16 13:07:35 +00:00
parent a516244e42
commit 0a587645ea
3 changed files with 63 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win16/win31.pp
View File

@ -429,6 +429,18 @@ type
end;
TDocInfo = DOCINFO;
{ System Metrics }
const
{ GetSystemMetrics() codes }
SM_CXDOUBLECLK = 36;
SM_CYDOUBLECLK = 37;
SM_CXICONSPACING = 38;
SM_CYICONSPACING = 39;
SM_MENUDROPALIGNMENT = 40;
SM_PENWINDOWS = 41;
SM_DBCSENABLED = 42;
SM_CMETRICS = 43;
function GetFreeSystemResources(SysResource: UINT): UINT; external 'USER';
procedure LogError(err: UINT; lpInfo: FarPointer); external 'KERNEL';

7
rtl/win16/winprocsh.inc
View File

@ -700,3 +700,10 @@ function QueryAbort(hdc: HDC; reserved: SmallInt): BOOL; external 'GDI';
{ GDI Escape support }
function Escape(hdc: HDC; nEscape, cbInput: SmallInt; lpszInData: LPCSTR; lpvOutData: FarPointer): SmallInt; external 'GDI';
{ System Metrics }
function GetSystemMetrics(nIndex: SmallInt): SmallInt; external 'USER';
function GetDoubleClickTime: UINT; external 'USER';
procedure SetDoubleClickTime(uInterval: UINT); external 'USER';

44
rtl/win16/wintypes.inc
View File

@ -1251,3 +1251,47 @@ type
HMENU = THandle;
HICON = THandle;
HCURSOR = HICON; { HICONs & HCURSORs are polymorphic }
{ System Metrics }
const
{ GetSystemMetrics() codes }
SM_CXSCREEN = 0;
SM_CYSCREEN = 1;
SM_CXVSCROLL = 2;
SM_CYHSCROLL = 3;
SM_CYCAPTION = 4;
SM_CXBORDER = 5;
SM_CYBORDER = 6;
SM_CXDLGFRAME = 7;
SM_CYDLGFRAME = 8;
SM_CYVTHUMB = 9;
SM_CXHTHUMB = 10;
SM_CXICON = 11;
SM_CYICON = 12;
SM_CXCURSOR = 13;
SM_CYCURSOR = 14;
SM_CYMENU = 15;
SM_CXFULLSCREEN = 16;
SM_CYFULLSCREEN = 17;
SM_CYKANJIWINDOW = 18;
SM_MOUSEPRESENT = 19;
SM_CYVSCROLL = 20;
SM_CXHSCROLL = 21;
SM_DEBUG = 22;
SM_SWAPBUTTON = 23;
SM_RESERVED1 = 24;
SM_RESERVED2 = 25;
SM_RESERVED3 = 26;
SM_RESERVED4 = 27;
SM_CXMIN = 28;
SM_CYMIN = 29;
SM_CXSIZE = 30;
SM_CYSIZE = 31;
SM_CXFRAME = 32;
SM_CYFRAME = 33;
SM_CXMINTRACK = 34;
SM_CYMINTRACK = 35;
SM_CMETRICS = 36;
WM_DEVMODECHANGE = $001B;
WM_TIMECHANGE = $001E;