Hello everyone! I've found usefull notes on toolbar. However I have not found how to combine different images to get one toolbar. Later on is my code. I have three bitmaps: one, two and both. If you call the script as follows:
perl script.pl both then you get two-images toolbar. But if you call perl script.pl whatever then you dont get proper toolbar bitmap (Perl complains that it needs a list and the second addbitmap: $TB->AddBitmap($two, 2); is incorrect. Is someone able to help me and show how to combine inline bitmaps dynamically in toolbar? Regards Waldemar ########################################################### #!/usr/bin/perl use strict; use warnings; use Win32::GUI qw(); use Win32::GUI::BitmapInline (); my $one = new Win32::GUI::BitmapInline( q( Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAATCwAAEwsAAAAAAAAAAAAA//// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAA AAAA////////////////////////////////////////////////AAAAAAAA//////////////// ////////////////////////////////////////AAAAAAAA//////////////////////////// ////////////////////////////AAAAAAAA//////////////////////////////////////// ////////////////AAAAAAAA//////////////////////////////////////////////////// ////AAAAAAAA////////////////////////////////////////////////////////AAAAAAAA ////////////////////////////////////////////////////////AAAAAAAA//////////// ////////////////////////////////////////////AAAAAAAA//////////////////////// ////////////////////////AAAAAAAAAAAAAAAA//////////////////////////////////// ////////////////////AAAAAAAA//////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////// ) ); my $two = new Win32::GUI::BitmapInline( q( Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAATCwAAEwsAAAAAAAAAAAAA//// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAA////////////////////////////////AAAAAAAA//////////////////////////// ////////////////////////////////AAAAAAAA//////////////////////////////////// ////////////////////////AAAAAAAAAAAA//////////////////////////////////////// ////////////////////AAAAAAAA//////////////////////////////////////////////// ////////////AAAAAAAA//////////////////////////////////////////////////////// ////AAAAAAAA////////////////////////////////////////////////////////AAAAAAAA ////////////////////////////AAAAAAAA////////////////////AAAAAAAA//////////// ////////////////AAAAAAAA////////////////AAAAAAAA//////////////////////////// ////////AAAAAAAAAAAAAAAAAAAAAAAA//////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////// ) ); my $both = new Win32::GUI::BitmapInline( q( Qk02BgAAAAAAADYAAAAoAAAAIAAAABAAAAABABgAAAAAAAAGAAATCwAAEwsAAAAAAAAAAAAA//// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// ////////////////////AAAAAAAAAAAAAAAAAAAAAAAA//////////////////////////////// AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////////////////////////////////////// ////AAAAAAAA////////////////////////////////////////////AAAAAAAA//////////// ////////////////////////////////////////////////////////AAAAAAAA//////////// ////////////////////////////////////AAAAAAAA//////////////////////////////// ////////////////////////////////AAAAAAAA//////////////////////////////////// ////////////////AAAAAAAAAAAA//////////////////////////////////////////////// ////////AAAAAAAA//////////////////////////////////////////////////////////// AAAAAAAA////////////////////////////////////////////////////AAAAAAAA//////// ////////////////////////////////////////////////////////AAAAAAAA//////////// ////////////////////////////////////AAAAAAAA//////////////////////////////// ////////////////////////////////////AAAAAAAA//////////////////////////////// ////////////AAAAAAAA//////////////////////////////////////////////////////// ////////////AAAAAAAA////////////////////////////////////////////AAAAAAAA//// ////////////////////////////////////AAAAAAAA////////////////////AAAAAAAA//// ////////////////////////////////AAAAAAAAAAAAAAAA//////////////////////////// ////////////AAAAAAAA////////////////AAAAAAAA//////////////////////////////// ////////////////AAAAAAAA////////////////////////////////////////////AAAAAAAA AAAAAAAAAAAAAAAA//////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////// ) ); my $W = Win32::GUI::Window->new(-name=>'W',-size=>[400,400],); my $TB = $W->AddToolbar(-name=>"Toolbar",); $TB->SetBitmapSize(16, 16); if (( $ARGV[0] ) && ( $ARGV[0] eq 'both' )) { $TB->AddBitmap($both, 1); } else { $TB->AddBitmap($one, 1); $TB->AddBitmap($two, 2); } $TB->AddButtons( 2, 0,0,4,0,0, 1,1,4,0,1, ); $W->Show(); Win32::GUI::Dialog(); exit(0); ------------------------------------------------------------------------- This SF.net email is sponsored by: Splunk Inc. Still grepping through log files to find problems? Stop. Now Search log events and configuration files using AJAX and a browser. Download your FREE copy of Splunk now >> http://get.splunk.com/ _______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/