ListView_ItemClick is called when an item is selected. I want the items
that have the check box checked.
Peter Eisengrein <[EMAIL PROTECTED]>@lists.sourceforge.net on
08/29/2001 04:45:11 PM
Please respond to perl-win32-gui-users@lists.sourceforge.net
Sent by: [EMAIL PROTECTED]
To: "'perl-win32-gui-users@lists.sourceforge.net'"
<perl-win32-gui-users@lists.sourceforge.net>
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: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: 29 August 2001 14:20
> To: perl-win32-gui-users@lists.sourceforge.net
> 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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
