[Back to GRAPHICS SWAG index]  [Back to Main SWAG index]  [Original]

Uses Crt,Newgraph;
     { NOTE : NewGraph - in GRAPHICS.SWG }


Var ImgPointer: pointer;

    FUNCTION IntToStr(Value : LONGINT) : STRING;
    VAR
      Stg : STRING;
    BEGIN
       STR (value : 13, Stg);
       IntToStr := Stg;
    END;

Begin
     LoadShape(ParamStr(1),ImgPointer);
     InitVGAMode;
     Blit(0,0,ImgPointer^);
     OutTextXY(0,190,IntToStr(ShapeWidth(ImgPointer^)));
     OutTextXY(20,190,IntToStr(ShapeHeight(ImgPointer^)));
     Repeat Until keypressed;
End.

[Back to GRAPHICS SWAG index]  [Back to Main SWAG index]  [Original]