perl-win32-gui-users Mailing List for Win32::GUI

At 16:06 2005-11-27, anufrii wrote:
>The biggest challenge I am facing next week is that majority of the
>audience is Perl-blind. So CPAN for them is just another 4-letter word.

So do some homework. You know what kinds of real-world problems you may 
face, so look for solutions on CPAN and figure out a way to present it to 
them. Slides? Demo/proof-of-concept?

The obvious arenas that makes Perl shine:
Databases: DBI (transparent connectivity to ), DBIx::Simple (simple SQL), 
Class::DBI/DBIx::Class (no SQL)
Sysadmin: File::*, SSH, Win32::Admin*something*
Web: Mechanize (scraping), XML::* (parsing), Catalyst (if you would like to 
leave the desktop app)
Windows: Win32::GUI, Win32::GuiTest, Win32::API, Win32::OLE, Win32::

I could go on, but you probably already know all this :)

To me the dividing issue is whether you anticipate the GUI app building to 
be the bottleneck (which may or may not point to .Net), or the actual 
problem solving (which supposedly points to Perl).


>Presenting  technical details such as "Perl compiler does this,
>whereas VBS is processed like that, therefore Perl script is faster "
>should make more sense, in addition to the factors mentioned in my
>original message.

Performance doesn't seem to be an issue either way, from the way it sounds. 
Related modules, if it is an issue:
Devel::Profile
Win32::API
Inline::C
etc.


/J

Good Evening,

I am returning to this group after quite a break.
Folks, I need your help to make a business case for Win32::GUI as a rapid developement tool by coming Wednesday.
Basically it is Perl vs. VBS/HTA/.Net dilemma, which is not a
dilemma for me.
So, besides Rapid development capabilities, data structures, wealth
of CPAN modules, faster I/O operations, I need some examples of
Companies that are using Win32::GUI for their tools\utilities development and present some solid proof of Perl being faster/stronger/etc than VBS/HTA pair, no matter how technical they could be.
My management was presented with a simple notion that .Net is an
overkill for any rapid or add-on tool/utility where Win32::GUI
provide shorter learning curve, faster code development, etc..
Please, share your ideas or knowledge of internal Perl advantages over VBS/HTA.

Hope to hear from you soon,

Thanks.

Igor.

Hello All,

Due to a spurring of curiosity by a certain member of this mailing list, 
I began working on adding application bar capabilities to win32-gui.

Attached is my development code, far from the finalized product. For 
that fellow that peaked my interest, don't worry I'll make it into a 
module yet.

Jason P.

Dev'd on
AS 5.8.7, Win32-GUI-1.02, XP SP2

ps- due to current restrictions on file extensions, the file has been 
renamed. it is a zip file.

I am please to announce that v1.03 of Win32::GUI is available for
download from SourceForge.

Win32::GUI is a Perl extension allowing creation of native Win32 GUI
applications.

MORE INFORMATION

   Project Homepage:
   http://perl-win32-gui.sourceforge.net/

   Project summary and download:
   http://sourceforge.net/projects/perl-win32-gui/

   Release notes:
 
http://sourceforge.net/project/shownotes.php?group_id=16572&release_id=373056

RELEASE SUMMARY

   This is a summary of changes between Win32-GUI V1.02 and V1.03
   See the CHANGELOG file in the distribution for the
   full detail.

   V1.03 is primarily a bug-fix release.

New Features in V1.03
=====================
  + New methods:
     - Win32::GUI::DC    StretchBlt
     - Win32::GUI        GetParent UserData

  + New events:
     - none

  + New Documentation:
     - Win32::GUI::RichEdit SetCharFormat GetCharFormat SetEventMask
     - Win32::GUI::GetAsyncKeyState
     - Win32::GUI::Timer and all Timer methods
     - various other minor documentation corrections and enhancements

  + Other New things
     - Added Version information to GUI.dll: right-click to see Version
     - many tests added
     - added listvew_drag_drop.pl to the samples demonstrating the use
       of drag/drop with a ListView
     - ImageList support is now complete under MinGW and Cygwin if
       headers are recent enough (w32api V3.2 or higher)
     - Updated all the Tutorial documentation and added tutorial
       examples to the demos directory.

Fixes in V1.03
==============
  + Reported Bugs
     - Fix to 4 item call to TrackPopupMenu.  Tracker 1241830
     - GUI.pm Fix to logic in Win32::GUI::Class::new for perl 5.8.6
       and above. Tracker:1236053
     - GUI.pm fixed Win32::GUI::Brush to return undef on failure
     - GUI_messageloops.cpp: Tracker 1246429 fixed WM_CTLCOLORSTATIC
       for handling readonly Edit controls
     - Tooltip.xs, GUI.xs fixed Tooltip styles (Tracker: 1273134)
     - GUI_MessageLoops.cpp change all mouse event handlers to use
       GET_X_LPARAM and GET_Y_LPARAM rather than HIWORD and
       LOWORD (Tracker: 1262098)
     - GUI.xs fixed UnHook() to resolve perl 5.6/5.8 differences in
       av_delete, causing a warning in perl 5.8 (Tracker: 1164766)
     - GUI.xs: Changed DoModal's use of GetParent to
       GetWindow(hwnd, GW_OWNER).  (Tracker: 1165626)
     - GUI_messageloops.cpp: Tracker:1236283 Change to WM_ERASEBACKGROUND
       to allow -background to work with windows

  + Other Bugs
     - GUI_messageloops.cpp: Fixed WM_CTLCOLOR* to use window class
       background brush if there is one
     - Richedit.xs fix SetCharCofmat/GetCharFormat option
     - GUI.pm Timer fixes (Reini Urban)
     - GUI.pm fixed Win32::GUI::DC::new() with no params to return a
       correct object
     - GUI_Constants.cpp: correct TMP_NONOTIFY to TPM_NONOTIFY 
