This is a working demo for Animated windows #------------------------------------- use Win32; use Win32::API; use Win32::GUI;
use constant AW_HOR_POSITIVE => 0x00000001; use constant AW_HOR_NEGATIVE => 0x00000002; use constant AW_VER_POSITIVE => 0x00000004; use constant AW_VER_NEGATIVE => 0x00000008; use constant AW_CENTER => 0x00000010; use constant AW_HIDE => 0x00010000; use constant AW_ACTIVATE => 0x00020000; use constant AW_SLIDE => 0x00040000; use constant AW_BLEND => 0x00080000; # BOOL AnimateWindow( # HWND hwnd, # DWORD dwTime, # DWORD dwFlags # ); my $AnimateWindow = new Win32::API("user32", "AnimateWindow", [ 'N', 'N', 'N' ], 'N') or $reg{'UI'}{'Fading'} = 0; # ... here create your window object ($winObj) as ususal... my $winObj = Win32::GUI::Window->new( -name => 'Main', -width => 200, -height => 200, -left => 200, -top => 200 ); # add a label to your window $winObj->AddLabel(-text => "Hello, world", -name => 'label'); # set animation duration in ms (usually 200ms) my $msec = 300; # FADE IN # use this command in place of $objWin->Show() $AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_BLEND ); # activate dialog processing Win32::GUI::Dialog(); sub Main_Terminate { # FADE OUT # use this command in place of $objWin->Hide() for example in winObj_Terminate() $AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_BLEND ); return(-1); } # Some alternatives follows... # APPEAR from LEFT-TOP # use this command in place of $objWin->Show() # $AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_SLIDE | AW_HOR_POSITIVE | AW_VER_POSITIVE ); # DISAPPEAR from RIGHT-BOTTOM # use this command in place of $objWin->Hide() for example in winObj_Terminate() # $AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_SLIDE | AW_HOR_NEGATIVE | AW_VER_NEGATIVE ); # GROW from CENTER # use this command in place of $objWin->Show() # $AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_CENTER ); # SHRINK to CENTER # use this command in place of $objWin->Hide() for example in winObj_Terminate() # $AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_CENTER );