That sounds great.  I am sure there are limits to what it can do.  It would be nice to have them fully documented along with some test cases ad you have suggested and volunteered for.
 

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:support@peopleclick.com

-----Original Message-----
From: Jez White [mailto:jez@jezwhite.eclipse.co.uk]
Sent: Wednesday, January 14, 2004 5:00 AM
To: Frazier, Joe Jr; Peter Eisengrein; Win32-GUI
Subject: Re: [perl-win32-gui-users] The rebar control

Nice.
 
Had a little play - is there a way to add more than one control to a band? I also found a problem with adding a toolbar...
 
I'm thinking of adding documentation for this control, as well as creating a couple of examples (and tracker items for for various problems).
 
Thoughts?
 
jez.
 
 
----- Original Message -----
From: Frazier, Joe Jr
To: Peter Eisengrein ; Jez White ; Win32-GUI
Sent: Wednesday, January 14, 2004 5:05 AM
Subject: RE: [perl-win32-gui-users] The rebar control

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:support@peopleclick.com

-----Original Message-----
From: Peter Eisengrein [mailto:Peter.Eisengrein@atx.com]
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:jez@jezwhite.eclipse.co.uk]
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;