home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / ADD / CENTERTX.ADD next >
Text File  |  2001-03-26  |  387b  |  15 lines
  1. Main CenterText(CX1,CX2,CY,CTypF:integer; CStr:string; CBT:byte);
  2. variable
  3.   integer~LnRet,CArea,PolPl,PolRet,PozWr;
  4. :>
  5.   if CTypF = SysF let LnRet : LenSysF(CStr);
  6.   if CTypF = SubF let LnRet : LenSubF(CStr);
  7.   :let>
  8.     CArea : CX2 - CX1;
  9.     PolPl : CArea div 2;
  10.     PolRet : LnRet div 2;
  11.     PozWr : PolPl - PolRet;
  12.   :let<
  13.   TextGraphXY(PozWr,CY,0,CTypF,CStr,CBT);
  14. :<
  15.