perl-win32-gui-users — Using the Win32::GUI Perl extension

[perl-win32-gui-users] GetDC

[Jonathan S. <jso...@al...>]

Where can I get information on how to use this?  I am able to draw lines 
(axes and ticks for a graph) and I know how to plot individual points on 
the "graph" but I am wondering if there is more?  (I don't mean circles and 
boxes.)

Can the DC object be cleared (other than placing another window over it and 
removing the window)?  I still haven't figured out how to handle keep what 
I have drawn to the object there when another window covers it.

Johan Lindstrom posted some information but it went (making motion of flat 
hand over head from front to back).

Any clues?

Jonathan 

[perl-win32-gui-users] MDI window

[gabor.borus <gab...@fr...>]

Hi

I want to cascade my child windows.
There is a way to send message to the parent window to cascade all of its
child windows:

      lResult = SendMessage(      // returns BOOL in lResult
         (HWND) hWndControl,      // handle to destination control
         (UINT) WM_MDICASCADE,      // message ID
         (WPARAM) wParam,      // = (WPARAM) () wParam;
         (LPARAM) lParam      // = (LPARAM) () lParam;
      );

, but if I create windows with Win32::GUI this procedure doesn't work,
because the child windows aren't MDI windows.
The question is: Can I create MDI windows with Win32::GUI?
Thanks
Gabor

[perl-win32-gui-users] MDI window

[gabor.borus <gab...@fr...>]

Hi

I want to cascade my child windows.
There is a way to send message to the parent window to cascade all of its
child windows:

      lResult = SendMessage(      // returns BOOL in lResult
         (HWND) hWndControl,      // handle to destination control
         (UINT) WM_MDICASCADE,      // message ID
         (WPARAM) wParam,      // = (WPARAM) () wParam;
         (LPARAM) lParam      // = (LPARAM) () lParam;
      );

, but if I create windows with Win32::GUI this procedure doesn't work,
because the child windows aren't MDI windows.
The question is: Can I create MDI windows with Win32::GUI?
Thanks
Gabor

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...

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

[Johan L. <jo...@ba...>]

At 19:00 2002-10-09 -0400, Frazier, Joe Jr wrote:
>What happens if you try to call a API that does not exist?  Does 
>Win32::API trap the error or do you get an exception?  In any event, you 
>could have a config page/menu/window

 From Luiginos demo:

my $AnimateWindow = new Win32::API("user32", "AnimateWindow", [ 'N', 'N', 
'N' ], 'N') or $reg{'UI'}{'Fading'} = 0;

So taking that into account when doing stuff is easy. There even is no need 
for a special var, $AnimateWindow itself can be used, like so:

if($AnimateWindow) {
     $AnimateWindow->Call( ... );    #To fade
} else {
     $winApp->Hide();
}

As in web development, it's often better to check for capabilities than for 
software versions (you don't check if it's IE, you check for the 
document.all array).


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Burningbird The Parable of the Languages"
http://weblog.burningbird.net/archives/000581.php
dmoz (1 of 7): /Computers/Programming/Languages/Scripting/ 55

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

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

What happens if you try to call a API that does not exist?  Does =
Win32::API trap the error or do you get an exception?  In any event, you =
could have a config page/menu/window with this setting disabled(non =
updateable) and turned off by default, then verify the OS version is x =
or higher (using Win32::GetOSVersion() or whatever) and enabling the =
control.... =20

Anyway, even if it only works on certain OS's, it still a cool feature =
for those OS's that support.   As Johan says, don't count on a gimmick =
to define the app, where if it does not work, the app doesn't work...

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

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


