Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
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)
Today is April 25, 2024, 3:31 am This article has been viewed 35120 times.
|
|