Par2: "Loading program" window 1998-08-14 -- Rick Martin Try adding these Templates to your system. Then add the StartWindow to your
main application. Next, add the CloseStartWindow Code template to your
MainFrame .Init method. I used priority 1. The only caveat is you'll need
to have your application setup with a seperate data DLL. As far as I know,
there isn't a way to insert code in front of DCTInit in the application.
But, if you have a separate data DLL the ProgramSetup Embed comes before
the initialization of external DLLs. Be careful of what data you display
on the StartWindow. Remember you don't have any data file access yet.
Images should work fine, though.
#EXTENSION(StartWindow,'Initial Startup Window'),APPLICATION
#AT(%GlobalData)
StartWindow WINDOW,AT(,,181,77),CENTER,TIMER(100),GRAY,DOUBLE
STRING('Loading Application . . .'),AT(56,33),USE(?StartString1)
END
#ENDAT
#AT(%ProgramSetup),FIRST
Open(StartWindow)
Accept
Case Event()
Of Event:Timer
Break
End
End
#ENDAT
#CODE(CloseStartWindow,'Put this code template where you want to close
start Window'),REQ(StartWindow)
Close(StartWindow)
#!
Printed November 21, 2024, 10:46 am This article has been viewed/printed 35206 times. |