(aschwarz1309)
     - Listbox.xs: fixed buffer overrun in GetText causing crash (Jez White)
     - Combobox.xs: fixed buffer overrun in GetLBText causing crash (Jez 
White)
     - GUI.xs: fixed return value of GetAsyncKeyState
     - Re-worked Win32::GUI::Timer package implementation.  Now destruction
       works correctly.

Contributors to this release:
=============================
Dan Dascalescu
Reini Urban
Jeremy White
aschwarz1309
Robert May

My thanks to all the others who have provided invaluable comments and 
testing.

-- Rob.  22nd November 2005

I raised tracker 1363141 for this.  Thanks for the report.

Rob.

Plum, Jason wrote:
> Hey all,
>=20
> =20
>=20
> Ariel Serbin and I have notice something strange occurring with the=20
> splitter demo, and specifically the splitter control itself.
>=20
> =20
>=20
> Run the script attached, a previous post contained it. Then, drag the=20
> splitter to the left a short distance, then back to the right and equal=
=20
> amount. You=92ll notice that there is a nasty artifact showing up on th=
e=20
> screen. Of course when your test in the text field overlaps this=20
> artifact, it is resolved within the relative area of the text [Rob and=20
> all may know the proper names, but unfortunately I=92m not that in dept=
h].
>=20
> =20
>=20
> I believe it has something to with the underlying DC objects that are=20
> drawing the splitter control, but am fully aware that I don=92t have th=
e=20
> understanding to fix this.
>=20
> =20
>=20
> =20
>=20
> WinXP SP2, AS 5.8.7, Win32-GUI 1.02 and Win32-GUI 1.02_03 this occurs.
>=20
> =20
>=20
> Jason P.
>=20
> =20
>=20
> Note: For ease of replicable visibility, we=92ve widened the splitter=20
> control in the code below.
>=20
> =20
>=20
> --CODE=97
>=20
> =20
>=20
> =20
>=20
> #!perl -w
>=20
> use strict;
>=20
> use warnings;
>=20
> =20
>=20
> use Win32::GUI;
>=20
> =20
>=20
> my $mw =3D Win32::GUI::Window->new(
>=20
>             -title =3D> "Splitter Test",
>=20
>             -pos   =3D> [100,100],
>=20
>             -size  =3D> [500,400],
>=20
>             -onResize =3D> \&main_resize,
>=20
> );
>=20
> =20
>=20
> $mw->AddTextfield(
>=20
>             -name =3D> "TF1",
>=20
>             -multiline =3D> 1,
>=20
>             -width =3D> 200,
>=20
> );
>=20
> =20
>=20
> $mw->AddSplitter(
>=20
>             -name =3D> "SP",
>=20
>             -left =3D> 200,
>=20
>             -width =3D> 10, #FATTY
>=20
>             -onRelease =3D> \&do_splitter,
>=20
> );
>=20
> =20
>=20
> $mw->AddTextfield(
>=20
>             -name =3D> "TF2",
>=20
>             -multiline =3D> 1,
>=20
>             -left =3D> 200 + $mw->SP->Width(),
>=20
> );
>=20
> =20
>=20
> =20
>=20
> $mw->Show();
>=20
> Win32::GUI::Dialog();
>=20
> exit(0);
>=20
> =20
>=20
> # NEM splitter event gets 2 parameters.  The first (as always)
>=20
> # is the window object the wvwnt came from - in this case the
>=20
> # splitter window; The second depends on the splitter orientation:
>=20
> # if horzontal it is the top coordinate; if vertical it is
>=20
> # the left coordinate. (coordinates relative to the parent's
>=20
> # client area)
>=20
> # The splitter window is moved by the splitter object, so you only
>=20
> # have to re-position your other windows
>=20
> sub do_splitter {
>=20
>             my ($splitter, $coord) =3D @_;
>=20
> =20
>=20
>             $mw->TF1->Width($coord);
>=20
>             $mw->TF2->Move($coord+$mw->SP->Width(), 0);
>=20
>             $mw->TF2->Resize($mw->ScaleWidth()-$mw->SP->Width(),=20
> $mw->ScaleHeight());
>=20
> }
>=20
> =20
>=20
> sub main_resize
>=20
> {
>=20
>             my $self =3D shift;
>=20
> =20
>=20
>             $mw->TF1->Height($self->ScaleHeight());
>=20
>             $mw->SP->Height($self->ScaleHeight());
>=20
>            =20
> $mw->TF2->Resize($mw->ScaleWidth()-$self->TF1->Width()-$mw->SP->Width()=
,
>=20
>                                      $mw->ScaleHeight());
>=20
> }
>=20
> __END__
>=20

Paul Malcher wrote:
> Hi everyone,
> Okay, I've installed the lastest POE 0.32. My problem is with a POE 
> based web server that I wrote. It runs fine if I run it from the 
> commandline, but once I attempt to compile wiht my PDK(version 6.02 
> with the latest version of Perl). I've included the error message I 
> get when I run it after I compiled it. I've tried to fix this myself 
> but no luck. I'm hoping some one has a clue they can provided because 
> this error is not present when run normally, but any attempts to 
> compile with the PDK or PAR generate that error at run time. Thanks in 
> advance, Paul.
>
> -- Error --
> Unable to load POE::Macro::UseBytes : "use" not allowed in expression 
> at /PerlApp/POE/Macro/UseBytes.pm line 30, near "{
>   "
> syntax error at /PerlApp/POE/Macro/UseBytes.pm line 30, near "{
>   use bytes"
> syntax error at /PerlApp/POE/Macro/UseBytes.pm line 32, near "}
> }"
> BEGIN failed--compilation aborted at (eval 132) line 2.
>  at /PerlApp/POE/Driver/SysRW.pm line 8
> BEGIN failed--compilation aborted at /PerlApp/POE/Driver/SysRW.pm line 8.
> BEGIN failed--compilation aborted at (eval 119) line 1.
> could not import qw(Driver::SysRW) at /PerlApp/POE/Wheel/ReadWrite.pm 
> line 11
> BEGIN failed--compilation aborted at /PerlApp/POE/Wheel/ReadWrite.pm 
> line 11.
> BEGIN failed--compilation aborted at (eval 113) line 1.
> Unable to load POE::Macro::UseBytes : "use" not allowed in expression 
> at /PerlApp/POE/Macro/UseBytes.pm line 30, near "{
>   "
> syntax error at /PerlApp/POE/Macro/UseBytes.pm line 30, near "{
>   use bytes"
> syntax error at /PerlApp/POE/Macro/UseBytes.pm line 32, near "}
> }"
> BEGIN failed--compilation aborted at (eval 142) line 2.
>  at /PerlApp/POE/Driver/SysRW.pm line 8
> BEGIN failed--compilation aborted at /PerlApp/POE/Driver/SysRW.pm line 8.
> BEGIN failed--compilation aborted at (eval 140) line 1.
> Unable to load POE::Macro::UseBytes : "use" not allowed in expression 
> at /PerlApp/POE/Macro/UseBytes.pm line 30, near "{
>   "
> syntax error at /PerlApp/POE/Macro/UseBytes.pm line 30, near "{
>   use bytes"
> syntax error at /PerlApp/POE/Macro/UseBytes.pm line 32, near "}
> }"
> BEGIN failed--compilation aborted at (eval 149) line 2.
>  at /PerlApp/POE/Filter/HTTPD.pm line 15
> BEGIN failed--compilation aborted at /PerlApp/POE/Filter/HTTPD.pm line 15.
> BEGIN failed--compilation aborted at (eval 147) line 1.
> could not import qw(Wheel::ReadWrite Driver::SysRW Filter::HTTPD) at 
> /PerlApp/POE/Component/Server/HTTP.pm line 15
> BEGIN failed--compilation aborted at 
> /PerlApp/POE/Component/Server/HTTP.pm line 15.
> BEGIN failed--compilation aborted at server.pl line 13.
>
> -- /Error --
All of these errors are tied back to the one line that isn't compiling 
properly from PAR and PerlApp: POE::Macro::UseBytes line 30., v1.3 from 
AS 5.8 package v 0.3202.

Snipped from use bytes, lines 29-31:
macro use_bytes {
  use bytes;
}

The error is occurring on line 30, as marked:
macro use_bytes {
    use bytes;
    ^
}


The actual problem is that the perl preprocessor is rejecting the syntax 
surrounding the statement.

I'm not sure how much help that is, but I havent used POE in depth, so 
this is all I can offer you at this time.


Jason P.

Jeremy White wrote:
> Just a general follow up - we (everyone involved with Win32-GUI) now 
> maintain DIBitmap (as well as AxWindow, Grid and Scintilla).
> 
> DIBitmap currently uses FreeImage 3.5.1, with the latest version being 
> 3.8.0 - see http://freeimage.sourceforge.net/
> 
> There seems to be quite a few changes between the two versions which 
> may, or may not fix your issue.
> 
> Ideally we need a "DIBitmap Champion" who's role would be to maintain 
> and enhance DIBitmap (the same goes for Laurent's other modules). If 
> anyone is interested, the source is available at
> 
> http://cvs.sourceforge.net/viewcvs.py/perl-win32-gui/

If anyone is interested in championing DIBitmap, then please get in 
touch with Jeremy or me.  rob...@us...

Thanks,
Rob.
-- 
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Glenn W Munroe wrote:
> Rob,
>=20
> I used your Splashscreen module in my latest project. I noticed an ugly=
=20
> little flash at times between when the splash window is created and whe=
n=20
> it is centred on the screen. The adaptation to the module example below=
=20
> demonstrates it when you press the button. It=92s not a major problem b=
ut=20
> it is a little more pronounced in my application. Adding the option=20
> =93=96visible =3D> 0=94 to the splash window creation stanza in the mod=
ule seems=20
> to fix it.

Glenn,

Thanks for the feedback.  I cheated with my module, using a label=20
control as a top level window;  Win32::GUI tries to be clever, and makes=20
anything that it thinks should be a child window visible, so that you=20
don't need to individually show each of your controls.  So it makes=20
labels visible by default ... so indeed your solution will do the trick.

In reality, next time I re-visit that module, I'll change it to use a=20
'proper' top level window (Win32::GUI::Graphic probably) and I'll draw
the bitmap into the DC myself.

I've made a note to ensure this gets fixed.

Regards,
Rob.

Johan Lindstrom wrote:
> At 16:54 2005-11-17, Glenn W Munroe wrote:
>=20
>> The main window of my current project comprises a Grid control and a=20
>> TreeView, in a Windows Explorer-like layout. I would like to provide=20
>> the option of being able to resize the two controls by=20
>> click-and-dragging the area between the two. Does anyone have any tips=
=20
>> on how to do this? I tried adding a "-resizable =3D> 1" option to the=20
>> TreeView, but that would have been too easy! (It didn't work, of=20
>> course). I imagine it makes use of the MouseOver et al. events, but=20
>> the documentation is a bit thin on those events. Do I have to put=20
>> another control (a 1-pixel-wide button perhaps?) between the two to=20
>> get at the events? As usual, an example would be worth a thousand word=
s=85
>=20
> Use the Splitter control.

You beat me to it!

> Perl Oasis uses this for an example:
> http://user.bahnhof.se/~johanl/perl/Oasis/download.html
>=20
> For a smaller and more focused example, download The GUI Loft
> http://user.bahnhof.se/~johanl/perl/Loft/
> and look at the Demo/FileDisplay(manual_resize) example. The purpose of=
=20
> that demo is exactly what you're after.

For the record, here's a short example that shows it working with 2=20
Textfield controls.

Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI;

my $mw =3D Win32::GUI::Window->new(
	-title =3D> "Splitter Test",
	-pos   =3D> [100,100],
	-size  =3D> [500,400],
	-onResize =3D> \&main_resize,
);

$mw->AddTextfield(
	-name =3D> "TF1",
	-multiline =3D> 1,
	-width =3D> 200,
);

$mw->AddSplitter(
	-name =3D> "SP",
	-left =3D> 200,
	-width =3D> 2,
	-onRelease =3D> \&do_splitter,
);

$mw->AddTextfield(
	-name =3D> "TF2",
	-multiline =3D> 1,
	-left =3D> 200 + $mw->SP->Width(),
);


$mw->Show();
Win32::GUI::Dialog();
exit(0);

# NEM splitter event gets 2 parameters.  The first (as always)
# is the window object the wvwnt came from - in this case the
# splitter window; The second depends on the splitter orientation:
# if horzontal it is the top coordinate; if vertical it is
# the left coordinate. (coordinates relative to the parent's
# client area)
# The splitter window is moved by the splitter object, so you only
# have to re-position your other windows
sub do_splitter
{
	my ($splitter, $coord) =3D @_;

	$mw->TF1->Width($coord);
	$mw->TF2->Move($coord+$mw->SP->Width(), 0);
	$mw->TF2->Resize($mw->ScaleWidth()-$mw->SP->Width(), $mw->ScaleHeight())=
;
}

sub main_resize
{
	my $self =3D shift;

	$mw->TF1->Height($self->ScaleHeight());
	$mw->SP->Height($self->ScaleHeight());
	$mw->TF2->Resize($mw->ScaleWidth()-$self->TF1->Width()-$mw->SP->Width(),
	       	$mw->ScaleHeight());
}
__END__
--=20
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Got it! Thanks, Johan.

Glenn

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of =
Johan
Lindstrom
Sent: Thursday, 17 November, 2005 13:18
To: per...@li...
Subject: Re: [perl-win32-gui-users] Control Resize

At 16:54 2005-11-17, Glenn W Munroe wrote:
>The main window of my current project comprises a Grid control and a=20
>TreeView, in a Windows Explorer-like layout. I would like to provide =
the=20
>option of being able to resize the two controls by click-and-dragging =
the=20
>area between the two. Does anyone have any tips on how to do this? I =
tried=20
>adding a "-resizable =3D> 1" option to the TreeView, but that would =
have=20
>been too easy! (It didn't work, of course). I imagine it makes use of =
the=20
>MouseOver et al. events, but the documentation is a bit thin on those=20
>events. Do I have to put another control (a 1-pixel-wide button =
perhaps?)=20
>between the two to get at the events? As usual, an example would be =
worth=20
>a thousand words=85

Use the Splitter control.

Perl Oasis uses this for an example:
http://user.bahnhof.se/~johanl/perl/Oasis/download.html

For a smaller and more focused example, download The GUI Loft
http://user.bahnhof.se/~johanl/perl/Loft/
and look at the Demo/FileDisplay(manual_resize) example. The purpose of=20
that demo is exactly what you're after.

(using the Splitter makes TGL unable to handle all resize code=20
automatically for you, but it still gives a helping hand by providing =
the=20
basic resize code for the simple things (but not Splitter) which you can =

adjust and paste into your source).


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12



-------------------------------------------------------
This SF.Net email is sponsored by the JBoss Inc.  Get Certified Today
Register for a JBoss Training Course.  Free Certification Exam
for All Training Attendees Through End of 2005. For more info visit:
http://ads.osdn.com/?ad_id=3D7628&alloc_id=3D16845&op=3Dclick
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

At 16:54 2005-11-17, Glenn W Munroe wrote:
>The main window of my current project comprises a Grid control and a 
>TreeView, in a Windows Explorer-like layout. I would like to provide the 
>option of being able to resize the two controls by click-and-dragging the 
>area between the two. Does anyone have any tips on how to do this? I tried 
>adding a "-resizable => 1" option to the TreeView, but that would have 
>been too easy! (It didn't work, of course). I imagine it makes use of the 
>MouseOver et al. events, but the documentation is a bit thin on those 
>events. Do I have to put another control (a 1-pixel-wide button perhaps?) 
>between the two to get at the events? As usual, an example would be worth 
>a thousand words…

Use the Splitter control.

Perl Oasis uses this for an example:
http://user.bahnhof.se/~johanl/perl/Oasis/download.html

For a smaller and more focused example, download The GUI Loft
http://user.bahnhof.se/~johanl/perl/Loft/
and look at the Demo/FileDisplay(manual_resize) example. The purpose of 
that demo is exactly what you're after.

(using the Splitter makes TGL unable to handle all resize code 
automatically for you, but it still gives a helping hand by providing the 
basic resize code for the simple things (but not Splitter) which you can 
adjust and paste into your source).


/J

-------- ------ ---- --- -- --  --  -     -     -        -          -
Johan Lindström    Sourcerer @ Boss Casinos   johanl AT DarSerMan.com

Latest bookmark: "TCP Connection Passing"
http://tcpcp.sourceforge.net/
dmoz: /Computers/Programming/Languages/JavaScript/ 12

The main window of my current project comprises a Grid control and a
TreeView, in a Windows Explorer-like layout. I would like to provide the
option of being able to resize the two controls by click-and-dragging the
area between the two. Does anyone have any tips on how to do this? I tried
adding a "-resizable => 1" option to the TreeView, but that would have been
too easy! (It didn't work, of course). I imagine it makes use of the
MouseOver et al. events, but the documentation is a bit thin on those
events. Do I have to put another control (a 1-pixel-wide button perhaps?)
between the two to get at the events? As usual, an example would be worth a
thousand words.

 

Thanks,

Glenn

 

Rob,

 

I used your Splashscreen module in my latest project. I noticed an ugly
little flash at times between when the splash window is created and when it
is centred on the screen. The adaptation to the module example below
demonstrates it when you press the button. It's not a major problem but it
is a little more pronounced in my application. Adding the option "-visible
=> 0" to the splash window creation stanza in the module seems to fix it.

 

Glenn

 

#!perl -w

use strict;

use warnings;

 

use Win32::GUI;

use Win32::GUI::SplashScreen;

 

# Create and diaplay the splash screen

# Uses default filename of 'SPLASH', and searches for

# SPLASH.bmp and SPLASH.jp[e]g

Win32::GUI::SplashScreen::Show();

 

# Create the main window

my $mw = Win32::GUI::Window->new(

        -title  => "SplashScreen Demo 1",

        -size   => [700, 500],

) or die "Creating Main Window";

 

$mw->AddListView(

                        -size     => [ 600, 400 ],

                        -pos      => [0, 0 ],

);

 

$mw->AddButton (

                        -size     => [ 60, 24 ],

                        -pos      => [ 610, 10 ],

                        -text      => "Splash",

                        -onClick            => sub {
Win32::GUI::SplashScreen::Show() },

);

                        

# do some other stuff

sleep(1);

 

# show the main window and enter the dialog phase

# splash screen taken down after (default) 3 seconds

$mw->Center();

$mw->Show();

Win32::GUI::Dialog();

exit(0);

Just a general follow up - we (everyone involved with Win32-GUI) now 
maintain DIBitmap (as well as AxWindow, Grid and Scintilla).

DIBitmap currently uses FreeImage 3.5.1, with the latest version being 3.8.0 
- see http://freeimage.sourceforge.net/

There seems to be quite a few changes between the two versions which may, or 
may not fix your issue.

Ideally we need a "DIBitmap Champion" who's role would be to maintain and 
enhance DIBitmap (the same goes for Laurent's other modules). If anyone is 
interested, the source is available at

http://cvs.sourceforge.net/viewcvs.py/perl-win32-gui/

Cheers,

jez.

hi, 

i cleaned up a DIBitmap app that i had to try showing
how to "fit to screen".  i wrote the app that i stole
this from quite a while ago and i haven't looked into
why the 'rotate' doesn't work.  the "fitting" business
seems to work, though...

you can check it out at
http://www.barrack.com/dibdemo.zip which will be there
for a few days...

-ariel

--- Scott Spearman
<sco...@pi...> wrote:

> Hi.  I'm working on a document scanning and archive
> system.  Documents come off the scanner as 1-bit
> (black and white) 600 DPI TIFF files.  Until
> recently I was converting these to JPG.  Then I
> display the image to the user, to verify they didn't
> include extra space or chop anything off, then the
> user can upload it to the server.
> 
> Previously I had a routine that would take the tiff
> file, convert it to a JPG, then open it in a
> DIBitmap, rescale it there to fit the screen
> (leaving the original file intact) and then convert
> to bitmap to display it.  Now we'd like to keep the
> image in TIFF format all the way to the server, for
> quality reasons.  However, when I try open and
> resize the TIFF with DIBitmap I get a solid black
> box where the image should be.  I'm sure I'm doing
> something wrong, but I'm not sure what.  I'll
> include the relevant code below.  Please ignore the
> part with Image::Magic doing the JPG conversion... I
> left it in so you can see what I WAS doing, and what
> I am now doing...
> 
> I'm wondering if I am doing something wrong, or am
> missing a piece of software.  But the JPG resize was
> working perfectly.  I'd appreciate any insight into
> this very much.
> 
>  # Log the event and convert to JPG
>  log_event("Verifying the Image");
>  $image = Image::Magick->new;
>  $x = $image->Read("C:\\tmp.tiff");
>  log_event("Return from ImageMagick->Read: $x");
>  $p = $image->Append(stack=>true);
>  log_event("Return from ImageMagick->Append: $p");
>  $imgmgkres = $scanquality."X".$scanquality;
>  $p->Set(density=>"$imgmgkres");
>  $p->Set(quality=>$jpgquality);
>  $x = $p->Write("C:\\tmp.JPG");
>  log_event("Return from ImageMagick->Write:
> $x\tQuality: $jpgquality");
>  
>  undef $image;
>  undef $p;
> 
>  # Open the file in a DIBitmap for display
>  $dib = newFromFile
> Win32::GUI::DIBitmap('C:\\tmp.tiff');
>  $heightimg = $dib->GetHeight();
>  $widthimg = $dib->GetWidth();
>  $wmax = 750; $hmax=700;
>  $hratio = $heightimg/$hmax;
>  $wratio = $widthimg/$wmax;
>  
>  # If image needs to be resized, resize it.
>  if( $hratio> $wratio && $hratio > 1)
>  { $dispdib = $dib -> Rescale($widthimg/$hratio,
> $hmax); 
>   $imgwid=$widthimg/$hratio; $imglen=$hmax;}
>  elsif( $wratio>=$hratio && $wratio > 1)
>  { $dispdib = $dib -> Rescale($wmax,
> $heightimg/$wratio); 
>   $imgwid=$wmax, $imglen=$heightimg/$wratio;}
>  else {$dispdib = $dib; $imgwid=$widthimg;
> $imglen=$heightimg;}
>  
>  $hbitmap = $dispdib->ConvertToBitmap();
>  undef $dib;
>  undef $dispdib;
>  
>  # Set the label and move it to center it in the
> space allocated.
>  $imglbl->SetImage($hbitmap);
>  $imglbl->Move(($wmax-$imgwid)/2,
> ($hmax-$imglen)/2);
> 
> 
> 
> Scott Spearman
> Programmer
> Pikeville Medical Center
> Phone: 606-218-4660
> Pager: 606-437-8542
> 
> Note: The information transmitted 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 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 this material from any computer. 

Hi.  I'm working on a document scanning and archive system.  Documents =
come off the scanner as 1-bit (black and white) 600 DPI TIFF files.  =
Until recently I was converting these to JPG.  Then I display the image =
to the user, to verify they didn't include extra space or chop anything =
off, then the user can upload it to the server.

Previously I had a routine that would take the tiff file, convert it to =
a JPG, then open it in a DIBitmap, rescale it there to fit the screen =
(leaving the original file intact) and then convert to bitmap to display =
it.  Now we'd like to keep the image in TIFF format all the way to the =
server, for quality reasons.  However, when I try open and resize the =
TIFF with DIBitmap I get a solid black box where the image should be.  =
I'm sure I'm doing something wrong, but I'm not sure what.  I'll include =
the relevant code below.  Please ignore the part with Image::Magic doing =
the JPG conversion... I left it in so you can see what I WAS doing, and =
what I am now doing...

I'm wondering if I am doing something wrong, or am missing a piece of =
software.  But the JPG resize was working perfectly.  I'd appreciate any =
insight into this very much.

 # Log the event and convert to JPG
 log_event("Verifying the Image");
 $image =3D Image::Magick->new;
 $x =3D $image->Read("C:\\tmp.tiff");
 log_event("Return from ImageMagick->Read: $x");
 $p =3D $image->Append(stack=3D>true);
 log_event("Return from ImageMagick->Append: $p");
 $imgmgkres =3D $scanquality."X".$scanquality;
 $p->Set(density=3D>"$imgmgkres");
 $p->Set(quality=3D>$jpgquality);
 $x =3D $p->Write("C:\\tmp.JPG");
 log_event("Return from ImageMagick->Write: $x\tQuality: $jpgquality");
=20
 undef $image;
 undef $p;

 # Open the file in a DIBitmap for display
 $dib =3D newFromFile Win32::GUI::DIBitmap('C:\\tmp.tiff');
 $heightimg =3D $dib->GetHeight();
 $widthimg =3D $dib->GetWidth();
 $wmax =3D 750; $hmax=3D700;
 $hratio =3D $heightimg/$hmax;
 $wratio =3D $widthimg/$wmax;
=20
 # If image needs to be resized, resize it.
 if( $hratio> $wratio && $hratio > 1)
 { $dispdib =3D $dib -> Rescale($widthimg/$hratio, $hmax);=20
  $imgwid=3D$widthimg/$hratio; $imglen=3D$hmax;}
 elsif( $wratio>=3D$hratio && $wratio > 1)
 { $dispdib =3D $dib -> Rescale($wmax, $heightimg/$wratio);=20
  $imgwid=3D$wmax, $imglen=3D$heightimg/$wratio;}
 else {$dispdib =3D $dib; $imgwid=3D$widthimg; $imglen=3D$heightimg;}
=20
 $hbitmap =3D $dispdib->ConvertToBitmap();
 undef $dib;
 undef $dispdib;
=20
 # Set the label and move it to center it in the space allocated.
 $imglbl->SetImage($hbitmap);
 $imglbl->Move(($wmax-$imgwid)/2, ($hmax-$imglen)/2);



Scott Spearman
Programmer
Pikeville Medical Center
Phone: 606-218-4660
Pager: 606-437-8542

Note: The information transmitted 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 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 this =
material from any computer. 

In order to get this Scrolling Window demo to work,
I had to use the Change method To set most properties of the MDI Frame
and Child Window.  The properties just would not activate during normal
widget creation. Is this a bug, or to be expected?
I almost gave up before I thought to try the Change method. =20
     -Eric-


use Win32::GUI;

$M_F =3D new Win32::GUI::Menu(
    "&File"       =3D> "File",
    " > &Exit"    =3D> "Exit",
);

$F =3D new Win32::GUI::MDIFrame (
    -title      =3D> "Scrolling Window Demo",
    -name       =3D> "Frame",
    -menu       =3D> $M_F,
    -toolwindow =3D> 1,
);

$F->AddMDIClient(-name =3D> "Client",);

$W =3D $F->{Client}->AddMDIChild(-name =3D> "Window",);

$F->Change(-top =3D> 100, -left =3D> 25, -width =3D> 950, -height =3D> =
500,
-minsize =3D> [250,150], -maxsize =3D> [950,500],);

$W->Change(-top =3D> 0, -left =3D> 0, -width =3D> 950, -height =3D> 500,
-titlebar =3D> 0, -resizable =3D> 0,);


$DT_Date1 =3D new Win32::GUI::DateTime($W,
               -name       =3D> "DT_Date1",
               -top        =3D> 50,=20
               -left       =3D> 100,=20
               -height     =3D> 20,
               -width      =3D> 110,
               -shownone   =3D> 1,
);=09

$DT_Date2 =3D new Win32::GUI::DateTime($W,
               -name      =3D> "DT_Date2",
               -top       =3D> 150,=20
               -left      =3D> 300,=20
               -height    =3D> 20,
               -width     =3D> 110,
               -shownone  =3D> 1,
);=09

$DT_Date3 =3D new Win32::GUI::DateTime($W,
               -name     =3D> "DT_Date3",
               -top      =3D> 250,=20
               -left     =3D> 500,=20
               -height   =3D> 20,
               -width    =3D> 110,
               -shownone =3D> 1,
);=09

$DT_Date4 =3D new Win32::GUI::DateTime($W,
               -name     =3D> "DT_Date4",
               -top      =3D> 350,=20
               -left     =3D> 700,=20
               -height   =3D> 20,
               -width    =3D> 110,
               -shownone =3D> 1,
);=09

$F->Show();
$W->Show();

#########################
#     Event Handler     #
#########################
Win32::GUI::Dialog();


################
sub Exit_Click {
################
   return -1;
}

#####################
sub Frame_Terminate {
#####################
   return -1;
}

Glenn Linderman wrote:
 > Eric Hansen:
 >> Can someone provide me with the TK to Win32-GUI, Win32-GUI to TK
 >> utilities?
 >
 > I don't know of any such, do you?
 >
 > I'm assuming you mean source code translators...

Ditto.  If such tools do exist, then they've evaded my googling.  I'd be 
interested in seeing such tools if anyone finds them.

Rob.
-- 
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Can someone provide me with the=20
TK to Win32-GUI, Win32-GUI to TK    utilities?

Thanks,
Eric

Rob,

I downloaded the 5.8 PPM for 1.02_03 from your site again. It installed with
no problem straight out of the box, so the dependency problem is gone. The
old version of my program with the timers works fine, as does the new one,
where I'd worked around the new 'Kill' behaviour.

All looks good to me--good work, Rob.

Glenn

-----Original Message-----
From: Robert May [mailto:rm...@po...] 
Sent: Sunday, 13 November, 2005 17:05
To: Glenn W Munroe
Cc: per...@li...
Subject: Re: Next Release soon

Glenn W Munroe wrote:
> I just downloaded the 5.8 PPM from your site. It failed a new dependency
> check for Test::More. This module is available on CPAN, but not on the
> ActiveState repository. I had a quick look through the code and couldn't
> find where it was used; could it be a hangover from some testing you were
> doing? Is the dependency meant to be there? Is it really necessary? I've a
> feeling that many people will give up when they can't find the module in
the
> ActiveState repository...

[snip]

 > I hit another more worrying problem: I have a large-ish program, which
 > uses a number of timers. With 1.02_02 I get an error whenever any one
 > of the timers tries to fire (Can't locate auto/tmList.al in @INC...).

I have fixed both of these issues (I think).

You can find PPMs (Perl 5.6 and 5.8) at http://www.robmay.me.uk/win32gui/

These PPMs are labeled as version V1.02_03, and reflect the current CVS
code-base.  You should consider them beta software (i.e. they may not work
properly), but I have been using the 5.8 code for some time now with no
problems.  If you are so inclined, then download and give it a
spin.   Feedback to this list please.

Regards,
Rob.
--
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Glenn W Munroe wrote:
> I just downloaded the 5.8 PPM from your site. It failed a new dependency
> check for Test::More. This module is available on CPAN, but not on the
> ActiveState repository. I had a quick look through the code and couldn't
> find where it was used; could it be a hangover from some testing you were
> doing? Is the dependency meant to be there? Is it really necessary? I've a
> feeling that many people will give up when they can't find the module in the
> ActiveState repository...

[snip]

 > I hit another more worrying problem: I have a large-ish program, which
 > uses a number of timers. With 1.02_02 I get an error whenever any one
 > of the timers tries to fire (Can't locate auto/tmList.al in @INC...).

I have fixed both of these issues (I think).

You can find PPMs (Perl 5.6 and 5.8) at http://www.robmay.me.uk/win32gui/

These PPMs are labeled as version V1.02_03, and reflect the current CVS
code-base.  You should consider them beta software (i.e. they may not work
properly), but I have been using the 5.8 code for some time now with no
problems.  If you are so inclined, then download and give it a
spin.   Feedback to this list please.

Regards,
Rob.
--
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Pavan Rao wrote:
> I have downloaded Win32-GUI-1.02.tar file from cpan.org 
> <http://cpan.org> website.I am trying to install this and i am not able 
> install it its giving an error message.Could any one of you tell the 
> excat steps to install this successfully.I am using 5.8.7.813 version of 
> perl.

As Jeremy already said, the easiest way to install this is using PPM: 
For Perl 5.8 there is a binary distribution of V1.02 in the Activestate 
(default) PPM repository.  Otherwise there are binary distribution 
available from our website at http://perl-win32-gui.sourceforge.net

If you really want to build from source (and it's not that hard), then 
have you followed the instructions in the README that comes with the 
distribution?  Is so, which step fails?  What is the error message that 
you get?  A little more detail and we'll be able to help you.

Good luck, let us know how you get on.

Regards,
Rob.
-- 
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

And I though I was asking an easy question.  How do I get the code in the 
link to work with a perl script?

Thanks,
Joe





"Jason P." <ma...@cc...> 
Sent by: per...@li...
11/03/2005 02:04 AM

To
Perl-Win32-GUI <Per...@li...>
cc

Subject
Re: [win32gui] [perl-win32-gui-users] Extened windows style






Robert May wrote:
>> The problem I'm having is that when I maximize the window of any 
>> other application it has part of it hidden by this window, usually 
>> the scroll bar.  Is there an option to set so that anytime I maximize 
>> another window it will take up the entire screen minus this window?
>
> I'm sure there is, but don't know how myself.  Perhaps someone else 
> can shed some light?
I spent some time attempting to locate these tidbits, and first glance 
the simplest I can find is:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/programmersguide/shell_int/shell_int_programming/appbars.asp


Taskbar/MS Office Toolbar ish behavior. technically this should do what 
you need, but its not the simple answer you may have been looking for.

I'll do a bit more diggin to see if we can't make this a ittle simpler 
for the both of us, as I am interested in it as well. (As I am with any 
nifty addition to win32-gui)

Jason P.



-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. 
Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

>I have downloaded Win32-GUI-1.02.tar file from cpan.org <http://cpan.org>
>website.I am trying to install this and i am not able install it its giving
>an error message.Could any one of you tell the excat steps to install this
>successfully.I am using 5.8.7.813 version of perl.

If you are using an Activestate version of perl you can use ppm to install 
the package (ie, ppm install Win32-GUI). Otherwise download the PPM from the 
sourceforge site.

http://sourceforge.net/projects/perl-win32-gui/

Cheers,

jez.

Hi,

I have downloaded Win32-GUI-1.02.tar file from cpan.org <http://cpan.org>
website.I am trying to install this and i am not able install it its giving
an error message.Could any one of you tell the excat steps to install this
successfully.I am using 5.8.7.813 version of perl.

Thanks in advance.

Regards

Pavan Rao