> -----Original Message-----
> From: Johan Lindstrom [mailto:jo...@ba...]
> Sent: Wednesday, October 09, 2002 5:55 PM
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] Animated windows [working demo]
>=20
>=20
> At 17:40 2002-10-09 -0400, Lihn, Steve wrote:
> >It does not work on Win NT !?
>=20
> The original post said Windows XP. That figures.
>=20
> If you keep it as a "cool ting", and not use it to carry an=20
> actual feature=20
> (that breaks if this doesn't work), it could be a good thing.
>=20
>=20
> /J
>=20
> -------- ------ ---- --- -- --  --  -    -     -      -         -
> Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>=20
> Latest bookmark: "Lynx FAQ"
> http://www.zippety.net/lx_FAQ.htm
> dmoz (1 of 28): /Computers/Software/Internet/Clients/ 20
>=20
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

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

[Johan L. <jo...@ba...>]

At 17:40 2002-10-09 -0400, Lihn, Steve wrote:
>It does not work on Win NT !?

The original post said Windows XP. That figures.

If you keep it as a "cool ting", and not use it to carry an actual feature 
(that breaks if this doesn't work), it could be a good thing.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Lynx FAQ"
http://www.zippety.net/lx_FAQ.htm
dmoz (1 of 28): /Computers/Software/Internet/Clients/ 20

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

[Lihn, S. <hor...@me...>]

It does not work on Win NT !?
Does it?
 
  Steve Lihn 

-----Original Message-----
From: Luigino Masarati [mailto:lma...@ou...]
Sent: Tuesday, October 08, 2002 12:12 PM
To: per...@li...
Subject: [perl-win32-gui-users] Animated windows [working demo]


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 );
 
 


------------------------------------------------------------------------------
Notice: This e-mail message, together with any attachments, contains information of Merck & Co., Inc. (Whitehouse Station, New Jersey, USA) that may be confidential, proprietary copyrighted and/or legally privileged, and is intended solely for the use of the individual or entity named on this message.  If you are not the intended recipient, and have received this message in error, please immediately return this by e-mail and then delete it.

==============================================================================

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

[Luigino M. <lma...@ou...>]

This is a working demo for Animated windows

#-------------------------------------
use Win32;
use Win32::API;
use Win32::GUI;

use constant AW_HOR_POSITIVE =3D> 0x00000001;
use constant AW_HOR_NEGATIVE =3D> 0x00000002;
use constant AW_VER_POSITIVE =3D> 0x00000004;
use constant AW_VER_NEGATIVE =3D> 0x00000008;
use constant AW_CENTER       =3D> 0x00000010;
use constant AW_HIDE         =3D> 0x00010000;
use constant AW_ACTIVATE     =3D> 0x00020000;
use constant AW_SLIDE        =3D> 0x00040000;
use constant AW_BLEND        =3D> 0x00080000;

# BOOL AnimateWindow(
# HWND hwnd,
# DWORD dwTime,
# DWORD dwFlags
# );
my $AnimateWindow =3D new Win32::API("user32", "AnimateWindow", [ 'N', =
'N', 'N' ], 'N') or $reg{'UI'}{'Fading'} =3D 0;

# ... here create your window object ($winObj) as ususal...
my $winObj =3D Win32::GUI::Window->new( -name =3D> 'Main', -width  =3D> =
200, -height =3D> 200, -left =3D> 200, -top =3D> 200 );

# add a label to your window
$winObj->AddLabel(-text =3D> "Hello, world", -name =3D> 'label');

# set animation duration in ms (usually 200ms)
my $msec =3D 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 );

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

[Thomas, T. B <tim...@lm...>]

Here's what I did to get it to work:

use Win32;
use Win32::GUI; #added
use Win32::API;

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 = new GUI::Window(-title=>"Test", -left=>10, -top=>10,
-width=>640, -height=>480, -name=>"Window",); #added


# set animation duration in ms (usually 200ms)
my $msec = 200;

    # FADE IN
    # use this command in place of $objWin->Show()
    $AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_BLEND
);

    # FADE OUT
    # use this command in place of $objWin->Hide() for example in
winObj_Terminate()
    $AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_BLEND );


# 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 );

#-----------------------------

-----Original Message-----
From: gr...@xm... [mailto:gr...@xm...] 
Sent: Tuesday, October 08, 2002 9:05 AM
Cc: per...@li...
Subject: RE: [perl-win32-gui-users] Animated windows


