Last updated: 5. 3.1998, 7:41
<*/NOWARN:F*> IMPLEMENTATION MODULE EDRStuff; (*------------------------------------------------- EDRLIB.C --- Easy Drawing Routine Library module (c) Charles Petzold, 1996 EDRLib.mod --- Translation to Stony Brook Modula-2 (c) Peter Stadler, 1998 -------------------------------------------------*) IMPORT WINUSER; IMPORT SYSTEM; IMPORT WIN32; IMPORT WINGDI; TYPE String100 = ARRAY[0..100] OF CHAR; PROCEDURE EdrCenterText (hdc : WIN32.HDC; prc : WIN32.PRECT; pString : WIN32.PSTR) : WIN32.BOOL [EXPORT]; VAR iLength : INTEGER; size : WIN32.WSIZE; BEGIN iLength := LENGTH(SYSTEM.CAST(String100,pString^)); WINGDI.GetTextExtentPoint32(hdc, pString^, iLength, size); RETURN WINGDI.TextOut (hdc, (prc^.right - prc^.left - size.cx) / 2, (prc^.bottom - prc^.top - size.cy) / 2, pString^, iLength); END EdrCenterText; END EDRStuff.