This is SOOO cool: #!perl -w use Win32::GUI; use strict; use warnings;
my $W = new GUI::Window( -title => "Win32::GUI::Rebar test", -left => 100, -top => 100, -width => 300, -height => 200, -name => "Window", -events =>{ Terminate => sub { return -1 }, } ); #create an image list my $IL = new GUI::ImageList(16, 16, 8, 3, 10); my $IMG_ONE = $IL->Add("d:\\perl\\scripts\\open.bmp"); my $IMG_TWO = $IL->Add("d:\\perl\\scripts\\folder.bmp"); my $IMG_THREE = $IL->Add("d:\\perl\\scripts\\xmlfile.bmp"); #create a rebar control my $rebar = $W->AddRebar( -name => "Rebar", -bandborders => 1, -varheight => 0, -imagelist => $IL, ); my $but = $W->AddButton( -name =>"but", -top => '1', -left => '1', -text => "TipTest", -tip => "This is a Tip!", -width => 25, -height => 20, ); my $txt = $W->AddTextfield( -name =>"text", -prompt => "Enter Text", -top => '120', -left => '1', -text => "This is Text!", -tip => "This is Text!", -width => 150, -height => 25, ); $rebar->InsertBand (-text => 'one' , -image => $IMG_ONE); $rebar->InsertBand (-text => 'two' , -image => $IMG_TWO); $rebar->InsertBand (-text => 'thee', -image => $IMG_THREE); $rebar->InsertBand (-text => 'Four', -child => $but, -width => 25, -minwidth => 25, -minheight => 20, ); $rebar->InsertBand (-text => 'Four', -child => $txt , -width => 25, -minwidth => 25, -minheight => 20, ); print $rebar->BandCount,"\n"; #Below will crash... #$rebar->BandInfo(0); $W->Show; Win32::GUI::Dialog; Of course, not every control may work right, but this is definatly something to play with!!!! Joe Frazier, Jr. Technical Support Engineer Peopleclick Service Support Tel: +1-800-841-2365 E-Mail: mailto:[EMAIL PROTECTED] -----Original Message----- From: Peter Eisengrein [mailto:[EMAIL PROTECTED] Sent: Tuesday, January 13, 2004 8:27 PM To: 'Jez White'; Win32-GUI Subject: RE: [perl-win32-gui-users] The rebar control Jez, you're almost there!!! Change these lines: $rebar->InsertBand (-text => 'one' , -image => 0); $rebar->InsertBand (-text => 'two' , -image => 1); $rebar->InsertBand (-text => 'thee', -image => 2); to $rebar->InsertBand (-text => 'one' , -image => $IMG_ONE); $rebar->InsertBand (-text => 'two' , -image => $IMG_TWO); $rebar->InsertBand (-text => 'thee', -image => $IMG_THREE); -Pete -----Original Message----- From: Jez White [mailto:[EMAIL PROTECTED] Sent: Tuesday, January 13, 2004 4:28 PM To: Win32-GUI Subject: [perl-win32-gui-users] The rebar control Hi, I've just spent some time getting to grips with the rebar control - and I didn't get very far:) I must be missing something simple, because I can't work out how to use this control. I've gone through the perl/XS code and MS docs and I'm still clueless. The example below (when run in the samples folder) creats a rebar, with 3 bands. Each band has a text string and image. You can resize the rebar, move the bands by dragging and it all seems to work - but how do you add other buttons/controls? Calling the BandInfo method causes a crash. Cheers jez. =============== #!perl -w use Win32::GUI; use strict; my $W = new GUI::Window( -title => "Win32::GUI::Rebar test", -left => 100, -top => 100, -width => 300, -height => 200, -name => "Window", ); #create an image list my $IL = new GUI::ImageList(16, 16, 8, 3, 10); my $IMG_ONE = $IL->Add("one.bmp"); my $IMG_TWO = $IL->Add("two.bmp"); my $IMG_THREE = $IL->Add("three.bmp"); #create a rebar control my $rebar = $W->AddRebar( -name => "Rebar", -bandborders => 1, -varheight => 1, -imagelist => $IL, ); $rebar->InsertBand (-text => 'one' , -image => 0); $rebar->InsertBand (-text => 'two' , -image => 1); $rebar->InsertBand (-text => 'thee', -image => 2); #Below will crash... #$rebar->BandInfo(0); $W->Show; Win32::GUI::Dialog;