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

RE: [perl-win32-gui-users] Gui loft and resizing the application

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

At 12:59 2002-10-30 +0000, Martin Bower wrote:
> >That might depend on what kind of window you created. A Dialog box is
> >slightly smaller than a Window I think (for the same size in the TGL Design
> >window).
>
> >If you do a Test window from within TGL, does it show the same size as in
> >your application?
>
>The test works perfectly, its only when I run the script that it resizes to
>a weird size.  I even compiled it (perl2exe) and ran it on 2 other machines
>with the same results.

Weirdness. If you could send me the .tgl and perhaps the source (if that's 
possible) I can take a look at it. Send to: johanl - bahnhof.se (make it an 
e-mail address).

Maybe the inspector code does something fishy?


>use Win32::GUI::Loft::Control::ForegroundBackground;
>use Win32::GUI::Loft::Control::Intangible;

BTW, you don't need to use these, just use Win32::GUI::Loft (or possibly 
Win32::GUI::Loft::Design).


/J

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

Latest bookmark: "Damian Conway's ten rules for when to use OO"
http://www.perlmonks.org/index.pl
dmoz (1 of 4): /Computers/Programming/Languages/Ruby/ 74

RE: [perl-win32-gui-users] Gui loft and resizing the application

[Martin B. <mb...@ib...>]

>From: Johan Lindstrom [mailto:jo...@ba...]
>Sent: 30 October 2002 12:34
>To: per...@li...
>Subject: Re: [perl-win32-gui-users] Gui loft and resizing the application

>At 10:03 2002-10-30 +0000, Martin Bower wrote:
>>If I design an app with guiloft, and then run it,  quite often I have to
>>resize the app because the window has shrunk somewhat.
>>Has anyone else come across this ?

>That might depend on what kind of window you created. A Dialog box is 
>slightly smaller than a Window I think (for the same size in the TGL Design

>window).

>If you do a Test window from within TGL, does it show the same size as in 
>your application?

The test works perfectly, its only when I run the script that it resizes to
a weird size.  I even compiled it (perl2exe) and ran it on 2 other machines
with the same results.
The app contains 1 window with a button, text box and 3 check boxes. so
nothing complicated there.

Martin


#!/usr/local/bin/perl -w
use strict;

use Win32::GUI;
use Win32;
use Win32::GUI::Loft;
use Win32::GUI::Loft::Control::ForegroundBackground;
use Win32::GUI::Loft::Control::Intangible;
use Net::FTP;
use MIME::Lite;

eval { main(); };
Win32::GUI::MessageBox(0, "Error: $@", "Trade transfer") if($@);

sub main {
	my $fileWindow = "redi.gld";
	my $objDesign = Win32::GUI::Loft::Design->newLoad($fileWindow) or 
			die("Could not open window file ($fileWindow)");

	
	#my $objInspector = FetchInspector->new() or die("Could not create
Inspector}n");
	my $win = $objDesign->buildWindow() 
			or die("Could not build window ($fileWindow)");
	$win->Show();
	my ($DOS) = Win32::GUI::GetPerlWindow(); 
	Win32::GUI::Hide($DOS); 
	Win32::GUI::Dialog();
	return(1);
}

******************************************************************************
The information in this document, including any attachments or subsequent 
correspondence originating from this email address ("email"), is confidential 
and may be legally privileged. It is intended solely for the addressee.  
However, it may be intercepted by the system controller at Bankgesellschaft 
Berlin AG for the purposes of monitoring communications relevant to the system 
controller's business.  Access to this email by anyone else is unauthorised.

If you have received this email in error, please notify the Sender immediately 
by telephone. Please also delete this email from your computer.

Any form of reproduction, dissemination, copying, disclosure, modification, 
distribution or publication of this email is prohibited without the prior 
consent of Bankgesellschaft Berlin AG. If you are not the intended recipient, 
any action taken or omitted to be taken in reliance of this email is strictly 
prohibited and may be unlawful.  Bankgesellschaft Berlin AG accepts no 
liability for the consequences of any person acting, or refraining from action 
in reliance of this email
******************************************************************************

Re: [perl-win32-gui-users] Gui loft and resizing the application

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

At 10:03 2002-10-30 +0000, Martin Bower wrote:
>If I design an app with guiloft, and then run it,  quite often I have to
>resize the app because the window has shrunk somewhat.
>Has anyone else come across this ?

That might depend on what kind of window you created. A Dialog box is 
slightly smaller than a Window I think (for the same size in the TGL Design 
window).

If you do a Test window from within TGL, does it show the same size as in 
your application?


>Would I gain more flexibilty if I learn how to program Win32::GUI directly
>rather than use the guiloft ?

Yes, for some things, but not a lot.

TGL will help you build the windows, all else is programming. So you still 
need to know how to program Win32::GUI. But you don't have to write boring 
code to create the windows, and you don't have to cykle through 
guess-run-change a gazillion times when designing your GUI.

Some things aren't implemented in TGL. Some things are implemented in TGL 
but not in vanilla Win32::GUI (e.g. numbers-only Textfields) without 
strange style numbers added to controls. TGL does that for you in some cases.


