RE: Splash : Derek Parnell
- Posted by Cassidy Napoli <gonzotek at yahoo.com> Oct 22, 2001
- 353 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 ) > >