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

RE: [perl-win32-gui-users] Strange end of my program when I roll the wheel of my mouse while downloading information from the web

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

At 11:57 2002-05-17 +0200, Guillem Cunillera Wefers wrote:
>I only use the NodeClick, and it seems to go wrigth, but:
>- Some NodeClick events are send when I haven't done, for instance when I
>roll the wheel

Maybe this is related to the problems I had, I don't know. This is how I 
"solved" my problem:

-----
I wrote:
>If I don't actually double click on the node, the problem disappears. If I 
>call the DblCLick() sub from e.g. a NodeClick() event or a button Click() 
>it works fine.

And so it went away.

The workaround--I'm big on workarounds, having a past as a web designer--is 
to not do important stuff in the DblClick() event. What I do now is this:

In the DblClick() event I set a property, eventWrapper, to the code I want 
to execute. Nothing else. A timer triggers 50 times a second, looking at 
the eventWrapper property. If it's nonempty, the timer evals the string. Voila!

The timer doesn't seem to affect performance, and the delay between double 
click and action isn't noticable unless you know it's there.

It's not industrial-strength tested yet, but it seems to work fine.
-----


/J

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

Latest bookmark: "HowStuffWorks - Learn how Everything Works!"
http://www.howstuffworks.com/

RE: [perl-win32-gui-users] Strange end of my program when I roll the wheel of my mouse while downloading information from the web

[Guillem C. W. <vac...@es...>]

I only use the NodeClick, and it seems to go wrigth, but:
- Some NodeClick events are send when I haven't done, for instance when I
roll the wheel
- If I define a new dinamic window inside the NodeClick it is impossible =
to
change the window focus to the new Window.Always return to the same windo=
w.
I tried to return 0 or 1 but any change.

I am still using Build 628 of Perl Activestate end Win32::Gui 0.552.

I tried to pass my program in order to avoid possible bugs to build 631 a=
nd
Win32::Gui:655 but cracks just starting.


-----Mensaje original-----
De: Johan Lindstrom <jo...@ba...>
Para: Per...@li...
<Per...@li...>
Fecha: divendres, 17 / maig / 2002 11:37
Asunto: Re: [perl-win32-gui-users] Strange end of my program when I roll =
the
wheel of my mouse while downloading information from the web


>At 11:26 2002-05-17 +0200, Guillem Cunillera Wefers wrote:
>>I use a great TreeView in a Window, and this window uses LWP to downloa=
d
>>information of the web, but when I roll the wheel of my mouse, the prog=
ram
>>ends suddenly !. It only happen when I am downloading information from =
the
>>web, if not no ends success.
>
>A long time ago I had serious problems with a TreeView and the DblClick
>event. Do you have any event handlers defined for the TreeView?
>
>
>/J
>
>-------- ------ ---- --- -- --  --  -    -     -      -         -
>Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>
>Latest bookmark: "HowStuffWorks - Learn how Everything Works!"
>http://www.howstuffworks.com/
>
>
>
>_______________________________________________________________
>
>Have big pipes? SourceForge.net is looking for download mirrors. We supp=
ly
>the hardware. You get the recognition. Email Us: bandwidth@sourceforge.n=
et
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Strange end of my program when I roll the wheel of my mouse while downloading information from the web

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

At 11:26 2002-05-17 +0200, Guillem Cunillera Wefers wrote:
>I use a great TreeView in a Window, and this window uses LWP to download 
>information of the web, but when I roll the wheel of my mouse, the program 
>ends suddenly !. It only happen when I am downloading information from the 
>web, if not no ends success.

A long time ago I had serious problems with a TreeView and the DblClick 
event. Do you have any event handlers defined for the TreeView?


/J

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

Latest bookmark: "HowStuffWorks - Learn how Everything Works!"
http://www.howstuffworks.com/

[perl-win32-gui-users] Strange end of my program when I roll the wheel of my mouse while downloading information from the web

[Guillem C. W. <vac...@es...>]

I use a great TreeView in a Window, and this window uses LWP to download =
information of the web, but when I roll the wheel of my mouse, the =
program ends suddenly !. It only happen when I am downloading =
information from the web, if not no ends success.

More info: This window also uses progressbar, labels and buttons.

 Does anybody find a similar error and a solution ?

Strange, very very very very strange !!

thanks !

[perl-win32-gui-users] keystrokes

[<ma...@mm...>]

hi. is there any way of associating a keystroke with something, like alt+s
to bring up a settings window?

[perl-win32-gui-users] Jean-Pierre Van Osselaer/U28993/KB/KredAlm is niet op zijn/haar kantoor.

[<jea...@kb...>]

I will be out of the office starting  14/05/2002 and will not return until
20/05/2002.

verlof



____________________________________________________
DISCLAIMER

This e-mail and any attached files are confidential and may be legally privileged. If you are not the addressee, any disclosure, reproduction, copying, distribution, or other dissemination or use of this communication is strictly prohibited. If you have received this transmission in error please notify KBC immediately and then delete this e-mail.
KBC does not accept liability for the correct and complete transmission of the information, nor for any delay or interruption of the transmission, nor for damages arising from the use of or reliance on the information.
All e-mail messages addressed to, received or sent by KBC or KBC employees are deemed to be professional in nature. Accordingly, the sender or recipient of these messages agrees that they may be read by other KBC employees than the official recipient or sender in order to ensure the continuity of work-related activities and allow supervision thereof.

