home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / FOXGIF / FOXGIF.PRG < prev    next >
Text File  |  1993-03-18  |  4KB  |  176 lines
  1. Clear all
  2. Close All
  3. Clear
  4. Set Talk off
  5. Set Echo Off
  6. Set Escape off
  7. Use DRIVERS
  8.  
  9. Public _MEMTYP,_LRGEBUF
  10.  
  11. Define Popup WhichDrv Prompt Field DESC Footer "Select Screen Driver"
  12. On Selection POPUP WhichDrv DO View With Prompt(),GIF_FILE
  13.  
  14. DEFINE POPUP MEM MARGIN RELATIVE SHADOW COLOR SCHEME 4
  15. DEFINE BAR 2 OF MEM PROMPT 'Use \<XMS Memory' 
  16. DEFINE BAR 1 OF MEM PROMPT 'Use FOXGIF \<Virtual Memory System' 
  17. ON SELECTION POPUP MEM    DO MEMchoice WITH BAR()
  18.  
  19. DEFINE POPUP BUF MARGIN RELATIVE SHADOW COLOR SCHEME 4
  20. DEFINE BAR 1 OF BUF PROMPT 'Use Small 4K Page Buffer' 
  21. DEFINE BAR 2 OF BUF PROMPT 'Use Large 8K Page Buffer' 
  22. ON SELECTION POPUP BUF    DO BUFchoice WITH BAR()
  23.  
  24.     Clear
  25.     Do Displogo
  26.     Wait Window
  27.  
  28.  
  29.  
  30. Do While .T.
  31.     Clear
  32.     Do Displogo
  33.     GIF_file = GETFILE('GIF', 'Select GIF File to View',"Browse",1)                      
  34.     if empty(GIF_FILE)
  35.         exit
  36.     Endif
  37.     @24,0 say padc("Hit <Esc>-To Exit",80)
  38.     activate popup MEM
  39.     activate popup BUF
  40.     Activate POPUP WhichDrv               
  41. Enddo
  42. USE
  43. Clear all
  44. Set Libr to
  45. Set sysmenu on
  46. Define Window PRNWIND from 0,0 to 23,79 TITLE ;
  47. " [ FOXPCX Documentation ]"  PANEL COLOR w/n,n/w,w/n
  48. modi file FOXGIF.DOC NOMOD WINDOW PRNWIND
  49. Release Window PRNWIND
  50. do displogo
  51.  
  52. *********************
  53. Procedure View
  54. *********************
  55. Parameters DRV,Gif_FlE
  56. Clear
  57. Hide POPUP WhichDrv
  58. @20,0 Say Padc("Will Display GIF File "+GIF_FLE+" With :"+DRV,80)
  59. Wait "Strike any key to View GIF File" Window
  60. Set Talk on
  61. If "2.5" $VERSION()
  62.     Set Libr to FOXGIF25
  63. ELSE
  64.    set lIBR TO foxGIF
  65. Endif
  66. _FRet=ViewGIF(GIF_FLE,@DRIVER,_MEMTYP,_LRGEBUF)
  67. Set Talk off
  68. Set Libr To
  69. Clear
  70. Wait "FoxGif Returned "+Transf(_Fret,"999")+" = "+GIF_ERROR(_Fret) Timeout 2
  71. Deactivate POPUP WhichDrv
  72. Return
  73.  
  74. **********************
  75. PROCEDURE MEMchoice
  76. **********************
  77. PARAMETERS _MT
  78.  
  79. _MEMTYP=_MT-1
  80.  
  81. Deactivate POPUP MEM
  82.  
  83. **********************
  84. PROCEDURE BUFchoice
  85. **********************
  86. PARAMETERS _MT
  87.  
  88. _LRGEBUF=_MT-1
  89.  
  90. Deactivate POPUP BUF
  91.  
  92.  
  93.  
  94. ************************************
  95. Procedure GIF_ERROR
  96. ***********************************
  97. Parameters _ER
  98. do case
  99.     Case _ER=0 
  100.       return "NO_ERROR_DETECTED" 
  101.     Case _ER=100 
  102.         return "XMS_NOAVAIL_ERROR" 
  103.     Case _ER=101 
  104.         return "XMS_ALLOC_ERROR"
  105.     Case _ER=102 
  106.         return "VMS_ALLOC_ERROR"
  107.     Case _ER=103 
  108.         return "XMS_PUT_ERROR"
  109.     Case _ER=104 
  110.         return "XMS_GET_ERROR"
  111.     Case _ER=105 
  112.         return "VMS_PUT_ERROR"
  113.     Case _ER=106 
  114.         return "VMS_GET_ERROR"
  115.     Case _ER=107 
  116.         return "DECODER_ERROR"
  117.     Case _ER=108 
  118.         return "FILE_I_O_ERROR"
  119.     Case _ER=109 
  120.         return "FOX_MEM_ERROR"
  121.     Case _ER=110 
  122.         return "DRIVER_LOAD_ERROR"
  123.     Case _ER=111 
  124.         return "DRIVER_CALL_ERROR"
  125.     Case _ER=112 
  126.         return "DRIVER_TYPE_ERROR"
  127.     Case _ER=113 
  128.         return "FILE_OPEN_ERROR"
  129.     Case _ER=114 
  130.         return "NEED_VGA_ERROR"
  131.     Case _ER=115 
  132.         return "OPEN_INPUT_ERROR"
  133.     Case _ER=116 
  134.         return "NOXMS_ERROR"
  135.     Case _ER=117 
  136.         return "PARAM1_ERROR"
  137.     Case _ER=118 
  138.         return "PARAM2_ERROR"
  139.     Case _ER=119 
  140.         return "PARAM3_ERROR"
  141.     Case _ER=120 
  142.         return "PARAM4_ERROR"
  143.     Case _ER=121 
  144.         return "NOT_GIF_ERROR"
  145. EndCase 
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152. *******************************
  153. Procedure Displogo
  154. *******************************
  155. @7,0 Say ""
  156. TEXT
  157.                   █████  ███   █   █    ████   ████  █████
  158.                    █  █ ██ ██  █   █   ██  ██   ██    █  █
  159.                    █ █  █   █  ██ ██  ██        ██    █ █ 
  160.                    ███  █   █   ███   ██        ██    ███ 
  161.                    █ █  █   █   ███   ██  ███   ██    █ █ 
  162.                    █    ██ ██  ██ ██   ██  ██   ██    █   
  163.                   ███    ███   █   █    █████  ████  ███  
  164. ENDTEXT
  165. @18,0 Say padc("FoxGif DEMO Version 1.0",80)
  166. @19,0 Say padc("(c) 1993 Warren Master",80)
  167. Return
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.