perl-win32-gui-users Mailing List for Win32::GUI

hi
i want to report how i have installed win32 gui on the CamelBox perl, since
it has no ppm utility, and using its gcc.exe to compile from the source will
not install Win32-GUI-DIBitmap and Win32-GUI-Axwindow
i have asked perlmonks.com http://www.perlmonks.com/?node_id=809986
and the best plan is as follows (last report to the discussions)
thank you very much, i have used the above reference "I don't have PPM, how
can I install a package":http://www.perlmonks.com/?node_id=260683
i have downloaded the win32gui ppm, then unzipping it, then unzipping again
the Win32-GUI.tar.gz file so the blib folder will be visible
after that as that page instruct:
perl -MExtUtils::Install -e install_default win32-gui
then it is installed semi instantly
i have tried the Win32-GUI-DIBitmap examples and it is working okay
regards


-- 
View this message in context: http://old.nabble.com/installing-win32-gui-on-CamelBox-perl-tp26560493p26560493.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Dear Kevin :

Thanks your help  and it's working good  for my purpose.

I find some issue about the column click event disappear in this case . 
And the column resize event and scrolling event seems not support  to let 
me capture it.
Since you tell me to edit the subitem on the ListView  has not  standard 
Windows function. I try the other way to implement this case. Maybe the 
Grid View more fit my target .
thanks so much .

Here is your sample I put a little event  processing to avoid that 
ListView resize event and  scrolling event  has been triggered .

 
#!perl
use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::Constants qw(/^WS_/ /^VK_/);
 
my $MW = Win32::GUI::Window->new(
                                   -name  => 'MW',
                                    -size  => [350,550],
                                    -pos  => [250,125],
                                    -text  => "Listview Example",
                                    -pushstyle => WS_MINIMIZEBOX | 
WS_SYSMENU,
                                );

my $LV_0 = $MW->AddListView(
                             -name    => "LV_0",
                             -size    => [300,500],
                             -pos    => [6,6],
                             -fullrowselect  => 1,
                             -hottrack   => 0, 
                             -gridlines   => 1, 
                             -checkboxes   => 0,
                             -singlesel   => 1,
                             -oneclickactivate => 1,
                             -editlabel   => 1, 
                             -visible   => 1,
                             -nocolumnheader  => 0,
                           );

my $timer = $MW -> AddTimer( "Update", 300 ); 

my($Item,$SubItem);

my $Edit = Win32::GUI::Textfield->new(
                                      -parent   => $LV_0,
                                      -name   => 'Edit',
                                      -visible  => 0,
                                      -popexstyle  => WS_EX_CLIENTEDGE,
                                      -onLostFocus => sub {
                                                            #Label isn't 
changed if user clicks off textfield
                                                            my $self = 
shift; 
                                                            $self->Hide();
                                                            $timer -> 
Interval(300);
                                                            return 1;
                                                           },
                                      -onKeyDown => sub {
 my($self,$flags,$vkey) = @_;
                                                          #Label is 
changed on RETURN key
                                                          if($vkey == 
VK_RETURN){
                                                              my $item = 
$LV_0->Item($Item);
 if($SubItem){
                                                                  my $sub 
= $item->SubItem($SubItem);
 $sub->Text($self->Text());
                                                                }else{
 $item->Text($self->Text());
                                                                      }
 $self->Hide();
                                                            }
                                                          #Label isn't 
changed on ESCAPE key
                                                            elsif($vkey == 
VK_ESCAPE){
 $self->Hide();
                                                                 }
                                                          $timer -> 
Interval(0);
                                                          return 1;
                                                         },
                                                        );
$LV_0->InsertColumn(
 -index => 1,
 -width => 150,
 -text => "Column_0",
);

$LV_0->InsertColumn(
 -index => 2,
 -width => 1000,
 -text  => "Column_1",
);

for(0..100){
 $LV_0->InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf 
"subindex %03d", $_ ) ] );
}

$MW -> Show();
Win32::GUI::Dialog();
exit(0);

sub MW_Terminate{
 -1;
}

