RE: [perl-win32-gui-users] Dc to the printer
I don't remember where I found this module, but I Included here if anyone wants to try to do something with it. This not use gui interface. The code that Darek Adamkiewics put in this list works correctly, this gui is done in order to select the Printer. Well, I have an image, I know the printer, but I still don't know how to print the image The demo works correctly. Darek tals about Win32::NPRG but I think this can not use the DC that is made with Win32::GUI. Some people say that is possible to send an image to the Internet Explorer and print whit it, but for instance in my computer, some typr of images are reopened with graphic programs (imaging,photo editor,...). I have also tried CreateEnhMetaFile of Win32::GUI (0.552) and it cracks. Any other ideas to send a file image to the printer ? <>
Re: [perl-win32-gui-users] Dc to the printer
Hello! > I don't remember where I found this module, but I Included here if anyone > wants to try to do something with it. This not use gui interface. Perhaps you found it there: http://tmtowtdi.com/ :-) I did a search with google. Regards, Peter > -Ursprüngliche Nachricht- > Von: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Auftrag von > Guillem Cunillera Wefers > Gesendet am: Montag, 29. April 2002 11:39 > An: [EMAIL PROTECTED] > Cc: perlwin32gui > Betreff: RE: [perl-win32-gui-users] Dc to the printer > > I don't remember where I found this module, but I Included here if anyone > wants to try to do something with it. This not use gui interface. > > The code that Darek Adamkiewics put in this list works correctly, this gui > is done in order to select the Printer. Well, I have an image, I know the > printer, but I still don't know how to print the image > The demo works correctly. > Darek tals about Win32::NPRG but I think this can not use the DC that is > made with Win32::GUI. > Some people say that is possible to send an image to the Internet Explorer > and print whit it, but for instance in my computer, some typr of images are > reopened with graphic programs (imaging,photo editor,...). > I have also tried CreateEnhMetaFile of Win32::GUI (0.552) and it cracks. > > Any other ideas to send a file image to the printer ? >
[perl-win32-gui-users] RichEdit in a pm module
In my program I want to put some helps windows. I thinked of using RichEdit in
order to Include some rtf files, but when I used in a pm modules the var thats
is used to created the RichEdit is don't recognised, for example:
our $Textbox = new Win32::GUI::RichEdit($w_principal,-name =>
"Mailtool::seleccio::Textbox");
$Textbox->Load("richedit.rtf");
I have also tried AddRichEdit. Any method I used over $Textbox fails, and this
problem doesn't appear in the other widgets I used. Any solution for this
problem ? Any alternatives to include a help text ? I can accept html or other
type of file.
Guillem Cunillera i Wefers.
RE: [perl-win32-gui-users] RichEdit in a pm module
Yes , in others pm modules I use Win32::OLE. Then, there is any other
primitive(?) than "use" in Perl that resolves this problem ?
As are you see...the problem could be Win32::OLE and no the pm module.
Regards,
Guillem
-Mensaje original-
De: Peter Köller <[EMAIL PROTECTED]>
Para: Guillem Cunillera Wefers <[EMAIL PROTECTED]>;
[EMAIL PROTECTED] <[EMAIL PROTECTED]>
Fecha: dilluns, 29 / abril / 2002 12:26
Asunto: Re: [perl-win32-gui-users] RichEdit in a pm module
>Hello,
>
>do you use Win32::OLE in your script, too? I found some problems regarding
>Win32::GUI in conjunction with Win32::OLE. The use of both together made
the
>Richedit widget inaccessible. This malfunction still exists in Win32::GUI
665
>or should I say Win32::OLE xxx (Aldo, what do you mean? To which package
>belongs this problem.). Removing Win32::GUI made the Richedit accessible,
but
>that's no solution when you need Win32::OLE.
>
>Regards,
>
>Peter
>
>
>-Ursprüngliche Nachricht-
>Von: [EMAIL PROTECTED]
>[mailto:[EMAIL PROTECTED] Auftrag von
>Guillem Cunillera Wefers
>Gesendet am: Montag, 29. April 2002 12:07
>An: perlwin32gui
>Betreff: [perl-win32-gui-users] RichEdit in a pm module
>
>In my program I want to put some helps windows. I thinked of using RichEdit
in
>order to Include some rtf files, but when I used in a pm modules the var
thats
>is used to created the RichEdit is don't recognised, for example:
>
>our $Textbox = new Win32::GUI::RichEdit($w_principal,-name =>
>"Mailtool::seleccio::Textbox");
>$Textbox->Load("richedit.rtf");
>I have also tried AddRichEdit. Any method I used over $Textbox fails, and
this
>problem doesn't appear in the other widgets I used. Any solution for this
>problem ? Any alternatives to include a help text ? I can accept html or
other
>type of file.
>Guillem Cunillera i Wefers.
>
>
Re: [perl-win32-gui-users] RichEdit in a pm module
Hello Guillem,
I tried searching the web and activestate's mailling lists last year for this
problem. Nothing found.
Perhaps you might use a multiline textfield instead of richedit. But so you
can't use the rtf features. Another idea could be Windows Help Files? Perhaps
somebody has an approach or ressources for tutorials?
Regards,
Peter
> -Ursprüngliche Nachricht-
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Auftrag von
> Guillem Cunillera Wefers
> Gesendet am: Montag, 29. April 2002 12:39
> An: perlwin32gui
> Betreff: RE: [perl-win32-gui-users] RichEdit in a pm module
>
> Yes , in others pm modules I use Win32::OLE. Then, there is any other
> primitive(?) than "use" in Perl that resolves this problem ?
>
> As are you see...the problem could be Win32::OLE and no the pm module.
>
> Regards,
>
> Guillem
>
> -Mensaje original-
> De: Peter Köller <[EMAIL PROTECTED]>
> Para: Guillem Cunillera Wefers <[EMAIL PROTECTED]>;
> [EMAIL PROTECTED] <[EMAIL PROTECTED]>
> Fecha: dilluns, 29 / abril / 2002 12:26
> Asunto: Re: [perl-win32-gui-users] RichEdit in a pm module
>
>
> >Hello,
> >
> >do you use Win32::OLE in your script, too? I found some problems regarding
> >Win32::GUI in conjunction with Win32::OLE. The use of both together made
> the
> >Richedit widget inaccessible. This malfunction still exists in Win32::GUI
> 665
> >or should I say Win32::OLE xxx (Aldo, what do you mean? To which package
> >belongs this problem.). Removing Win32::GUI made the Richedit accessible,
> but
> >that's no solution when you need Win32::OLE.
> >
> >Regards,
> >
> >Peter
> >
> >
> >-Ursprüngliche Nachricht-
> >Von: [EMAIL PROTECTED]
> >[mailto:[EMAIL PROTECTED] Auftrag von
> >Guillem Cunillera Wefers
> >Gesendet am: Montag, 29. April 2002 12:07
> >An: perlwin32gui
> >Betreff: [perl-win32-gui-users] RichEdit in a pm module
> >
> >In my program I want to put some helps windows. I thinked of using RichEdit
> in
> >order to Include some rtf files, but when I used in a pm modules the var
> thats
> >is used to created the RichEdit is don't recognised, for example:
> >
> >our $Textbox = new Win32::GUI::RichEdit($w_principal,-name =>
> >"Mailtool::seleccio::Textbox");
> >$Textbox->Load("richedit.rtf");
> >I have also tried AddRichEdit. Any method I used over $Textbox fails, and
> this
> >problem doesn't appear in the other widgets I used. Any solution for this
> >problem ? Any alternatives to include a help text ? I can accept html or
> other
> >type of file.
> >Guillem Cunillera i Wefers.
> >
> >
>
>
> ___
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
Re: [perl-win32-gui-users] RichEdit in a pm module
In my program I want to put some helps windows. I thinked of using RichEdit
in order to Include some rtf files, but when I used in a pm modules the var
thats is used to created the RichEdit is don't recognised, for example:
our $Textbox = new Win32::GUI::RichEdit($w_principal,-name =>
"Mailtool::seleccio::Textbox");
$Textbox->Load("richedit.rtf");
I have also tried AddRichEdit. Any method I used over $Textbox fails, and
this problem doesn't appear in the other widgets I used. Any solution for
this problem ? Any alternatives to include a help text ? I can accept html
or other type of file.
Guillem Cunillera i Wefers.
My guess is that the variable $Textbox is going out of scope, thanks to that
'our'. Try accessing it as
$w_principal->Mailtool::seleccio::Textbox
That package qualification may mess things up, though - you may have to say
$w_principal->{"Mailtool::seleccio::Textbox"}
Or you could try just removing the 'our'.
_
MSN Photos is the easiest way to share and print your photos:
http://photos.msn.com/support/worldwide.aspx
RE: [perl-win32-gui-users] RichEdit in a pm module
Sean,
I have tried different methods of use $Textbox var ,the same error appears,
for example using Load:
Can't call method "Load" on an undefined value at
C:/Perl/lib/Mailtool/seleccio.pm line 48.
I think Peter Köller is in the rigth way, because went I put out the
different "use" in the module then it works. And one of them is
Win32::OLE.But I can't do that...sniff !!
-Mensaje original-
De: Sean Healy <[EMAIL PROTECTED]>
Para: [EMAIL PROTECTED] <[EMAIL PROTECTED]>;
perl-win32-gui-users@lists.sourceforge.net
Fecha: dilluns, 29 / abril / 2002 14:41
Asunto: Re: [perl-win32-gui-users] RichEdit in a pm module
>>In my program I want to put some helps windows. I thinked of using
RichEdit
>>in order to Include some rtf files, but when I used in a pm modules the
var
>>thats is used to created the RichEdit is don't recognised, for example:
>>
>>our $Textbox = new Win32::GUI::RichEdit($w_principal,-name =>
>>"Mailtool::seleccio::Textbox");
>>
>>$Textbox->Load("richedit.rtf");
>>
>>I have also tried AddRichEdit. Any method I used over $Textbox fails, and
>>this problem doesn't appear in the other widgets I used. Any solution for
>>this problem ? Any alternatives to include a help text ? I can accept html
>>or other type of file.
>>
>>Guillem Cunillera i Wefers.
>
>My guess is that the variable $Textbox is going out of scope, thanks to
that
>'our'. Try accessing it as
>
>$w_principal->Mailtool::seleccio::Textbox
>
>That package qualification may mess things up, though - you may have to say
>
>$w_principal->{"Mailtool::seleccio::Textbox"}
>
>Or you could try just removing the 'our'.
>
>_
>MSN Photos is the easiest way to share and print your photos:
>http://photos.msn.com/support/worldwide.aspx
>
>
>___
>Perl-Win32-GUI-Users mailing list
>Perl-Win32-GUI-Users@lists.sourceforge.net
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
[perl-win32-gui-users] Is possible to modify LWP module in order to avoid a frozen window ?
Firstly thanks to Kevin in my problem of downloading web pages with LWP while Win32::GUI::Dialog is running. Maybe there is a solution using fork(), but this will implies a lot of changes of my code, and I don't have time to do it Another possibility I think is to modify LWP module in order to include Win32::GUI::DOEvents() inside the different datagramas requests that the protocol TCP/IP uses. That will reduce the time on the frozen window. Is possible to do that in the binary distribution of LWP? How ? Maybe this is not the correct mailing list to question that... Maybe I'm doing too much questions in perlwin32gui maling list...is not my intention to capitalise this mailing list, excuses to the rest of people, Regards from Catalonia, Guillem
Re: [perl-win32-gui-users] Is possible to modify LWP module in order to avoid a frozen window ?
Sorry if this was already said, but I haven't had time to pay much
attention lately, and this post caught my interest. I originally wrote
this for a program I never released. Some of what it does may or may
not be helpful, just edit it to suit your needs.
ok, heres the simple way to keep your dialog active:
my $total = 0;
my $expected;
my $result = "";
$UA->request(HTTP::Request->new(GET=>'www.whatever.com'),
sub {
my($chunk,$res) = @_;
#Total amount of data downloaded
$total += length($chunk);
#Not important unless you are using the below if statement for
a status or progress bar.
unless(defined $expected){
$expected = $res->content_length || 0;
}
#Add the new data to the old data.
$result .= $chunk;
#In this program, I had a status bar, and I was reporting the
progress on it, could also be used with a progress bar... Remove if not
needed.
if($expected){
$win->StatusBar->Text("Rescieving: $total / $expected");
}else{
$win->StatusBar->Text("Rescieving: $total / ???");
}
#This is the key! Keeps the window alive.
Win32::GUI::DoEvents() >= 0 or exit;
});
I'm afraid I can't go into much detail at the moment to explain it, but
if you have any questions, feel free to ask.
begin:vcard
n:Couchman;Stephen
x-mozilla-html:TRUE
url:http://guildms.sourceforge.net
org:United Online Entertainment;GMS
adr:;;;Pittsfield;Mass;01201;USA
version:2.1
email;internet:[EMAIL PROTECTED]
title:Lead Programmer
fn:Stephen "Flame" Couchman
end:vcard
[perl-win32-gui-users] TreeView & scrollbar
Hello!
My problem is about TreeView:
after an insertion of many nodes (and consequently, the scrollbar is at
the bottom of the Window) how can I put the scrollbar to the top?
$firstnode=$TV->InsertItem(
-text => "",
-image => 2,
-selectedimage => 2,
);
$TV->FirstVisible($firstnode); # does not work
$TV->Select($firstnode, 5); # does not work
I need something like the GotoLine for RichEdit.
Thanks in advance!
--
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d
RE: [perl-win32-gui-users] Dc to the printer
postscript?.maybe? "Guillem Cunillera To: <[EMAIL PROTECTED]> Wefers"cc: "perlwin32gui" <[EMAIL PROTECTED] uerra.org> Subject: RE: [perl-win32-gui-users] Dc to the printer 29/04/02 07:39 PM I don't remember where I found this module, but I Included here if anyone wants to try to do something with it. This not use gui interface. The code that Darek Adamkiewics put in this list works correctly, this gui is done in order to select the Printer. Well, I have an image, I know the printer, but I still don't know how to print the image The demo works correctly. Darek tals about Win32::NPRG but I think this can not use the DC that is made with Win32::GUI. Some people say that is possible to send an image to the Internet Explorer and print whit it, but for instance in my computer, some typr of images are reopened with graphic programs (imaging,photo editor,...). I have also tried CreateEnhMetaFile of Win32::GUI (0.552) and it cracks. Any other ideas to send a file image to the printer ? (See attached file: win32prt.zip) <>
RE: [perl-win32-gui-users] TreeView & scrollbar
> $TV->FirstVisible($firstnode); # does not work
> $TV->Select($firstnode, 5); # does not work
That's odd - I do $Main->Tree->Select($node) in my code and it sure works.
What are you trying to do with that second parameter, the 5? Could it be
that you have warnings off and the select never gets called because of a
parameter mismatch or something?
Maybe $Main->Tree->EnsureVisible($node) helps?
> $_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572
> ,,($_,$b)=
> split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pa
> ck'H24',$b
> ;chop$d,print$c.chr(32).$d
LOL!
OK, that one was actually easier to run than to read.
Re: [perl-win32-gui-users] TreeView & scrollbar
"Piske, Harald" wrote:
>
> > $TV->FirstVisible($firstnode); # does not work
> > $TV->Select($firstnode, 5); # does not work
>
> That's odd - I do $Main->Tree->Select($node) in my code and it sure works.
with $win->Tree->Select($firstnode);
In my application, the first node is selected, but the scrollbar
is always on the bottom!
> What are you trying to do with that second parameter, the 5? Could it be
> that you have warnings off and the select never gets called because of a
> parameter mismatch or something?
from the docs I read:
Select(NODE, [FLAG])
Selects the given NODE in the TreeView; the optional FLAG parameter can
be set to 5 if you want the selected NODE to become, if possible, the
first visible item in the TreeView. If NODE is 0 (zero), the selected
item, if any, is deselected.
> Maybe $Main->Tree->EnsureVisible($node) helps?
no! :(
> LOL!
> OK, that one was actually easier to run than to read.
:)))
Thanks for the answer!
--
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d
RE: [perl-win32-gui-users] Is possible to modify LWP module in order to avoid a frozen window ?
Perfect !
Thanks !
I have readed lwpcook while I was understanding http and https but I didn't
pay attention in the last lines !!
If someone want to use it, the content is not $res->content !!! is the
concatenation(?) of all the $chunk's.
This is not the best way of resolving the frozen window, but It works good.
Thanks again !
-Mensaje original-
De: Flame <[EMAIL PROTECTED]>
Para: Guillem Cunillera Wefers <[EMAIL PROTECTED]>
CC: perlwin32gui
Fecha: dilluns, 29 / abril / 2002 21:01
Asunto: Re: [perl-win32-gui-users] Is possible to modify LWP module in order
to avoid a frozen window ?
>Sorry if this was already said, but I haven't had time to pay much
>attention lately, and this post caught my interest. I originally wrote
>this for a program I never released. Some of what it does may or may
>not be helpful, just edit it to suit your needs.
>
>ok, heres the simple way to keep your dialog active:
>
>my $total = 0;
>my $expected;
>my $result = "";
>$UA->request(HTTP::Request->new(GET=>'www.whatever.com'),
> sub {
>
> my($chunk,$res) = @_;
>
> #Total amount of data downloaded
> $total += length($chunk);
>
> #Not important unless you are using the below if statement for
>a status or progress bar.
> unless(defined $expected){
>$expected = $res->content_length || 0;
> }
>
>#Add the new data to the old data.
>$result .= $chunk;
>
> #In this program, I had a status bar, and I was reporting the
>progress on it, could also be used with a progress bar... Remove if not
>needed.
> if($expected){
>$win->StatusBar->Text("Rescieving: $total / $expected");
> }else{
>$win->StatusBar->Text("Rescieving: $total / ???");
> }
>
> #This is the key! Keeps the window alive.
> Win32::GUI::DoEvents() >= 0 or exit;
>
> });
>
>I'm afraid I can't go into much detail at the moment to explain it, but
>if you have any questions, feel free to ask.
>
RE: [perl-win32-gui-users] Dc to the printer
...mm... I think .jpg file is a good end (with Win32::DIBitmap) and if some user of my application wants to print, then he has to opened with his default image program. I have tried, but I don't want to die for this Guillem -Mensaje original- De: [EMAIL PROTECTED] <[EMAIL PROTECTED]> Para: Guillem Cunillera Wefers <[EMAIL PROTECTED]> CC: [EMAIL PROTECTED] <[EMAIL PROTECTED]>; perlwin32gui Fecha: dimarts, 30 / abril / 2002 00:00 Asunto: RE: [perl-win32-gui-users] Dc to the printer > >postscript?.maybe? > > > >"Guillem >Cunillera To: <[EMAIL PROTECTED]> >Wefers"cc: "perlwin32gui" ><[EMAIL PROTECTED] >uerra.org> Subject: RE: [perl-win32-gui-users] Dc to the > printer >29/04/02 07:39 >PM > > > > > >I don't remember where I found this module, but I Included here if anyone >wants to try to do something with it. This not use gui interface. > >The code that Darek Adamkiewics put in this list works correctly, this gui >is done in order to select the Printer. Well, I have an image, I know the >printer, but I still don't know how to print the image >The demo works correctly. >Darek tals about Win32::NPRG but I think this can not use the DC that is >made with Win32::GUI. >Some people say that is possible to send an image to the Internet Explorer >and print whit it, but for instance in my computer, some typr of images are >reopened with graphic programs (imaging,photo editor,...). >I have also tried CreateEnhMetaFile of Win32::GUI (0.552) and it cracks. > >Any other ideas to send a file image to the printer ? > >(See attached file: win32prt.zip) > >
