home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0026_Graphics Image Viewer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  505 b   |  22 lines
  1. Uses Crt,Newgraph;
  2.      { NOTE : NewGraph - in GRAPHICS.SWG }
  3.  
  4.  
  5. Var ImgPointer: pointer;
  6.  
  7.     FUNCTION IntToStr(Value : LONGINT) : STRING;
  8.     VAR
  9.       Stg : STRING;
  10.     BEGIN
  11.        STR (value : 13, Stg);
  12.        IntToStr := Stg;
  13.     END;
  14.  
  15. Begin
  16.      LoadShape(ParamStr(1),ImgPointer);
  17.      InitVGAMode;
  18.      Blit(0,0,ImgPointer^);
  19.      OutTextXY(0,190,IntToStr(ShapeWidth(ImgPointer^)));
  20.      OutTextXY(20,190,IntToStr(ShapeHeight(ImgPointer^)));
  21.      Repeat Until keypressed;
  22. End.