home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPGIF100.ZIP / ABSGIF.INT < prev    next >
Encoding:
Text File  |  1992-10-02  |  560 b   |  27 lines
  1. Unit ABSGif;
  2. {
  3.   Get GIF Specs for TP 6.0
  4.  
  5.   Copyright (c) 1992 A.B.S. - ALL RIGHTS RESERVED
  6.  
  7.   1.00
  8. }
  9.  
  10. {$A+,B-,D-,F+,I-,N-,O+,R-,S-,V-}
  11.  
  12. Interface
  13.  
  14. Const
  15.   ABSGifVer = '1.00';
  16.  
  17. Function  GetGifSpecs(FileName : String; Var Ver, X, Y, C : Word) : Boolean;
  18. {
  19.  Returns True if the file is a valid GIF, false otherwise
  20.  
  21.  FileName - Complete Path & FileName of GIF to get specs on
  22.  Ver      - GIF Version (87 for 87a, 89 for 89a)
  23.  X        - Number of Horizontal Pixels
  24.  Y        - Number of Vertical Pixels
  25.  C        - Number of Colors
  26. }
  27.