[perl-win32-gui-users] ListView and Windows XP problem

[Roelof Bos]

Hi,

I have this simple app using a ListView to display items (with
checkboxes). Untill I recently switched from Win 2K to Win XP I had no
problems: the ListView worked fine.

Now I am using Win XP and the ListView does paint but it shows no items
and no headers.

Any idea?

I am using Win32-GUI-0.0.670. here a sample of my program:

###### BEGIN EXAMPLE ################

my $window_icon = new Win32::GUI::Icon("icon.ico");
my $window_class = new Win32::GUI::Class(
  -name => "simply_perl_win32_gui",
  -icon => $window_icon,
);
my $window = new Win32::GUI::Window(
  -name => 'window',
  -text => $title,
  -pos => [150,150],
  -size => [405,420],
  -dialogui => 1,
  -class => $window_class,
);
$window->{-dialogui} = 1;


my $listview = $window->AddListView (
  -name => 'listview',
  -checkboxes => 1,
  -size => [400,280],
  -pos => [0,0],
  -tabstop => 1,
);
$listview->InsertColumn (
  -text => "Klanten",
  -width => 380,
);

# And then, later on when %klant_naam is filled with some items (really,
I checked!):

foreach (sort keys %klant_naam) {
  my $i = $listview->InsertItem(
    -name => "node_$_",
    -text => $klant_naam{$_},
    );
  $listview->ItemCheck($i,1) unless lc($mode) eq 'facturen';
}

###### END EXAMPLE ################

Thanks,

Roelof Bos

--------------------------------
e-mail:     [EMAIL PROTECTED] 
--------------------------------