RE: [perl-win32-gui-users] Animated windows [working demo]

[Frazier, J. J. <Joe...@Pe...>]

<cut_data />
> my $AnimateWindow =3D new Win32::API("user32", "AnimateWindow",=20
> [ 'N', 'N',=20
> 'N' ], 'N') or $reg{'UI'}{'Fading'} =3D 0;
>=20
> So taking that into account when doing stuff is easy. There=20
> even is no need=20
> for a special var, $AnimateWindow itself can be used, like so:
>=20
> if($AnimateWindow) {
>      $AnimateWindow->Call( ... );    #To fade
> } else {
>      $winApp->Hide();
> }
>=20
> As in web development, it's often better to check for=20
> capabilities than for=20
> software versions (you don't check if it's IE, you check for the=20
> document.all array).

You are correct of course.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...