Par2: Make loading DLLs faster/Cover DLL load with a window 1999-06-04 -- David Martin I don't know of any way to make the application start any faster, but I can show you
how to display a window during the load process.
1. In your .EXE app file go to the global data Embed and add a window definition.
The one I use is below
StartWindow
WINDOW,AT(,,237,70),CENTER,WALLPAPER('SGreen.bmp'),TILED,TIMER(50),GRAY,DOUBLE
STRING('Loading Sharpe Estimator 2000 . . .'),AT(62,20),USE(?StartString1),TRN,
FONT('Arial',16,,)
STRING('Copyright <169> 1998-1999, Sharpe Software, Inc.'),AT(62,37),USE
(?StartString2),TRN,FONT('Arial',10,,)
IMAGE('Worker3.gif'),AT(199,39),USE(?StartImage3)
IMAGE('S2.bmp'),AT(6,7),USE(?StartImage1)
END
2. Next goto Program Start embed in the Global Embeds and insert the following code
at Priority 1.
Open(StartWindow)
Accept
Case Event()
Of Event:Timer
Break
End
End
This throws up the window, but exits the Accept loop. Notice it doesn't close the
window.
3. In the ThisWindow.Init for your Application Frame add the close for your startup
window.
Close(StartWindow)
Printed May 4, 2024, 6:39 pm This article has been viewed/printed 35123 times. |