home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / rbgsrc.zip / BCKGRND2.VRX < prev    next >
Text File  |  1995-10-12  |  7KB  |  334 lines
  1. /*:VRX         Main
  2. */
  3. /*  Main
  4. */
  5. Main:
  6. /* Turn off the console box */
  7. Call VRRedirectStdio "Off"
  8. Call VRSet "Console", "WindowListTitle", ""
  9.  
  10. /* Time to check the Ini file */
  11. Call INI_Check
  12.  
  13. /*  Process the arguments.
  14.     Get the parent window.
  15. */
  16.     parse source . calledAs .
  17.     parent = ""
  18.     argCount = arg()
  19.     argOff = 0
  20.     if( calledAs \= "COMMAND" )then do
  21.         if argCount >= 1 then do
  22.             parent = arg(1)
  23.             argCount = argCount - 1
  24.             argOff = 1
  25.         end
  26.     end; else do
  27.         call VROptions 'ImplicitNames'
  28.     end
  29.     InitArgs.0 = argCount
  30.     if( argCount > 0 )then do i = 1 to argCount
  31.         InitArgs.i = arg( i + argOff )
  32.     end
  33.     drop calledAs argCount argOff
  34.  
  35. /*  Load the windows
  36. */
  37.     call VRInit
  38.     parse source . . spec
  39.     _VREPrimaryWindowPath = ,
  40.         VRParseFileName( spec, "dpn" ) || ".VRW"
  41.     _VREPrimaryWindow = ,
  42.         VRLoad( parent, _VREPrimaryWindowPath )
  43.     drop parent spec
  44.     if( _VREPrimaryWindow == "" )then do
  45.         call VRMessage "", "Cannot load window:" VRError(), ,
  46.             "Error!"
  47.         _VREReturnValue = 32000
  48.         signal _VRELeaveMain
  49.     end
  50.  
  51. /*  Process events
  52. */
  53.     call Init
  54.     signal on halt
  55.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  56.         _VREEvent = VREvent()
  57.         interpret _VREEvent
  58.     end
  59. _VREHalt:
  60.     _VREReturnValue = Fini()
  61.     call VRDestroy _VREPrimaryWindow
  62. _VRELeaveMain:
  63.     call VRFini
  64. exit _VREReturnValue
  65.  
  66. VRLoadSecondary:
  67.     __vrlsWait = abbrev( 'WAIT', translate(arg(2)), 1 )
  68.     if __vrlsWait then do
  69.         call VRFlush
  70.     end
  71.     __vrlsHWnd = VRLoad( VRWindow(), VRWindowPath(), arg(1) )
  72.     if __vrlsHWnd = '' then signal __vrlsDone
  73.     if __vrlsWait \= 1 then signal __vrlsDone
  74.     call VRSet __vrlsHWnd, 'WindowMode', 'Modal' 
  75.     __vrlsTmp = __vrlsWindows.0
  76.     if( DataType(__vrlsTmp) \= 'NUM' ) then do
  77.         __vrlsTmp = 1
  78.     end
  79.     else do
  80.         __vrlsTmp = __vrlsTmp + 1
  81.     end
  82.     __vrlsWindows.__vrlsTmp = VRWindow( __vrlsHWnd )
  83.     __vrlsWindows.0 = __vrlsTmp
  84.     do while( VRIsValidObject( VRWindow() ) = 1 )
  85.         __vrlsEvent = VREvent()
  86.         interpret __vrlsEvent
  87.     end
  88.     __vrlsTmp = __vrlsWindows.0
  89.     __vrlsWindows.0 = __vrlsTmp - 1
  90.     call VRWindow __vrlsWindows.__vrlsTmp 
  91.     __vrlsHWnd = ''
  92. __vrlsDone:
  93. return __vrlsHWnd
  94.  
  95. /*:VRX         EF_1_Change
  96. */
  97. EF_1_Change:
  98. Imagepath = VRGet( "EF_1", "Value" )
  99. return
  100.  
  101. /*:VRX         EF_1_LostFocus
  102. */
  103. EF_1_LostFocus: 
  104. Imagepath = VRGet( "EF_1", "Value" )
  105. ok = VRSet( "EF_1", "Visible", 0 )
  106. return
  107.  
  108. /*:VRX         EF_1_Verify
  109. */
  110. EF_1_Verify: 
  111. Imagepath = VRGet( "EF_1", "Value" )
  112. ok = VRSet( "EF_1", "Visible", 0 )
  113. return
  114.  
  115. /*:VRX         Fini
  116. */
  117. Fini:
  118.     window = VRWindow()
  119.     call VRSet window, "Visible", 0
  120.     drop window
  121. return 0
  122.  
  123. /*:VRX         Halt
  124. */
  125. Halt:
  126.     signal _VREHalt
  127. return
  128.  
  129. /*:VRX         INI_Check
  130. */
  131. INI_Check: 
  132. /* See if the INI exist */
  133. Okay = VRFileExists(RBG.INI)
  134. If Okay = 0 then do
  135.     Imagepath = 'C:\OS2\BITMAP\*.BMP'
  136.     Imagestyle = 'S'
  137.     Imagetile = '1'
  138.     Timer = '300000'
  139.     RBGINI = VRSetIni( RBG, Path_for_Images, Imagepath, RBG.INI, "NoClose")
  140.     RBGINI = VRSetIni( RBG, Style_of_Images, Imagestyle, RBG.INI, "NoClose")
  141.     RBGINI = VRSetIni( RBG, Tile_of_Images, Imagestyle, RBG.INI,)
  142.     end
  143. If Okay = 1 then do
  144.     Imagepath = VRGetIni( RBG, Path_for_Images, RBG.INI, "NoClose")
  145.     Imagestyle = VRGetIni( RBG, Style_of_Images, RBG.INI, "NoClose")
  146.     Imagetile = VRGetIni( RBG, Tile_of_Images, RBG.INI,)
  147.     end
  148. return
  149.  
  150. /*:VRX         INI_Write
  151. */
  152. INI_Write: 
  153.     RBGINI = VRSetIni( RBG, Path_for_Images, Imagepath, RBG.INI, "NoClose")
  154.     RBGINI = VRSetIni( RBG, Style_of_Images, Imagestyle, RBG.INI, "NoClose")
  155.     RBGINI = VRSetIni( RBG, Tile_of_Images, Imagetile, RBG.INI,)
  156. return
  157.  
  158. /*:VRX         Init
  159. */
  160. Init:
  161.     window = VRWindow()
  162.     call VRMethod window, "CenterWindow"
  163.     call VRSet window, "Visible", 1
  164.     call VRMethod window, "Activate"
  165.     drop window
  166. return
  167.  
  168. /*:VRX         Menu11_Click
  169. */
  170. Menu11_Click: 
  171. ok = VRSet( "TM_2", "Delay", 300000 * 12 )
  172. return
  173.  
  174. /*:VRX         Menu12_Click
  175. */
  176. Menu12_Click: 
  177. If Imagestyle = "S" then Imagestyle = "Scaled"
  178. If Imagestyle = "N" then Imagestyle = "Normal"
  179. If Imagestyle = "T" then Imagestyle = "Tile"
  180. ok = VRSet( "SPIN_1", "Value", Imagetile )
  181. ok = VRSet( "SPIN_2", "Value", "Imagestyle" )
  182. ok = VRSet( "SPIN_2", "Visible", 1 )
  183. return
  184.  
  185. /*:VRX         Menu13_Click
  186. */
  187. Menu13_Click: 
  188. Call Ini_Write
  189. return
  190.  
  191. /*:VRX         Menu1_Click
  192. */
  193. Menu1_Click:
  194. delay = VRGet( "TM_2", "Delay" )
  195. If delay < 300000 then do
  196.     ok = VRSet( "TM_2", "Delay", 300000 )
  197.     end
  198. ok = VRSet( "TM_2", "Enabled", 1 )
  199. ok = VRSet( "EF_1", "Visible", 0 ) 
  200. ok = VRSet( "Spin_2", "Visible", 0 )
  201. ok = VRSet( "Spin_1", "Visible", 0 )
  202. return
  203. /*:VRX         Menu2_Click
  204. */
  205. Menu2_Click: 
  206. Call Quit
  207. return
  208.  
  209. /*:VRX         Menu3_Click
  210. */
  211. Menu3_Click: 
  212. ok = VRSet( "EF_1", "Enabled", 1 )
  213. ok = VRSet( "EF_1", "Visible", 1 )
  214. ok = VRSet( "EF_1", "Value", Imagepath )
  215. return
  216.  
  217.  
  218.  
  219. /*:VRX         Menu4_Click
  220. */
  221. Menu4_Click: 
  222.  
  223. return
  224.  
  225. /*:VRX         Menu5_Click
  226. */
  227. Menu5_Click: 
  228. ok = VRSet( "TM_2", "Delay", 300000 )
  229. return
  230.  
  231. /*:VRX         Menu6_Click
  232. */
  233. Menu6_Click: 
  234. ok = VRSet( "TM_2", "Delay", 600000 )
  235. return
  236.  
  237. /*:VRX         Menu7_Click
  238. */
  239. Menu7_Click: 
  240. ok = VRSet( "TM_2", "Delay", 900000 )
  241. return
  242.  
  243. /*:VRX         Menu8_Click
  244. */
  245. Menu8_Click: 
  246. rvalue = random(5,60)
  247. rvalue = rvalue * 60 * 1000
  248. ok = VRSet( "TM_2", "Delay", rvalue )
  249. return
  250.  
  251. /*:VRX         Menu9_Click
  252. */
  253. Menu9_Click: 
  254. ok = VRSet( "TM_2", "Delay", 5000 )
  255. return
  256.  
  257. /*:VRX         Quit
  258. */
  259. Quit:
  260.     window = VRWindow()
  261.     call VRSet window, "Shutdown", 1
  262.     drop window
  263. return
  264.  
  265. /*:VRX         SPIN_1_Change
  266. */
  267. SPIN_1_Change: 
  268. Imagetile = VRGet( "SPIN_1", "Value" )
  269. return
  270.  
  271. /*:VRX         SPIN_1_LostFocus
  272. */
  273. SPIN_1_LostFocus:
  274. Imagetile = VRGet( "SPIN_1", "Value" )
  275. ok = VRSet( "SPIN_1", "Visible", 0 )
  276. return
  277.  
  278. /*:VRX         SPIN_2_Change
  279. */
  280. SPIN_2_Change:
  281. Value = VRGet( "SPIN_2", "Value" )
  282. If Value = "Normal" then do
  283.     Imagestyle = "N"
  284.     Imagetile = 1
  285.     end
  286. If Value = "Tile" then do
  287.     Imagestyle = "T"
  288.     Imagetile = 0
  289.     end
  290. If Value = "Scaled" then do
  291.     Imagestyle = "S"
  292.     ok = VRSet( "SPIN_1", "Visible", 1 )
  293.     Imagetile = VRGet( "SPIN_1", "Value" )
  294.     end
  295.     Else
  296. ok = VRSet( "SPIN_1", "Visible", 0 )
  297. return
  298.  
  299. /*:VRX         SPIN_2_LostFocus
  300. */
  301. SPIN_2_LostFocus: 
  302. Value = VRGet( "SPIN_2", "Value" ) 
  303. If Value = "Scaled" then do
  304.     ok = VRSet( "SPIN_1", "Visible", 1 )
  305.     return
  306.     end    
  307. ok = VRSet( "SPIN_2", "Visible", 0 )
  308. ok = VRSet( "SPIN_1", "Visible", 0 )
  309. return
  310.  
  311. /*:VRX         TM_2_Trigger
  312. */
  313. TM_2_Trigger:
  314. ok = VRSet( "EF_1", "Enabled", 0 )
  315. /* Random Bitmaps */
  316. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  317. call SysLoadFuncs
  318. PARSE UPPER ARG newbitmap
  319. if (newbitmap = " ") then
  320.    do
  321.       call SysFileTree Imagepath, "bitmaps.", "O"
  322.          i = random(1,bitmaps.0)
  323.          newbitmap = bitmaps.i
  324.       end
  325. call SysSetObjectData "<WP_DESKTOP>", "BACKGROUND="newbitmap","Imagestyle",Imagetile,I;"
  326. ok = VRSet( "EF_1", "Enabled", 1 )
  327. return
  328. /*:VRX         Window1_Close
  329. */
  330. Window1_Close:
  331.     call Quit
  332. return
  333.  
  334.