Hi all,

have been exchanging emails off-list with Jez White regarding a few issues
that used to work and now don't... After much tinkering and more than one or
two glasses of red wine, I figured how to get a borderless window up, so
that you can create those splash screens that load quickly and hang around
until your perl app loads and finally runs, then disappears:

# Construct the main window
$splashWin = new Win32::GUI::Window(
#====================================
        -name                   => "splashWin",
        -title          => "",
        -left                   => ($screen_width - 400) / 2,
        -top                    => ($screen_height - 300) / 2,
        -width          => 400,
        -height         => 300,
        -minwidth               => 400,
        -minheight              => 300,
        -addstyle               => WS_POPUP,
        -popstyle               => WS_CAPTION | WS_THICKFRAME,
        -addexstyle             => WS_EX_TOPMOST
);

# Splash Screen Bitmap
$imgSplash  = new Win32::GUI::Bitmap('.\gfx\splash.bmp');

$bmpSplash = $splashWin->AddLabel(
#====================================
        -left           => 0,
        -top            => 0,
        -width  => 400,
        -height => 300,
        -name           => "Bitmap",
        -addstyle       => 14,
        -visible        => 1,
        -text           => "splash",
);
$bmpSplash->SetImage($imgSplash);

There are many examples / small snippets of code that could serve as
examples to others, we just need a place to easily store and collectively
showcase them. Something like a forum (I run one using phpBB). Is there any
way of doing this on Sourceforge or some other place where people can paste
in 'how to' snippets, or do we start one.

What is the general concensus... what happened to the documentation project
website, is that still being used / maintained?

Rgds

Chris Wearn



Reply via email to