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

[<JCo...@EQ...>]

To get which items have the box checked you use the method
"ItemCheck(INDEX)" method.

I took your code and added a button to query this.  

The button looks like this:

#----------
my $fab1 = $Window->AddButton
#----------
(
    -name           => "GetChecks", 
    -left           => 120,
    -top            => 200,
    -text           => "  Get Checks  ",
    -visible        =>   1,
    -default        =>   1,
    -ok             =>   1,  
#    -cancel         =>   1,
    -tabstop        =>   1,
);

then I added an event to execute when the button is pushed:
sub GetChecks_Click
{

    #
    # this gets the number of items in the ListView
    #
    my $cnt = $Window->ListView->Count();

    #
    # a listview index starts at zero so
    #
    foreach ( 0 .. ( $cnt - 1 ) )
    {

        $del[ $_ ] = $Window->ListView->ItemCheck( $_ );
    }
    #
    # @del is an array that contains a 1 if the box is checked
    # and a zero if the box is not checked
    #
    print "Count = $cnt\n";
    print "Checked Items = @del \n";
}

I changed the directory to one of my own ... it has three files in it.
I checked the first one and clicked on my button 

Count = 3
Checked Items = 1 0 0 

was printed in the dos box.

I checked the other two and 

Count = 3
Checked Items = 1 1 1 

was printed in the dos box.

The code is not beautiful, but it seems to work.
I would recommend downloading the source code from Source Forge as it
contains the docs,
which are incomplete but the best we have.

You can also find the docs at http://dada.perl.it/gui_docs/gui.html

HTH

Jeff Colwell
Senior Software Engineer
Equity Residential Properties Trust
Phone: 312-928-1146 Fax: 312-526-0999 Cell: 312-656-5962
No electrons were harmed in making this e-mail message.


-----Original Message-----
From: Jos...@DM... [mailto:Jos...@DM...]
Sent: Wednesday, August 29, 2001 1:20 PM
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