/J

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

Latest bookmark: "Damian Conway's ten rules for when to use OO"
http://www.perlmonks.org/index.pl
dmoz (1 of 4): /Computers/Programming/Languages/Ruby/ 74

[perl-win32-gui-users] Gui loft and resizing the application

[Martin B. <mb...@ib...>]

Hi all,
 
If I design an app with guiloft, and then run it,  quite often I have to
resize the app because the window has shrunk somewhat.  
Has anyone else come across this ?
 
Would I gain more flexibilty if I learn how to program Win32::GUI directly
rather than use the guiloft ?  
 
thanks
 
p.s apologies for disclaimer,  will re-register under a hotmail account
later.
******************************************************************************
The information in this document, including any attachments or subsequent 
correspondence originating from this email address ("email"), is confidential 
and may be legally privileged. It is intended solely for the addressee.  
However, it may be intercepted by the system controller at Bankgesellschaft 
Berlin AG for the purposes of monitoring communications relevant to the system 
controller's business.  Access to this email by anyone else is unauthorised.

If you have received this email in error, please notify the Sender immediately 
by telephone. Please also delete this email from your computer.

Any form of reproduction, dissemination, copying, disclosure, modification, 
distribution or publication of this email is prohibited without the prior 
consent of Bankgesellschaft Berlin AG. If you are not the intended recipient, 
any action taken or omitted to be taken in reliance of this email is strictly 
prohibited and may be unlawful.  Bankgesellschaft Berlin AG accepts no 
liability for the consequences of any person acting, or refraining from action 
in reliance of this email
******************************************************************************

RE: [perl-win32-gui-users] Hello All

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

my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);

You can also Win32::GUI::Show($DOS); it if you want to (I find this useful
in debugging, so I'll usually add some *secret* way to do this (like type
"debug on" within a RichEdit or Textbox -- shhh, top secret!).



> -----Original Message-----
> From: Scott Carr [mailto:sc...@pr...]
> Sent: Tuesday, October 29, 2002 17:02
> To: per...@li...
> Subject: [perl-win32-gui-users] Hello All
> 
> 
> I have been working to migrate some of the things I work on 
> to Perl.  Win32::GUI
> was definately an eye opener to several of the VB people here.  
> 
> I have a quick question:
> 
> With the base www.perl.com code, is there a way to not 
> display the console when
> you run a perl app?
> 
> Thanks to everyone that has/is working on this module.
> 
> Have fun...
> -- 
> Scott Carr
> OpenOffice.org
> Documentation Maintainer
> http://documentation.openoffice.org/
> 
> 
> 
> 
> 
> -------------------------------------------------
> This mail sent through IMP: http://horde.org/imp/
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Hello All

[Scott C. <sc...@pr...>]

I have been working to migrate some of the things I work on to Perl.  Win32::GUI
was definately an eye opener to several of the VB people here.  

I have a quick question:

With the base www.perl.com code, is there a way to not display the console when
you run a perl app?

Thanks to everyone that has/is working on this module.

Have fun...
-- 
Scott Carr
OpenOffice.org
Documentation Maintainer
http://documentation.openoffice.org/





-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/

RE: [perl-win32-gui-users] always on top

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

from the docs...

new Win32::GUI::Window(%OPTIONS)
Creates a new Window object. Class specific %OPTIONS are: 


  -minsize => [X, Y]
    specifies the minimum size (width and height) in pixels;
    X and Y must be passed in an array reference
  -maxsize => [X, Y]
    specifies the maximum size (width and height) in pixels;
    X and Y must be passed in an array reference
  -minwidth  => N
  -minheight => N
  -maxwidht  => N
  -maxheight => N
    specify the minimum and maximum size width
    and height, in pixels
  -topmost => 0/1 (default 0)
    the window "stays on top" even when deactivated




> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Monday, October 28, 2002 16:06
> To: per...@li...
> Subject: [perl-win32-gui-users] always on top
> 
> 
> is there any way to make a window 'always on top'?
> 
> thanx
> mark
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] always on top

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

is there any way to make a window 'always on top'?

thanx
mark

RE: [perl-win32-gui-users] printer support

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

Hello!

>http://cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/IFROL/

Great! Is there a ppm-distribution available, too?

Regards,

Peter


-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Darek Adamkiewicz
Sent: Saturday, October 26, 2002 4:14 PM
To: da...@pe...; per...@li...
Cc: Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)
Subject: Re: [perl-win32-gui-users] printer support



----- Original Message -----
From: Aldo Calpini <da...@pe...>
Date: Fri, 25 Oct 2002 11:21:42 +0200
To: per...@li..., "Borus, Gabor"
<gab...@fr...>
Subject: Re: [perl-win32-gui-users] printer support


> Borus, Gabor wrote:
> > Here you are:
> > The first section is an API call to show the standard printer dialog,
> > the second section is an example from the Win32::NPRG module.
> > It detects your installed printers, you can select a printer, and it
> > prints a little example to the selected printer.
>
> looks fine, but what are Win32::NPRG and Win32::Wingraph? they can't
> be found on CPAN.

