On 12/12/2007, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> hi rob,
> thanks for your support.
>
> I've created a small working example of my script.
Sorry I took so long to get round to looking at this. I cut your
script down to be *short* and something that I could run without
having to install lots of other modules. My script attached below.
I see the problem. It is only a problem with 'blend' - 'slide' and
'center' work fine.
I don't have time to work out exactly why this is (but suspect it's a
non-trivial interaction with the way AnimateWindow() works and way
DefWindowProc handles the WM_PRINT message). I've included a simple
work-around in my script - uncomment the extra line in my animate()
function.
How that's useful.
Rob.
#!perl.exe -w
use strict;
use warnings;
use Win32::GUI 1.05 qw( CW_USEDEFAULT );
my $mw = Win32::GUI::Window->new(
-title => "Configuration",
-left => CW_USEDEFAULT,
-size => [ 600, 450 ],
);
$mw->AddTextfield(
-prompt => [ "Prompt: " , 50 ],
-text => "Default Setting",
-pos => [10,10],
-size => [150, 20],
);
#$mw->Show();
animate($mw);
Win32::GUI::Dialog();
$mw->Hide();
exit(0);
sub animate {
my ($self) = @_;
$self->Animate(
-show => 1,
-activate => 1,
-animation => "blend",
-direction => "rl",
-time => 400,
);
# Add next line to fix problem with 'blend' mode
#$self->InvalidateRect(0);
return;
}
__END__
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
