Hello Eric,

I have a solution: Try to insert the magic spell "-style => WS_CHILD |
WS_VISIBLE | 1" in the AddListView. This worked for me.

Peter

> -----Ursprüngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Auftrag von
> Eric Hansen
> Gesendet am: Freitag, 22. Februar 2002 20:05
> An: perl-win32-gui-users@lists.sourceforge.net
> Betreff: [perl-win32-gui-users] ActivePerl 5.6.1 build 631 with
> Win32-GUI 0.0.558
>
> I just uninstalled my old build of both ActivePerl and Win32-GUI
> and installed the latest releases. Rebooted and everything.
> Win32-GUI is not working right anymore????   I ran a small
> program (with a ListView, see below code) that ran fine with
> older releases of Perl and Win32-GUI, but runs like garbage with
> the new installs. The ListView looks like hell.  I can't see the
> control at all, no borders, no column headers.  All I see are the
> words "Apples  Pears  Oran..."   all on the same row?????    What I
> should see is a column header "FRUIT" and underneath that I
> should see Apples on the first row, Pears on the second row, and
> Oranges on the third row.  Anybody tried the latest Perl build
> with latest Win32-GUI build and experienced any problems???
>
> Thanks,
> Eric
> Dallas, TX USA
>
> use Win32::GUI;
>
> $W = new Win32::GUI::DialogBox(
>     -name => "Window",
>     -text => "ListView Test",
>     -width => 275,
>     -height => 250,
>     -left => 50,
>     -top => 50
> );
>
> $LV = $W->AddListView(
>          -name => "ListView",
>          -left => 12,
>          -top => 10,
>          -height => 200,
>          -width  => 225,
> );
> $LV->View(1);       # detailed listing, i.e. columns and rows
>
> $W->Show();
> $W->BringWindowToTop();
> Load_ListView();
>
> Win32::GUI::Dialog();
>
> sub Load_ListView {
>    $LV->InsertColumn(-index => 1, -width => 200, -text => "FRUIT");
>
>    $LV->InsertItem(-item => 0, -text => "Apples");
>    $LV->InsertItem(-item => 1, -text => "Pears");
>    $LV->InsertItem(-item => 2, -text => "Oranges");
> }
>
> sub Window_Terminate {
>    return -1;
> }
>
> #-- END SCRIPT
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>


Reply via email to