>  
> # ... here create your window object ($winObj) as ususal...
>  

I know you have done a lot of work to show us how to use these effects, but 
for me, I've got no idea how to create this object properly.  My background 
is *NIX, and the Win32::GUI module for perl.  Hate to ask a dumb question 
as to how to create a $winObj, but I didn't find anything that made sense 
on google.  I would love to just play with this feature, and see how it 
looks, any help would be great.

Thanks

Chris G.



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

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

[<gr...@xm...>]

>  
> # ... here create your window object ($winObj) as ususal...
>  

I know you have done a lot of work to show us how to use these effects, but 
for me, I've got no idea how to create this object properly.  My background 
is *NIX, and the Win32::GUI module for perl.  Hate to ask a dumb question 
as to how to create a $winObj, but I didn't find anything that made sense 
on google.  I would love to just play with this feature, and see how it 
looks, any help would be great.

Thanks

Chris G.

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

[Rogers, J. <rog...@oc...>]

I would Like to add my thanks for these as well .
The marketing types love eye candy, which means they choose my work, =
which
keeps me in a JOB!
=20
Thankyou for sharing.
John Rogers
System Engineer
Oc=E9 Australia
 =20

-----Original Message-----
From: Frazier, Joe Jr [mailto:Joe...@Pe...]
Sent: Tuesday, October 08, 2002 8:08 AM
To: Luigino Masarati; per...@li...
Subject: RE: [perl-win32-gui-users] Animated windows


Dude, Those ROCK!!!!   Thanks for taking the time to play with and come =
up
with these.  Maybe they will get into the next version.   Keep sending =
new
ones when you find them.
=20

Joe Frazier, Jr.=20
Technical Support Engineer=20
Peopleclick Service Support=20

Tel:  +1-800-841-2365=20
E-Mail: mailto:su...@pe... <mailto:su...@pe...> =
=20

-----Original Message-----
From: Luigino Masarati [mailto:lma...@ou...]
Sent: Thursday, October 03, 2002 8:18 AM
To: per...@li...
Subject: [perl-win32-gui-users] Animated windows



Hi,
    I searched in this mailing list how to create animated windows like
start menu in W2K/XP (see Win32 SDK - Layered Windows
http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/winui=
/winui
/windowsuserinterface/windowing/windows/windowreference/windowfunctions/=
anim
atewindow.asp
<http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/winu=
i/winu
i/windowsuserinterface/windowing/windows/windowreference/windowfunctions=
/ani
matewindow.asp> ) and found nothing about it, so i searched on MSDN and
found the API code and tried until i got it.
=20
Note that this functionality is fully supported by Windows 98/2000/XP =
only.
=20
Here is the code, hope it will be useful to someone else...
=20
#-----------------------------
# use Win32::GUI etc...=20
=20
use Win32;
use Win32::API;
=20
use constant AW_HOR_POSITIVE =3D> 0x00000001;
use constant AW_HOR_NEGATIVE =3D> 0x00000002;
use constant AW_VER_POSITIVE =3D> 0x00000004;
use constant AW_VER_NEGATIVE =3D> 0x00000008;
use constant AW_CENTER       =3D> 0x00000010;
use constant AW_HIDE         =3D> 0x00010000;
use constant AW_ACTIVATE     =3D> 0x00020000;
use constant AW_SLIDE        =3D> 0x00040000;
use constant AW_BLEND        =3D> 0x00080000;
=20
# BOOL AnimateWindow(
# HWND hwnd,
# DWORD dwTime,
# DWORD dwFlags
# );
my $AnimateWindow =3D new Win32::API("user32", "AnimateWindow", [ 'N', =
'N',
'N' ], 'N') or $reg{'UI'}{'Fading'} =3D 0;
=20
# ... here create your window object ($winObj) as ususal...
=20
# set animation duration in ms (usually 200ms)
my $msec =3D 200;
=20
# FADE IN
# use this command in place of $objWin->Show()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_BLEND =
);
=20
# FADE OUT
# use this command in place of $objWin->Hide() for example in
winObj_Terminate()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_BLEND );
=20


