1. RE: Splash : Derek Parnell
- Posted by Cassidy Napoli <gonzotek at yahoo.com> Oct 22, 2001
- 354 views
It works for me. I ran it in a directory without splash.bmp and got a blank rectangle. Then I tossed a splash.bmp into the same directory. It showed in the window. So I guess, check to make sure your bitmap is where you think it is. Evan Marshall wrote: > I have here a slightly modified bit of code that I found on the forum. > When I run it, all that I get is a grey rectangle. What am I doing > wrong? > --------------------------------------------- > include win32lib.ew > > constant MainWindow = create(Window, "MainWindow", 0, 0, -100, 0, 0, > 0), > Splash = create(Window, "Splash", 0, 0, 0, 0, > 0,{WS_POPUP,WS_VISIBLE}), > SBM = create(Bitmap, "", Splash, 0, 0, 800, 600, 0) > > procedure initialize() > > atom timeout > > -- Set 5 seconds as the minimum time for a splash window display. > timeout = time() + 5 > -- Draw the stuff on the splash screen. > setBitmap(SBM, "splash.bmp") > -- Move it back into view > setRect(Splash, 100, 100, 800, 600, 1) > -- Wait til countdown has elapsed. > while timeout > time() do > doEvents(0) > end while > -- Get rid of splash screen. > destroy(Splash) > > > end procedure > > onActivate[MainWindow] = routine_id("initialize") > > WinMain( MainWindow, Normal ) > >
2. RE: Splash : Derek Parnell
- Posted by Derek Parnell <ddparnell at bigpond.com> Oct 22, 2001
- 367 views
Hi Evan, this works for me. You might like to check that the bitmap is in the current directory though. To make it a bit more "bullet-proof", try something like... atom BMP BMP = loadBitmapFromFile("splash.bmp") if BMP = 0 then -- No file loaded. else setBitmap(SBM, BMP) end if . . . destroy(Splash) deleteObject(BMP) end procedure ---------- Derek -------------------------------------------------------------------- CAUTION - This email and any files attached may contain privileged and confidential information intended solely for the use of the individual or entity to whom they are addressed. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify the sender immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Global Technology Australasia Limited. --------------------------------------------------------------------