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

[perl-win32-gui-users] imagelist and icon format

[Alex L. <sim...@ya...>]

Hi, does anyone know if there is a way to load an icon into a image list like such, without 
first converting it to bitmap format with DIBitmap:

## code
my $IL = new GUI::ImageList(16, 16, 24, 5, 10);
$IL->Add('foo.ico');

tried but image did not work. 

thanks in advance. 
Alex ;)




=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Health - your guide to health and wellness
http://health.yahoo.com

Re: [perl-win32-gui-users] Extracting and displaying Icon

[Alex L. <sim...@ya...>]

Hi, I try doing what you said: 

my $dib = newFromBitmap Win32::GUI::DIBitmap ($hIcon) or die "no $!";

and it did not work (died)--do you know of any oher way? 

thanks. 
Alex ;)
--- Laurent ROCHER <ro...@cl...> wrote:
> Alex Lee wrote:
> > I tried DIBitmap but that did not work nither.  
> > 
> > ### code
> > use Win32::GUI::DIBitmap;
> > my $dib = newFromData Win32::GUI::DIBitmap ($hIcon) or die "no $!";
> > ###
> 
>     If you need use DIBitmap, try with newFromBitmap.
> 
>     newFromBitmap work with handle like Win32::GUI (See Aldo reply).
> 
> Laurent.
> 


=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Health - your guide to health and wellness
http://health.yahoo.com

Re: [perl-win32-gui-users] Extracting and displaying Icon

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

Alex Lee wrote:
> I tried DIBitmap but that did not work nither.  
> 
> ### code
> use Win32::GUI::DIBitmap;
> my $dib = newFromData Win32::GUI::DIBitmap ($hIcon) or die "no $!";
> ###

    If you need use DIBitmap, try with newFromBitmap.

    newFromBitmap work with handle like Win32::GUI (See Aldo reply).

Laurent.

Re: [perl-win32-gui-users] Extracting and displaying Icon

[Aldo C. <dad...@al...>]

Alex Lee wrote:
> Hi all,
>
> Iam trying to extract an icon from a dll file like such:
>
> ######## code
> my $A = 0;
> my $B = 'shimgvw.dll';  ## I want icon 1 in this dll file
>
> my $apiExecute = new Win32::API("Shell32", "ExtractIcon", ['P','P','N'],
'N');
> my $hIcon= $apiExecute->Call($A,$B,1);
>
> ########
>
> The problem is that the above method returns a handle (whatever that
means) to
> the icon.  I need a way to either convert the handle into an actual icon
or just
> display it.

you can already treat the handle as an actual icon. each GUI object that has
an
handle can be passed to Win32::GUI functions as it were a regular Win32::GUI
object. the only difference is that it's not blessed, so you can't call
methods
on it. so you can do for example:

  $Window->ChangeIcon( $hIcon );

the same applies to windows too, so you can do the following:

  my $hWnd = Win32::GUI::GetDesktopWindow();
  print Win32::GUI::Height($hWnd); #### but not $hWnd->Height();

the trick is that Win32 APIs *always* want handles as their parameters, so
Win32::GUI does the following: if the value is a reference (eg. a blessed
perl var), it fetches the {-handle} key from the underlying hash, otherwise
it uses the value as a numeric (eg. the handle itself).


cheers,
Aldo

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

[perl-win32-gui-users] Extracting and displaying Icon

[Alex L. <sim...@ya...>]

Hi all, 

Iam trying to extract an icon from a dll file like such:

######## code
my $A = 0;
my $B = 'shimgvw.dll';  ## I want icon 1 in this dll file
 
my $apiExecute = new Win32::API("Shell32", "ExtractIcon", ['P','P','N'], 'N');
my $hIcon= $apiExecute->Call($A,$B,1);

########

The problem is that the above method returns a handle (whatever that means) to the icon.  I need a
way to either convert the handle into an actual icon or just display it.  

I tried DIBitmap but that did not work nither.  

### code
use Win32::GUI::DIBitmap;
my $dib = newFromData Win32::GUI::DIBitmap ($hIcon) or die "no $!";

###

any help would be greatly appreciated.  

thanks. 

Alex ;)

=====
**************************
***** END OF MESSAGE *****

__________________________________________________
Do You Yahoo!?
Yahoo! Health - your guide to health and wellness
http://health.yahoo.com

Re: [perl-win32-gui-users] TreeView & scrollbar

[Andrea M. <mae...@fr...>]

> with $win->Tree->Select($firstnode);
> In my application, the first node is selected, but the scrollbar
> is always on the bottom!