# Some alternatives follows...
=20
# 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 );
=20
# 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 );
=20
# GROW from CENTER
# use this command in place of $objWin->Show()
# $AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | =
AW_CENTER );
=20
# 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 =
);
=20
#-----------------------------
=20
Bye.
=20
    Luigino Masarati
    OutSys snc.
=20



##############################################################=20
Disclaimer=20

If this e-mail has been sent to you in error, please notify=20
Oc=E9-Australia Limited immediately and delete this e-mail from=20
your system.=20

Any views expressed in this e-mail are those of the individual=20
sender and may not necessarily reflect the views of=20
Oc=E9-Australia Limited.=20
##############################################################

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

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

Dude, Those ROCK!!!!   Thanks for taking the time to play with and come =
up with these.  Maybe they will get into the next version.   Keep =
sending new ones when you find them.
=20

Joe Frazier, Jr.=20
Technical Support Engineer=20
Peopleclick Service Support=20

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

-----Original Message-----
From: Luigino Masarati [mailto:lma...@ou...]
Sent: Thursday, October 03, 2002 8:18 AM
To: per...@li...
Subject: [perl-win32-gui-users] Animated windows



Hi,
    I searched in this mailing list how to create animated windows like =
start menu in W2K/XP (see Win32 SDK - Layered Windows =
http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/winui/=
winui/windowsuserinterface/windowing/windows/windowreference/windowfuncti=
ons/animatewindow.asp) and found nothing about it, so i searched on MSDN =
and found the API code and tried until i got it.
=20
Note that this functionality is fully supported by Windows 98/2000/XP =
only.
=20
Here is the code, hope it will be useful to someone else...
=20
#-----------------------------
# use Win32::GUI etc...=20
=20
use Win32;
use Win32::API;
=20
use constant AW_HOR_POSITIVE =3D> 0x00000001;
use constant AW_HOR_NEGATIVE =3D> 0x00000002;
use constant AW_VER_POSITIVE =3D> 0x00000004;
use constant AW_VER_NEGATIVE =3D> 0x00000008;
use constant AW_CENTER       =3D> 0x00000010;
use constant AW_HIDE         =3D> 0x00010000;
use constant AW_ACTIVATE     =3D> 0x00020000;
use constant AW_SLIDE        =3D> 0x00040000;
use constant AW_BLEND        =3D> 0x00080000;
=20
# BOOL AnimateWindow(
# HWND hwnd,
# DWORD dwTime,
# DWORD dwFlags
# );
my $AnimateWindow =3D new Win32::API("user32", "AnimateWindow", [ 'N', =
'N', 'N' ], 'N') or $reg{'UI'}{'Fading'} =3D 0;
=20
# ... here create your window object ($winObj) as ususal...
=20
# set animation duration in ms (usually 200ms)
my $msec =3D 200;
=20
# FADE IN
# use this command in place of $objWin->Show()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_BLEND =
);
=20
# FADE OUT
# use this command in place of $objWin->Hide() for example in =
winObj_Terminate()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_BLEND );
=20


# Some alternatives follows...
=20
# 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 );
=20
# 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 );
=20
# GROW from CENTER
# use this command in place of $objWin->Show()
# $AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | =
AW_CENTER );
=20
# 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 );
=20
#-----------------------------
=20
Bye.
=20
    Luigino Masarati
    OutSys snc.
=20

Re: [perl-win32-gui-users] Graphics

[Johan L. <jo...@ba...>]

At 15:16 2002-10-04 -0400, Jonathan Southwick wrote:
>I have a window that I draw graphs on but every time a window goes above 
>this window, or if I minimize it then restore it, the graphics are gone.
>
>Is it possible to keep the graphics on it?