sub LV_0_MouseDblClick {
 my($x,$y,$flags) = @_;
 my($item, $subitem, $flag) = $LV_0->SubItemHitTest($x,$y);
 return 1 unless defined $item;
 my @rect;
 if($subitem){
  @rect = $LV_0->GetSubItemRect($item,$subitem);
 }
 else {
  @rect = $LV_0->GetItemRect($item);
 }
 $Edit->Show();
 $Edit->Left($rect[0]);
 $Edit->Top($rect[1]);
 $Edit->Width($rect[2]-$rect[0]);
 $Edit->Height($rect[3]-$rect[1]);
 $Edit->Text($LV_0->GetItemText($item,$subitem));
 $Edit->SelectAll();
 $Edit->SetFocus();
 $Item = $item;
 $SubItem = $subitem;
 return 1;
}

sub Update_Timer{
$LV_0 -> Redraw(1);
}

sub LV_0_MouseMove{
$Edit -> Hide();
$timer -> Interval(300);
}

__END__

Best Regards
Miller Chen




寄件人：
Kevin Marshall <kej...@ho...>
收件人：
<mil...@se...>, Perl-Win32-GUI-Users List 
<per...@li...>
日期：
2009/11/23 上午 09:56
主旨：
RE: [perl-win32-gui-users] How to edit ListView subitem ?



Miller,
 
After digging through the Windows SDK documentation, I'm fairly certain 
that Windows doesn't allow subitem labels to be edited. You can get around 
this, though, by handling the label change yourself. 
 
Here is a sample I put together from your code that allows subitems to be 
edited. It does this by responding to the MouseDblClick event (instead of 
the DblClick event), which displays a text box that the user can type in. 
There is probably a better way to do this, but this works OK.
 
#!perl
use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::Constants qw(/^WS_/ /^VK_/);
 
my $MW = Win32::GUI::Window->new(
 -name  => 'MW',
 -size  => [350,550],
 -pos  => [250,125],
 -text  => "Listview Example",
 -pushstyle => WS_MINIMIZEBOX | WS_SYSMENU,
);
my $LV_0 = $MW->AddListView(
 -name    => "LV_0",
 -size    => [300,500],
 -pos    => [6,6],
 -fullrowselect  => 1, # Select every colnum's row at the same time
 -hottrack   => 0, # Auto select item , don't click item
 -gridlines   => 1, # Draw the border for list table
 -checkboxes   => 0, # Show the check box on the every row start
 -singlesel   => 1,
 -oneclickactivate => 1, # Change the cursor to onecclick type while on 
the select item
 -editlabel   => 1, # Can be edit
 -visible   => 1,
 -nocolumnheader  => 0, # Hide the column header
);
my($Item,$SubItem);
my $Edit = Win32::GUI::Textfield->new(
 -parent   => $LV_0,
 -name   => 'Edit',
 -visible  => 0,
 -popexstyle  => WS_EX_CLIENTEDGE,
 -onLostFocus => sub {
  #Label isn't changed if user clicks off textfield
  my $self = shift;
  $self->Hide();
  return 1;
 },
 -onKeyDown => sub {
  my($self,$flags,$vkey) = @_;
  #Label is changed on RETURN key
  if($vkey == VK_RETURN){
   my $item = $LV_0->Item($Item);
   if($SubItem){
    my $sub = $item->SubItem($SubItem);
    $sub->Text($self->Text());
   }
   else {
    $item->Text($self->Text());
   }
   $self->Hide();
  }
  #Label isn't changed on ESCAPE key
  elsif($vkey == VK_ESCAPE){
   $self->Hide();
  }
  return 1;
 },
);
$LV_0->InsertColumn(
 -index => 1,
 -width => 150,
 -text => "Column_0",
);
$LV_0->InsertColumn(
 -index => 2,
 -width => 150,
 -text  => "Column_1",
);
for(0..100){
 $LV_0->InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf 
"subindex %03d", $_ ) ] );
}
$MW -> Show();
Win32::GUI::Dialog();
exit(0);
sub MW_Terminate{
 -1;
}
sub LV_0_MouseDblClick {
 my($x,$y,$flags) = @_;
 my($item, $subitem, $flag) = $LV_0->SubItemHitTest($x,$y);
 return 1 unless defined $item;
 my @rect;
 if($subitem){
  @rect = $LV_0->GetSubItemRect($item,$subitem);
 }
 else {
  @rect = $LV_0->GetItemRect($item);
 }
 $Edit->Show();
 $Edit->Left($rect[0]);
 $Edit->Top($rect[1]);
 $Edit->Width($rect[2]-$rect[0]);
 $Edit->Height($rect[3]-$rect[1]);
 $Edit->Text($LV_0->GetItemText($item,$subitem));
 $Edit->SelectAll();
 $Edit->SetFocus();
 $Item = $item;
 $SubItem = $subitem;
 return 1;
}

