home *** CD-ROM | disk | FTP | other *** search
/ The SelectWare System Volume 2 #3 / The_SelectWare_System_Series_1_Volume_2_Number_3_Selectware.iso / fox10000 / fvdinst.prg < prev   
Text File  |  1988-05-19  |  3KB  |  95 lines
  1. homedir = sys(2004)
  2. if file('foxview.cfg')         
  3.     tf = homedir + 'FOXVDEMO\FOXVIEW.CFG'
  4.     copy file foxview.cfg to &tf
  5.     return
  6. endif
  7. do msgline with 'Indicate your monitor type for FoxView configuration.'
  8. dime monmenu(4)
  9. monmenu(1) = 'Monochrome monitor'
  10. monmenu(2) = 'Color monitor'
  11. monmenu(3) = 'Dual monitor (COMPAQ)'
  12. monmenu(4) = 'Composite monitor'
  13. mi = 0            
  14. @ 9, 10 menu monmenu, 4 title '[ Monitor type ]'
  15. do while mi = 0
  16.     read menu to mi 
  17.     do case
  18.     case readkey() <> 15
  19.     mi = 0 
  20.     case mi = 1
  21.     monitor = 'MONO'
  22.     case mi = 2
  23.         monitor = 'COLOR'
  24.     case mi = 3
  25.     monitor = 'DUAL'
  26.     case mi = 4
  27.     monitor = 'COMPOSITE'
  28.     endcase
  29. enddo                  
  30. do msgline with 'Enter your name and company for FoxView configuration.'
  31. name = 'Your Name              '
  32. co =   'Your Company           '
  33. @ 8,8 clear to 11, 50
  34. @ 8,8 to 11, 50 double
  35. @ 0, 0 say sys(2002,1)
  36. @ 9,10 say   'Your name    ' get name
  37. @ 10, 10 say 'Your Company ' get co
  38. read                   
  39. @ 0,0 say sys(2002)
  40. clear
  41. set colo to n/n
  42. set alte to foxview.cfg
  43. set alte on
  44. text
  45. * FOXVIEW.CFG
  46. *
  47. * ---General parameters:
  48. endtext
  49. ? 'Video = '+ monitor + '       *  MONO,COLOR,DUAL,COMPOSITE'
  50. text
  51. Pause = ON         * Pause after one screen-full in Shell
  52. FillChar = " "     * Fill character for Labels when loaded
  53. SelectAtr = 9      * Color for selected fields (LightBlue)
  54. StatusAtr = 1      * Color for status area (Blue)
  55. WindowAtr = 4      * Color for window area (Red)
  56. PromptAtr = 6      * Color for prompt area (Brown)
  57. FormStatLines = 2  * Forms View status lines (0,1,2)
  58. *
  59. * ---Box parameters:
  60. BoxAtr = 112       * Color for selected boxes (Inverse)
  61. BoxWidth = 30
  62. BoxHeight = 5
  63. BoxString1 = "╒═╕││╘═╛"
  64. BoxString2 = #214#196#183#186#186#211#196#189
  65. BoxString3 = "+-+||+-+"
  66. *
  67. * ---Code generator parameters:
  68. endtext
  69. ? 'DefCodePath = "' + sys(2004) + 'templcod"         * Pathname to .COD files'
  70. text
  71. GenMemVar = OFF           * Generate Programs with memory variables
  72. endtext                  
  73. ? 'Author = "'+ name + '"'
  74. ? 'Copyright = "'+co+'"'
  75. text
  76. ScreenColor = 'R+/N,N/W'  * Color for entire screen
  77. StatusColor = "BU/N,N/W"  * Color for status area
  78. WindowColor = "R+/N,N/W"  * Color for window area
  79. PromptColor = "GR+/N,N/W" * Color for prompt area
  80. HiliteColor = "N/W"       * Color for Hilited prompt char
  81. *
  82. * ---Product MENU parameters:
  83. DefProductCode = "1"      * Default Product ("1".."9","A".."G")
  84. Product1 = "FoxBASE+, version 2.10"
  85. *
  86. * ---Product MESSAGE parameters:
  87. Message1 = "If ON, programs will run with FoxBASE+ 2.10"
  88. *
  89. * EOF: FOXVIEW.CFG
  90. endtext
  91. set alte off
  92. set alte to
  93. set colo to
  94. copy file foxview.cfg to .\foxvdemo\foxview.cfg
  95. return