You need to redraw your graphs every time Windows thinks it's nessecary to 
do so. It will tell the control that using the WM_PAINT message. In 
Win32::GUI that corresponds to the _Paint event handler.

So if your Graphics control is called grGraph make sure you draw everything 
in the sub ::grGraph_Paint.

This may be too slow, but there may be solutions to that.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Conference Presentation Judo"
http://perl.plover.com/yak/judo/presentation/
dmoz (1 of 10): ...cial_Intelligence/Natural_Language/Conferences/ 6

[perl-win32-gui-users] Graphics

[Jonathan S. <jso...@al...>]

I have a window that I draw graphs on but every time a window goes above 
this window, or if I minimize it then restore it, the graphics are gone.

Is it possible to keep the graphics on it?

Jonathan

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

RE: [perl-win32-gui-users] DateTime object in Win32::GUI 0.665

[Eric H. <eri...@ch...>]

Additionally, did you know that if you left mouse click the month in the
Title  of the date calendar graphic widget that a drop down list of
months appears, and if you left click the year in the Title area a pick
list of years displays?  Also, if you right click you are asked if you
want to goto today's date. Cool!

 

Eric

[perl-win32-gui-users] DateTime object in Win32::GUI 0.665

[Eric H. <eri...@ch...>]

# This script demonstrates the DateTime Widget's use

# by Eric Hansen October 2002 - eri...@ch...

 

use Win32::GUI;

 

$W = new Win32::GUI::Window(

    -name => "Window",

    -text => "Demonstrate DateTime Control",

    -width => 275,

    -height => 250,

    -left => 50,

    -top => 50,

    -style => ws_sysmenu,

);

 

$MyDateTime = new Win32::GUI::DateTime($W,

         -name   => "MyDateTime",

         -width  => 150,

             -height => 25,

             -left   => 50,

             -top    => 50,

);

$MyDateTime->SetDate(15,8,2002); # set initially to Aug 15,2002

 

$Refresh = $W->AddButton(-name => "Refresh",

         -text  => "Refresh",

         -left => 125,

         -top => 100,

         -height => 25,

         -width => 73,

);

 

$Exit = $W->AddButton(-name => "Exit",

         -text  => "Exit",

         -left => 125,

         -top => 150,

         -height => 25,

         -width => 73,

);

 

$Status = $W->AddStatusBar(

    -name => "Status",

    -text => "Please select a new date and click Refresh BTN",

);

 

$W->Show();

$W->BringWindowToTop();

Win32::GUI::Dialog();

 

sub Refresh_Click {

   my($da,$mo,$year)=$MyDateTime->GetDate();

   $da=sprintf("%02d",$da);    # pad with leading zeroes to 2 digits

   $mo=sprintf("%02d",$mo);    # pad with leading zeroes to 2 digits

   $year=sprintf("%04d",$year);# pad with leading zeroes to 4 digits

   $Status->Text("$mo/$da/$year");  

}

 

sub Exit_Click {

   my $SelectedDate = $Status->Text();

   if ($SelectedDate eq "Please select a new date and click Refresh BTN"

            || $SelectedDate eq "08/15/2002") {

       Win32::GUI::MessageBox($W,

           "Please select a new date and click Refresh BTN\nThen you can
EXIT",

           "Demonstrate DateTime Control - Error",16,);

       return 1;

   } else {

       return -1;

   }

}

 

#  End Script

[perl-win32-gui-users] RichEdit and Class in 0.0.665

[Sean H. <jal...@ho...>]

Tried to post this previously, but it's been over 48 hours and it hasn't 
shown up in my inbox, so I'll try again.

I have some old code written under 0.0.558 which uses a Class to get the 
RButtonDown event from a RichEdit.  I recently tried to run this code under 
0.0.665, and it won't even compile.  The Class is:

$Clickable = new Win32::GUI::Class(
   -name    => 'Clickable',
   -widget  => 'RichEdit',
   -extends => 'RichEdit',
   );

