home *** CD-ROM | disk | FTP | other *** search
/ Instant Calendar / SOFTKEY.iso / disk1 / init.inc < prev    next >
Text File  |  1994-01-27  |  6KB  |  203 lines
  1. SUB InitDefaultPaths STATIC
  2. EXE_PATH$ = "EXE_PATH"
  3. PREV_INSTALL$ = "PREV"
  4. SetSymbolValue PREV_INSTALL$, "NO"
  5.     
  6. WINDRIVE$ = MID$ (WinDir$, 1, 1)
  7. nWinDrive% = ASC (ucase$ (WINDRIVE$)) - ASC ("A") + 1
  8.  
  9. ini$ = MakePath (GetWindowsDir, "POWERUP.INI")
  10.  
  11. '' Pick up Calendar's Event List Path
  12.  
  13. DEST$ = LCASE$ (GetIniKeyString (ini$, "Calendar Creator Windows", "ProgramPath"))
  14. IF DEST$ = "" THEN
  15.   DEST$ = LCASE$ (GetIniKeyString (ini$, "POWERALBUM", "Path"))
  16. ENDIF
  17. IF DEST$ = "" THEN
  18.   DEST$ = LCASE$ (MakePath(WinDir$, "CCWIN"))
  19. ELSE
  20.   ii% = DoesFileExist (MakePath (DEST$,"CCWIN.EXE"), femExists)
  21.   szVerStr$ = GetVersionOfFile (MakePath (DEST$, "CCWIN.EXE"))
  22.   ver& = GetVersionNthField (szVerStr$, 1)
  23.   if (ii% = 1) AND (ver& >= 2 ) then
  24.     SetSymbolValue PREV_INSTALL$, "YES"
  25.   endif
  26. ENDIF
  27.  
  28. '' Pick up the art directory from POWERUP.INI
  29.  
  30. DEST_ART$ = LCASE$ (GetIniKeyString (ini$, "ART", "Path"))
  31. IF DEST_ART$ = "" THEN
  32.   DEST_ART$ = LCASE$ (MakePath(WinDir$, "POWERUP\ART"))
  33. ENDIF
  34.  
  35. '' Pick up the graphics filters directory from POWERUP.INI
  36.  
  37. DEST_FILTERS$ = LCASE$ (GetIniKeyString (ini$, "GRAPHICS FILTERS", "NewPath"))
  38. IF DEST_FILTERS$ = "" THEN
  39.   DEST_FILTERS$ = LCASE$ (GetIniKeyString (ini$, "GRAPHICS FILTERS", "Path"))
  40.   if DEST_FILTERS$ = "" then
  41.     DEST_FILTERS$ = LCASE$ (MakePath( WinDir$, "POWERUP\FILTERS"))
  42. ENDIF
  43. ENDIF
  44. SetSymbolValue EXE_PATH$, DEST$
  45.     
  46. PROGDRIVE$ = MID$ (DEST$, 1, 1)
  47. ARTDRIVE$ = MID$ (DEST_ART$, 1, 1)
  48. FILTERSDRIVE$ = MID$ (DEST_FILTERS$, 1, 1)
  49. END SUB
  50.  
  51. SUB InitMainDialogSymbols STATIC
  52. STR_REQ$ = "StrSelReq"
  53. STR_AVAIL$ = "StrSelAvail"
  54. DIALOG_LIST$ = "DialogList"
  55. CHK_PROG_FILES$ = "ChkProgFiles"
  56. CHK_CLIP_ART$ = "ChkClipArt"
  57. STR_PROG_PATH$ = "StrProgPath"
  58. STR_CLIP_ART_PATH$ = "StrClipArtPath"
  59. STR_FILTERS_PATH$ = "StrFiltersPath"
  60. STR_REQ_PROG$ = "StrReqProg"
  61. STR_REQ_CLIP_ART$ = "StrReqClipArt"
  62. STR_REQ_FILTERS$ = "StrReqFilters"
  63. STR_AVAIL_PROG$ = "StrAvailProg"
  64. STR_AVAIL_ART$ = "StrAvailArt"
  65. STR_AVAIL_FILTERS$ = "StrAvailFilters"
  66. STR_REQ_PROG2$ = "StrReqProg2"
  67. STR_REQ_CLIP_ART2$ = "StrReqClipArt2"
  68. STR_REQ_ART_DLG$ = "STR_REQ_ART_DLG$"
  69. STR_AVAIL_ART_DLG$ = "STR_AVAIL_ART_DLG$"
  70. STR_REQ_GEN$ = "STR_REQ_GEN$"
  71. STR_AVAIL_GEN$ = "STR_AVAIL_GEN$"
  72.  
  73. SetSymbolValue STR_REQ_ART_DLG$, "0"
  74. SetSymbolValue STR_AVAIL_ART_DLG$, "0"
  75. SetSymbolValue CHK_PROG_FILES$, "ON"
  76. SetSymbolValue CHK_CLIP_ART$, "ON"
  77. SetSymbolValue STR_PROG_PATH$, DEST$
  78. SetSymbolValue STR_CLIP_ART_PATH$, DEST_ART$
  79. SetSymbolValue STR_FILTERS_PATH$, DEST_FILTERS$
  80. SetSymbolValue STR_REQ_PROG$, "0"
  81. SetSymbolValue STR_REQ_CLIP_ART$, "0"
  82. SetSymbolValue STR_REQ_FILTERS$, "0"
  83. SetSymbolValue STR_AVAIL_PROG$, "0"
  84. SetSymbolValue STR_AVAIL_ART$, "0"
  85. SetSymbolValue STR_AVAIL_FILTERS$, "0"
  86. SetSymbolValue STR_REQ_PROG2$, "0"
  87. SetSymbolValue STR_REQ_CLIP_ART2$, "0"
  88. END SUB
  89.  
  90. SUB InitArtDialogSymbols STATIC
  91. DIA_ART$="DiaArtChk"
  92. AddListItem DIALOG_LIST$, DIA_ART$
  93.  
  94. CHK_ART00$ = "ChkArt00"
  95. AddListItem DIA_ART$, CHK_ART00$ '' Add checkbox to dialog list
  96. AddListItem CHK_ART00$, "ON" '' Status
  97. AddListItem CHK_ART00$, "ON" '' Temp Status -- used for dialogs
  98. AddListItem CHK_ART00$, "artBusiness" '' File Section -- tied in with .INF
  99. AddListItem CHK_ART00$, "300" '' Dialog Template ID
  100. AddListItem CHK_ART00$, "0" '' Disk cost of checked item
  101. AddListItem CHK_ART00$, "BUS.ALB"
  102. AddListItem CHK_ART00$, "artBusinessAlb"
  103. AddListItem CHK_ART00$, "0"
  104.  
  105. CHK_ART04$ = "ChkArt04"
  106. AddListItem DIA_ART$, CHK_ART04$
  107. AddListItem CHK_ART04$, "ON"
  108. AddListItem CHK_ART04$, "ON"
  109. AddListItem CHK_ART04$, "artEducation"
  110. AddListItem CHK_ART04$, "304"
  111. AddListItem CHK_ART04$, "0"
  112. AddListItem CHK_ART04$, "EDU.ALB"
  113. AddListItem CHK_ART04$, "artEducationAlb"
  114. AddListItem CHK_ART04$, "0"
  115.  
  116. CHK_ART05$ = "ChkArt05"
  117. AddListItem DIA_ART$, CHK_ART05$
  118. AddListItem CHK_ART05$, "ON"
  119. AddListItem CHK_ART05$, "ON"
  120. AddListItem CHK_ART05$, "artGovernment"
  121. AddListItem CHK_ART05$, "305"
  122. AddListItem CHK_ART05$, "0"
  123. AddListItem CHK_ART05$, "GOV.ALB"
  124. AddListItem CHK_ART05$, "artGovernmentAlb"
  125. AddListItem CHK_ART05$, "0"
  126.  
  127. CHK_ART01$ = "ChkArt01"
  128. AddListItem DIA_ART$, CHK_ART01$
  129. AddListItem CHK_ART01$, "ON"
  130. AddListItem CHK_ART01$, "ON"
  131. AddListItem CHK_ART01$, "artHolidays"
  132. AddListItem CHK_ART01$, "301"
  133. AddListItem CHK_ART01$, "0"
  134. AddListItem CHK_ART01$, "HOL.ALB"
  135. AddListItem CHK_ART01$, "artHolidaysAlb"
  136. AddListItem CHK_ART01$, "0"
  137.     
  138. CHK_ART02$ = "ChkArt02"
  139. AddListItem DIA_ART$, CHK_ART02$
  140. AddListItem CHK_ART02$, "ON"
  141. AddListItem CHK_ART02$, "ON"
  142. AddListItem CHK_ART02$, "artPersonal"
  143. AddListItem CHK_ART02$, "302"
  144. AddListItem CHK_ART02$, "0"
  145. AddListItem CHK_ART02$, "PER.ALB"
  146. AddListItem CHK_ART02$, "artPersonalAlb"
  147. AddListItem CHK_ART02$, "0"
  148.  
  149. CHK_ART06$ = "ChkArt06"
  150. AddListItem DIA_ART$, CHK_ART06$
  151. AddListItem CHK_ART06$, "ON"
  152. AddListItem CHK_ART06$, "ON"
  153. AddListItem CHK_ART06$, "artPresidents"
  154. AddListItem CHK_ART06$, "306"
  155. AddListItem CHK_ART06$, "0"
  156. AddListItem CHK_ART06$, "PRE.ALB"
  157. AddListItem CHK_ART06$, "artPresidentsAlb"
  158. AddListItem CHK_ART06$, "0"
  159.  
  160. CHK_ART07$ = "ChkArt07"
  161. AddListItem DIA_ART$, CHK_ART07$
  162. AddListItem CHK_ART07$, "ON"
  163. AddListItem CHK_ART07$, "ON"
  164. AddListItem CHK_ART07$, "artReligion"
  165. AddListItem CHK_ART07$, "307"
  166. AddListItem CHK_ART07$, "0"
  167. AddListItem CHK_ART07$, "REL.ALB"
  168. AddListItem CHK_ART07$, "artReligionAlb"
  169. AddListItem CHK_ART07$, "0"
  170.  
  171. CHK_ART03$ = "ChkArt03"
  172. AddListItem DIA_ART$, CHK_ART03$
  173. AddListItem CHK_ART03$, "ON"
  174. AddListItem CHK_ART03$, "ON"
  175. AddListItem CHK_ART03$, "artSports"
  176. AddListItem CHK_ART03$, "303"
  177. AddListItem CHK_ART03$, "0"
  178. AddListItem CHK_ART03$, "SPO.ALB"
  179. AddListItem CHK_ART03$, "artSportsAlb"
  180. AddListItem CHK_ART03$, "0"
  181.     
  182. CHK_ART08$ = "ChkArt08"
  183. AddListItem DIA_ART$, CHK_ART08$
  184. AddListItem CHK_ART08$, "ON"
  185. AddListItem CHK_ART08$, "ON"
  186. AddListItem CHK_ART08$, "artSymbols"
  187. AddListItem CHK_ART08$, "308"
  188. AddListItem CHK_ART08$, "0"
  189. AddListItem CHK_ART08$, "SYM.ALB"
  190. AddListItem CHK_ART08$, "artSymbolsAlb"
  191. AddListItem CHK_ART08$, "0"
  192. END SUB
  193.  
  194. SUB ReInitArtDialogSymbols STATIC
  195. '' Get the cost of the CLIP ART
  196. j% = GetListLength (DIA_ART$)
  197.  
  198. FOR i% = 1 to j% STEP 1
  199.    szChkSym$ = GetListItem (DIA_ART$, i%)
  200.    ReplaceListItem szChkSym$, STATUS, "ON"
  201.    NEXT i%
  202. END SUB
  203.