home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / ADD / CENTRPGF.ADD < prev    next >
Text File  |  2001-04-12  |  715b  |  23 lines
  1. {umístí obrázek na st²ed plochy} 
  2. Main InstallPgf(NamePgf:string);
  3. variable
  4.   integer~MaxObrY,SirkaPgf,VyskaPgf,ObrX,ObrY,PozViewX,PozViewY,MaxPgfY;
  5. :>zaćtek>
  6.   MaxObrY == 564;
  7.   GetPgfSize(NamePgf);
  8.   :let>
  9.     SirkaPgf : SizeX;
  10.     VyskaPgf : SizeY;
  11.     ObrX : round(SirkaPgf div 2);
  12.     ObrY : round(VyskaPgf div 2);
  13.     PozViewX : 400 - ObrX;
  14.     PozViewY : 285 - ObrY;
  15.   :let<
  16.   if PozViewY < 30 let PozViewY : 30;
  17.   MaxPgfY == PozViewY + VyskaPgf;
  18.   if MaxPgfY > 564 let VyskaPgf : VyskaPgf - (MaxPgfY-564);
  19.   OptionalArea(NoActive,PozViewX-8,PozViewY-8,PozViewX+SirkaPgf+8,PozViewY+VyskaPgf+8,
  20.                MLGray,DGray,LGray);
  21.   LoadPgf(PozViewX,PozViewY,564,NamePgf,0,0);
  22. :<konec<
  23.