[perl-win32-gui-users] Grayed out combobox items in dialog box....

[Martin Hopkins]

 
I'm having problems with grayed out items in combo boxes and was wondering
if anyone had come across this problem and/or had a solution.
 
If I put a combo box on my main window then all is fine - the items appear
and they are not grayed out. However, put them on a modal dialog box and the
items are grayed - even though I'm using the same options to create the
combo.
 
The code below exhibits this problem.
 
Thanks in advance for any assistance.
Regards
Martin
 
============================================================================
==============
 
use Win32::GUI;
use strict;
 
 my $screen_width = Win32::GUI::GetSystemMetrics(0);
 my $screen_height = Win32::GUI::GetSystemMetrics(1);
 my $minwidth = 620;
 my $minheight = 255;
 my $MixDlg;
 my $DlgCombo;
 my $MainCombo;
 
 my $MainWindow = new Win32::GUI::Window(
  -name   => "MainWindow",
  -top    => ($screen_height - $minheight)/2,
  -left   => ($screen_width - $minwidth)/2,
  -width  => $minwidth,
  -height => $minheight,
  -minsize=> [$minwidth,$minheight],
  -title  => "Combo Test Window",
  -onMouseRightDown  => \&mouseRightDown,

 );
 
 $MainWindow->Show();
   $MainCombo = $MainWindow->AddCombobox(
     -name     => "MainCombo",
     -tabstop  => 1,
     -addstyle    => WS_VISIBLE | 2 | Win32::GUI::constant("WS_NOTIFY", 0),
     -left     => 10,
     -top      => 10,
     -width    => 110,
     -height   => 160,
 );
 $MainCombo->InsertItem ("Item one - main window");
 $MainCombo->InsertItem ("Item two - main window");
 $MainCombo->Select(0);
   
 Win32::GUI::Dialog();
 exit;
 
sub mouseRightDown {
   print STDERR "Mouse click\n";
 my $xDlgSize = 310;
 my $yDlgSize = 180;
 $MixDlg = new Win32::GUI::DialogBox (
              -name  => "MixOptionsDlg",
              -title => "Mix Options",
              -pos   => [ 10, 10 ],
              -size  => [ $xDlgSize, $yDlgSize ], 
             );   
   $DlgCombo = $MixDlg->AddCombobox(
     -name     => "DlgCombo",
     -tabstop  => 1,
     -addstyle    => WS_VISIBLE | 2 | Win32::GUI::constant("WS_NOTIFY", 0),
     -left     => 10,
     -top      => 10,
     -width    => 110,
     -height   => 160,
 );
 $DlgCombo->InsertItem ("Item one");
 $DlgCombo->InsertItem ("Item two");
 $DlgCombo->Select(0);
 
 $MixDlg -> DoModal (1);
}