http://cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/IFROL/
>
> the last one, in particular, seems to me like a lot of duplication of
> efforts. most of the DC functions are already implemented in
> Win32::GUI, and those which aren't could be implemented there.
> another "Typical Open Source nonsense", as someone said ;-)
Yes and no. This is quite old module -  files on CPAN
indicate Oct 2000 as last modification date
- and almost completly unknown in perl society.
I use it a while and it fits some purposes (some doesn't;)

Regards
Darek

BTW. You do very good work.
--
__________________________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup



-------------------------------------------------------
This SF.net email is sponsored by: ApacheCon, November 18-21 in
Las Vegas (supported by COMDEX), the only Apache event to be
fully supported by the ASF. http://www.apachecon.com
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] printer support

[Darek A. <dar...@eu...>]

----- Original Message -----
From: Aldo Calpini <da...@pe...>
Date: Fri, 25 Oct 2002 11:21:42 +0200 
To: per...@li..., "Borus, Gabor" <gab...@fr...>
Subject: Re: [perl-win32-gui-users] printer support


> Borus, Gabor wrote:
> > Here you are:
> > The first section is an API call to show the standard printer dialog,
> > the second section is an example from the Win32::NPRG module.
> > It detects your installed printers, you can select a printer, and it
> > prints a little example to the selected printer.
> 
> looks fine, but what are Win32::NPRG and Win32::Wingraph? they can't
> be found on CPAN.

http://cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/IFROL/
> 
> the last one, in particular, seems to me like a lot of duplication of
> efforts. most of the DC functions are already implemented in
> Win32::GUI, and those which aren't could be implemented there.
> another "Typical Open Source nonsense", as someone said ;-)
Yes and no. This is quite old module -  files on CPAN
indicate Oct 2000 as last modification date
- and almost completly unknown in perl society.
I use it a while and it fits some purposes (some doesn't;)

Regards
Darek

BTW. You do very good work.
-- 
__________________________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup

Re: [perl-win32-gui-users] printer support

[Aldo C. <da...@pe...>]

Borus, Gabor wrote:
> Here you are:
> The first section is an API call to show the standard printer dialog,
> the second section is an example from the Win32::NPRG module.
> It detects your installed printers, you can select a printer, and it
> prints a little example to the selected printer.

looks fine, but what are Win32::NPRG and Win32::Wingraph? they can't
be found on CPAN.

the last one, in particular, seems to me like a lot of duplication of
efforts. most of the DC functions are already implemented in
Win32::GUI, and those which aren't could be implemented there.
another "Typical Open Source nonsense", as someone said ;-)


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] printer support

[Borus, G. <gab...@fr...>]

printer supportHi

Here you are:
The first section is an API call to show the standard printer dialog, =
the second section is an example from the Win32::NPRG module.
It detects your installed printers, you can select a printer, and it =
prints a little example to the selected printer.
Regards
Gabor

#!perl -w
use strict;
# Win32::API GDI printer test code
use ExtUtils::testlib;
use Win32::Wingraph;
use Win32::NPRG qw(drawmatrix);
use Win32::API;

my $PrintDialog =3D new Win32::API('comdlg32', 'PrintDlg', ['P'],  'N');
my $GlobalLock =3D new Win32::API('kernel32', 'GlobalLock', ['N'], 'N');
my $GlobalFree =3D new Win32::API('kernel32', 'GlobalFree', ['N'], 'N');
my $GetDeviceCaps =3D new Win32::API('gdi32', 'GetDeviceCaps', =
['N','N'], 'N');
my $GetTextMetrics =3D new Win32::API('gdi32', =
'GetTextMetrics',['N','P'], 'N');
my $StartDoc =3D new Win32::API('gdi32', 'StartDoc', ['N', 'P'] , 'N');
my $StartPage =3D new Win32::API('gdi32', 'StartPage', ['N'], 'N');
my $TextOut =3D new Win32::API('gdi32', 'TextOut',['N','I','I','P','I'], =
'N');
my $EndPage =3D new Win32::API('gdi32', 'EndPage', ['N'], 'N');
my $EndDoc =3D new Win32::API('gdi32', 'EndDoc', ['N'], 'N');
my $GetLastError =3D   new Win32::API('kernel32', 'GetLastError',   =
[],'N');
my $FormatMessage =3D  new Win32::API('kernel32', =
'FormatMessage',['N','P','N','N','P','N','P'],'N');

sub ShowError {
   my $function =3D shift;
   my $message =3D " " x 1024;
   $FormatMessage->Call(0x1000, 0, $GetLastError->Call(), 0,$message, =
1024, 0);
   $message =3D~ s/\s+$//;
   print "$function: $message\n";
   exit;
}

# user dialog to select printer
# page setup dialog selected since pages, selection and copies are not =
used here
# paper size and orientation shown instead
my $pd =3D pack("Lx16Lx42", 66, 0x140);=20
# pd_size, flags =3D RETURNDC | PRINTSETUP
$PrintDialog->Call($pd) or die "Cancelled\n";
# get device mode and device context
my ($devmode, $dc) =3D unpack("x8Lx4L", $pd);