RE: [perl-win32-gui-users] WS_HSCROLL

[Piske, H. <Har...@bo...>]

Fist bit of -style docu:

DON'T USE -style AT ALL!!!

Use -addstyle and -substyle instead. That avoids missing a few default
flags.
Apart from that, I'm afraid, you will have to dig deeeeep into the header
files or other, filthy windows documentation for what bits can be used with
which widget.

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

[H C <key...@ya...>]

Being somewhat new to Win32::GUI, where can I read
more documentation on '-style'?  

--- larry moore <lg...@ea...> wrote:
> I am trying to add both vertical and horizontal
> scroll bars.  For some
> reason my WS_HSCROLL command in the -style doesn't
> work.
> 
> 
> -style => WS_VSCROLL | WS_VISIBLE | 3 | WS_CHILD
> 
> works as expected, but
> 
> -style => WS_VSCROLL | WS_HSCROLL | WS_VISIBLE | 3 |
> WS_CHILD
> 
> does not produce a horizontal scroll bar when the
> liines for  the Listbox
> are longer then the width of the Listbox.  I am
> still searching for example
> code for this option but have yet to be successful.
> 
> Thanks,
> 
> Larry
> 
> 
> 
> 
>
_______________________________________________________________
> 
> Have big pipes? SourceForge.net is looking for
> download mirrors. We supply
> the hardware. You get the recognition. Email Us:
> ban...@so...
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com

[perl-win32-gui-users] WS_HSCROLL

[larry m. <lg...@ea...>]

I am trying to add both vertical and horizontal scroll bars.  For some
reason my WS_HSCROLL command in the -style doesn't work.


-style => WS_VSCROLL | WS_VISIBLE | 3 | WS_CHILD

works as expected, but

-style => WS_VSCROLL | WS_HSCROLL | WS_VISIBLE | 3 | WS_CHILD

does not produce a horizontal scroll bar when the liines for  the Listbox
are longer then the width of the Listbox.  I am still searching for example
code for this option but have yet to be successful.

Thanks,

Larry

FW: [perl-win32-gui-users] Win32Gui-FAQ 0.3

[Piske, H. <Har...@bo...>]

<HTML>
<HEAD>
<title>Win32::GUI FAQ</title>
</HEAD>
<BODY>
<H1>The Win32::GUI FAQ</H1>
<PRE>Aldo Calpini, da...@pe...
Erick Bourgeois, er...@je...=20
Felix Gaehler, fe...@fr...
&nbsp;
v0.3, August 20, 2001
</PRE>
<P><EM>This is the "Frequently Asked Questions" for Perl Win32::GUI =
module. The=20
questions and answers have been collected from the Win32::GUI-Users =
mailing=20
list. </EM>
<HR>

<H1>General Questions</H1>
<H2>What is Win32::GUI?</H2>
<P>"Win32::GUI is a Win32-platform native graphical user interface =
toolkit for=20
Perl. Basically, it's an XS implementation of most of the functions =
found in=20
user32.dll and gdi32.dll, with an object oriented Perl interface and an =

event-based dialog model that mimic the functionality of visual basic. =
It was a=20
big fun for me to put it up, hope it will be a fun for you too :-)"</P>
<H2>Where can I get Win32::GUI?</H2>
<P>The creator and chief maintainer of the Win32::GUI module is Aldo =
Calpini.=20
The module and pertinent information can be found at <A=20
href=3D"http://dada.perl.it/">http://dada.perl.it/</A>. <BR>"The module =
is=20
actually in beta testing so be warned that syntax and behavior can =
change with=20
future builds; and of course, that there are many incomplete parts, =
sparse=20
documentation (you can browse here the work in progress), and generally =
a lot of=20
things to do."=20
<P>Win32::GUI for ActiveState Perl 5.6 can be downloaded from the =
ActiveState=20
Archive using PPM:=20
<PRE>  ppm install Win32::GUI
</PRE>
<P>Documentation is available at=20
<PRE>  <A =
href=3D"http://dada.perl.it/gui_docs/gui.html">http://dada.perl.it/gui_d=
ocs/gui.html</A>

  <A =
href=3D"http://www.jeb.ca/howto/The_Win32-GUI_HOWTO.html">http://www.jeb=
.ca/howto/The_Win32-GUI_HOWTO.html</A>
</PRE>
<H2>What about licensing?</H2>
<P>If I develop a product in Perl with usage of the Win32::GUI module, =
and I spread=20
  (well lets assume for FREE) to the public.. Is it still under GNU =
license or=20
  do we have to pay the Win32::GUI team something ?=20
<P>"No, you don't have to pay anything. I'm not a lawyer and I don't =
want to pay=20
a lawyer :-) Win32::GUI is released under the Artistic License, e.g. =
you can=20
redistribute it under the same terms of Perl itself."=20
<HR>

<H1>Frequent Problems</H1>
<H2>Why does my window seem to freeze when my program is in a =
loop?</H2>
<P>I can help here. Put a call to DoEvents() inside the loop. This will =
ensure=20
that all queued messages are processed before going on with the loop:
<PRE>
use strict;
use Win32::GUI;

