[perl-win32-gui] Getting Text From A ListView - The How To's

[Eric C. Hansen]

Title: Text from a ListView

In response to this email...

 -----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Jon Doud
Sent: Monday, December 13, 1999 3:24 PM
To: '[EMAIL PROTECTED]'
Subject: [perl-win32-gui] Text from a ListView

I was reading the archives about getting text from a ListView.  It does not look like a solution was presented.  Did I miss something?

Jon Doud 

...The following was a private person to person email.  Aldo did discuss this however in replies to me under the subject heading        Re: [perl-win32-gui] Win32::GUI Build 434 
 

Regards,

Eric Hansen

 
> -----Original Message-----
> From: Eric C. Hansen [SMTP:[EMAIL PROTECTED]]
> Sent: Friday, December 10, 1999 3:11 PM
> To: 'Tim B. Thomas'
> Subject: RE: ListView Questions
>
> Some features that I know are now available (since I have implemented them
> in my code per Aldo's instructions) are:
>
>
>      gridlines and fullrowselect
>
>      # enable gridline and fullrowselect cabability
>      $LVM_SETEXTENDEDLISTVIEWSTYLE = 0x1000 + 54;
>      $LVS_EX_GRIDLINES = 0x001;
>      $LVS_EX_CHECKBOXES = 0x004;
>      $LVS_EX_TRACKSELECT = 0x008;
>      $LVS_EX_FULLROWSELECT = 0x020;
>
>      $LV->SendMessage($LVM_SETEXTENDEDLISTVIEWSTYLE,
>           0, $LVS_EX_GRIDLINES | $LVS_EX_FULLROWSELECT,
>      );
>
>
> Click a line and the whole line (i.e. an item and its' subitems) becomes
> highlighted. You also see gridlines separating rows and columns of data.
>
> And there is syntax support now to get the text from a selected ListView
> Item.  Before, you could only Change text (i.e. ...
>
>    $LV->Change(item => $item, -text = $text))
>
> but not Get text (i.e.  ...
>
>    sub ListView_ItemClick() {
>       foreach $item ($LV->SelectedItems) {
>          %data = $LV->ItemInfo($item);      # column 1
>          $text0 = $data{-text};
>          %data = $LV->ItemInfo($item, 1);   # column 2
>          $text1 = $data{-text};
>          %data = $LV->ItemInfo($item, 2);   # column 3
>          $text2 = $data{-text};
>          %data = $LV->ItemInfo($item, 3);   # column 4
>          $text3 = $data{-text};
>          print "$text0 - $text1 - $text2 - $text3\n";
>       }
>    }
>
>
> Regards,
> Eric