RE: [perl-win32-gui-users] How to get items that are checked in a list view.

[<Jos...@DM...>]

ListView_ItemClick is called when an item is selected.  I want the items
that have the check box checked.





Peter Eisengrein <Pet...@at...>@lists.sourceforge.net on
08/29/2001 04:45:11 PM

Please respond to per...@li...

Sent by:  per...@li...


To:   "'per...@li...'"
      <per...@li...>
cc:    (bcc: Joseph Vieira/DMR/CA)
Subject:  RE: [perl-win32-gui-users] How to get items that are checked in a
       list view.

Each time an item is selected, it will run
sub ListView_ItemClick
What you probably want is to keep an array of the items (filenames) that
are
selected and then if/when a button (which isn't in your code) is _Click 'd
then do a foreach on your list and move each file then undef the list.

> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 29 August 2001 14:20
> To: per...@li...
> Subject: [perl-win32-gui-users] How to get items that are checked in a
> list view.
>
>
> Hello,
>
> I do get items in a list view that are checked to put in an
> array/hash/what
> ever.  My code list the contents of a directory and puts them
> in a list
> view what I want is that after someone selects the files they want by
> checking the box next to it.  They click on a button and it copies the
> selected file to a new location.  Any ideas?
>
> Thanks,
>
> Joe
>
> Here is my code:
>
> use Win32::GUI;
>
> $Window = new GUI::Window(
>     -name   => "Window",
>     -text   => "WEB Deploy v1.0.0",
>     -width  => 800,
>     -height => 400,
>     -left   => 100,
>     -top    => 100,
> );
>
> $Window->AddListView(
>     -name      => "ListView",
>     -text      => "hello world!",
>     -left      => 10,
>     -top       => 10,
>     -width     => 780,
>     -height    => 180,
>     -style     => WS_CHILD | WS_VISIBLE | 1,
>     -fullrowselect => 1,
>     -gridlines => 1,
>     -checkboxes => 1,
> #    -hottrack   => 1,
> );
>
> $width = $Window->ListView->ScaleWidth;
>
> $Window->ListView->InsertColumn(
>     -index => 0,
>     -width => $width/4,
>     -text  => "File",
> );
> $Window->ListView->InsertColumn(
>     -index   => 1,
>     -subitem => 1,
>     -width   => $width/1.33,
>     -text    => "Path",
> );
>
> sub InsertListItem {
>     my($name, $description) = @_;
>     my $item = $Window->ListView->InsertItem(
>         -item  => $Window->ListView->Count(),
>         -text  => $name,
>         # -index => $Window->ListView->Count(),
>     );
>     $Window->ListView->SetItem(
>         -item    => $item,
>         -subitem => 1,
>         -text    => $description,
>     );
> }
>
> $whereami = `chdir`;
> chomp($whereami);
>
> $dir = "L:\\Inetpub\\Timesheet";
> push @dir,$dir;
> chomp($dir);
>
> while ($dirs=pop @dir){
>   chomp($dirs);
>   chdir $dirs;
>   while (<*>) {
>     next if ($_ eq ".");
>     next if ($_ eq "..");
>     if (-d $_) {
>       next if (-l $_);
>       print "\t Dir-> ",$_,"\n" if $DEBUG;
>       push @dir,$dirs."/".$_;
>     } else {
>      InsertListItem($_, $dirs);
>         print "\t File-> ",$_," => $size\n" if $DEBUG;
>     }
>   }
>   exit if $DEBUG;
>   chdir $whereami;
> }
>
> # $Window->ListView->TextColor(hex("0000FF"));
>
> $Window->Show();
>
> $Window->Dialog();
>
>
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users