my $main =3D Win32::GUI::Window-&gt;new(
  -name    =3D&gt; &quot;Main&quot;,
  -title   =3D&gt; &quot;Win32-GUI: Doevents-Demo&quot;,
  -left    =3D&gt; 100,
  -top     =3D&gt; 100,
  -width   =3D&gt; 600,
  -height  =3D&gt; 400,
);

sub Main_Terminate() {
  print &quot;Main window terminated\n&quot;;
  return -1;
}

my $textfield =3D $main-&gt;AddTextfield(
  -name   =3D&gt; &quot;Textfield&quot;,
  -text   =3D&gt; &quot;have fun and more&quot;,
  -left   =3D&gt; 75,
  -top    =3D&gt; 150,
  -width  =3D&gt; 200,
  -height =3D&gt; 40,
  -readonly =3D&gt; 1,
);

$main-&gt;Show();

$textfield-&gt;Text(&quot;Processing infile...&quot;);
open INFILE, &quot;&lt;infile.txt&quot; or die &quot;open infile error: =
$!&quot;;
my $linenr =3D 0;
foreach my $line (&lt;INFILE&gt;) {
  $linenr++;
  $textfield-&gt;Text(&quot;Processing line $linenr&quot;);
  <B>Win32::GUI::DoEvents() &gt;=3D 0 or die &quot;Window was closed =
during processing&quot;;</B>
  sleep 1; #body of the loop...
}

$textfield-&gt;Text(&quot;completed&quot;);
Win32::GUI::DoEvents();
sleep 1; #program continues...
</PRE>

<P>This will, of course, make your loop run slightly slower (almost =
irrelevant=20
if there is no activity on the window). But there is the advantage =
(other than=20
having the Textfield saying "Processing...") of being able to stop the =
loop in=20
the middle by killing the window, or with a 'dedicated' stopbutton, for =
example.=20

