Implemented GdiFreeResources (GDI.609).

This commit is contained in:
Ulrich Weigand 1998-12-01 13:00:05 +00:00 committed by Alexandre Julliard
parent b9950124a1
commit 87dbaa9a05
2 changed files with 10 additions and 1 deletions

View file

@ -378,7 +378,7 @@ file gdi.exe
606 pascal16 SetMagicColors(word long word) SetMagicColors16
607 pascal GetRegionData(word long ptr) GetRegionData16
608 stub ExtCreateRegion
609 stub GDIFreeResources
609 pascal16 GdiFreeResources(long) GdiFreeResources
610 stub GDISignalProc32
611 stub GetRandomRgn
612 pascal16 GetTextCharset(word) GetTextCharset16

View file

@ -947,6 +947,15 @@ DWORD WINAPI GdiSeeGdiDo( WORD wReqType, WORD wParam1, WORD wParam2,
}
}
/***********************************************************************
* GdiFreeResources (GDI.609)
*/
WORD WINAPI GdiFreeResources( DWORD reserve )
{
return (WORD)( (int)LOCAL_CountFree( GDI_HeapSel ) * 100 /
(int)LOCAL_HeapSize( GDI_HeapSel ) );
}
/***********************************************************************
* MulDiv16 (GDI.128)
*/