# this part is just to print a notice line
# and to practice mucking with pointers in structures
# otherwise, examining devmode is not needed for GDI
# devmode is a handle to movable global memory
my $handle =3D $devmode;
# get actual memory pointer
unless ($devmode =3D $GlobalLock->Call($handle)) =
{ShowError('GlobalLock')};
# get perl to use long integer as a pointer
# and retrieve the printer relevant part of the devmode structure
$devmode =3D unpack('P104', pack('L', $devmode));
# release the global memory
unless ($GlobalFree->Call($handle) =3D=3D 0) {ShowError('GlobalFree')};
# these strings are blank padded
my ($devicename, $orient, $duplex, $formname) =3D =
unpack('A32x12Sx16Sx6A32', $devmode);
$orient =3D ('Portrait', 'Landscape')[--$orient];
$duplex =3D ('', 'Duplex')[$duplex > 1];
print "Printing to $devicename on $formname paper, $orient $duplex\n";


my $dc =3D new Win32::Wingraph(device=3D>"$devicename",  desc=3D>'test', =
orientation=3D>'$orient') or die; #orientation=3D>'Landscape',

$dc->SetPen(3);
# "font, size, codepage" - the third argument is Windows font codepage
# if you don't supply this it'll be set to russian !!!,=20
# 0-westerneuropean, 238-polish, I don't know the hungarian ;(
$dc->SetFont("Times New Roman Bold, 12, 0");=20
$dc->TextOut(70, 180, "Blah blah blah");
$dc->MoveTo(70, 200);
$dc->LineTo(270, 200);

print "Start\n";