<H2>Can I use a window handle in more than one process?</H2>
<P>If you run some lengthy processing like web page retrieval with LWP, =
database=20
search, file processing etc., and you cannot call =
$Window-&gt;DoEvents() within=20
that processing, your window will seem to freeze during your =
processing. The=20
solution to that is, to do the processing in a separate Windows thread =
or=20
process. ActivePerl 5.6 simulates the "fork" command using Windows =
threads.=20
<P>"Well, from Windows point of view, it is a thread. From Perl's point =
of view,=20
it is a process. The Perl interpreter is busily keeping the data =
separate=20
between the two threads (I'm not sure I understand the complete =
technique of the=20
magic that does that, but I'm sure it can be made to work because the =
Perl=20
language doesn't expose "real" addresses (much))."=20
<P>"On the other hand, the (UNIX) model for "fork" is that the multiple =

processes (threads on Perl for Windows) start off with identical=20
data/variables/file handles. And the Windows model for "windows" is =
that the=20
windows are owned by a process (not a thread), and can be accessed by =
any thread=20
that has the window handle. (And in fact, because Windows was developed =
on DOS,=20
the windows are even a bit visible to other processes, but that doesn't =
concern=20
us here.)"=20
<P>"By creating the Win32::GUI objects before forking, both the parent =
and child=20
threads get copies (?) of the object variables. Because of the nature =
of=20
Windows, the embedded Window handles inside both copies of the object =
variables=20
are equally usable. Because of the (present) nature of Win32::GUI, =
whereby most=20
of the parameter data is pumped into Win32 API parameters, and most of =
the=20
return values are obtained by calling Win32 APIs to obtain it, I have =
shown=20
experimentally that it is possible to use the Win32::GUI object =
references from=20
both a parent and a child thread. Now it is important to remember that =
Windows=20
only delivers window messages to the first thread of a program, so in =
the Perl=20
"fork" environment, this gets translated to <B>only the parent process =
of a=20
group of Perl-forked processes can successfully run =
Win32::GUI::Dialog</B> (Yep,=20
I tried it the other way first, figuring that the parent could more =
easily=20
monitor the child process for death, since fork returns the child pid, =
and=20
waitpid works that way--but it just hung, and the windows never =
appeared).=20
However, <B>the child can use the object references created by =
Win32::GUI</B>=20
[before the fork] to access the "IsEnabled", "IsVisible" attributes of =
the=20
window widgets, and they are dynamically updated (not cached in the =
object). The=20
child can access the current selection from combo boxes. The child can =
enable=20
and disable widgets, and the display gets updated appropriately. This =
is quite=20
adequate for my application, which now can do its "long" operations in =
the child=20
"process", and keep the GUI window "active" (except that certain parts =
get=20
disabled during "long" operations)."=20
<H2>How can I use Win32::GUI functions in EVAL?</H2>
<P>Yes, Win32::GUI supports things like these (it's really Perl that =
supports it=20
:-), but you need to escape your window-handler variable $W:=20
<PRE>    eval qq (
        sub main::$subtxt {
            print &quot;button clicked\n&quot;;
            <B>\$W</B>-&gt;SimpleLabel-&gt;Text(&quot;Got a =
click&quot;);
        }
    );
    $@ or die &quot;Error in eval: $@&quot;;   $$$verify
</PRE>...and always check for $@ after an eval!=20

<HR>

<H1>Text Fields</H1>
<H2>How can I get a vertical scrollbar in a textfield?</H2>
Add these options when you create the textfield: <PRE> =20
-multiline   =3D&gt; 1
-autovscroll =3D&gt; 1
</PRE>This should do the trick.=20
<H2>How can I get the selected portion of a textfield?</H2>
<P>There is a Selection method that returns the start and end of the =
selection.=20
Then you just make a substr on the Textfield content: <PRE>  ($from, =
$to) =3D $Textfield-&gt;Selection();
  $var =3D substr($Textfield-&gt;Text, $from, $to-$from);
</PRE>
<H2>How can I get the _Change event from a RichEdit control?</H2>
<P>"I'd like to share a solution to a problem that has been driving me =
nuts for=20
a while. I changed a Textfield control to a RichEdit and it would not =
give me=20
the _Change event. I dug in the GUI.xs and could find nothing wrong. I =
finally=20
tracked it down to the eventmask being zero, which means that the =
notification=20
messages don't come to the GUI message loop in the first place. The =
workaround=20
is to do=20
<PRE>  $MainWindow-&gt;myRichEditField-&gt;SendMessage (0x445, 0, 1);
</PRE>
<P>That sends EM_SETEVENTMASK (0x445) to the control with the =
ENM_CHANGE bit=20
set. Hope that spares somebody else a headache."=20

<H2>How can I format text in a RichEdit control?</H2>
<P>There is a SetCharFormat method to the RichEdit control.
<PRE>
$Rich-&gt;Select ($from_here, $to_there);
$Rich-&gt;SetCharFormat (-color =3D&gt; $flashy_pink)
</PRE>

To set the font at the beginning you can use:
<PRE>
my $Font =3D new Win32::GUI::Font(
-name =3D&gt; &quot;Courier New&quot;,=20
-height =3D&gt; 16,
-bold =3D&gt; 0,
);

### or the font/style of your choice...
### and then in your AddRichEdit use

-font =3D&gt; $Font
</PRE>

<HR>

<H1>ListView</H1>
<H2>How can I prevent the user from choosing more than one item in a=20
Listview?</H2>You can use the -singlesel option on the ListView to =
achieve what=20
you want.=20
<H2>How can I display a popup menu within a ListView?</H2>
<P>Here is an example how it can be done:=20
<PRE># define popup menu for listview
my $PopupMenu =3D new Win32::GUI::Menu(
    &quot;Item Properties&quot; =3D&gt; &quot;ItemProp&quot;,
    &quot;&gt;&amp;Properties&quot; =3D&gt; &quot;ItemProperties&quot;,
);
=20
# get right-click in listview
sub DataView_RightClick {
   my($X, $Y) =3D Win32::GUI::GetCursorPos();
=20
   $MainWindow-&gt;TrackPopupMenu($PopupMenu-&gt;{ItemProp},$X, $Y);
}
=20
# clicked on particular menu item in popup menu
sub ItemProperties_Click {
   ## code you want to process;
}
</PRE>
<HR>

<H1>MessageBox</H1>
<H2>What are the icon, button and modality values for MessageBox?</H2>
<P>"I think these will work, I haven't tried them all.=20
<PRE>Settings
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D
0 - display only the OK button
1 - display OK and Cancel buttons
2 - display Abort, Retry, and Ignore buttons
3 - display Yes, No, and Cancel buttons
4 - display Yes and No buttons
5 - display Retry and Cancel buttons

16 - display Critical Message icon
32 - display Warning Query icon
48 - display Warning Message icon
64 - display Information Message icon

0 - set first button as default
256 - set second button as default
512 - set third button as default
768 - set fourth button as default

=20
Return Values
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
1 - OK
2 - Cancel
3 - Abort
4 - Retry
5 - Ignore
6 - Yes
7 - No&quot;
</PRE>
<HR>
<H1>Cursors</H1>
<H2>How can I change the cursor to an hourglass and back?</H2>
<P>Basically, what you want is
<PRE>
Win32::GUI::SetCursor ()
</PRE>
the tricky thing is to get the standard resource of the hourglass. Feel =
free
to use my perl module http://www.fairymails.com/perl/WinStRes.pm for =
exactly
this: (Notice: Win32::API must be installed)
<PRE>
Win32::GUI::SetCursor (WinCursor (WAIT)); # hourglass ...
Win32::GUI::SetCursor (WinCursor ()); # ... and back
</PRE>
What this module does is
<PRE>
$LoadImage =3D new Win32::API ('user32', 'LoadImage', [N,N,I,I,I,I],N)
or die 'can\'t find LoadImage function';
...
%cursors =3D
(
'NORMAL'      =3D&gt; 32512,
'IBEAM'       =3D&gt; 32513,
'WAIT'        =3D&gt; 32514,
...
sub WinCursor
{
local $_ =3D $cursors{$_[0]} or $cursors{'NORMAL'};
return $LoadImage-&gt;Call (0, $_, 2, 0, 0, 0x8040);
}
</PRE>

Example:
<p>First download the module http://www.fairymails.com/perl/WinStRes.pm =
and store it
under the name 'WinStRes.pm' in the directory where you have your perl =
program, or
in the perl modules directory.

Second, make sure Win32::API is installed, or install it using ppm.

The perl program below now shows the hourglass cursor for two seconds =
each time
the button "search now" is clicked.

<PRE>
use strict;
use Win32::GUI;

#How to get the &quot;wait cursor&quot; resource.
#Alternative 1, using the Win32::API module:
use Win32::API;
my $loadImage =3D new Win32::API ('user32', 'LoadImage', =
['N','N','I','I','I','I'],'N')
 or die 'cannot find LoadImage function';
my $waitCursor =3D $loadImage-&gt;Call(0, 32514, 2, 0, 0, 0x8040);

#Alternative 2, using the WinStRes module (uses Win32::API)
#use WinStRes;  #download from =
http://www.fairymails.com/perl/WinStRes.pm
#my $waitCursor =3D WinCursor(&quot;WAIT&quot;);

my $main =3D Win32::GUI::Window-&gt;new(
  -name    =3D&gt; &quot;Main&quot;,
  -title   =3D&gt; &quot;Win32-GUI: Hourglass Cursor Demo&quot;,
  -left    =3D&gt; 100,
  -top     =3D&gt; 100,
  -width   =3D&gt; 600,
  -height  =3D&gt; 400,
);

my $search =3D $main-&gt;AddButton(
  -name    =3D&gt; 'Search',
  -text    =3D&gt; 'search now',=20
  -left    =3D&gt; 25,
  -top     =3D&gt; 25,
);

sub Search_Click {
  print &quot;Searching...&quot;;=20
  <B>my $oldCursor =3D Win32::GUI::SetCursor($waitCursor);  #show =
hourglass ...</B>
  sleep 2;  #do your search here
  print &quot;done\n&quot;;
  <B>Win32::GUI::SetCursor($oldCursor);  #show previous arrow cursor =
again</B>
  return 1;
}

sub Main_Terminate {
  print &quot;Main Window terminated\n&quot;;
  return -1;
}

$main-&gt;Show();
Win32::GUI::Dialog();
</PRE>

<HR>

<H1>Extensions to Win32::GUI</H1>

<H2>Is there a spreadsheet (grid) look-a-like solution or =
component?</H2>
<P>"No, but I'm thinking about implementing one (just thinking for now =
:-). "=20

<H2>Is there a inline webbrowser somewhere ? or a HTML or XML =
parser?</H2>
<P>"No, and I don't think I will try to implement one :-) You should =
instead look at=20
Win32::OLE, to see if you can embed an InternetExplorer instance in a =
window.=20
That said, it seems that RichEdit 3.0 (available in Windows 2000) has a =
lot of=20
nice features, that I'll try to implement if time permits."=20

<p>So, I used the Win32:OLE example from Learning Perl on Win32:=20
<PRE>
use Win32::OLE;
my $browser =3D CreateObject OLE =
&quot;InternetExplorer.Application.1&quot; || return 0;
$browser-&gt;{'Visible'} =3D 1;
$browser-&gt;Navigate(&quot;http://www.perlmonks.org/&quot;);
</PRE>

This works fine, except I'm now forcing the user to use IE instead of =
Netscape.=20
And it's possible (not likely I realize) that they don't even have IE. =
So what happens then?=20

<p>To show an URL in the default browser of your PC, the Win32::Shell =
helps.
Win32::Shell can be downloaded from the Activestate archive using ppm. =
It is
not in CPAN at present (June 2001).
<PRE>
use Win32::Shell;
$url =3D &quot;http://www.perlmonks.org&quot;;
Win32::Shell::Execute(&quot;open&quot;, $url, undef, undef, =
&quot;SW_SHOWNORMAL&quot;);
</PRE>
This starts the default browser opened to the correct URL, with no =
delay, and no console window.=20

<H2>Is there support for JPG or common image formats like .PNG or =
.GIF?</H2>
Win32::GUI::DIBitmap add new reading/writing bitmap formats to =
Win32::GUI and
some images manipulations (Conversion, Screen capture, ...).<br>
This package uses FreeImage 2.4.1, an open source image library =
supporting all
common bitmap formats (visit : <a =
href=3D"http://www.6ixsoft.com/">http://www.6ixsoft.com/</a>).
<p>Supports many formats, such as:
<pre>  Format  Reading Writing Description.
  BMP     Y       Y       Windows or OS/2 Bitmap
  ICO     Y       N       Windows Icon
  JPEG    Y       Y       JPEG - JFIF Compliant
  JNG     Y       N       JPEG Network Graphics
  KOALA   Y       N       C64 Koala Graphics
  IFF     Y       N       IFF Interleaved Bitmap
  MNG     Y       N       Multiple Network Graphics
  PBM     Y       Y       Portable Bitmap (ASCII)
  PBMRAW  Y       Y       Portable Bitmap (RAW)
  PCD     Y       N       Kodak PhotoCD
  PCX     Y       N       Zsoft Paintbrush
  PGM     Y       Y       Portable Greymap (ASCII)
  PGMRAW  Y       Y       Portable Greymap (RAW)
  PNG     Y       Y       Portable Network Graphics
  PPM     Y       Y       Portable Pixelmap (ASCII)
  PPMRAW  Y       Y       Portable Pixelmap (RAW)
  RAS     Y       N       Sun Raster Image
  TARGA   Y       N       Truevision Targa
  TIFF    Y       Y       Tagged Image File Format
  WBMP    Y       Y       Wireless Bitmap
  PSD     Y       N       Adobe Photoshop
</pre>
<h3>Current version : 0.03</h3>
<p><a =
href=3D"http://perso.club-internet.fr/rocherl/DIBitmap.html">DIBitmap</a=
> :
Win32::GUI::DIBitmap Docs<br>
<a =
href=3D"http://perso.club-internet.fr/rocherl/Win32-GUI-DIBitmap-SRC.zip=
">Win32-GUI-DIBitmap-SRC.zip
(28 ko)</a> : Source Code and samples (You must download FreeImage =
source code
for build it, see Readme.txt)<br>
<a =
href=3D"http://perso.club-internet.fr/rocherl/Win32-GUI-DIBitmap-PPM-500=
5.zip">Win32-GUI-DIBitmap-PPM-5005.zip
(266 ko)</a> : PPM distribution for Active Perl 5.003 (see =
Readme)&nbsp;<br>
<a =
href=3D"http://perso.club-internet.fr/rocherl/Win32-GUI-DIBitmap-PPM-56.=
zip">Win32-GUI-DIBitmap-PPM-56.zip
(271 ko)</a> : PPM distribution for Active Perl 5.6 (see Readme)
<p>&nbsp;For more information see&nbsp; <a =
href=3D"http://perso.club-internet.fr/rocherl/Win32GUI.html">http://pers=
o.club-internet.fr/rocherl/Win32GUI.html</a>&nbsp;
(email from Laurent Rocher Aug 20, 2001)</p>

<H2>How can I deal with moving and resizing stuff when a window is =
resized?</H2>
<P>"Dealing with moving and resizing stuff when a window is resized is =
really=20
annoying, not to mention boring. So I created a class to make that =
easier. That=20
was a lot more fun for some reason :) Anyway, the result is =
Win32::GUI::Resizer.=20
<PRE>  <A =
href=3D"http://www.bahnhof.se/~johanl/perl/Win32GUI/">http://www.bahnhof=
.se/~johanl/perl/Win32GUI/</A>
</PRE>Please try it out if you like and let me know what you think. =
"&nbsp;
(email from Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua,=20
jp...@bo...)=20

<H2>Is there a Win32-GUI-Builder available (i.e. a visual aid in =
designing the=20
GUI)?</H2>
<P>yes, well.. at least a basic one. Download=20
<PRE>  <A =
href=3D"ftp://ftp.wh.whoi.edu/pub/gb109.zip">ftp://ftp.wh.whoi.edu/pub/g=
b109.zip</A></PRE>
For more information, check the Win32::GUI mailing-list, the emails =
from David Hiltz.=20

<p>Another one is the <b>GUI Loft</b> by Johan Lindstr=F6m. This is a =
powerful and easy-to-use WYSIWYG editor
for designing Win32::GUI windows, dialog boxes and toolwindows. It is =
also a set of classes used=20
to create the window for you at runtime.
<p>
Download source and/or binaries here: <a =
href=3D"http://www.bahnhof.se/~johanl/perl/Loft/">
http://www.bahnhof.se/~johanl/perl/Loft/</a>
<p>
The Perl Artistic License applies.
<p>
There is an extensive User Manual in the Help menu, please read it. But =
try=20
the program first, you are programmers and power-users after all, =
right? :)
<p>
Currently supported controls are:
Window, DialogBox, ToolbarWindow, Button, Label, TextField, =
RadioButton,=20
CheckBox, GroupBox, Listbox, RichEdit, ListView, ComboBox, TreeView,=20
TabStrip, Timer, ImageList
<p>
Cool features include:
<p>- Pretty extensive WYSIWYG support + 100% accurate preview
<p>- Pretty complete support for Win32::GUI control options--and then =
some
<p>- It's actually easy to use (IMHO :)
<p>- Docs and demo code
<p>- No-code runtime TabStrip management

<HR>
</BODY></HTML>

[perl-win32-gui-users] Win32::GUI examples.

[H C <key...@ya...>]

I've found several examples of the use of Win32::GUI
on the 'Net, as well as the docs...but does anyone
have any examples they'd care to share/post?  

Thanks. 

Carv


__________________________________________________
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com

[perl-win32-gui-users] Controlling WinAmp with Win32::GUI

[H. W. M. <mi...@lu...>]

I've got a Perl/Tk application that I'm using to control WinAmp, via the
WM_COMMAND API provided by WinAmp.

To start with, if I start up WinAmp manually, and run a simple script like
this:

#####
use Win32::GUI;

$winamphandle = Win32::GUI::FindWindow("Winamp v1.x","");
print "Handle: $winamphandle\n";

Win32::GUI::SendMessage( $winamphandle, WM_COMMAND, 40045, 0 );
sleep(1);
Win32::GUI::SendMessage( $winamphandle, WM_COMMAND, 40047, 0 );
#####

It works fine.  Winamp starts and then stops a second later.

However, in my real Perl/Tk app, I can't stop WinAmp.  I start the Perl/Tk
app, and it launches WinAmp.  I've tried launching WinAmp two different
ways:

Win32::Process::Create($object, $mp3player,'',0, NORMAL_PRIORITY_CLASS, ".");

  and

open (MP3Player,"|$mp3player");

WinAmp starts fine both ways, and I can get a handle ID with:

$winamphandle = Win32::GUI::FindWindow("Winamp v1.x","");

So that part works fine.

But in a subroutine, when I try:

    print ("Stopping handle $winamphandle\n");
    Win32::GUI::SendMessage( $winamphandle, WM_COMMAND, 40047, 0 );

WinAmp doesn't stop.

So is there a difference in Win32::GUI's actions when WinAmp is launched
from within another appliction, versues when it's started manually?

Does anyone have any ideas on this problem?

Thanks,
Wade

-- 
Fight for your rights in the digital age:
http://www.speakeasy.org/~russotto/dangerous.html
http://www.digitalconsumer.org/
http://digitalspeech.org/

RE: [perl-win32-gui-users] Textfield

[larry m. <lg...@ea...>]

Upon a little closer look at the documentation for -multiline, it says the
the return is \r\n, will this make a difference to my chomp?  Should I be
removing \r\n and searching for both chars?

Thanks,

Larry

-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Tuesday, May 14, 2002 9:44 AM
To: lg...@ea...; per...@li...
Subject: Re: [perl-win32-gui-users] Textfield


>Is there a way to make the return key register for a Textfield.  I am using
>a sub Textfield_1_Change and would like to use the -text for this object to
>be used in a search string when the user has hit the return key.  As a
>first
>step, I have been echoing each key press to the dos window, but the return
>key seems to have no effect.

Here's a workaround:
Make the Textfield -multiline => 1.
Use the _Change event:
   Grab the text whenever the user changes it
   Test the text against =~s/\n//g;
   Return if this test fails
   Restore the text
   Do your search

I used to simply check that the text string ended with a \n and then chomp
it and restore the text.  But if a user wants to redo the same search, he
might just click anywhere in the textfield and hit enter, so your \n could
be anywhere in the text string.

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

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

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

>Is there a way to make the return key register for a Textfield.  I am using
>a sub Textfield_1_Change and would like to use the -text for this object to
>be used in a search string when the user has hit the return key.  As a 
>first
>step, I have been echoing each key press to the dos window, but the return
>key seems to have no effect.

Here's a workaround:
Make the Textfield -multiline => 1.
Use the _Change event:
   Grab the text whenever the user changes it
   Test the text against =~s/\n//g;
   Return if this test fails
   Restore the text
   Do your search

I used to simply check that the text string ended with a \n and then chomp 
it and restore the text.  But if a user wants to redo the same search, he 
might just click anywhere in the textfield and hit enter, so your \n could 
be anywhere in the text string.

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

[perl-win32-gui-users] Textfield

[larry m. <lg...@ea...>]

Is there a way to make the return key register for a Textfield.  I am using
a sub Textfield_1_Change and would like to use the -text for this object to
be used in a search string when the user has hit the return key.  As a first
step, I have been echoing each key press to the dos window, but the return
key seems to have no effect.

Thanks,

Larry

[perl-win32-gui-users] scrollbars

[<ma...@mm...>]

hi. i have a listview with 2 columns that i'd really like to be relatively
hidden cos it contains data that the user doesn't need to see. considering
there doesn't seem to be a away to turn resizing the columns off, is there
a way of stopping the vertical scrollbar. it comes up automatically but i
can't find anything to turn it off. i have looked at window styles and
listview styles.

thanx in advance

RE: [perl-win32-gui-users] Re: Outlook day control (Jake Skinner)

[Alex L. <sim...@ya...>]

Jake: 

sure, 
http://perso.club-internet.fr/rocherl/Win32GUI.html
-- scroll down to the middle of the page. 

by the way-- cool email address-- are you doing any 
bioinformatics stuff by any chance?

Let me know how it turns out.
Alex ;)

