Hi Jez,
Hey works for me... interestingly I had to beat it into submission a bit
(didn't like the 'my' on $band2 and then had to declare $band2 as:
use vars qw(
$band2
);
Visually the example creates the same capabilities as that of the Outlook
example (despite the fact that it may not be strictly the correct way of
doing it).
Have you found a way of getting text and an image on a button? Or am I write
in assuming that it requires the image (bitmap) to contain both the leading
image and trailing text.
Chris
> -----Original Message-----
> From: Jez White [mailto:[EMAIL PROTECTED]
> Sent: Friday, 23 January 2004 11:13 PM
> To: Chris Wearn; Win32-GUI List
> Subject: Re: [perl-win32-gui-users] Rebar - InsertBands -
> MultipleButtons
>
>
> Hi,
>
> Some good news and some bad news...
>
> The bad. To me the outlook rebar control looks like it contains a toolbar
> which contains the icons/text and separators. I have yet to get a
> toolbar to
> work correctly with the rebar...The toolbar control itself has various
> methods/features missing (hottrack and separators amongst others).
>
> The Good. You can only have one control per band - however, you can add as
> many controls to a child window, which can then be added to a rebar band.
> The example below shows this in action.
>
> I've also added some new documentation to rebar.xs (as well as adding a
> couple of methods ShowBand and HideBand) and created a tracker
> item for some
> of the issues - feel free to add issues to that tracker item.
> There is also
> a tracker item for the toolbar issues.
>
> http://sourceforge.net/tracker/?group_id=16572
>
> Cheers,
>
> jez.
>
>
> ==============
> This example creates 3 bands, band one is empty. Band 2 contains
> a couple of
> drop downs, while band 3 contains a datetime control and a couple of
> buttons.
>
>
> use Win32::GUI;
> use strict;
>
> #create the main window
> my $mainwindow = new GUI::Window(
> -title => "Win32::GUI::Rebar test",
> -left => 100,
> -top => 100,
> -width => 600,
> -height => 200,
> -name => "Window",
> -onTerminate => sub { return -1 },
> );
>
> #create a child window for band 2 of the rebar control, this band will
> contain two dropdowns
> my $band2 = new Win32::GUI::Window (
> -parent => $mainwindow,
> -name => "RebarBand2",
> -popstyle => WS_CAPTION | WS_SIZEBOX,
> -pushstyle => WS_CHILD,
> );
>
> #create the first drop down
> my $dd1 = $band2->AddCombobox(
> -name => "Dropdown",
> -pos => [0, 0],
> -size => [100, 80],
> -addstyle => 3 | 2097152 | 1048576,
> -tip => 'Some items',
> );
>
> $dd1->Add('Item 1','Item 2','Item 3','Item4');
> $dd1->Select(0);
>
> #create the second drop down
> my $dd2 = $band2->AddCombobox(
> -name => "Dropdown2",
> -pos => [105, 0],
> -size => [100, 80],
> -addstyle => 3 | 2097152 | 1048576,
> -tip => 'Some colours',
> );
>
> $dd2->Add('Red','Blue','Green');
> $dd2->Select(0);
>
> #create a child window for band 3 of the rebar control
> my $band3 = new Win32::GUI::Window (
> -parent => $mainwindow,
> -name => "RebarBand3",
> -popstyle => WS_CAPTION | WS_SIZEBOX,
> -pushstyle => WS_CHILD,
> );
>
> # create Date time control for band 3
> my $DateTime = $band3->AddDateTime (
> -name => "DateTime",
> -pos => [0, 0],
> -size => [130, 20],
> -tip => 'A date and time',
> );
> #set the format for the datetime control
> $DateTime->Format('dd-MMM-yyyy HH:mm:ss');
>
> #Add a button to band 3
> $band3->AddButton (
> -name => 'Button',
> -pos => [135, 0],
> -size => [50, 20],
> -text => 'Button',
> -tip => 'A Button',
> -onClick => sub {print 'button clicked' },
> );
>
> #Add a button to band 3
> $band3->AddButton (
> -name => 'Button1',
> -pos => [195, 0],
> -size => [50, 20],
> -text => 'Button1',
> -tip => 'A Button',
> -onClick => sub {print 'button1 clicked' },
> );
>
> #create a rebar control
> my $rebar;
> $rebar = $mainwindow->AddRebar(
> -name => "Rebar",
> -bandborders => 1,
> -fixedorder => 1,
> -onHeightChange => sub {print 'Rebar_HeightChange'.$rebar->Height;},
> );
>
> #Insert band 1
> $rebar->InsertBand (-text => 'One' );
> #Insert band 2
> $rebar->InsertBand (
> -child => $band2,
> -width => 210,
> -minwidth => 210,
> -minheight => 21,
> );
> #Insert band 3
> $rebar->InsertBand (
> -child => $band3,
> -width => 250,
> -minwidth => 250,
> -minheight => 21,
> );
>
> #show the main window
>
> $mainwindow->Show;
>
> Win32::GUI::Dialog;
>
>
> ----- Original Message -----
> From: "Chris Wearn" <[EMAIL PROTECTED]>
> To: "Win32-GUI List" <perl-win32-gui-users@lists.sourceforge.net>
> Sent: Friday, January 23, 2004 2:50 PM
> Subject: [perl-win32-gui-users] Rebar - InsertBands - MultipleButtons
>
>
> > Hi All,
> >
> > I'm still messing around with rebar, trying to create a menu similar to
> the
> > rebar in say 'Outlook'. Where a single Band contains a number of buttons
> and
> > seperators: | [Reply] [Reply To All] [Forward] | [Send/Receive]| etc
> >
> > After more tinkering, I've discovered that the button wont
> accept a -text
> > attribute and -bitmap (in that the text wont be rendered). So
> if you want
> a
> > bitmap leading the text, you need to create the bitmap with the
> image and
> > the text and put the whole lot on the button.
> >
> > What I can't figure is how using -child you get more than one button or
> > control per Band, or is this not possible.
> >
> > Chris
> >
> >
> >
> > -------------------------------------------------------
> > The SF.Net email is sponsored by EclipseCon 2004
> > Premiere Conference on Open Tools Development and Integration
> > See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
> > http://www.eclipsecon.org/osdn
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