If I comment out the -widget option, or comment out the -class option from 
the RichEdit, the script compiles and runs, but I get no RButtonDown event.  
Does anyone know a workaround for this?

Some time ago, someone posted a way to make a RichEdit respond to clicks, 
etc. by sending a certain message via SendMessage.  I don't remember the 
message constant or the associated parameters, but if anyone still has this, 
and it works under 0.0.665, could you please repost it?  It would probably 
be a better solution than faking RightCLick via RButtonDown.

Also, somewhat more recently, someone asked about having multiple columns in 
a TreeView.  I have made this work (sort of) with a ListView and associated 
ImageList.  I'm working on encapsulating it into a module.  Once I have the 
module ready, I'll put it up somewhere (unless someone has beaten me to it 
and I just haven't seen the announcement).

_________________________________________________________________
MSN Photos is the easiest way to share and print your photos: 
http://photos.msn.com/support/worldwide.aspx

[perl-win32-gui-users] Animated windows

[Luigino M. <lma...@ou...>]

Hi,
    I searched in this mailing list how to create animated windows like =
start menu in W2K/XP (see Win32 SDK - Layered Windows =
http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/winui/=
winui/windowsuserinterface/windowing/windows/windowreference/windowfuncti=
ons/animatewindow.asp) and found nothing about it, so i searched on MSDN =
and found the API code and tried until i got it.

Note that this functionality is fully supported by Windows 98/2000/XP =
only.

Here is the code, hope it will be useful to someone else...

#-----------------------------
# use Win32::GUI etc...=20

use Win32;
use Win32::API;

use constant AW_HOR_POSITIVE =3D> 0x00000001;
use constant AW_HOR_NEGATIVE =3D> 0x00000002;
use constant AW_VER_POSITIVE =3D> 0x00000004;
use constant AW_VER_NEGATIVE =3D> 0x00000008;
use constant AW_CENTER       =3D> 0x00000010;
use constant AW_HIDE         =3D> 0x00010000;
use constant AW_ACTIVATE     =3D> 0x00020000;
use constant AW_SLIDE        =3D> 0x00040000;
use constant AW_BLEND        =3D> 0x00080000;

# BOOL AnimateWindow(
# HWND hwnd,
# DWORD dwTime,
# DWORD dwFlags
# );
my $AnimateWindow =3D new Win32::API("user32", "AnimateWindow", [ 'N', =
'N', 'N' ], 'N') or $reg{'UI'}{'Fading'} =3D 0;

# ... here create your window object ($winObj) as ususal...

# set animation duration in ms (usually 200ms)
my $msec =3D 200;

# FADE IN
# use this command in place of $objWin->Show()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_ACTIVATE | AW_BLEND =
);

# FADE OUT
# use this command in place of $objWin->Hide() for example in =
winObj_Terminate()
$AnimateWindow->Call($winObj->{-handle}, $msec, AW_HIDE | AW_BLEND );


# 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 );

#-----------------------------

Bye.

    Luigino Masarati
    OutSys snc.

[perl-win32-gui-users] Window alpha/colorkey

[Luigino M. <lma...@ou...>]

Hi,
    I searched in this mailing list how to create a semi-transparent =
looking window and a free-shaped one (see Win32 SDK - Layered Windows =
http://msdn.microsoft.com/library/default.asp?url=3D/library/en-us/dnwui/=
html/layerwin.asp) and found nothing about it, so i searched on MSDN and =
found the API code and tried until i got it.

Note that this functionality is fully supported by Windows 2000/XP only.

Here is the code, hope it will be useful to someone else...

#-------------------------------------------------------------
# use Win32::GUI etc...=20

use Win32;
use Win32::API;

use constant GWL_EXSTYLE             =3D> -20;
use constant WS_EX_LAYERED           =3D> 0x00080000;
use constant LWA_COLORKEY            =3D> 0x00000001;
use constant LWA_ALPHA               =3D> 0x00000002;