--- "Kuo, David" <dk...@or...> wrote:
> Hi Alex,
> 
> Can you please kindly tell me where I can find the ppd of
> Win32::GUI::AxWindow?
> Thanks,
> 
> David
> 
> -----Original Message-----
> From: Alex Lee [mailto:sim...@ya...]
> Sent: Saturday, May 11, 2002 12:54 PM
> To: per...@li...
> Cc: js...@gr...
> Subject: [perl-win32-gui-users] Re: Outlook day control (Jake Skinner)
> 
> 
> Hi Jake,
> 
> >or has some ideas as to were to start
> 
> If you are trying to embed an ActiveX controller then try using this module:
> http://perso.club-internet.fr/rocherl/AxWindow.html
> 
> It lets you host an ActiveX controller in Win32::Gui.  Very simple to use,
> And it works!!
> Just search through your registry or browse around the web to find different
> controllers out
> there.  I found anything from a file manager system, calander, and even
> window media player.  
> By the way, if you or anybody has been succesful at implemented a Visual
> Basic controler call
> ListView let me know!  I been trying to import some native VB controller but
> have not gotten it to
> work right. 
> 
> 
> Alex ;)
>  
> Jake Skinn
> From: Jake Skinner <js...@gr...>
> To: "Win32::GUI Users" <per...@li...>
> Date: Fri, 10 May 2002 11:33:34 +0930
> Organization: Gribbles Pathology
> Subject: [perl-win32-gui-users] Outlook day control
> 
> I am trying to replicate outlooks calender control.
> 
> If anyone has either already done this, or has some ideas as to were to 
> start, that would be great.
> 
> Aldo, you were slowly working on a spreadsheet type of control, is this 
> just that used in a different way? If it is then is that source on 
> sourceforge (sorry i'm to lazy to go and look first)
> 
> thanks
> jake
> 
> 
> =====
> **************************
> ***** END OF MESSAGE *****
> 
> __________________________________________________
> Do You Yahoo!?
> LAUNCH - Your Yahoo! Music Experience
> http://launch.yahoo.com
> 
> _______________________________________________________________
> 
> Have big pipes? SourceForge.net is looking for download mirrors. We supply
> the hardware. You get the recognition. Email Us: ban...@so...
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com

[perl-win32-gui-users] win32::gui::datetime

[Mark Di N. <amo...@ih...>]

are there any events for win32::gui::datetime like _click or something?

[perl-win32-gui-users] Re: Outlook day control (Jake Skinner)

[Alex L. <sim...@ya...>]

Hi Jake,

>or has some ideas as to were to start

If you are trying to embed an ActiveX controller then try using this module:
http://perso.club-internet.fr/rocherl/AxWindow.html

It lets you host an ActiveX controller in Win32::Gui.  Very simple to use, And it works!!
Just search through your registry or browse around the web to find different controllers out
there.  I found anything from a file manager system, calander, and even window media player.  
By the way, if you or anybody has been succesful at implemented a Visual Basic controler call
ListView let me know!  I been trying to import some native VB controller but have not gotten it to
work right. 


Alex ;)
 