now it works...
The change is that now $win->Tree->Select($firstnode); is at the
end of ALL insertion operations in the TreeView ... 2 different subs
make insertions... :)

Sorry & Thanks!

-- 
$_=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

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

...mmmmMMMMmm... 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: ma...@mm... <ma...@mm...>
Para: Guillem Cunillera Wefers <vac...@es...>
CC: ma...@mm... <ma...@mm...>; perlwin32gui
<per...@li...>
Fecha: dimarts, 30 / abril / 2002 00:00
Asunto: RE: [perl-win32-gui-users] Dc to the printer


>
>postscript?.........maybe?
>
>
>
>                    "Guillem
>                    Cunillera              To:     <ma...@mm...>
>                    Wefers"                cc:     "perlwin32gui"
>                    <vacarisses@esq
<per...@li...>
>                    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] Is possible to modify LWP module in order to avoid a frozen window ?

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

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 <gu...@us...>
Para: Guillem Cunillera Wefers <vac...@es...>
CC: perlwin32gui <per...@li...>
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] TreeView & scrollbar

[Andrea M. <mae...@fr...>]

"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:

<docs>
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. 
</docs>

 
> 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] TreeView & scrollbar

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

> $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] Dc to the printer

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

postscript?.........maybe?


                                                                                             
                    "Guillem                                                                 
                    Cunillera              To:     <ma...@mm...>                        
                    Wefers"                cc:     "perlwin32gui"                            
                    <vacarisses@esq        <per...@li...>      
                    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)

[perl-win32-gui-users] TreeView & scrollbar

[Andrea M. <mae...@fr...>]

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?

<code>
$firstnode=$TV->InsertItem(
    -text          => "", 
    -image         => 2, 
    -selectedimage => 2,
);

$TV->FirstVisible($firstnode); # does not work
$TV->Select($firstnode, 5); # does not work
</code>

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] Is possible to modify LWP module in order to avoid a frozen window ?

[Flame <gu...@us...>]

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.

[perl-win32-gui-users] Is possible to modify LWP module in order to avoid a frozen window ?

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

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] RichEdit in a pm module

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

Sean,

I have tried different methods of use $Textbox var ,the same error appear=
s,
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=F6ller 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 <jal...@ho...>
Para: vac...@es... <vac...@es...>;
per...@li...
<per...@li...>
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 =3D new Win32::GUI::RichEdit($w_principal,-name =3D>
>>"Mailtool::seleccio::Textbox");
>>
>>$Textbox->Load("richedit.rtf");
>>
>>I have also tried AddRichEdit. Any method I used over $Textbox fails, a=
nd
>>this problem doesn't appear in the other widgets I used. Any solution f=
or
>>this problem ? Any alternatives to include a help text ? I can accept h=
tml
>>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
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] RichEdit in a pm module

[Sean H. <jal...@ho...>]

>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

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

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 y=
ou
can't use the rtf features. Another idea could be Windows Help Files? Per=
haps
somebody has an approach or ressources for tutorials?