my $rp=3Dnew NPRG(dc=3D>$dc);
$rp->{'atbreak'} =3D sub {
         $rp->pushq({font=3D>'Times, 6, 0', opt=3D>'R', =
border=3D>'B',value=3D>'Very wisdom report about something =
'.$rp->pagenum(), width=3D>980});
                $rp->pushq({height=3D>20, value=3D>' ', width=3D>100});
                $rp->pushq({font=3D>'Arial italic, 16, 0', =
opt=3D>'-L',border=3D>'TBLR', value=3D>"Some header", width=3D>300, =
brush=3D>220},
                            {font=3D>'Courier Bold, 12, 0', =
opt=3D>'-C',border=3D>'TBLR', value=3D>"Another header", width=3D>250, =
brush=3D>220},
                            {value=3D>\&NPRG::drawmatrix, width=3D>400,=20
       matrix=3D>[
                                  [ {font=3D>'Arial Bold Italic, =
12',value=3D>'Month', border=3D>'TBLR', opt=3D>'C'}],
                                  [
                                      {font=3D>'Times New =
Roman,8',value=3D>'I', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,8',value=3D>'II', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,8',value=3D>'III', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,8',value=3D>'IV', border=3D>'TBLR', opt=3D>'-C'},
                                  ],
                                  [
                                      {font=3D>'Times New =
Roman,7',value=3D>'I', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'II', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'III', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'IV', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'V', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'VI', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'VII', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'VIII', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'IX', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'X', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'XI', border=3D>'TBLR', opt=3D>'-C'},
                                      {font=3D>'Times New =
Roman,7',value=3D>'XII', border=3D>'TBLR', opt=3D>'-C'},
                                   ]
                                ],
                             }
                            );
                  $rp->pushq({width=3D>950, height=3D>3, brush=3D>0});
                  $rp->flushq();
                  print "Here\n";
               };

$rp->flushq();
print "End\n";
  ----- Original Message -----=20
  From: Peter Eisengrein=20
  To: 'Magnone, Angelo' ; Perl-Win32-Gui-Users@Lists. Sourceforge. Net =
(E-mail)=20
  Sent: Wednesday, October 23, 2002 8:13 PM
  Subject: RE: [perl-win32-gui-users] printer support


  I've only seen it done with a system() call to rundll32.exe. Something =
like this:

  # untested
  $dll =3D "/Winnt/System32/mshtml.dll";       =20
  system("rundll32.exe $dll,PrintHTML $file");

    -----Original Message-----
    From: Magnone, Angelo [mailto:ang...@rb...]
    Sent: Wednesday, October 23, 2002 13:57
    To: Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)
    Subject: [perl-win32-gui-users] printer support




    Does win32 have any printer-type functions like "Select printer", =
"Printer Properties", "Page Size", etc...=20

    Thanks :)=20






    ------------------------------------------------------------
    This e-mail may be privileged and/or confidential, and the sender =
does not waive any related rights and obligations. Any distribution, use =
or copying of this e-mail or the information it contains by other than =
an intended recipient is unauthorized. If you received this e-mail in =
error, please advise me (by return e-mail or otherwise) immediately.=20

    Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne =
renonce pas aux droits et obligations qui s'y rapportent. Toute =
diffusion, utilisation ou copie de ce message ou des renseignements =
qu'il contient par une personne autre que le (les) destinataire(s) =
d=E9sign=E9(s) est interdite. Si vous recevez ce courriel par erreur, =
veuillez m'en aviser imm=E9diatement, par retour de courriel ou par un =
autre moyen.=20


    =
=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=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=20

RE: [perl-win32-gui-users] printer support

[Darek A. <dar...@eu...>]

<BR><BR>----- Original Message -----<BR>From: Peter Eisengrein <PET...@AT...><BR>Date: Wed, 23 Oct 2002 14:13:59 -0400 <BR>To: "''Magnone, Angelo''" <ANG...@RB...>, "Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)" <PER...@LI...><BR>Subject: RE: [perl-win32-gui-users] printer support<BR><BR>
<DIV><SPAN class=231450718-23102002><FONT color=#0000ff face="Courier New" size=2>The following code is a part of source code I found some times ago on the&nbsp;newsgroups </FONT></SPAN></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN class=231450718-23102002>(it works for me)</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN class=231450718-23102002></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN class=231450718-23102002>Regards</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN class=231450718-23102002>Darek</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face="Courier New" size=2><SPAN class=231450718-23102002>=====================================</SPAN></FONT></DIV>
<DIV><SPAN class=231450718-23102002><FONT color=#0000ff face="Courier New" size=2>#!perl -w<BR>use strict;<BR># Win32::API GDI printer test code<BR><BR>use Win32::API;<BR><BR>my $PrintDialog = new Win32::API('comdlg32', 'PrintDlg', ['P'],&nbsp; 'N');<BR>my $GlobalLock = new Win32::API('kernel32', 'GlobalLock', ['N'], 'N');<BR>my $GlobalFree = new Win32::API('kernel32', 'GlobalFree', ['N'], <BR>'N');<BR>my $GetDeviceCaps = new Win32::API('gdi32', 'GetDeviceCaps', <BR>['N','N'], 'N');<BR>my $GetTextMetrics = new Win32::API('gdi32', 'GetTextMetrics',<BR>['N','P'], 'N');<BR>my $StartDoc = new Win32::API('gdi32', 'StartDoc', ['N', 'P'] , 'N');<BR>my $StartPage = new Win32::API('gdi32', 'StartPage', ['N'], 'N');<BR>my $TextOut = new Win32::API('gdi32', 'TextOut',<BR>['N','I','I','P','I'], 'N');<BR>my $EndPage = new Win32::API('gdi32', 'EndPage', ['N'], 'N');<BR>my $EndDoc = new Win32::API('gdi32', 'EndDoc', ['N'], 'N');<BR>my $GetLastError =&nbsp;&nbsp; new Win32::API('kernel32', 'GetLastError',&nbsp;&nbsp; [],<BR>'N');<BR>my $FormatMessage =&nbsp; new Win32::API('kernel32', 'FormatMessage',<BR>['N','P','N','N','P','N','P'],'N');<BR><BR>sub ShowError {<BR>&nbsp;&nbsp; my $function = shift;<BR>&nbsp;&nbsp; my $message = " " x 1024;<BR>&nbsp;&nbsp; $FormatMessage-&gt;Call(0x1000, 0, $GetLastError-&gt;Call(), 0,<BR>$message, 1024, 0);<BR>&nbsp;&nbsp; $message =~ s/\s+$//;<BR>&nbsp;&nbsp; print "$function: $message\n";<BR>&nbsp;&nbsp; exit;<BR>}<BR><BR># user dialog to select printer<BR># page setup dialog selected since pages, selection and copies are<BR>not used here<BR># paper size and orientation shown instead<BR>my $pd = pack("Lx16Lx42", 66, 0x140); # pd_size, flags =<BR>RETURNDC | PRINTSETUP<BR>$PrintDialog-&gt;Call($pd) or die "Cancelled\n";<BR># get device mode and device context<BR>my ($devmode, $dc) = unpack("x8Lx4L", $pd);<BR><BR># this part is just to print a notice line<BR># and to practice mucking with pointers in structures<BR># otherwise, examining devmode is not needed for GDI<BR># devmode is a handle to movable global memory<BR>my $handle = $devmode;<BR># get actual memory pointer<BR>unless ($devmode = $GlobalLock-&gt;Call($handle))<BR>{ShowError('GlobalLock')};<BR># get perl to use long integer as a pointer<BR># and retrieve the printer relevant part of the devmode structure<BR>$devmode = unpack('P104', pack('L', $devmode));<BR># release the global memory<BR>unless ($GlobalFree-&gt;Call($handle) == 0) {ShowError('GlobalFree')};<BR># these strings are blank padded<BR>my ($devicename, $orient, $duplex, $formname) =<BR>unpack('A32x12Sx16Sx6A32', $devmode);<BR>$orient = ('Portrait', 'Landscape')[--$orient];<BR>$duplex = ('', 'Duplex')[$duplex &gt; 1];<BR>print "Printing to $devicename on $formname paper, $orient<BR>$duplex\n";<BR></DIV></FONT></SPAN>
-- 
<p>_______________________________________________<br>
Sign-up for your own FREE Personalized E-mail at <font color="#0000FF"><a href="http://www.mail.com/?sr=signup" target="_new">Mail.com</a></font></p>

Re: [perl-win32-gui-users] Latest Documentation?

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

Hi,
    I think that this is a relly good idea, maybe we can start from the
modified Win32::GUI documentation bundled with The Gui Loft
(http://www.bahnhof.se/~johanl/perl/Loft/), to insert the various
(up-to-now) "undocumented" features that sometimes we found in this maili=
ng
list.

The first thing we can do is to post messages as FAQ items (using "FAQ -
short description of item" as subject) to begin collecting articles about
Win32::GUI.

I think that Aldo would found useful to collect these articles and includ=
e
them in the documentation.

Bye.

    Luigino Masarati
    OutSys snc

PS: I'm glad you have appreciated my little work about Animated/Layered
Windows. Thanks.

----- Original Message -----
From: "Howard, Steven (US - Tulsa)" <sth...@de...>
To: "'Rogers, John'" <rog...@oc...>; "'Rob'"
<ro...@di...>; <per...@li...>
Sent: Thursday, October 24, 2002 2:33 PM
Subject: RE: [perl-win32-gui-users] Latest Documentation?


> I have followed the civilized portion of this discussion these last cou=
ple
> of days, and I do have to say that when I first began with this module,=
 I
> was very frustrated with only having the few examples as documentation.=
 I
> still have times when I cannot find the answer to what I need - one suc=
h
> time being this last week when I was trying to translate one of my repo=
rt
> programs from C++ to Perl, but I cannot get the date format in the
> DateTimePicker (datetime) like I have it in the C++ version.
>
> I am not criticizing anyone's work, but I can see times when the
> documentation just doesn't cover what I need (Sometimes I can figure it
out,
> and sometimes I can't). So I would like to volunteer whatever I know if
> anyone else is receptive to the idea of augmenting the documentation. I
have
> been working with Win32::GUI for about one and a half years, and I have=
 a
> few examples (very few original, but a few times I have been able to
augment
> what I've found elsewhere). I would really like it to include examples
such
> as the very nice examples of the animated windows I saw in this group n=
ot
> long ago (I doubt I would ever have figured out how to use the GUI modu=
le
in
> conjunction with the Win32::API module like that).
>
> Is anyone else interested in augmenting the documentation for this modu=
le
> (without criticizing the documentation and examples that currently
exist) -
> If so, I'll contribute whatever I have, and take assignments from the
> organizer to the extent that I can, but I cannot organize or drive the
> effort.
>
> Without gushing with emotion one way or the other, does the rest of the
> group think such an augmentation would be helpful?
>
> Steve H.
>
> -----Original Message-----
> From: Rogers, John [mailto:rog...@oc...]
> Sent: Wednesday, October 23, 2002 9:46 PM
> To: 'Rob'; per...@li...
> Subject: RE: [perl-win32-gui-users] Latest Documentation?
>
>
> The only source, IS the source package !
> eg find this file Win32-GUI-0.0.665.tar.gz
>
> Has docs AND samples, what more could you want ?
>
> Also,
> Thank you Mr Calpini for your module, I cant thankyou enough!.
>
>
> JohnR
>
> > -----Original Message-----
> > From: Rob [mailto:ro...@di...]
> > Sent: Thursday, October 24, 2002 7:52 AM
> > To: per...@li...
> > Subject: Re: [perl-win32-gui-users] Latest Documentation?
> >
> >
> > Well, as for me, I reckon Aldo's done a pretty good job.
> > After all it's
> > the package that I chose to work with after checking what was
> > available.
> >
> > But my original question still stands - where's the best source for
> > documentation? If I have to read the code then that's fair enough,
> > but I just thought there may be something out there more up to date.
> > And please: no more flames.
> >
> > Cheers all,
> >
> > Rob Dixon
> >
> >
> >
> >
> > -------------------------------------------------------
> > This sf.net email is sponsored by: Influence the future
> > of Java(TM) technology. Join the Java Community
> > Process(SM) (JCP(SM)) program now.
> > http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0002en
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
>
> ##############################################################
> Disclaimer
>
> If this e-mail has been sent to you in error, please notify
> Oc=E9-Australia Limited immediately and delete this e-mail from
> your system.
>
> Any views expressed in this e-mail are those of the individual
> sender and may not necessarily reflect the views of
> Oc=E9-Australia Limited.
> ##############################################################
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future
> of Java(TM) technology. Join the Java Community
> Process(SM) (JCP(SM)) program now.
> http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0002en
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> - This message (including any attachments) contains confidential
information
> intended for a specific individual and purpose, and is protected by
aw.  -
> If you are not the intended recipient, you should delete this message a=
nd
> are hereby notified that any disclosure, copying, or distribution of th=
is
> message, or the taking of any action based on it, is strictly prohibite=
d.
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future
> of Java(TM) technology. Join the Java Community
> Process(SM) (JCP(SM)) program now.
> http://ad.doubleclick.net/clk;4729346;7592162;s?http://www.sun.com/java=
vot
e
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] Latest Documentation?

[Howard, S. (US - Tulsa) <sth...@de...>]

I have followed the civilized portion of this discussion these last =
couple
of days, and I do have to say that when I first began with this module, =
I
was very frustrated with only having the few examples as documentation. =
I
still have times when I cannot find the answer to what I need - one =
such
time being this last week when I was trying to translate one of my =
report
programs from C++ to Perl, but I cannot get the date format in the
DateTimePicker (datetime) like I have it in the C++ version.

I am not criticizing anyone's work, but I can see times when the
documentation just doesn't cover what I need (Sometimes I can figure it =
out,
and sometimes I can't). So I would like to volunteer whatever I know if
anyone else is receptive to the idea of augmenting the documentation. I =
have
been working with Win32::GUI for about one and a half years, and I have =
a
few examples (very few original, but a few times I have been able to =
augment
what I've found elsewhere). I would really like it to include examples =
such
as the very nice examples of the animated windows I saw in this group =
not
long ago (I doubt I would ever have figured out how to use the GUI =
module in
conjunction with the Win32::API module like that).

Is anyone else interested in augmenting the documentation for this =
module
(without criticizing the documentation and examples that currently =
exist) -
If so, I'll contribute whatever I have, and take assignments from the
organizer to the extent that I can, but I cannot organize or drive the
effort.

Without gushing with emotion one way or the other, does the rest of the
group think such an augmentation would be helpful?

Steve H.

-----Original Message-----
From: Rogers, John [mailto:rog...@oc...]
Sent: Wednesday, October 23, 2002 9:46 PM
To: 'Rob'; per...@li...
Subject: RE: [perl-win32-gui-users] Latest Documentation?


The only source, IS the source package !
eg find this file Win32-GUI-0.0.665.tar.gz

Has docs AND samples, what more could you want ?

Also,
Thank you Mr Calpini for your module, I cant thankyou enough!.


JohnR

> -----Original Message-----
> From: Rob [mailto:ro...@di...]
> Sent: Thursday, October 24, 2002 7:52 AM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Latest Documentation?
>=20
>=20
> Well, as for me, I reckon Aldo's done a pretty good job.=20
> After all it's
> the package that I chose to work with after checking what was=20
> available.
>=20
> But my original question still stands - where's the best source for
> documentation? If I have to read the code then that's fair enough,
> but I just thought there may be something out there more up to date.
> And please: no more flames.
>=20
> Cheers all,
>=20
> Rob Dixon
>=20
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future=20
> of Java(TM) technology. Join the Java Community=20
> Process(SM) (JCP(SM)) program now.=20
> http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0002en
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20


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

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

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


-------------------------------------------------------
This sf.net email is sponsored by: Influence the future=20
of Java(TM) technology. Join the Java Community=20
Process(SM) (JCP(SM)) program now.=20
http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0002en

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
- This message (including any attachments) contains confidential =
information
intended for a specific individual and purpose, and is protected by =
law.  -
If you are not the intended recipient, you should delete this message =
and
are hereby notified that any disclosure, copying, or distribution of =
this
message, or the taking of any action based on it, is strictly =
prohibited.

Re: [perl-win32-gui-users] Latest Documentation?

[Rob <ro...@di...>]

Thanks John

I'm using ActiveState Perl and got my copy of Win32::GUI from PPM.
I assumed the CPAN version was the same.

(Now somebody's going to tell me that there's documentation in
the PPM version as well!)

Rob


----- Original Message -----
From: "Rogers, John" <rog...@oc...>
To: "'Rob'" <ro...@di...>;
<per...@li...>
Sent: Thursday, October 24, 2002 3:45 AM
Subject: RE: [perl-win32-gui-users] Latest Documentation?


> The only source, IS the source package !
> eg find this file Win32-GUI-0.0.665.tar.gz
>
> Has docs AND samples, what more could you want ?
>
> Also,
> Thank you Mr Calpini for your module, I cant thankyou enough!.
>
>
> JohnR
>

Re: [perl-win32-gui-users] Method Combobox->ChangeItem(-top => 100, -left => 150) not working?

[Aldo C. <da...@pe...>]

Eric Hansen wrote:
> I get an error message when I try to dynamically change the position of
> a combobox widget.  I have successfully used the ChangeItem method for
> ListView controls.  Is this not a valid method for comboboxes?

no, it is not valid.
if you want to change the position of the combobox, use this:
  Combobox->Change(-top => 100, -left => 150);
or this:
  Combobox->Move(100, 150);


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

RE: [perl-win32-gui-users] Latest Documentation?

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

The only source, IS the source package !
eg find this file Win32-GUI-0.0.665.tar.gz

Has docs AND samples, what more could you want ?

Also,
Thank you Mr Calpini for your module, I cant thankyou enough!.


JohnR

> -----Original Message-----
> From: Rob [mailto:ro...@di...]
> Sent: Thursday, October 24, 2002 7:52 AM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Latest Documentation?
>=20
>=20
> Well, as for me, I reckon Aldo's done a pretty good job.=20
> After all it's
> the package that I chose to work with after checking what was=20
> available.
>=20
> But my original question still stands - where's the best source for
> documentation? If I have to read the code then that's fair enough,
> but I just thought there may be something out there more up to date.
> And please: no more flames.
>=20
> Cheers all,
>=20
> Rob Dixon
>=20
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future=20
> of Java(TM) technology. Join the Java Community=20
> Process(SM) (JCP(SM)) program now.=20
> http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0002en
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20


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

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

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

Re: [perl-win32-gui-users] Latest Documentation?

[Rob <ro...@di...>]

Well, as for me, I reckon Aldo's done a pretty good job. After all it's
the package that I chose to work with after checking what was available.

But my original question still stands - where's the best source for
documentation? If I have to read the code then that's fair enough,
but I just thought there may be something out there more up to date.
And please: no more flames.

Cheers all,

Rob Dixon

RE: [perl-win32-gui-users] Latest Documentation?

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

More Ditto's.
=20

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

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

-----Original Message-----
From: NAHUM Marc [mailto:mar...@re...]
Sent: Wednesday, October 23, 2002 12:28 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Latest Documentation?


same for me !
Thanks Aldo !!
MN
=20

----- Original Message -----=20
From: Peter Eisengrein <mailto:Pet...@at...> =20
To: per...@li...=20
Sent: Wednesday, October 23, 2002 6:21 PM
Subject: RE: [perl-win32-gui-users] Latest Documentation?



> For me, I would just have to say Thanks Aldo, your work has=20
> made mine much=20
> better!=20
>=20

Same here! If he is so unhappy with it, let him write his own GUI =
module.=20

Thanks Aldo,=20
Pete=20

[perl-win32-gui-users] Class / Color Inheritence?

[Michael A. <mi...@fl...>]

I'm using .665 and perl 5.61.

I have not been able to determine how to get controls to inherit
any color other than the color defined for
COLOR_3DFACE/COLOR_BTNFACE in the user's configuration.

Using the -foreground and -background attributes works for the
few controls that support these properties. However, many
controls (checkboxes, buttons, tabstrips) have no color control
as far as I can tell.

Am I missing something? I messed around with trying to create a
new class for each control with the -color attribute of the
window set but it appears that the subclassing doesn't work?

I did some poking around in the SendMessage info on MSDN and
tried to find a way to maybe use SendMessage to change the
control color but I couldn't quite understand how to do it ;)

Any help here would be appreciated, the goal is to create an
application with colors that I define rather than colors taken
from the users default color scheme. Is this even possible?

Thanks,
Michael

RE: [perl-win32-gui-users] printer support

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

I've only seen it done with a system() call to rundll32.exe. Something =
like
this:
=20
# untested
$dll =3D "/Winnt/System32/mshtml.dll";       =20
system("rundll32.exe $dll,PrintHTML $file");
=20

-----Original Message-----
From: Magnone, Angelo [mailto:ang...@rb...]
Sent: Wednesday, October 23, 2002 13:57
To: Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)
Subject: [perl-win32-gui-users] printer support




Does win32 have any printer-type functions like "Select printer", =
"Printer
Properties", "Page Size", etc...=20

Thanks :)=20





------------------------------------------------------------
This e-mail may be privileged and/or confidential, and the sender does =
not
waive any related rights and obligations. Any distribution, use or =
copying
of this e-mail or the information it contains by other than an intended
recipient is unauthorized. If you received this e-mail in error, please
advise me (by return e-mail or otherwise) immediately.=20

Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne renonce =
pas aux
droits et obligations qui s'y rapportent. Toute diffusion, utilisation =
ou
copie de ce message ou des renseignements qu'il contient par une =
personne
autre que le (les) destinataire(s) d=E9sign=E9(s) est interdite. Si =
vous recevez
ce courriel par erreur, veuillez m'en aviser imm=E9diatement, par =
retour de
courriel ou par un autre moyen.=20


=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=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=20

Re: [perl-win32-gui-users] This group

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

There are some things that aren't excelent in this software group.
But, if I take in consideration how the people of this group has helped 
me when I used Win32::GUI the only think that comes to my head is THANKS.

Guillem Cunillera i Wefers
Computer Engineer

[perl-win32-gui-users] printer support

[Magnone, A. <ang...@rb...>]

Does win32 have any printer-type functions like "Select printer", "Printer
Properties", "Page Size", etc...

Thanks :)






------------------------------------------------------------
This e-mail may be privileged and/or confidential, and the sender does not waive any related rights and obligations. Any distribution, use or copying of this e-mail or the information it contains by other than an intended recipient is unauthorized. If you received this e-mail in error, please advise me (by return e-mail or otherwise) immediately.=20

Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne renonce pas aux droits et obligations qui s'y rapportent. Toute diffusion, utilisation ou copie de ce message ou des renseignements qu'il contient par une personne autre que le (les) destinataire(s) d=E9sign=E9(s) est interdite. Si vous recevez ce courriel par erreur, veuillez m'en aviser imm=E9diatement, par retour de courriel ou par un autre moyen.=20


=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=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=20

Re: [perl-win32-gui-users] This group

[Morbus I. <mo...@di...>]

>Being new to the list, all I have to say is

Being old to the list, and in general, to the Net and communities created 
by mailing lists, I've got to chuckle a bit at how you'd make a snap 
decision like that. I've been on the list for about a year, nearing two. 
The ratio of genuine excellent help, compared to "haven't had my coffee 
yet" idiocy is surprisingly low. If you leave now, your loss, not ours.



-- 
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Please Me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus