RE: [perl-win32-gui-users] Listview/interaction

2005-08-12 Thread Glenn W Munroe
Greg, I'm not sure if this is exactly what you're looking for (the KeyDown bit confused me), but if you replace the event declaration in your example from sub LV_ReturnPressed { to sub LV_ReturnPressed_Click { then you get the "Return Pressed" message. Glenn -Original Message- From:

RE: [perl-win32-gui-users] changing notify icon

2005-08-12 Thread Brian Millham
You were close to getting this to work. He's your T1_Timer sub: sub T1_Timer { if ($trigger % 2) { $ni->Change(-icon => $icon_yes, -id => 100); $mw->Enable(); $mw->Show(); $mw->Restore() if $mw->IsIconic(); } else { $ni->Chan

[perl-win32-gui-users] Listview/interaction

2005-08-12 Thread Greg Osborne
I am having some trouble figuring out how to capture an enter/return event in a listview and treat it like a click event. I have noticed the KeyDown event, and figure that is what I'd need to use to capture the backspace and delete keys, but am not sure where to gather the values to capture th

[perl-win32-gui-users] {Spam?} Re: MDIFrame and background Image

2005-08-12 Thread Daniel Fernandez
Hi, I'm trying to implement the StretchBlt function using a call to gdi32.dll in order to fill the window with the image. here, I load the dll my $ApiObj = new Win32::API ("gdi32", "StretchBlt", "PPN", "I"); Here, I call the StretchBlt $ApiObj->Call($dc, 0, 0, $ww, $wh, $memDC, $b

[perl-win32-gui-users] changing notify icon

2005-08-12 Thread Сергей Черниенко
Здравствуйте, perl-win32-gui-users, My goal in script below is change tray icon of NotifyIcon object in runtime on timer event. Icon stays unchanged. Why it is? How can I change icon in other way? use strict; use Win32::GUI; my $trigger = 0; my $mw = Win32::GUI::Window->new(-name => 'mw',