From: Chris W. <ch...@vi...> - 2004-01-23 14:45:46
|
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 |
From: Jez W. <je...@je...> - 2004-01-23 15:12:14
|
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" <ch...@vi...> To: "Win32-GUI List" <per...@li...> 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 > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |
From: Chris W. <ch...@vi...> - 2004-01-23 15:50:44
|
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:je...@je...] > 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" <ch...@vi...> > To: "Win32-GUI List" <per...@li...> > 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 > > Per...@li... > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > |
From: Jez W. <je...@je...> - 2004-01-23 16:06:24
|
Hi, Not sure why you had to declare $band2 like that - my dodgy code eh?:) I'm not sure what you mean when you talk about "image (bitmap) to contain both the leading...", if you are talking about the rebar band and it's options, then the following may help: # (@)METHOD:InsertBand(%OPTIONS) # # Insert a new band into the rebar control. # # Allowed %OPTIONS are: # # -image => Zero based index of the imagelist. # -index => Zero based index where the band is inserted. # -bitmap => The background bitmap for the band. # -child => Child control. See Below. # -foreground => Band foreground colors. # -background => Band background colors. # -width => The width of the band. # -minwidth => The minimum width of the band. # -minheight => The minimum height of the band. # -text => The text for the band. If you are talking about normal buttons with an image in it and text - I haven't got a clue:) I know toolbars can do this - but we're still left with the problem of attaching them to the rebar. You could go for the ugly hack where you have a button containing a bitmap with a text label underneath. cheers, jez. ----- Original Message ----- From: "Chris Wearn" <ch...@vi...> To: "Jez White" <je...@je...> Cc: "Win32-GUI List" <per...@li...> Sent: Friday, January 23, 2004 3:55 PM Subject: RE: Rebar - InsertBands - MultipleButtons > 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:je...@je...] > > 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" <ch...@vi...> > > To: "Win32-GUI List" <per...@li...> > > 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 > > > Per...@li... > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > |
From: Chris W. <ch...@vi...> - 2004-01-23 16:20:08
|
Hi Jez, Hmmm, sort of. Again, if I go back to the Outlook example and you look at the rebar... if you move the mouse over the 'Reply' button, it has a little picture followed by the word 'Reply' all atop the button. The only way I can get this to work is to create the bitmap as containing an both the piccy of the man and the word Reply, rather than have attributes as expected: -text => "reply", -bitmap => $piccy_of_man, Chris > -----Original Message----- > From: Jez White [mailto:je...@je...] > Sent: Saturday, 24 January 2004 12:08 AM > To: Chris Wearn > Cc: Win32-GUI List > Subject: Re: Rebar - InsertBands - MultipleButtons > > > Hi, > > Not sure why you had to declare $band2 like that - my dodgy code eh?:) > > I'm not sure what you mean when you talk about "image (bitmap) to contain > both the leading...", if you are talking about the rebar band and it's > options, then the following may help: > > # (@)METHOD:InsertBand(%OPTIONS) > # > # Insert a new band into the rebar control. > # > # Allowed %OPTIONS are: > # > # -image => Zero based index of the imagelist. > # -index => Zero based index where the band is inserted. > # -bitmap => The background bitmap for the band. > # -child => Child control. See Below. > # -foreground => Band foreground colors. > # -background => Band background colors. > # -width => The width of the band. > # -minwidth => The minimum width of the band. > # -minheight => The minimum height of the band. > # -text => The text for the band. > > If you are talking about normal buttons with an image in it and text - I > haven't got a clue:) I know toolbars can do this - but we're > still left with > the problem of attaching them to the rebar. You could go for the ugly hack > where you have a button containing a bitmap with a text label underneath. > > cheers, > > jez. > > ----- Original Message ----- > From: "Chris Wearn" <ch...@vi...> > To: "Jez White" <je...@je...> > Cc: "Win32-GUI List" <per...@li...> > Sent: Friday, January 23, 2004 3:55 PM > Subject: RE: Rebar - InsertBands - MultipleButtons > > > > 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:je...@je...] > > > 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" <ch...@vi...> > > > To: "Win32-GUI List" <per...@li...> > > > 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 > > > > Per...@li... > > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > |
From: Jez W. <je...@je...> - 2004-01-23 16:25:00
|
Arh. I understand now. The -bitmap option is used to paint the background of a band, not for specifying a bitmap/button control. jez. ----- Original Message ----- From: "Chris Wearn" <ch...@vi...> To: "Jez White" <je...@je...> Cc: "Win32-GUI List" <per...@li...> Sent: Friday, January 23, 2004 4:24 PM Subject: RE: Rebar - InsertBands - MultipleButtons > Hi Jez, > > Hmmm, sort of. Again, if I go back to the Outlook example and you look at > the rebar... if you move the mouse over the 'Reply' button, it has a little > picture followed by the word 'Reply' all atop the button. The only way I can > get this to work is to create the bitmap as containing an both the piccy of > the man and the word Reply, rather than have attributes as expected: > > -text => "reply", > -bitmap => $piccy_of_man, > > Chris > > > -----Original Message----- > > From: Jez White [mailto:je...@je...] > > Sent: Saturday, 24 January 2004 12:08 AM > > To: Chris Wearn > > Cc: Win32-GUI List > > Subject: Re: Rebar - InsertBands - MultipleButtons > > > > > > Hi, > > > > Not sure why you had to declare $band2 like that - my dodgy code eh?:) > > > > I'm not sure what you mean when you talk about "image (bitmap) to contain > > both the leading...", if you are talking about the rebar band and it's > > options, then the following may help: > > > > # (@)METHOD:InsertBand(%OPTIONS) > > # > > # Insert a new band into the rebar control. > > # > > # Allowed %OPTIONS are: > > # > > # -image => Zero based index of the imagelist. > > # -index => Zero based index where the band is inserted. > > # -bitmap => The background bitmap for the band. > > # -child => Child control. See Below. > > # -foreground => Band foreground colors. > > # -background => Band background colors. > > # -width => The width of the band. > > # -minwidth => The minimum width of the band. > > # -minheight => The minimum height of the band. > > # -text => The text for the band. > > > > If you are talking about normal buttons with an image in it and text - I > > haven't got a clue:) I know toolbars can do this - but we're > > still left with > > the problem of attaching them to the rebar. You could go for the ugly hack > > where you have a button containing a bitmap with a text label underneath. > > > > cheers, > > > > jez. > > > > ----- Original Message ----- > > From: "Chris Wearn" <ch...@vi...> > > To: "Jez White" <je...@je...> > > Cc: "Win32-GUI List" <per...@li...> > > Sent: Friday, January 23, 2004 3:55 PM > > Subject: RE: Rebar - InsertBands - MultipleButtons > > > > > > > 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:je...@je...] > > > > 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" <ch...@vi...> > > > > To: "Win32-GUI List" <per...@li...> > > > > 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 > > > > > Per...@li... > > > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > > > |
From: Chris W. <ch...@vi...> - 2004-01-23 16:09:13
|
Hi Jez, Okay... change that a little still not quite working... On creating the child window '$band2' it wont accept WS_CAPTION so changed that to 00C00000 but I dont have a numeric for WS_SIZEBOX (I take it -popstyle is removing these two attributes). -pushstyle WS_CHILD is 40000000. Any ideas? It just does not like the -popstyle lines which currently stands at: -popstyle => 00C00000 | WS_SIZEBOX, Chris > -----Original Message----- > From: Jez White [mailto:je...@je...] > 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" <ch...@vi...> > To: "Win32-GUI List" <per...@li...> > 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 > > Per...@li... > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > |
From: Jez W. <je...@je...> - 2004-01-23 16:15:22
|
What version of Win32::GUI are you using? I'm using the latest 665-fix build - although I would have thought that WS_CAPTION,WS_SIZEBOX and WS_CHILD would exist on previous versions? jez. ----- Original Message ----- From: "Chris Wearn" <ch...@vi...> To: "Jez White" <je...@je...> Cc: "Win32-GUI List" <per...@li...> Sent: Friday, January 23, 2004 4:13 PM Subject: RE: [perl-win32-gui-users] Rebar - InsertBands - MultipleButtons > Hi Jez, > > Okay... change that a little still not quite working... > > On creating the child window '$band2' it wont accept WS_CAPTION so changed > that to 00C00000 but I dont have a numeric for WS_SIZEBOX (I take > it -popstyle is removing these two attributes). > > -pushstyle WS_CHILD is 40000000. > > Any ideas? It just does not like the -popstyle lines which currently stands > at: > > -popstyle => 00C00000 | WS_SIZEBOX, > > Chris > > > -----Original Message----- > > From: Jez White [mailto:je...@je...] > > 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" <ch...@vi...> > > To: "Win32-GUI List" <per...@li...> > > 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 > > > Per...@li... > > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > |