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

Re: [perl-win32-gui-users] dialog question

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

Steve wrote:
>opening a dialog box makes another window icon appear in my taskbar.
>is there anyway to:
>
>a) not have the new window create the new task?

Copy-paste-edit from a previous message:

Create a window with a -parent => $winParent. That will make the new window 
a child window. It will stay on top of the parent window and it will not be 
displayed in the task bar.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] dialog question

[Steve C. <sc...@sh...>]

i'm sure this question has been asked and answers 1000 times
over, so if someone can just find it in their hearts for answer it one
more time for me i'd appreciate it.

opening a dialog box makes another window icon appear in my taskbar.
is there anyway to:

a) not have the new window create the new task?
   or
b) hide the new window from the taskbar after it's been opened?

=3D=3D=3D
steve comrie :: senior developer
www.shrinkingplanet.ca

RE: [perl-win32-gui-users] RE: NotifyIcon - How to Change icon pr ogrammatically

[Jason B. <jas...@gb...>]

> How can you change the -icon after it already exists in the 
> system tray?

Don't know how supported it is but this is what I had to do is call
Win32::GUI::NotifyIcon::Modify directly (it is located in the GUI.xs file
for those with the source). Example works off the click on the tray icon.

Don't forget to get the -id bit the same across all calls.... Other problem
I came across was the limit of 63 chars for the -tip windows doesn't like it
and the good doctor will come and visit if you make it too long.

JB


== Begin Perl Code ==
use Win32::GUI;

my $IconMode = 1;

my $icoEna = new Win32::GUI::Icon("DateTime.ico");
my $icoDis = new Win32::GUI::Icon("DisabledDateTime.ico");
my $Trace = 1;

my $win = Win32::GUI::Window->new(
   -name   => 'WIN',
   -text   => 'Recorder',
   -width  => 200,
   -height => 200,
);

my $ni = Win32::GUI::NotifyIcon->new(
   $win, 
   -name   => "NI", 
   -id     => 1,
   -icon   => $icoEna,
   -tip    => "Recording",
);

$win->Enable();
$win->Show();

Win32::GUI::Dialog();

sub WIN_Terminate {
   print "$0: ".(caller(0))[3]."::Start\n" if ($Trace); 

  -1;
}

sub NI_Click {
   print "$0: ".(caller(0))[3]."::Start\n" if ($Trace); 

   if ($IconMode) {
      $IconMode = 0;
      Win32::GUI::NotifyIcon::Modify(
         $win, 
         -id => 1, 
         -icon => $icoDis, 
         -tip => "Not Recording",
      );
   } else {
      $IconMode = 1;
      Win32::GUI::NotifyIcon::Modify(
         $win, 
         -id => 1, 
         -icon => $icoEna, 
         -tip => "Recording",
      );
   }

   1;
}
== End Perl Code ==

[perl-win32-gui-users] RE: killing resize arrows on Window Object

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

=20
> >One more thing, the -resizable option, does this get rid of that
> >annoying double arrow around the edge of the window?
>=20
> It's basically the same as the difference between a Window=20
> and a DialogBox,=20
> I guess.

YEAAA!!!! i tried the -resizable =3D> 0 option on the Win32::GUI::Window
object, and it removed the resizable double arrow from the main window
border.  I know I have seen at least one other person on this list ask
the question and I dont remember seeing a response. =20

[perl-win32-gui-users] Win32 info

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

Very good resource for Win32 info (and other stuff it seems):
<http://www.sxlist.com/techref/os/win/win32prg.htm>


/J
------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Win32::GUI::Animation

[David S. <sta...@me...>]

All,
     Has anyone used Win32::GUI::Animation? I finally got it to work =
after some doing but it only appears to work for RLE encoded AVIs. And =
on top of that I think they have to be at 10 frames/sec to play =
correctly. Does anyone know if if there are options or methods to set a =
framerate or driver? Best,

Dave

P.S. Win32::GUI rocks, especially if you turn them into .exe with =
perl2exe. Thanks to those of you that worked on developing it.

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

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

That was me.  Last I heard, the only answer suggested was using
Win32::API and calling the call to create the icon with the updated
name.  I tried to use the change method, but was not successful(Could
have been doing it wrong).  Please let me know if you figure it out
and/or patch the source. =20

