I've got some scripts I can post, has a lot of examples in it, settings, auto updating, custom colors for everything, embedded images and everything, if you want to see it, let me know, I'll make it as an attachment.
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jez White Sent: Monday, November 15, 2004 2:59 AM To: Glenn Linderman; Chris Wearn Cc: Win32-GUI List Subject: Re: [perl-win32-gui-users] Website - Code snippets gallery >> 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. I too think we need a place for these snippets - a Win32::GUI cookbook of sorts. It's a question of who is prepared to maintain/organise it? Any offers? > It is always delightful when someone offers some of the hard-won fruits of > their labors to share with others. Thanks for thinking of it. > > This is probably a nice snippet of code... but it isn't complete enough to > run, so I can't tell for sure. Probably adding a few lines at the top to > use strict; use warnings; use Win32::GUI; and to initialize the I've created an example, and have added to CVS - the code is also below. The only thing you need to do is to have a bitmap of some description - I was going to add a bitmap to CVS so the script would run, but I don't think the world is ready for my art skills:) Cheers, jez. ------------- use Win32::GUI; use strict; my ($width,$height); my $mainwin; #try to load the splash bitmap from the exe that is running my $splashimage= new Win32::GUI::Bitmap('SPLASH'); unless ($splashimage) { #bitmap is not in exe, load from file $splashimage= new Win32::GUI::Bitmap('SPLASH.bmp'); die 'could not find splash bitmap' unless $splashimage; #get the dimensions of the bitmap ($width,$height) = $splashimage->Info(); } #create the splash window my $splash = new Win32::GUI::Window ( -name => "Splash", -text => "Splash", -height => $height, -width => $width, -left => 100, -top => 100, -addstyle => WS_POPUP, -popstyle => WS_CAPTION | WS_THICKFRAME, -addexstyle => WS_EX_TOPMOST ); #create a label in which the bitmap will be placed my $bitmap = $splash->AddLabel( -name => "Bitmap", -left => 0, -top => 0, -width => $width, -height => $height, -bitmap => $splashimage, ); $bitmap->SetImage( $splashimage ); #center the splash and show it $splash->Center; $splash->Show(); #call do events - not Dialog - this will display the window and let us #build the rest of the application. Win32::GUI::DoEvents; #A good way of building your application is to keep everything in packages, and eval those #into scope in this phase. In this case, we'll create the main window and sleep to simulate #some work. my $string = q ` $mainwin = new Win32::GUI::Window ( -name => "Main", -text => "Main window", -height => 400, -width => 400, ); sleep(2); $mainwin->Center(); $mainwin->Show(); `; #eval the code and report any errors eval $string; if ($@) { my $message = $@; Win32::GUI::MessageBox($splash, $message ,"Build Error", MB_OK | MB_ICONWARNING); } #hide the splash and enter the Dialog phase $splash->Hide; Win32::GUI::Dialog(); ------------------------------------------------------- This SF.Net email is sponsored by: InterSystems CACHE FREE OODBMS DOWNLOAD - A multidimensional database that combines robust object and relational technologies, making it a perfect match for Java, C++,COM, XML, ODBC and JDBC. www.intersystems.com/match8 _______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
