RE: [perl-win32-gui-users] The rebar control

[Frazier, Joe Jr]

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;