Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
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 May 5, 2024, 1:57 am This article has been viewed 35124 times.
|
|