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