home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / ADD / CTXBASIS.ADD < prev    next >
Text File  |  2001-03-26  |  450b  |  16 lines
  1. Main CenterTextBasis(TX1,TX2,TY,TTypF:integer; TStr:string; TBP,TBT:byte);
  2. variable
  3.   integer~LnRet,CArea,PolPl,PolRet,PozWr;
  4. :>
  5.   if TTypF = SysF let LnRet : LenSysF(TStr);
  6.   if TTypF = SubF let LnRet : LenSubF(TStr);
  7.   :let>
  8.     CArea : TX2 - TX1;
  9.     PolPl : CArea div 2;
  10.     PolRet : LnRet div 2;
  11.     PozWr : PolPl - PolRet;
  12.   :let<
  13.   FillArea(PozWr-10,TY-10,PozWr+LnRet+10,TY+30,TBP);
  14.   TextGraphXY(PozWr,TY,0,TTypF,TStr,TBT);
  15. :<
  16.