__END__
 
Hope this helps,
 
Kevin.
 
To: per...@li...
From: mil...@se...
Date: Thu, 19 Nov 2009 16:52:23 +0800
Subject: [perl-win32-gui-users] How to edit ListView subitem ?


Dear All : 

Does any one know how to let the ListView subitem can be edit ? 



Below is my sample code : 

#!perl 
use Win32::GUI ; 

$MW = Win32::GUI::Window -> new(   -name       => 'MW', 
 -size       => [350,550], 
 -pos       =>  [250,125], 
 -text       => "Listview Example", 
 -font       => $font_T_8 , 
                                                       -style      => 
WS_MINIMIZEBOX | WS_SYSMENU, 
                                   ); 
                                                                


$LV_0 = $MW -> AddListView(      -name             => "LV_0", 
                                                                 -size    
=> [300,500], 
                                                                 -pos   => 
[6,6], 
 -fullrowselect    => 1,    # Select every colnum's row at the same time 
                                                                 -hottrack 
        => 0,    # Auto select item , don't click item 
                                 -gridlines        => 1,    # Draw the 
border for list table 
                                  -checkboxes       => 0,    # Show the 
check box on the every row start 
 -singlesel        => 1, 
                                  -oneclickactivate => 1,    # Change the 
cursor to onecclick type while on the select item 
                                  -editlabel        => 1,    # Can be edit 

                                  -visible          => 1,     
 -nocolumnheader   => 0,    # Hide the column header 
                                          ); 



$LV_0 -> InsertColumn( -index => 1, 
                                              -width => 150, 
                                              -text => "Column_0", 
                                          ); 


$LV_0 -> InsertColumn( -index => 2, 
                       -width => 150, 
                       -text  => "Column_1", 
                                         );                    

                                          
#$LV_1 = Win32::GUI::ListView::SubItem -> new( 
#                                              -parent    => $LV_0, 
#                                              -index     => 1, 
#                                              -subindex  => 1,            
 
#                );                                 

for(0..100){ 
     print $LV_0 -> InsertItem ( -text => [ ( sprintf "index %03d", $_ ), 
( sprintf "subindex% 03d", $_ ) ] ), "\n"; 
        } 



$MW -> Show();             
Win32::GUI::Dialog(); 
exit(0); 

sub MW_Terminate{ 

-1; 

} 

sub LV_0_DblClick{ 

print "SelectedItem:", $LV_0 -> SelectedItems(), "\n" ; 
$LV_0 -> EditLabel(  $LV_0 -> SelectedItems() ); 

} 

sub LV_0_BeginLabelEdit{ 

print "BLabelEdit:", "@_", "\n"; 

} 

sub LV_0_EndLabelEdit{ 

print "ELabelEdit:", "@_", "\n"; 

} 

---End-- 

Best Regards 
Miller Chen 
Brought to you exclusively by Windows Live Download new and classic 
emoticon packs at Emoticon World

Miller,

 

After digging through the Windows SDK documentation, I'm fairly certain that Windows doesn't allow subitem labels to be edited. You can get around this, though, by handling the label change yourself. 

 

Here is a sample I put together from your code that allows subitems to be edited. It does this by responding to the MouseDblClick event (instead of the DblClick event), which displays a text box that the user can type in. There is probably a better way to do this, but this works OK.

 

#!perl
use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::Constants qw(/^WS_/ /^VK_/);

 

my $MW = Win32::GUI::Window->new(
 -name  => 'MW',
 -size  => [350,550],
 -pos  => [250,125],
 -text  => "Listview Example",
 -pushstyle => WS_MINIMIZEBOX | WS_SYSMENU,
);