Regards,

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im 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=F6ller <pko...@me...>
> Para: Guillem Cunillera Wefers <vac...@es...>;
> aca...@us... <aca...@us...>
> 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 regar=
ding
> >Win32::GUI in conjunction with Win32::OLE. The use of both together ma=
de
> 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 packa=
ge
> >belongs this problem.). Removing Win32::GUI made the Richedit accessib=
le,
> but
> >that's no solution when you need Win32::OLE.
> >
> >Regards,
> >
> >Peter
> >
> >
> >-----Urspr=FCngliche Nachricht-----
> >Von: per...@li...
> >[mailto:per...@li...]Im Auftrag vo=
n
> >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 Ric=
hEdit
> in
> >order to Include some rtf files, but when I used in a pm modules the v=
ar
> thats
> >is used to created the RichEdit is don't recognised, for example:
> >
> >our $Textbox =3D new Win32::GUI::RichEdit($w_principal,-name =3D>
> >"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 t=
his
> >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
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

RE: [perl-win32-gui-users] RichEdit in a pm module

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

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=F6ller <pko...@me...>
Para: Guillem Cunillera Wefers <vac...@es...>;
aca...@us... <aca...@us...>
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 regardi=
ng
>Win32::GUI in conjunction with Win32::OLE. The use of both together made
the
>Richedit widget inaccessible. This malfunction still exists in Win32::GU=
I
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=FCngliche Nachricht-----
>Von: per...@li...
>[mailto:per...@li...]Im 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 RichE=
dit
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 =3D new Win32::GUI::RichEdit($w_principal,-name =3D>
>"Mailtool::seleccio::Textbox");
>$Textbox->Load("richedit.rtf");
>I have also tried AddRichEdit. Any method I used over $Textbox fails, an=
d
this
>problem doesn't appear in the other widgets I used. Any solution for thi=
s
>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] RichEdit in a pm module

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

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 =3D new Win32::GUI::RichEdit($w_principal,-name =3D> =
"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] Dc to the printer

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

Hello!

> I don't remember where I found this module, but I Included here if anyo=
ne
> 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=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> Guillem Cunillera Wefers
> Gesendet am: Montag, 29. April 2002 11:39
> An: ma...@mm...
> 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 anyo=
ne
> 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 i=
s
> made with Win32::GUI.
> Some people say that is possible to send an image to the Internet Explo=
rer
> 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

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

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

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

theres a win32::printers module?



                                                                       =
                                            =20
                    "Guillem Cunillera Wefers"                         =
                                            =20
                    <vac...@es...>                     To:  =
   "perlwin32gui"                           =20
                    Sent by:                                      <perl=
-wi...@li...>     =20
                    per...@li...urc        cc:  =
                                            =20
                    eforge.net                                    Subje=
ct:     RE: [perl-win32-gui-users] Dc to the=20
                                                                  print=
er                                          =20
                                                                       =
                                            =20
                    27/04/02 09:19 PM                                  =
                                            =20
                                                                       =
                                            =20
                                                                       =
                                            =20




Well, I have use Win32::GUI::DIBitmap to make a image file  (.jpeg, .bm=
p,
etc)=A0and I have also find Win32::Printers. Does anybody done  a gui
interface with Win32::GUI in order to select the printer and print the
image ? Any ideas ?

this is the code that makes me my file:

$dibuix =3D newFromDC Win32::GUI::DIBitmap ($DC,0, 0, 700,  570);
$dibuix->SaveToFile
("imatge.jpg",Win32::GUI::FIF_JPEG,Win32::GUI::JPEG_QUALITYGOOD);




Thanks,

Guillem Cunillera i Wefers
-----Mensaje original-----
De:  Guillem Cunillera Wefers <vac...@es...>
Para:  perlwin32gui <per...@li...>
Fecha:  divendres, 26 / abril / 2002 17:53
Asunto:  [perl-win32-gui-users] Dc to the printer


Everybody knows=A0some way to=A0send a DC graphic to  the printer ?
I can accept taking all the Window.

Thanks.

Guillem Cunillera i  Wefers

=

[perl-win32-gui-users] read-only ComboBox

[Eugeniy O. <ogl...@on...>]

Hello All,

I need read-only ComboBox.
I wants that user could select value from dropdown list, but couldn't enter
new value.
I did not find nothing in docs

--
Best regards,
 Eugeniy                          mailto:ogl...@on...

RE: [perl-win32-gui-users] Dc to the printer

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

Well, I have use Win32::GUI::DIBitmap to make a image file (.jpeg, .bmp, =
etc) and I have also find Win32::Printers. Does anybody done a gui =
interface with Win32::GUI in order to select the printer and print the =
image ? Any ideas ?

this is the code that makes me my file:

$dibuix =3D newFromDC Win32::GUI::DIBitmap ($DC,0, 0, 700, 570);
$dibuix->SaveToFile("imatge.jpg",Win32::GUI::FIF_JPEG,Win32::GUI::JPEG_QU=
ALITYGOOD);
=20



Thanks,

Guillem Cunillera i Wefers
  -----Mensaje original-----
  De: Guillem Cunillera Wefers <vac...@es...>
  Para: perlwin32gui <per...@li...>
  Fecha: divendres, 26 / abril / 2002 17:53
  Asunto: [perl-win32-gui-users] Dc to the printer


  Everybody knows some way to send a DC graphic to the printer ?
  I can accept taking all the Window.

  Thanks.

  Guillem Cunillera i Wefers

RE: [perl-win32-gui-users] Listview with columns in a pm module doesn't work --->Resolved

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

Well, in this case, I resolved my problem changing  -style for =
-addstyle...

Guillem

  -----Mensaje original-----
  De: Guillem Cunillera Wefers <vac...@es...>
  Para: perlwin32gui <per...@li...>
  Fecha: divendres, 26 / abril / 2002 17:40
  Asunto: [perl-win32-gui-users] Listview with columns in a pm module =
doesn't work


  Today is one day that sometimes I feel I'm turning crazy ....

  I make a Listview in a simple program but when I put in my main =
program in a pm module ListView doesn't work (is don't show) and the =
complete name is done. This problem has not appear with other =
widgets...and before put a ListView there was a ListBox that worked =
well.

  Any ideas ???