EDRStuff.mod: Translation to Stony Brook Modula-2

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.