Jake Skinn
From: Jake Skinner <js...@gr...>
To: "Win32::GUI Users" <per...@li...>
Date: Fri, 10 May 2002 11:33:34 +0930
Organization: Gribbles Pathology
Subject: [perl-win32-gui-users] Outlook day control

I am trying to replicate outlooks calender control.

If anyone has either already done this, or has some ideas as to were to 
start, that would be great.

Aldo, you were slowly working on a spreadsheet type of control, is this 
just that used in a different way? If it is then is that source on 
sourceforge (sorry i'm to lazy to go and look first)

thanks
jake


=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com

[perl-win32-gui-users] only want single instance

[smackdab s. <sma...@ho...>]

Hi,

I created a small Win32::GUI::Dialog() app that uses NotifyIcon...

Right now you can run it more than once...Is there a way to make it only run 
1 "instance" ?

(I am hoping to not have to enum the list of running processes...and I 
couldn't find a way to enum the list of systray icons...)

(I am VERY rusty w/Win32API, but I thought you could not allow a another 
copy to run by checking HINSTANCE? (or something like it)

thanks!!!


_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com

[perl-win32-gui-users] Outlook day control

[Jake S. <js...@gr...>]

I am trying to replicate outlooks calender control.

If anyone has either already done this, or has some ideas as to were to start, that would be great.

Aldo, you were slowly working on a spreadsheet type of control, is this just that used in a different way? If it is then is that source on sourceforge (sorry i'm to lazy to go and look first)

thanks
jake



Attention:
The information contained in this message and or attachments is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material.  Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from any system and destroy any copies.

Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of The Gribbles Group.

Thank You.

Whilst every effort has been made to ensure that this e-mail message and any attachments are free from viruses, you should scan this message and any attachments.
Under no circumstances do we accept liability for any loss or damage which may result from your receipt of this message or any attachment.

[perl-win32-gui-users] listview columns

[Eric H. <Ha...@sw...>]

Yes, it is the "-exersize =3D> 1" property setting.  It casts out all =
demons responsible for resizing a column.  Just kidding!!

To: per...@li...=20
Cc:=20
Date: Wed, 08 May 2002 05:43:55 GMT
From: ma...@mm...=20
Subject: [perl-win32-gui-users] listview columns

hi. is there any way to stop a column from being resized? or alternatively
is there something like a column_resize event or something like that?

thanx in advance




--__--__--

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...=20
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20


End of Perl-Win32-GUI-Users Digest

[perl-win32-gui-users] listview columns

[<ma...@mm...>]

hi. is there any way to stop a column from being resized? or alternatively
is there something like a column_resize event or something like that?

thanx in advance

Re: [perl-win32-gui-users] How to clean a window from previous dinamic labels ?

[Alex L. <sim...@ya...>]

hi, not sure what you mean, but you can use the show function to hide/show certain controls in a
window. 

for example: 

$Win->labelOne->Show('SW_HIDE');

when you want to use it again, simply use Show();

Now if you use a while loop are some derivative of that nature to deriver your controls, you would
probably want to use similiar conditions to hide the labels. 

while(similiar conditions)
    {$Win->$_->Show('SW_HIDE');}

This way you can reuse a window with certain objects of your choice. 

Alex ;)

__________________________________________________
Do You Yahoo!?
Yahoo! Health - your guide to health and wellness
http://health.yahoo.com

[perl-win32-gui-users] How to clean a window from previous dinamic labels ?

[Guillem C. W. <vac...@es...>]

I'm using a window which displays some information with labels, these =
are created inside a "while", but when i reuse the same window the =
labels are still there. I'm sure there is an easy way to delete a part =
of a window, but I don't know how to do it know.

Thanks,

Regards from Catalonia,
Guillem Cunillera i Wefers