> But do they use showmodal? This stops the execution of code in the
> open event until the window is hidden or closed. This fact should imply
> that the splash screen should not be closed until the loading of other
> startup files has been completed. In that case, a timer is not required
> as you would do it at the end of the open event. You can even update
> the screen to show what's loading during the open event like the above
> apps you mentioned. In this case you would simply show the window.
>
Thats a good idea. I tried it, but one problem is that when I open the main
window
it then obscurs the splash screen. I changed it so the Main doesn't open
until
after the splash closes and I have to put a refresh after every change in
text. Is that right?
//____ SHOW SPLASH SCREEN
winSplash.left = (Screen(0).Width - winSplash.Width)/2 //Center the
window on the screen
winSplash.top = (Screen(0).height - winSplash.height)/2
winSplash.Show
//____Time bomb (so I can share early versions freely)
//if d.Year > 2004 then Quit
//____ UPDATE LOADING PROGRESS____________________
winSplash.staticSplash(2).text = "...loading Preferences (1)"
winSplash.Refresh
load_preferences
//....
winSplash.staticSplash(2).text = "...loading Classes (5)"
winSplash.Refresh
open_classes
winSplash.staticSplash(2).text = "...loading Arrays (6)"
winSplash.Refresh
load_arrays
winSplash.staticSplash(2).text = "...loading Setting up (7)"
winSplash.Refresh
//____PREPARE MAIN WINDOW __________________
winMain.Left = 0
winMain.Top = 44
winMain.efMain(0).text = winPref.efSchool(6).text
winMain.efMain(1).text = d.shortdate
winMain.stMain(4).text = str(Nclasses) + " classes"
//____ Close SPLASH WIndow________________________
winSplash.Close
//____ SHOW MAIN WINDOW_________________________
winMain.show
_______________________________________________
Unsubscribe or switch delivery mode:
<http://support.realsoftware.com/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|