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

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

[Anthony G. <AG...@em...>]

-----Original Message-----
From: "gabor.borus" <gab...@fr...>
To: "Perl List" <per...@li...>
Date: Tue, 1 Oct 2002 12:34:11 +0200
Subject: [perl-win32-gui-users] DateTime object in Win32::GUI 0.665

> Hi all!
> 
> Has anybody a working example for DateTime object?

	new Win32::GUI::DateTime (
		$mywindow,
		-top	=>	1,
		-left	=>	1,
		-width	=>	90,
		-height	=>	25,
		-name	=>	"dateFromT",
	);


sub something_Click {
    my($mmF,$ddF,$yyF)=split(/\//,$mywindow->dateFromT->Text());
}

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

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

Hi all!

Has anybody a working example for DateTime object?
Thanks
Regadrs
Gabor

[perl-win32-gui-users] Problems with TabStrip

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

Hello,

I have problems using Win32::GUI 0.0.665 and TabStrip "Change" events. If I
click 12 times between two of my tab strips I get this error: "panic: corrupt
saved stack index at xyz"

In the line number xyz is "Win32::GUI::Dialog()"

I use AddTabStrip like this

		    -events => {
				Change => sub { MainWindow_Tab_Click(); }
			       }

sub MainWindow_Tab_Click {
 # empty!!!
}

I use ActiveState Perl Binary build 633. Is there any solution?

Sincerely,

Peter

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

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

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

Jonathan

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

RE: [perl-win32-gui-users] How to highlight

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

Not sure why it's not working, without seeing some code. Checkout the
'listbox.pl' in the samples that should've come with the module. That works
just fine. Let me know offline if you don't have it and I'll send it to you.

-----Original Message-----
From: Burley, David [mailto:dav...@in...]
Sent: Wednesday, September 25, 2002 09:07
To: per...@li...
Subject: [perl-win32-gui-users] How to highlight


Been using gui loft to create perl frontends. I have a nagging problem
whereby I cannot get a listbox item to be highlighted.
I am trying to use the Select Method to no avail. Has anyone got any
pointers sample code to cure my issue ?
 

[perl-win32-gui-users] How to highlight

[Burley, D. <dav...@in...>]

Been using gui loft to create perl frontends. I have a nagging problem
whereby I cannot get a listbox item to be highlighted.
I am trying to use the Select Method to no avail. Has anyone got any
pointers sample code to cure my issue ?
=20

Re: [perl-win32-gui-users] Re: How to use certain control methods/properties via Win32::GUI::AxWindow

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

Hi,

>     Actualy, AxWindow not handle property with extra paramater. 
>     Trying to made a new version for handle this.

    I put a new version with this new feature.

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

Laurent.

Re: [perl-win32-gui-users] Re: How to use certain control methods/properties via Win32::GUI::AxWindow

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

Hi,

    Actualy, AxWindow not handle property with extra paramater.
    It's first time, i see kind of property.

    Trying to made a new version for handle this.

Laurent.

--- OleView Description ---

[id(0x00000041), propget, helpstring("Returns/sets the text contents of an
arbitrary cell (row/col subscripts)."), helpcontext(0x00059215)]
BSTR TextMatrix(
                [in] long Row,
                [in] long Col);
[id(0x00000041), propput, helpstring("Returns/sets the text contents of an
arbitrary cell (row/col subscripts)."), helpcontext(0x00059215)]
void TextMatrix(
                [in] long Row,
                [in] long Col,
                [in] BSTR rhs);
--------

[perl-win32-gui-users] Re: How to use certain control methods/properties via Win32::GUI::AxWindow

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

Laurent Rocher created Win32::GUI::AxWindow and I am trying to get it to =
work with MSFlexgrid.  I am trying to get around some of the =
limitations(background, font size, highlight single cells) of the =
Listview control that is standard in Windows Forms.  However, I am =
having trouble with some properties/methods which take an index. =20

When trying to call a property or method which has a Type lib def like :
 Property TextMatrix(Row As Long, Col As Long)=20
which translates to object.TextMatrix(1,1) =3D "This should go in the =
first row first column cell"

However, there does not seem to be a way to do this via the AxWindow =
interface that I have been able to find.  Other properties and methods =
which do not take such arguments work great.

Any help would be appreciated.


Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

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

>=20

RE: [perl-win32-gui-users] Line numbers and/or Syntax highlightin g

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

Have a look at wex.pl on http://www.fairymails.com/perl/
<http://www.fairymails.com/perl/> 
There is some (very rudimentary) syntax highlighting done in a simple
Richedit. No extras needed for that to work.

-----Original Message-----
From: moo cow [mailto:mew...@ip...]
Sent: Monday, September 09, 2002 19:51
To: perl mailing list
Subject: [perl-win32-gui-users] Line numbers and/or Syntax highlighting


Hi,
    I was just wondering if anyone has any ideas on the possibility of
implementing a text editor with line numbering and/or syntax highlighting
with Win32:GUI

Is there anything that needs to be added to the Win32:GUI module to allow
for these?

Does anyone have any suggestions as to how you could implement them
currently?

Any other ideas concerning this kind of thing?

Also, on a side note, is there any way to get the text from a rich edit
control without saving it to a file in textmode?


Thanks in advance,
Nick
------------------------------------------------------- This sf.net email is
sponsored by: OSDN - Tired of that same old cell phone? Get a new here for
FREE! https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
_______________________________________________ Perl-Win32-GUI-Users mailing
list Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Line numbers and/or Syntax highlighting

[moo c. <mew...@ip...>]

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <title></title>
</head>
<body>
Hi,<br>
&nbsp;&nbsp;&nbsp; I was just wondering if anyone has any ideas on the possibility of implementing
a text editor with line numbering and/or syntax highlighting with Win32:GUI<br>
<br>
Is there anything that needs to be added to the Win32:GUI module to allow
for these?<br>
<br>
Does anyone have any suggestions as to how you could implement them currently?<br>
<br>
Any other ideas concerning this kind of thing?<br>
<br>
Also, on a side note, is there any way to get the text from a rich edit control
without saving it to a file in textmode?<br>
<br>
<br>
Thanks in advance,<br>
Nick<br>
</body>
</html>

[perl-win32-gui-users] DialogBox Question

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

I am currently in the middle of coding a project using a single Dialobox as
my screen, and hiding and restoring data as people go from screen to screen.
Users will be entering their input, and all seems to be working great.  What
I would like to do though, is make use of that little question mark button
at the top left corner of the dialog box.  Now I have been able to find
almost all the answers to my questions via the archives, and google, but
this one still eludes me.

How do I use the "?" button on a dialog box?  If I can use that, it would
save my users trouble of thinking that was the help area, and it would save
me the time of coding my own help subsystem.

Any help would be great, and code can be posted at request.

Chris G.
XMission.com

Re: [perl-win32-gui-users] Q: Resize problem maximising from windows toolbar

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

At 15:49 2002-09-03 +0100, Iain Reid wrote:
>If I minimise the window then maximize it from the toolbar I get a
>fullscreen window but controls positioned as they were before I
>minimised. It seems as if the maximised window dimensions don't get
>passed to the resizer. Within the maximize event the scalewidth and
>scaleheight are both zero. It seems that the windows gets maximized but
>the controls only restored.
>
>Is this a known problem? It affects the Loft example code as well. Is
>there an accepted workaround?

This is a bug/misfeature in Win32::GUI::Resizer. Nice job spotting it, it 
still needs a bit more field time I guess...

I started to fix it last night but other things came up.


/J

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

Latest bookmark: "Intranet Design Annual 10 Best Intranets of 200..."
http://www.useit.com/alertbox/20020903.html
dmoz (1 of 11): ...ternet/Web_Design_and_Development/Web_Usability

[perl-win32-gui-users] Mailing list subscription to Gmane

[Joseph H. S. I. <jh...@sc...>]

Is it possible to sign this list up for http://gmane.org/?  It would 
greatly help the searching capabilities.

Thanks,
Joe.
---------------------------------------------
Joseph H. Schwendt II
http://schwendt.com
jh...@sc...

RE: [perl-win32-gui-users] Q: Resize problem maximising from wind ows toolbar

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

Besides resizing the window, you need to move the other objects, using
something like this:

$Window->Logo->Move($Window->ScaleWidth-325,0);

This is actual piece of code. It moves a bitmap 'Logo' 325 pixels to the
left of the right side but does not move it up or down when the window is
resized. 

Here's one from the same script that moves it up and down but not
left/right.


$Window->Status->Move(0, $Window->ScaleHeight-$Window->Status->Height);

HTH,
Pete


> -----Original Message-----
> From: Iain Reid [mailto:iai...@gp...]
> Sent: Tuesday, September 03, 2002 10:50
> To: per...@li...
> Subject: [perl-win32-gui-users] Q: Resize problem maximising from
> windows toolbar
> 
> 
> [I'm new to to Win32::Gui so apologies if this is frequently asked. I
> have searched the web and looked in FAQs etc but without finding an
> answer]
> 
> I have a simple window created using Loft. It has a few controls which
> move correctly when the window is resized (using the
> Win32::GUI::Resizer). I can resize correctly with the drag handle
> (bottom right).
> 
> If I minimise the window then maximize it from the toolbar I get a
> fullscreen window but controls positioned as they were before I
> minimised. It seems as if the maximised window dimensions don't get
> passed to the resizer. Within the maximize event the scalewidth and
> scaleheight are both zero. It seems that the windows gets 
> maximized but
> the controls only restored.
> 
> Is this a known problem? It affects the Loft example code as well. Is
> there an accepted workaround?
> 
> Ta, Iain
> 
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by: OSDN - Tired of that same old
> cell phone?  Get a new here for FREE!
> https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Q: Resize problem maximising from windows toolbar

[Iain R. <iai...@gp...>]

[I'm new to to Win32::Gui so apologies if this is frequently asked. I
have searched the web and looked in FAQs etc but without finding an
answer]

I have a simple window created using Loft. It has a few controls which
move correctly when the window is resized (using the
Win32::GUI::Resizer). I can resize correctly with the drag handle
(bottom right).

If I minimise the window then maximize it from the toolbar I get a
fullscreen window but controls positioned as they were before I
minimised. It seems as if the maximised window dimensions don't get
passed to the resizer. Within the maximize event the scalewidth and
scaleheight are both zero. It seems that the windows gets maximized but
the controls only restored.

Is this a known problem? It affects the Loft example code as well. Is
there an accepted workaround?

Ta, Iain

[perl-win32-gui-users] Q: Resize problem maximising from windows toolbar

[Iain R. <iai...@gp...>]

[I'm new to to Win32::Gui so apologies if this is frequently asked. I
have searched the web and looked in FAQs etc but without finding an
answer]

I have a simple window created using Loft. It has a few controls which
move correctly when the window is resized (using the
Win32::GUI::Resizer). I can resize correctly with the drag handle
(bottom right).

If I minimise the window then maximize it from the toolbar I get a
fullscreen window but controls positioned as they were before I
minimised. It seems as if the maximised window dimensions don't get
passed to the resizer. Within the maximize event the scalewidth and
scaleheight are both zero. It seems that the windows gets maximized but
the controls only restored.

Is this a known problem? It affects the Loft example code as well. Is
there an accepted workaround?

Ta, Iain

[perl-win32-gui-users] WIN32 GUI vs TK

[Gossett, M. <mal...@ve...>]

Will Win32::GUI do things like radio buttons, check boxes, text boxes,
etc?
=20
Mal

Re: [perl-win32-gui-users] Fw: printing

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

Hi Darek

I use this NPRG module, and I receive this errormessages:
Use of uninitialized value in numeric gt (>) at
E:/Perl/site/lib/Win32/NPRG.pm line 89.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 198.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 202.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 206.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 210.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 225.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 225.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Win32/NPRG.pm line 225.
Use of uninitialized value in split at E:/Perl/site/lib/Win32/NPRG.pm line
140.
Do you know what is it? What do i wrong?
thanks
Gabor

----- Original Message -----
From: "Darek Adamkiewicz" <dar...@eu...>
To: "gabor.borus" <gab...@fr...>
Sent: Thursday, August 29, 2002 11:18 AM
Subject: Re: [perl-win32-gui-users] Fw: printing


>
> ----- Original Message -----
> From: "gabor.borus" <gab...@fr...>
> Date: Thu, 29 Aug 2002 09:11:58 +0200
> To: "Perl List" <per...@li...>
> Subject:  [perl-win32-gui-users] Fw: printing
>
>
> > > > > Hi!
> > > > >
> > > > > Thanks. Have you got any example script, that can print anything
to a
> > > > > printer?
> > > >
> > > > Yes. But on the other computer then I use now.
> > > > So I'll send it to you in one day or two. It's fairly simple.
Another
> > > solution:
> > > > search this mailing list - I posted here example code 3 or 4 months
ago.
> > > >
> > > > Regards
> > > > Darek
> > >
> >  Thanks Darek
> >  Please, send me. This is a simpler for me.
> >
>
> Below is modfied example code I found in NPRG manpage  (It came with
> package installed from ActiveState repository). It works (on Win98,
> ASPerl, very cheap 9-pin local printer).
>
> #!/usr/bin/perl -w
>
> use ExtUtils::testlib;
> use Win32::Wingraph;
> use Win32::NPRG qw(drawmatrix);
>
> $dc = new Win32::Wingraph(device=>"Panasonic KX-P1150",  desc=>'test') or
> die; #orientation=>'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 !!!,
> # 0-westerneuropean, 238-polish, I don't know the hungarian ;(
> $dc->SetFont("Times New Roman Bold, 12, 0");
> $dc->TextOut(70, 180, "Blah blah blah");
> $dc->MoveTo(70, 200);
> $dc->LineTo(270, 200);
>
> print "Start\n";
>
> $rp=new NPRG(dc=>$dc);
> $rp->{'atbreak'} =
>  sub {
>          $rp->pushq({font=>'Times, 6, 0', opt=>'R', border=>'B',
> value=>'Very wisdom report about something '.$rp->pagenum(), width=>980}
>                             );
>                 $rp->pushq({height=>20, value=>' ', width=>100}
>                             );
>                 $rp->pushq({font=>'Arial italic, 16, 0', opt=>'-L',
> border=>'TBLR', value=>"Some header", width=>300, brush=>220},
>                             {font=>'Courier Bold, 12, 0', opt=>'-C',
> border=>'TBLR', value=>"Another header", width=>250, brush=>220},
>                             {value=>\&NPRG::drawmatrix, width=>400,
>                      matrix=>[
>                                   [ {font=>'Arial Bold Italic, 12',
> value=>'Month', border=>'TBLR', opt=>'C'}],
>                                   [
>                                       {font=>'Times New Roman,8',
> value=>'I', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,8',
> value=>'II', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,8',
> value=>'III', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,8',
> value=>'IV', border=>'TBLR', opt=>'-C'},
>                                   ],
>                                   [
>                                       {font=>'Times New Roman,7',
> value=>'I', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'II', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'III', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'IV', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'V', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'VI', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'VII', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'VIII', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'IX', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'X', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'XI', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'XII', border=>'TBLR', opt=>'-C'},
>                                    ]
>                                 ],
>                              }
>                             );
>                   $rp->pushq({width=>950, height=>3, brush=>0});
>                   $rp->flushq();
>                   print "Here\n";
>                };
>
> $rp->flushq();
> print "End\n";
>
> #================================================================
> In addition
> The following code is a part of source code from the message:
> (it works for me)
>
> #!perl -w
> use strict;
> # Win32::API GDI printer test code
>
> use Win32::API;
>
> my $PrintDialog = new Win32::API('comdlg32', 'PrintDlg', ['P'],  'N');
> my $GlobalLock = new Win32::API('kernel32', 'GlobalLock', ['N'], 'N');
> my $GlobalFree = new Win32::API('kernel32', 'GlobalFree', ['N'],
> 'N');
> my $GetDeviceCaps = new Win32::API('gdi32', 'GetDeviceCaps',
> ['N','N'], 'N');
> my $GetTextMetrics = new Win32::API('gdi32', 'GetTextMetrics',
> ['N','P'], 'N');
> my $StartDoc = new Win32::API('gdi32', 'StartDoc', ['N', 'P'] , 'N');
> my $StartPage = new Win32::API('gdi32', 'StartPage', ['N'], 'N');
> my $TextOut = new Win32::API('gdi32', 'TextOut',
> ['N','I','I','P','I'], 'N');
> my $EndPage = new Win32::API('gdi32', 'EndPage', ['N'], 'N');
> my $EndDoc = new Win32::API('gdi32', 'EndDoc', ['N'], 'N');
> my $GetLastError =   new Win32::API('kernel32', 'GetLastError',   [],
> 'N');
> my $FormatMessage =  new Win32::API('kernel32', 'FormatMessage',
> ['N','P','N','N','P','N','P'],'N');
>
> sub ShowError {
>    my $function = shift;
>    my $message = " " x 1024;
>    $FormatMessage->Call(0x1000, 0, $GetLastError->Call(), 0,
> $message, 1024, 0);
>    $message =~ 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 = pack("Lx16Lx42", 66, 0x140); # pd_size, flags =
> RETURNDC | PRINTSETUP
> $PrintDialog->Call($pd) or die "Cancelled\n";
> # get device mode and device context
> my ($devmode, $dc) = 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 = $devmode;
> # get actual memory pointer
> unless ($devmode = $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 = unpack('P104', pack('L', $devmode));
> # release the global memory
> unless ($GlobalFree->Call($handle) == 0) {ShowError('GlobalFree')};
> # these strings are blank padded
> my ($devicename, $orient, $duplex, $formname) =
> unpack('A32x12Sx16Sx6A32', $devmode);
> $orient = ('Portrait', 'Landscape')[--$orient];
> $duplex = ('', 'Duplex')[$duplex > 1];
> print "Printing to $devicename on $formname paper, $orient
> $duplex\n";
>
> ------------------------
> 2)To print DC object containing text and lines I use
> Win32::NPRG (and its base Win32::Wingraph) modules - which
> can generate EMF format file (sent directly to the printer or
> saved) - but there isn't possible to embed image object in the file
> (using this module)
>
> Regards
> Darek
> --
> __________________________________________________________
> Sign-up for your own FREE Personalized E-mail at Mail.com
> http://www.mail.com/?sr=signup
>
>
>
>

Re: [perl-win32-gui-users] Fw: printing

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

Hi Darek!

It's great. This API call is fantastic, is there, someweher more description
for this API call? It will be greate, if I can use this Stardoc... objects.
Regards
Gabor


----- Original Message -----
From: "Darek Adamkiewicz" <dar...@eu...>
To: "gabor.borus" <gab...@fr...>
Sent: Thursday, August 29, 2002 11:18 AM
Subject: Re: [perl-win32-gui-users] Fw: printing


>
> ----- Original Message -----
> From: "gabor.borus" <gab...@fr...>
> Date: Thu, 29 Aug 2002 09:11:58 +0200
> To: "Perl List" <per...@li...>
> Subject:  [perl-win32-gui-users] Fw: printing
>
>
> > > > > Hi!
> > > > >
> > > > > Thanks. Have you got any example script, that can print anything
to a
> > > > > printer?
> > > >
> > > > Yes. But on the other computer then I use now.
> > > > So I'll send it to you in one day or two. It's fairly simple.
Another
> > > solution:
> > > > search this mailing list - I posted here example code 3 or 4 months
ago.
> > > >
> > > > Regards
> > > > Darek
> > >
> >  Thanks Darek
> >  Please, send me. This is a simpler for me.
> >
>
> Below is modfied example code I found in NPRG manpage  (It came with
> package installed from ActiveState repository). It works (on Win98,
> ASPerl, very cheap 9-pin local printer).
>
> #!/usr/bin/perl -w
>
> use ExtUtils::testlib;
> use Win32::Wingraph;
> use Win32::NPRG qw(drawmatrix);
>
> $dc = new Win32::Wingraph(device=>"Panasonic KX-P1150",  desc=>'test') or
> die; #orientation=>'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 !!!,
> # 0-westerneuropean, 238-polish, I don't know the hungarian ;(
> $dc->SetFont("Times New Roman Bold, 12, 0");
> $dc->TextOut(70, 180, "Blah blah blah");
> $dc->MoveTo(70, 200);
> $dc->LineTo(270, 200);
>
> print "Start\n";
>
> $rp=new NPRG(dc=>$dc);
> $rp->{'atbreak'} =
>  sub {
>          $rp->pushq({font=>'Times, 6, 0', opt=>'R', border=>'B',
> value=>'Very wisdom report about something '.$rp->pagenum(), width=>980}
>                             );
>                 $rp->pushq({height=>20, value=>' ', width=>100}
>                             );
>                 $rp->pushq({font=>'Arial italic, 16, 0', opt=>'-L',
> border=>'TBLR', value=>"Some header", width=>300, brush=>220},
>                             {font=>'Courier Bold, 12, 0', opt=>'-C',
> border=>'TBLR', value=>"Another header", width=>250, brush=>220},
>                             {value=>\&NPRG::drawmatrix, width=>400,
>                      matrix=>[
>                                   [ {font=>'Arial Bold Italic, 12',
> value=>'Month', border=>'TBLR', opt=>'C'}],
>                                   [
>                                       {font=>'Times New Roman,8',
> value=>'I', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,8',
> value=>'II', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,8',
> value=>'III', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,8',
> value=>'IV', border=>'TBLR', opt=>'-C'},
>                                   ],
>                                   [
>                                       {font=>'Times New Roman,7',
> value=>'I', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'II', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'III', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'IV', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'V', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'VI', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'VII', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'VIII', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'IX', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'X', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'XI', border=>'TBLR', opt=>'-C'},
>                                       {font=>'Times New Roman,7',
> value=>'XII', border=>'TBLR', opt=>'-C'},
>                                    ]
>                                 ],
>                              }
>                             );
>                   $rp->pushq({width=>950, height=>3, brush=>0});
>                   $rp->flushq();
>                   print "Here\n";
>                };
>
> $rp->flushq();
> print "End\n";
>
> #================================================================
> In addition
> The following code is a part of source code from the message:
> (it works for me)
>
> #!perl -w
> use strict;
> # Win32::API GDI printer test code
>
> use Win32::API;
>
> my $PrintDialog = new Win32::API('comdlg32', 'PrintDlg', ['P'],  'N');
> my $GlobalLock = new Win32::API('kernel32', 'GlobalLock', ['N'], 'N');
> my $GlobalFree = new Win32::API('kernel32', 'GlobalFree', ['N'],
> 'N');
> my $GetDeviceCaps = new Win32::API('gdi32', 'GetDeviceCaps',
> ['N','N'], 'N');
> my $GetTextMetrics = new Win32::API('gdi32', 'GetTextMetrics',
> ['N','P'], 'N');
> my $StartDoc = new Win32::API('gdi32', 'StartDoc', ['N', 'P'] , 'N');
> my $StartPage = new Win32::API('gdi32', 'StartPage', ['N'], 'N');
> my $TextOut = new Win32::API('gdi32', 'TextOut',
> ['N','I','I','P','I'], 'N');
> my $EndPage = new Win32::API('gdi32', 'EndPage', ['N'], 'N');
> my $EndDoc = new Win32::API('gdi32', 'EndDoc', ['N'], 'N');
> my $GetLastError =   new Win32::API('kernel32', 'GetLastError',   [],
> 'N');
> my $FormatMessage =  new Win32::API('kernel32', 'FormatMessage',
> ['N','P','N','N','P','N','P'],'N');
>
> sub ShowError {
>    my $function = shift;
>    my $message = " " x 1024;
>    $FormatMessage->Call(0x1000, 0, $GetLastError->Call(), 0,
> $message, 1024, 0);
>    $message =~ 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 = pack("Lx16Lx42", 66, 0x140); # pd_size, flags =
> RETURNDC | PRINTSETUP
> $PrintDialog->Call($pd) or die "Cancelled\n";
> # get device mode and device context
> my ($devmode, $dc) = 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 = $devmode;
> # get actual memory pointer
> unless ($devmode = $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 = unpack('P104', pack('L', $devmode));
> # release the global memory
> unless ($GlobalFree->Call($handle) == 0) {ShowError('GlobalFree')};
> # these strings are blank padded
> my ($devicename, $orient, $duplex, $formname) =
> unpack('A32x12Sx16Sx6A32', $devmode);
> $orient = ('Portrait', 'Landscape')[--$orient];
> $duplex = ('', 'Duplex')[$duplex > 1];
> print "Printing to $devicename on $formname paper, $orient
> $duplex\n";
>
> ------------------------
> 2)To print DC object containing text and lines I use
> Win32::NPRG (and its base Win32::Wingraph) modules - which
> can generate EMF format file (sent directly to the printer or
> saved) - but there isn't possible to embed image object in the file
> (using this module)
>
> Regards
> Darek
> --
> __________________________________________________________
> Sign-up for your own FREE Personalized E-mail at Mail.com
> http://www.mail.com/?sr=signup
>
>
>
>

[perl-win32-gui-users] Fw: printing

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

> > > Hi!
> > >
> > > Thanks. Have you got any example script, that can print anything to a
> > > printer?
> >
> > Yes. But on the other computer then I use now.
> > So I'll send it to you in one day or two. It's fairly simple. Another
> solution:
> > search this mailing list - I posted here example code 3 or 4 months ago.
> >
> > Regards
> > Darek
>
 Thanks Darek
 Please, send me. This is a simpler for me.

Regards
Gabor

Re: [perl-win32-gui-users] Fw: printing

[szorgitorp <szo...@fr...>]

>
> > Hi!
> >
> > Thanks. Have you got any example script, that can print anything to a
> > printer?
>
> Yes. But on the other computer then I use now.
> So I'll send it to you in one day or two. It's fairly simple. Another
solution:
> search this mailing list - I posted here example code 3 or 4 months ago.
>
> Regards
> Darek

Thanks Darek
Please, send me. This is a simpler for me.

Regards
Gabor

Re: [perl-win32-gui-users] right click menu items

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

At 11:48 2002-08-28 +1000, moo cow wrote:
 > he main problem is how do I detect a right click on a menu (Such as the 
Exit option
 > on the File menu found in most windows programs)?

Yes, difficult. Not sure it can be done without hacking the XS to allow the 
event to be recognized. There's a "general" Win32::GUI catch-all event 
handler that's called... what? Anyone?


 > Also, to create the menu in your example I'd do;
 > $Menu =  Win32::GUI::MakeMenu(
 >      "Popup Menu" => "PopUpMenu",
 >     ">  &Edit"    => "PopupEdit",
 >     ">  Exit" => "PopupExit",
 > );

 From reading the code, I think i remember that MakeMenu() parses the text 
and determines the level by indentation. Consider this:

$Menu =  Win32::GUI::MakeMenu(
     "Popup Menu" => "PopUpMenu",
     " >  &Edit"    => "PopupEdit",
     " >  Exit" => "PopupExit",
);

(Do you see the difference? One space before the >)


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

Latest bookmark: "Outline for Requirements Specification"
http://www2.ccnmtl.columbia.edu/requirements.xml

Re: [perl-win32-gui-users] Problem looking for a solution

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

Syl wrote:
 > When you return -1 in any event sub, not just in _Terminate, your window
 > gets destroyed. Since you cannot exit the Dialog() loop other than
with -1,
 > there are but two ways to do it

But that is my problem. I return(-1) to Setup() but the window is not
terminated by _Terminate or OKbutton_Click. Why?

 From an event handler...

* Returning 1 continues the "normal" action. For Terminate, this is to 
destroy the Window IIRC.

  * Returning 0 prevents the "normal" action from taking place.

* Returning -1 will exit the main loop.

So what happens in the usual Win32::GUI program is that -1 exits the main 
loop, and then the _program_ terminates, cleaning up the windows as it 
exits. That is probably why your windows stay there.


In fact I want to destroy the window after I gather the data (faults and all
:) and reconstruct the window with some error messaging stuff displayed. Or
can I ->Hide(), reconstruct and then ->Show()?

I don't think that's the best way of doing it. Why destroy the windows at all?

What you want to do--after the Ok or Cancel is pressed--is to Hide() the 
window, validate the input, and then Show() the same window with some added 
error messages. Note that the values the user wrote a minute ago is still 
there in the controls. Which is what the user wants, so this is a Good 
Thing! :)

Pseudo:

main
   Create window
   Init window (clear error msg label)
   Win32::GUI::Dialog()
   Do stuff with entered values if Ok was pressed.
   Exit

win_Terminate and cancel_Click
   win->Hide()
   return -1 to exit main loop

ok_Click
   If values ok
      win->Hide()
      set status flag = ok, and save entered values
      return -1
   else
      put error message in label
    return 0 (or 1, it may not matter at all)


That's it.

A cool thing would be to put the error message label at the bottom of the 
Dialog window, and if/when it needs to be displayed, you enlarge the window 
to make it visible (once). (Make sure it's entirely visible within the 
screen/desktop window, either by placing it in the middle of the screen, or 
by checking the coords.) Example of program that does this: PGP Disk (when 
you enter the wrong password).

Another cool thing would be to put the error message/hint just beside the 
affected input control, and highlight/SetFocus to the first offending input 
control, to make it easy for the user to a) see what's wrong, and b) change 
the input. You can see this in many well designed web forms.


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

Latest bookmark: "Outline for Requirements Specification"
http://www2.ccnmtl.columbia.edu/requirements.xml

[perl-win32-gui-users] How to do it

[Syl <jk...@sk...>]

I posted a note yesterday but did not get a satisfactory answer to my
question. Let me rephrase the problem as follows.

Assume I have window created with Win32::GUI that is used to collect some
initialization data from the user. The window contains a number of labels
and textfields plus an OK and a CANCEL button. The CANCEL button terminates
the window.

I want the OK_Click sub to check the textfields for valid input. If the
input is valid terminate the window. If the input has errors make the an
Error label in the GUI window visible and change the Error Label Text to the
name of the error.

What is the best way to accomplish this task?


Syl