# BOOL SetLayeredWindowAttributes(
# HWND hwnd,           // handle to the layered window
# COLORREF crKey,      // specifies the color key
# BYTE bAlpha,         // value for the blend function
# DWORD dwFlags        // action
# );
my $SetLayeredWindowAttributes =3D new Win32::API("user32", =
"SetLayeredWindowAttributes", [ 'N', 'N', 'I', 'N' ], 'N') or die =
"Cannot create SetLayeredWindowAttributes()";

# ... here create your window object ($winObj) as usual...

# set alpha channel value aka opaqueness for your window, range 0-255 =
(transparent-opaque)
my $alpha =3D 200;

# set color key value for your window, format is 0x00rrggbb, range =
0x00000000-0x00ffffff
# window regions painted with $colKey color will be completely =
trasparent (to mouse events too..)
my $colKey =3D 0x0000FF00;

# set the flags needed for alpha, colorkey or both...
# LWA_ALPHA activates alpha opaqueness using $alpha value
# LWA_COLORKEY activates color key using $colKey value
my $flags =3D LWA_ALPHA | LWA_COLORKEY;

# add the WS_EX_LAYERED extended style to your window (needed to use =
alpha/colorkey properties)
$objWin->SetWindowLong(GWL_EXSTYLE, Win32::GUI::GetWindowLong($objWin, =
GWL_EXSTYLE) | WS_EX_LAYERED );

# uncomment this and your window wil be COMPLETELY transparent to mouse =
events...
#$objWin->SetWindowLong(GWL_EXSTYLE, Win32::GUI::GetWindowLong($objWin, =
GWL_EXSTYLE) | WS_EX_TRANSPARENT );

# activate alpha/colorkey
$SetLayeredWindowAttributes->Call($objWin->{-handle}, $colKey, $alpha, =
$flags) or die "\n".Win32::GetLastError();

# ... now $objWin->Show() your window as usual...
#-----------------------------------------------------

Bye.

    Luigino Masarati
    OutSys snc.

RE: [perl-win32-gui-users] Cursor is not refreshed correctly

[Motesicky A. <Alo...@sw...>]

OK, but behavior of cursor still is not properly. (e.g. If I move mouse on
border of created window, cursor is not changed to standard system icon for
resizing <--> )
Lolo

-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Wednesday, October 02, 2002 2:45 PM
To: Motesicky Alojz; 'per...@li...'
Subject: RE: [perl-win32-gui-users] Cursor is not refreshed correctly


from the GUI sample script (should've come with the Module), textfield.pl
 
        my $C = new Win32::GUI::Cursor("harrow.cur");
        $Window->ChangeCursor($C);
        $Window->Reset->ChangeCursor($C);
 
 
-Pete

-----Original Message-----
From: Motesicky Alojz [mailto:Alo...@sw...]
Sent: Wednesday, October 02, 2002 03:50
To: 'per...@li...'
Subject: [perl-win32-gui-users] Cursor is not refreshed correctly


Hi,
 
I am a novice in this mailing distribution list therefore sorry for my non
topical information.
 
How set up window settings to correct changing of a mouse cursor on
Win32-GUI version 0.0.665 ?
 
Thanks
Lolo.
 

RE: [perl-win32-gui-users] Cursor is not refreshed correctly

[Peter E. <Pet...@at...>]

from the GUI sample script (should've come with the Module), textfield.pl
 
        my $C = new Win32::GUI::Cursor("harrow.cur");
        $Window->ChangeCursor($C);
        $Window->Reset->ChangeCursor($C);
 
 
-Pete

-----Original Message-----
From: Motesicky Alojz [mailto:Alo...@sw...]
Sent: Wednesday, October 02, 2002 03:50
To: 'per...@li...'
Subject: [perl-win32-gui-users] Cursor is not refreshed correctly


Hi,
 
I am a novice in this mailing distribution list therefore sorry for my non
topical information.
 
How set up window settings to correct changing of a mouse cursor on
Win32-GUI version 0.0.665 ?
 
Thanks
Lolo.
 

[perl-win32-gui-users] Cursor is not refreshed correctly

[Motesicky A. <Alo...@sw...>]

Hi,
 
I am a novice in this mailing distribution list therefore sorry for my non
topical information.
 
How set up window settings to correct changing of a mouse cursor on
Win32-GUI version 0.0.665 ?
 
Thanks
Lolo.
 

RE: [perl-win32-gui-users] DateTime object in Win32::GUI 0.665

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

I have been unable to get any events working with this control.  Any =
thoughts?

use Win32::GUI;

my $Window =3D new Win32::GUI::Window (
	-name   =3D> "Window",
	-topmost =3D> 1,
	-left   =3D> 300,
	-dialogui =3D> 1,
	-top    =3D> 400,
	-width  =3D> 222,
	-height =3D> 235,
	-text   =3D> "Test",
   # ....
	-events =3D>
	{
		Terminate =3D> sub { print "Dying\n"; return -1 },
	},
);

	$Window->AddDateTime(
		-top	=3D>	1,
		-left	=3D>	1,
		-width	=3D> 180,
		-height	=3D>	25,
		-name	=3D>	"dateFromT",
		-events =3D>
			{
				#Click =3D> sub { print "Got a Click\n"; },
				LostFocus  =3D> sub { print "Lost Focus\n"; },
			},
		-onClick =3D> sub { print "Got a Click\n"; },
		-onChange =3D> sub { print "Got a Click\n"; },
	);

$Window->Enable();
$Window->Show();
Win32::GUI::Dialog;

I also tried the named sub way, and this also failed.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

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


> -----Original Message-----
> From: Anthony George [mailto:AG...@em...]
> Sent: Tuesday, October 01, 2002 8:24 AM
> To: gabor.borus; Perl List
> Subject: Re: [perl-win32-gui-users] DateTime object in=20
> Win32::GUI 0.665
>=20
>=20
> -----Original Message-----
> From: "gabor.borus" <gab...@fr...>
> To: "Perl List" <per...@li...>
> Date: Tue, 1 Oct 2002 12:34:11 +0200
> Subject: [perl-win32-gui-users] DateTime object in Win32::GUI 0.665
>=20
> > Hi all!
> >=20
> > Has anybody a working example for DateTime object?
>=20
> 	new Win32::GUI::DateTime (
> 		$mywindow,
> 		-top	=3D>	1,
> 		-left	=3D>	1,
> 		-width	=3D>	90,
> 		-height	=3D>	25,
> 		-name	=3D>	"dateFromT",
> 	);
>=20
>=20
> sub something_Click {
>     my($mmF,$ddF,$yyF)=3Dsplit(/\//,$mywindow->dateFromT->Text());
> }
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by: DEDICATED SERVERS only $89!
> Linux or FreeBSD, FREE setup, FAST network. Get your own server=20
> today at http://www.ServePath.com/indexfm.htm
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

Re: [perl-win32-gui-users] Win32::GUI and graphs?

[Laurent R. <ro...@cl...>]

Hi,

3 ideas.

    * Win32::GUI::Graphic & Win32::GUI::DC

    You can use Graphic and DC for draw yourself the graph.
    Graphic have a draw method and DC have SetPixel, MoveTo, LineTo, Circle,
...

    * GD::Graph & Win32::GUI::DIBitmap

    You can use GD::Graph for build the graph and use Win32::GUI::DIBitmap
for transform and display the GD graph image.

    * Win32::GUI::AxWindow

    I haven't test it, but i think it's possible to use AxWindow for hosting
a Microsoft Chart control.


Laurent.

For DIBitmap & AxWindow see at :
http://perso.club-internet.fr/rocherl/Win32GUI.html


--- From: "Jonathan Southwick"
>
> I have written a couple of programs using the GUI module.  I love
> it!!!!  Now I have been asked to help write an app that uses a
> graph.  Basically I think all I need to do is plot x-y coordinates.  Is
> there a part of the GUI module that allows for this?
>
> Jonathan