my $LV_0 = $MW->AddListView(
 -name    => "LV_0",
 -size    => [300,500],
 -pos    => [6,6],
 -fullrowselect  => 1, # Select every colnum's row at the same time
 -hottrack   => 0, # Auto select item , don't click item
 -gridlines   => 1, # Draw the border for list table
 -checkboxes   => 0, # Show the check box on the every row start
 -singlesel   => 1,
 -oneclickactivate => 1, # Change the cursor to onecclick type while on the select item
 -editlabel   => 1, # Can be edit
 -visible   => 1,
 -nocolumnheader  => 0, # Hide the column header
);
my($Item,$SubItem);
my $Edit = Win32::GUI::Textfield->new(
 -parent   => $LV_0,
 -name   => 'Edit',
 -visible  => 0,
 -popexstyle  => WS_EX_CLIENTEDGE,
 -onLostFocus => sub {

  #Label isn't changed if user clicks off textfield
  my $self = shift;
  $self->Hide();
  return 1;
 },
 -onKeyDown => sub {
  my($self,$flags,$vkey) = @_;

  #Label is changed on RETURN key
  if($vkey == VK_RETURN){
   my $item = $LV_0->Item($Item);
   if($SubItem){
    my $sub = $item->SubItem($SubItem);
    $sub->Text($self->Text());
   }
   else {
    $item->Text($self->Text());
   }
   $self->Hide();
  }

  #Label isn't changed on ESCAPE key
  elsif($vkey == VK_ESCAPE){
   $self->Hide();
  }
  return 1;
 },
);

$LV_0->InsertColumn(
 -index => 1,
 -width => 150,
 -text => "Column_0",
);

$LV_0->InsertColumn(
 -index => 2,
 -width => 150,
 -text  => "Column_1",
);

for(0..100){
 $LV_0->InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf "subindex %03d", $_ ) ] );
}

$MW -> Show();
Win32::GUI::Dialog();
exit(0);

sub MW_Terminate{
 -1;
}

sub LV_0_MouseDblClick {
 my($x,$y,$flags) = @_;
 my($item, $subitem, $flag) = $LV_0->SubItemHitTest($x,$y);
 return 1 unless defined $item;
 my @rect;
 if($subitem){
  @rect = $LV_0->GetSubItemRect($item,$subitem);
 }
 else {
  @rect = $LV_0->GetItemRect($item);
 }
 $Edit->Show();
 $Edit->Left($rect[0]);
 $Edit->Top($rect[1]);
 $Edit->Width($rect[2]-$rect[0]);
 $Edit->Height($rect[3]-$rect[1]);
 $Edit->Text($LV_0->GetItemText($item,$subitem));
 $Edit->SelectAll();
 $Edit->SetFocus();
 $Item = $item;
 $SubItem = $subitem;
 return 1;
}

__END__

 

Hope this helps,

 

Kevin.
 


To: per...@li...
From: mil...@se...
Date: Thu, 19 Nov 2009 16:52:23 +0800
Subject: [perl-win32-gui-users] How to edit ListView subitem ?


Dear All : 

Does any one know how to let the ListView subitem can be edit ? 



Below is my sample code : 

#!perl 
use Win32::GUI ; 

$MW = Win32::GUI::Window -> new(   -name       => 'MW', 
                                                                        -size       => [350,550], 
                                                                        -pos       =>  [250,125], 
                                                                        -text       => "Listview Example", 
                                                                        -font       => $font_T_8 , 
                                                       -style      => WS_MINIMIZEBOX | WS_SYSMENU, 
                                   ); 
                                                                


$LV_0 = $MW -> AddListView(      -name             => "LV_0", 
                                                                 -size             => [300,500], 
                                                                 -pos              => [6,6], 
                                                                 -fullrowselect    => 1,    # Select every colnum's row at the same time 
                                                                 -hottrack         => 0,    # Auto select item , don't click item 
                                 -gridlines        => 1,    # Draw the border for list table 
                                  -checkboxes       => 0,    # Show the check box on the every row start 
                                                                 -singlesel        => 1, 
                                  -oneclickactivate => 1,    # Change the cursor to onecclick type while on the select item 
                                  -editlabel        => 1,    # Can be edit 
                                  -visible          => 1,     
                                                                 -nocolumnheader   => 0,    # Hide the column header 
                                          ); 



$LV_0 -> InsertColumn( -index => 1, 
                                              -width => 150, 
                                              -text => "Column_0", 
                                          ); 


$LV_0 -> InsertColumn( -index => 2, 
                       -width => 150, 
                       -text  => "Column_1", 
                                         );                                                   

                                          
#$LV_1 = Win32::GUI::ListView::SubItem -> new( 
#                                              -parent    => $LV_0, 
#                                              -index     => 1, 
#                                              -subindex  => 1,                                                                                 
#                                                                                         );                                 

