Hi, Sorry for my previous message. I have discovered that I was using an older version of Win32::GUI that was installed using ppm, but now after installing it from cpan.org, it works fine.
Teddy ----- Original Message ----- From: "Robert May" <[EMAIL PROTECTED]> To: "Octavian Rasnita" <[EMAIL PROTECTED]> Cc: <Perl-Win32-Users@listserv.ActiveState.com> Sent: Wednesday, July 27, 2005 20:36 PM Subject: Re: creating a combo box > Hi, > > There are 3 different types of combobox - see MSDN for details: > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/comboboxes/comboboxes.asp > > Two of the types include the selected item in an edit control, whose > default behaviour is to use home/end to move to the beginning/end of the > text. The third has the behaviour you desire, but not the look that you > demonstrated with you script. It would be possible to adapt either of > the first two types to do what you want as well, but this is certainly > not trivial, and would deviate from the standard 'user experience'. > > Here's a script demonstrating all three types: > > #!perl -w > use strict; > use warnings; > > use Win32::GUI(); > > my $Win = Win32::GUI::DialogBox->new( > -title => "ComboBox Types", > -size => [350,200], > ); > > # Standard: Edit control + listbox > $Win->AddCombobox( > -name => 'Markets1', > -pos => [10,10], > -size => [100,100], > -vscroll => 1, > -tabstop => 1, > ); > > # Drop down: Edit control + drop-down > $Win->AddCombobox( > -name => 'Markets2', > -pos => [120,10], > -size => [100,100], > -vscroll => 1, > -tabstop => 1, > -dropdown => 1, > ); > > # Drop down list: Static control + drop-down > $Win->AddCombobox( > -name => 'Markets3', > -pos => [230,10], > -size => [100,100], > -vscroll => 1, > -tabstop => 1, > -dropdownlist => 1, > ); > > my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte > publice', 'Drepturi de preferinta'); > > $Win->Markets1->Add(@markets); > $Win->Markets2->Add(@markets); > $Win->Markets3->Add(@markets); > > $Win->Show(); > Win32::GUI::Dialog(); > exit(0); > __END__ > > Regards, > Rob. > > > > Octavian Rasnita wrote: > > Hi, > > > > I have created a combo box using the code below, but I cannot move the > > cursor to select the first or the last element from the combo box using the > > home and end keys. > > What can I do to be able to do this? > > > > Thank you. > > > > $Win->AddCombobox( > > -name => 'Markets', > > -left => 60, > > -top => 10, > > -width => 120, > > -height => 22, > > -tabstop => 1, > > ); > > > > my @markets = ('Regular', 'Odd lot', 'Deal', 'BER regular', 'Oferte > > publice', 'Drepturi de preferinta'); > > > > $Win->Markets->Add(@markets); > > > > Teddy > > > > > > _______________________________________________ > > Perl-Win32-Users mailing list > > Perl-Win32-Users@listserv.ActiveState.com > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