btw, when is the next version coming out?

Joe Frazier, Jr
Technical Support Engineer
PeopleClick
919-645-2916
joe...@pe...
=20

=20
 =20

> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Wednesday, August 22, 2001 15:44
> To: per...@li...
> Subject: [perl-win32-gui-users] RE: NotifyIcon
>=20
>=20
> I recall seeing this question before but don't seeing an=20
> answer and couldn't find it in the archives.
>=20
> How can you change the -icon after it already exists in the=20
> system tray?
>=20
> TIA,
> Pete
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

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

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

I recall seeing this question before but don't seeing an 
answer and couldn't find it in the archives.

How can you change the -icon after it already exists in the 
system tray?

TIA,
Pete

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

[Felix G. <fe...@fr...>]

<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=20
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_do=
cs/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=20
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 =

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-5005=
.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.z=
ip">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://perso=
.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/gb=
109.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, =

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>

Re: [perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

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

> 
> I have found a problem in the screen capture fonction.
> It's work only when the display is in 32 bits.
> 

OK now, all work.
I have made a new version.

See : http://perso.club-internet.fr/rocherl/Win32GUI.html


Laurent.

[perl-win32-gui-users] Win32::GUI with Win32::OLE and RichEdit PROBLEM

[<pko...@me...>]

Hello!

When using Win32::OLE and a Win32::GUI RichEdit, I get an "Can't locate
auto/....al" error.

I have searched through the mailing list and found the following:

------

Kev...@al... wrote:
> Has anyone tried using the GUI module with imported
> OLE contants? I'm finding that if I try to use
> something like
>
>      use Win32::GUI;
>      use Win32::OLE::Const ('Microsoft Excel');
>
> some of my controls aren't defined.  I've only noticed
> it with RichEdit fields but it may affect other things
> as well. there was a discussion about this on Perl-Win32-Users
some times ago; you can search for 'RichEdit' in the
mailing list archives. one workaround is to load the
OLE constants in an hash rather than in the main
namespace, something like:
    use Win32::OLE::Const;
     my $EX = Win32::OLE::Const->Load('Microsoft Excel');
     print $EX->{xlMarkerStyleDot};

---

This did work for me sometimes, but don't work anymore. I then declared my
OLE constants by myself like $constant = 34, etc... I removed all
Win32::OLE::Const lines and that worked for a few times.

I reviewd my program, restructered some lines and that don't work anymore,
too!!!

Even if try something like my $riched = $win->AddRichEdit(-name =>
'riched'...) and use $riched->Text() instead if $win->riched->Text();

Please help,

Peter

Re: [perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

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

----- Original Message -----
From: paul barker

> I'm trying to produce a 5.6 PPM for this new module, but I am having
trouble
> building the source.
>
> I hve downloaded and extracted both your source and the FreeImage source.
I have
> extracted your files to d:\DIBitmap and the FreeImage files to
> d:\DIBitmap\extlib directory.
>

You need to copy only the SOURCE directory af Freeimahe source code in
extlib.

>
> Can you send specific build instructions ? Which version of FreeImage do I
need
> ? Which makefile shoud it use ? etc etc

I use last freeimage version 2.4.1.
After you have copy the source directory, you run :

Perl Makefile.pl
nmake

And, normaly is ok.

> I will of course make the PPM file availabile to you and the group once I
manage
> to build it.

Thank for try to build it.

I have download perl 5.6 and i have made a ppm distrib for it.
You need to compile the dibitmap with cpp extention (see the makefile.PL).
I have made a PPM 5.6 distrib.
See : http://perso.club-internet.fr/rocherl/Win32GUI.html

Normaly, the new makefile.pl work ok on NT (tested on my job computer).
But, i have some trouble for use it on my win98/4NT home computer.
I need made some modificaton directly in the makefile for buit it.

I have found a problem in the screen capture fonction.
It's work only when the display is in 32 bits.

Laurent.

[perl-win32-gui-users] Success: Disabling or Enabling Toolbar Buttons

[<pko...@me...>]

Hello,

perhaps there are other people interested in disabling and later enabling
Toolbar Buttons.

Now I have found a solution:

Send with SendMessage the message TB_ENABLEBUTTON (0x0401) and 0 or 1

Example:

# TB_ENABLEBUTTON, button number (the same that will be passed to the _Click
event), 0/1
$win->tbToolbar->SendMessage(0x0401, 1, 0)

I am still looking for making a toolbar with hot and cold images. Any
suggestions?

Have fun,

Peter

Re: [perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

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

Laurent wrote:
>I have made a Win32::GUI add-on, call Win32::GUI::DIBitmap.

Very cool!

I'll use it to speed up the grid display in The GUI Loft if I can get it to 
work, so this was great news!


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

Re: [perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

[<pau...@or...>]

Hi

I'm trying to produce a 5.6 PPM for this new module, but I am having trouble
building the source.

I hve downloaded and extracted both your source and the FreeImage source. I have
extracted your files to d:\DIBitmap and the FreeImage files to
d:\DIBitmap\extlib directory.

When I extract the FreeImage source it asks if I want to overwrite
d:\DIBitamp\Extlib\makefile. If I choose yes the nmake bombs almost instantly.
If I choose no and keep the orriginal, the nmake runs for some time and then
bombs with the following error :


        lib  /out:"FreeImage.lib" ZLib.lib LibTIFF.lib LibPNG.lib LibJPEG.lib
LibM
Microsoft (R) Library Manager Version 6.00.8168
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.

        NMAKE clean_build

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

        del *.obj
        del ZLib.lib
        del LibTIFF.lib
        del LibPNG.lib
        del LibJPEG.lib
        del LibMNG.lib
        del Free.lib
        del Test.exe
Could Not Find D:\Development\DIBitmap\extlib\Test.exe
NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
Stop.
NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x2'
Stop.

Can you send specific build instructions ? Which version of FreeImage do I need
? Which makefile shoud it use ? etc etc

I will of course make the PPM file availabile to you and the group once I manage
to build it.

Cheers

Paul



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

Re: [perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

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

Hello,

I have made a Win32::GUI add-on, call Win32::GUI::DIBitmap.
This module add new image format for loading and writing.
It add capturing screen feature. You can capture all the screen, a full
window, and any  region of a window.
You can copy a image region to a window.

See more at : http://perso.club-internet.fr/rocherl/Win32GUI.html
    - small doc
    - Source code and sample
    - PPM distribution for Perl ActiveState 5.005 only

(If someone can make a ppm distribution for perl 5.6, you can send me the
file by mail.)

Laurent ROCHER.

----- Original Message -----
From: "Tim Kimber" <KI...@uk...>
To: <per...@li...>
Sent: Wednesday, August 15, 2001 2:23 PM
Subject: [perl-win32-gui-users] Capturing a bitmap from a window (or a
region within a window)


> Does Win32::GUI provide any means of capturing a specified rectangular
> region within a window. This would be an extremely useful feature which is
> not available anywhere else in Perl-world (to my knowledge).
>
> regards,
>
> Tim Kimber
> Internet:  ki...@uk...
> Tel. 01962-816742
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Win32::GUI Application with Win32::OLE (Outlook) problem!

[Jeremy B. <sco...@ya...>]

Try using the CDO.dll.  It provides pretty much the
same interface to Exchange e-mail as Outlook does, but
it doesn't require Outlook to be running.

If you have ActivePerl installed you can look at the
Win32 OLE Browser and it will list the available
methods & options.  You'll probably want to keep MSDN
or TechNet handy, as their are certain snafus that CDO
has.

Jeremy Blonde

--- Peter_Köller <pko...@me...> wrote:
> Hello,
> 
> I have written an application with Win32::GUI which
> connects to Microsoft
> Outlook using Win32::OLE. It gets the mails from the
> inbox and displays
> them.
> 
> All works fine if Outlook is open, bevor my script
> connects to Outlook.
> 
> But there is a problem, if Outlook is not open: The
> sub which retrieves the
> mails won't return until Outlook ist killed with the
> task manager because it
> freezes.
> 
> This problem is only when Win32::OLE is used in
> connection with Win32::GUI.
> When I try the same without GUI all is fine.
> 
> Has anyone an idea?
> 
> Peter
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/

Re: [perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

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

Tim wrote:
>Does Win32::GUI provide any means of capturing a specified rectangular
>region within a window. This would be an extremely useful feature which is
>not available anywhere else in Perl-world (to my knowledge).

Search the Win32 API for "Capturing an Image", then do your stuff with 
Win32::API. Then turn it into a module and make the world a happier place, 
not to mention making Perl a more capable language :)


The keywords are: CreateCompatibleBitmap, CreateCompatibleDC and BitBlt. A 
short quote from the API docs:

"You can use a bitmap to capture an image, and you can store the captured 
image in memory, display it at a different location in your application's 
window, or display it in another window.

...

To store an image temporarily, your application must call 
CreateCompatibleDC to create a DC that is compatible with the current 
window DC. After you create a compatible DC, you create a bitmap with the 
appropriate dimensions by calling the CreateCompatibleBitmap function and 
then select it into this device context by calling the SelectObject function.

After the compatible device context is created and the appropriate bitmap 
has been selected into it, you can capture the image. The Win32 API 
provides the BitBlt function to capture images."


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Capturing a bitmap from a window (or a region within a window)

[Tim K. <KI...@uk...>]

Does Win32::GUI provide any means of capturing a specified rectangular
region within a window. This would be an extremely useful feature which is
not available anywhere else in Perl-world (to my knowledge).

regards,

Tim Kimber
Internet:  ki...@uk...
Tel. 01962-816742

[perl-win32-gui-users] Win32::GUI Application with Win32::OLE (Outlook) problem!

[<pko...@me...>]

Hello,

I have written an application with Win32::GUI which connects to Microsoft
Outlook using Win32::OLE. It gets the mails from the inbox and displays
them.

All works fine if Outlook is open, bevor my script connects to Outlook.

But there is a problem, if Outlook is not open: The sub which retrieves the
mails won't return until Outlook ist killed with the task manager because it
freezes.

This problem is only when Win32::OLE is used in connection with Win32::GUI.
When I try the same without GUI all is fine.

Has anyone an idea?

Peter

[perl-win32-gui-users] Re: ListView ItemClick Fatigue

[Chris N. <C.D...@cs...>]

Can you post a code fragment?

  I am using a listview in my application, it toggles the name when a row is
clicked, (adds a (*) to the front if clicked on, and removes it when clicked
on again, it toggles fine back and forth) there is a slight delay (about 1
sec) before I can click on it again though.

This is the code I'm using:

#-------------Code Fragment Start------------------------------

sub Folder1_ItemClick
 {
  my $item = shift;
  if ($clicked1 != -1)
   {
   if ($item == $clicked1)
    {
    $list1->ChangeItem(
      -item => $clicked1,
     -text => $files1[$clicked1][0],
    );
    $clicked1 = -1;
    return;
   }
   else
    {
    $list1->ChangeItem(
          -item  => $clicked1,
       -text  => $files1[$clicked1][0],
      );
      $clicked1 = -1;
   }
  }

  $list1->ChangeItem(
   -item  =>  $item,
  -text => "(*) $files1[$item][0]"
  );
  $clicked1 = $item;
  print "Clicked on $files1[$item][0] (Index $item)\n";
 }

#-----------Code fragment End----------------------------------


  Don't suppose anyone knows if there's a way to *set* the checkbox status
for a listbox entry ( with -checkboxs => 1) My program is useless without
that facility :(

Yours,

    Chris

----- Original Message -----
From: <per...@li...>
To: <per...@li...>
Sent: Tuesday, August 14, 2001 8:07 PM
Subject: Perl-Win32-GUI-Users digest, Vol 1 #205 - 1 msg


> Send Perl-Win32-GUI-Users mailing list submissions to
> per...@li...
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> or, via email, send a message with subject or body 'help' to
> per...@li...
>
> You can reach the person managing the list at
> per...@li...
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Perl-Win32-GUI-Users digest..."
>
>
> Today's Topics:
>
>    1. Help - Listview Itemclick Fatigue (Gross, Stephan)
>
> --__--__--
>
> Message: 1
> From: "Gross, Stephan" <sg...@lo...>
> To: 'Perl GUI' <per...@li...>
> Date: Mon, 13 Aug 2001 19:45:32 -0400
> Subject: [perl-win32-gui-users] Help - Listview Itemclick Fatigue
> Reply-To: per...@li...
>
> In my application, clicking on a row in a listview displays information in
> another window.  I have a separate button that clears the display window.
> However, I noticed that if I click on the same row again, the display is
not
> reset.  What happens is that the listview does not detect multiple clicks
on
> the same row; it gets "fatigued".  Is there a way to reset this behavior?
>
> _______________________________________________________
> Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
> <mailto:sg...@lo...>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
> End of Perl-Win32-GUI-Users Digest
>

[perl-win32-gui-users] Help - Listview Itemclick Fatigue

[Gross, S. <sg...@lo...>]

In my application, clicking on a row in a listview displays information in
another window.  I have a separate button that clears the display window.
However, I noticed that if I click on the same row again, the display is not
reset.  What happens is that the listview does not detect multiple clicks on
the same row; it gets "fatigued".  Is there a way to reset this behavior?

_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
<mailto:sg...@lo...> 

 

Re: [perl-win32-gui-users] Why do Windows spontaneously minimize?

[Alan M. - (S. Tecnico) <al...@ce...>]

I've never seen the window problem, but the label thing may happen if the
label width is too short for the new text.
See the following example:

####################
use Win32::GUI;

@files=('c:\config.sys','c:\windows\terminal.exe','c:\autoexec.bat');

$W=new Win32::GUI::Window(-width=>260,-height=>160);

$W->AddLabel(
	     -name     => "TEST",
	     -text     => "Deleting file:",
	     -pos      => [40,20],
	     -width    => 260,
#	     -width    => 160    # uncomment this line and
                                 # see what happens
	     );

$W->AddButton(-name=>"NEXT",-text=>"Next",-pos=>[100,100]);
$W->Show;
Win32::GUI::Dialog();

sub NEXT_Click {
    $W->TEST->Text("Deleting file: ".$files[$i++%($#files+1)]);
}

############

			Alan Mizrahi
			Universidad Simon Bolivar
			CESMA
			al...@ce...

On Thu, 9 Aug 2001, Gross, Stephan wrote:

> I'm writing an application where data is input in a first window, then the
> user hits a button which calls a second window.  Sometimes the second window
> pops right up, but at other times it starts minimized, so I have to click it
> twice on the task bar to see it.  Can anyone suggest why this happens?  I
> also notice this effect even when I am designing a window; if I make a label
> a certain length and the data in the label changes, I may see the same
> thing.  I am not using any IsVisible or OnTop methods.
>
> _______________________________________________________
> Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
> <mailto:sg...@lo...>
>
>
>

RE: [perl-win32-gui-users] Why do Windows spontaneously minimize?

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

I've never seen this before. A little code showing how you call the other
window might be helpful.
 

-----Original Message-----
From: Gross, Stephan [mailto:sg...@lo...]
Sent: 09 August 2001 19:18
To: 'Perl GUI'
Subject: [perl-win32-gui-users] Why do Windows spontaneously minimize?


I'm writing an application where data is input in a first window, then the
user hits a button which calls a second window.  Sometimes the second window
pops right up, but at other times it starts minimized, so I have to click it
twice on the task bar to see it.  Can anyone suggest why this happens?  I
also notice this effect even when I am designing a window; if I make a label
a certain length and the data in the label changes, I may see the same
thing.  I am not using any IsVisible or OnTop methods.

_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
<mailto:sg...@lo...> 

 

[perl-win32-gui-users] Why do Windows spontaneously minimize?

[Gross, S. <sg...@lo...>]

I'm writing an application where data is input in a first window, then the
user hits a button which calls a second window.  Sometimes the second window
pops right up, but at other times it starts minimized, so I have to click it
twice on the task bar to see it.  Can anyone suggest why this happens?  I
also notice this effect even when I am designing a window; if I make a label
a certain length and the data in the label changes, I may see the same
thing.  I am not using any IsVisible or OnTop methods.

_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
<mailto:sg...@lo...>