for(0..100){ 
     print $LV_0 -> InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf "subindex% 03d", $_ ) ] ), "\n"; 
        } 



$MW -> Show();             
Win32::GUI::Dialog(); 
exit(0); 

sub MW_Terminate{ 

-1; 

} 

sub LV_0_DblClick{ 

print "SelectedItem:", $LV_0 -> SelectedItems(), "\n" ; 
$LV_0 -> EditLabel(  $LV_0 -> SelectedItems() ); 

} 

sub LV_0_BeginLabelEdit{ 

print "BLabelEdit:", "@_", "\n"; 

} 

sub LV_0_EndLabelEdit{ 

print "ELabelEdit:", "@_", "\n"; 

} 

---End-- 

Best Regards 
Miller Chen 		 	   		  
_________________________________________________________________
Download new and classic emoticon packs at Emoticon World Brought to you exclusively by Windows Live
http://windowslive.ninemsn.com.au/emoticon.aspx?

Hello guys,

 

Recently I've noticed a problem with combobox control. The control is created with following properties:

 

            $searchWindow->AddCombobox(

                        -name => "SearchField",

                        -autohscroll => 1,

                        -top => 4,

                        -default => 1,

                        -left => 4,

                        -width => 100,

                        -height => 200,

                        -dropdown => 1,

                        -hasstring => 1,

                        -align => "left");

 

I use this control as a search field (text field) with drop-down list of last searches. The problem is when user enters 10 digits into this field, application terminates. If there is any non-digit in the string, 10 characters or more fits with no problem. But if I type only digits it terminates after typing the 10th symbol. 

 

Win32::GUI v.1.06

ActiveState Perl 5.8.8

 

 

Don't you guys know if it's my problem or Win32::GUI's? Have you experience this problem in your apps?

 

Thank you!

 

 

Regards,
_____
Ilya Bandorin 



 

Dear All :

Does any one know how to let the ListView subitem can be edit ?



Below is my sample code :

#!perl
use Win32::GUI ; 

$MW = Win32::GUI::Window -> new(   -name       => 'MW',
 -size       => [350,550],
 -pos       =>  [250,125],
 -text       => "Listview Example",
 -font       => $font_T_8 ,
                                                       -style      => 
WS_MINIMIZEBOX | WS_SYSMENU,
                                   );
 


$LV_0 = $MW -> AddListView(      -name             => "LV_0",
                                                                 -size    
=> [300,500],
                                                                 -pos   => 
[6,6],
 -fullrowselect    => 1,    # Select every colnum's row at the same time
                                                                 -hottrack 
        => 0,    # Auto select item , don't click item
                                 -gridlines        => 1,    # Draw the 
border for list table
                                  -checkboxes       => 0,    # Show the 
check box on the every row start
 -singlesel        => 1,
                                  -oneclickactivate => 1,    # Change the 
cursor to onecclick type while on the select item
                                  -editlabel        => 1,    # Can be edit
                                  -visible          => 1, 
 -nocolumnheader   => 0,    # Hide the column header
                                          );



$LV_0 -> InsertColumn( -index => 1,
                                              -width => 150,
                                              -text => "Column_0",
                                          );


$LV_0 -> InsertColumn( -index => 2,
                       -width => 150,
                       -text  => "Column_1",
                                         );  

 
#$LV_1 = Win32::GUI::ListView::SubItem -> new(
#                                              -parent    => $LV_0,
#                                              -index     => 1,
#                                              -subindex  => 1,     
#        ); 

for(0..100){
     print $LV_0 -> InsertItem ( -text => [ ( sprintf "index %03d", $_ ), 
( sprintf "subindex% 03d", $_ ) ] ), "\n";
        }



$MW -> Show(); 
Win32::GUI::Dialog();
exit(0);

sub MW_Terminate{

-1;

}

sub LV_0_DblClick{

print "SelectedItem:", $LV_0 -> SelectedItems(), "\n" ;
$LV_0 -> EditLabel(  $LV_0 -> SelectedItems() );

}

sub LV_0_BeginLabelEdit{

print "BLabelEdit:", "@_", "\n";

}

sub LV_0_EndLabelEdit{

print "ELabelEdit:", "@_", "\n";

}

---End--

Best Regards
Miller Chen