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

[perl-win32-gui-users] win32:gui in a subroutine

[Pete <pe...@mu...>]

my $Win = new Win32::GUI::Window(
       -left   => 276,
       -top    => 365,
       -width  => 580,
       -height => 361,
       -name   => "Win",
       -text   => "Single Runner"
       );
       
 my $Bad_Results = new Win32::GUI::Window(
       -left   => 460,
       -top    => 372,
       -width  => 300,
       -height => 300,
       -name   => "Results",
       -text   => "Results"
       );
 
 $Win->AddButton(
        -text    => "Push Me!!",
        -name    => "Button_1",
        -left    => 200, 
        -top     => $Row,
        -width   => 150,
        -height  => 23,
        -foreground    => 0,
       );      

  sub Button_1_Click 
  { $Bad_Results->Show();}

The eror message is of the following
 
Variable "$Bad_Results" will not stay shared at rts_gui.pm line 435 (#1)
    (W closure) An inner (nested) named subroutine is referencing a
    lexical variable defined in an outer subroutine.
 
    When the inner subroutine is called, it will probably see the value of
    the outer subroutine's variable as it was before and during the *first*
    call to the outer subroutine; in this case, after the first call to the
    outer subroutine is complete, the inner and outer subroutines will no
    longer share a common value for the variable.  In other words, the
    variable will no longer be shared.
 
    Furthermore, if the outer subroutine is anonymous and references a
    lexical variable outside itself, then the outer and inner subroutines
    will never share the given variable.
 
    This problem can usually be solved by making the inner subroutine
    anonymous, using the sub {} syntax.  When inner anonymous subs that
    reference variables in outer subroutines are called or referenced, they
    are automatically rebound to the current values of such variables.
 

[perl-win32-gui-users] win32:gui as a subroutine

[Pete <pe...@mu...>]

I'm trying to get a routine running as either a subroutine or more ideally
an object(using strict and diagnostic). It works fine if it  is all in the
main body but once I put it in  a subroutine It generates errors when trying
to access the subroutine called from the "button Click" subroutine. So far I
can't see any way round this. I have include an extract below. Thanks in
advance.

my $Win = new Win32::GUI::Window(
       -left   => 276,
       -top    => 365,
       -width  => 580,
       -height => 361,
       -name   => "Win",
       -text   => "Single Runner"
       );

 my $Bad_Results = new Win32::GUI::Window(
       -left   => 460,
       -top    => 372,
       -width  => 300,
       -height => 300,
       -name   => "Results",
       -text   => "Results"
       );

 $Win->AddButton(
        -text    => "Push Me!!",
        -name    => "Button_1",
        -left    => 200,
        -top     => $Row,
        -width   => 150,
        -height  => 23,
        -foreground    => 0,
       );

  sub Button_1_Click
  { $Bad_Results->Show();}

The eror message is of the following

Variable "$Bad_Results" will not stay shared at rts_gui.pm line 435 (#1)
    (W closure) An inner (nested) named subroutine is referencing a
    lexical variable defined in an outer subroutine.

    When the inner subroutine is called, it will probably see the value of
    the outer subroutine's variable as it was before and during the *first*
    call to the outer subroutine; in this case, after the first call to the
    outer subroutine is complete, the inner and outer subroutines will no
    longer share a common value for the variable.  In other words, the
    variable will no longer be shared.

    Furthermore, if the outer subroutine is anonymous and references a
    lexical variable outside itself, then the outer and inner subroutines
    will never share the given variable.

    This problem can usually be solved by making the inner subroutine
    anonymous, using the sub {} syntax.  When inner anonymous subs that
    reference variables in outer subroutines are called or referenced, they
    are automatically rebound to the current values of such variables.

[perl-win32-gui-users] Win32::GUI::DIBitmap version 0.5

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

Hello,

I have release a new version of Win32::GUI::DIBitmap.

This module add :
    - new image format for loading and writing (JPEG,PNG,TIFF,...).
    - Convertion function
    - Display function (Copy / Stretch, aplha channel support)
    - Screen/Window capture
It's use FreeImage 2.5.0 library.

See more at : http://perso.club-internet.fr/rocherl/Win32GUI.html
(documentation, source code + sample, ppm package for ActivePerl 5.005 &
5.6)

Laurent ROCHER

[perl-win32-gui-users] use Win32; use Win32::GUI;

[Glenn L. <Gle...@ne...>]

Maybe everyone else already knew this, but I didn't:

The sequence

use Win32;
use Win32::GUI;

produces lots of redefinition warnings from the exporter, it appears,
but the sequence

use Win32::GUI;
use Win32;

does not.  Clearly the workaround is simple.  But I'm curious how Win32
is smarter than Win32::GUI in the way exporter is used or invoked.  I'd
rather not figure that out myself, as it isn't really important to me,
if someone already has figured it out and can explain it in simple
terms.

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

[perl-win32-gui-users] wrapping label text

[ed <co...@ya...>]

Hey all.. I'm writing my first win32::gui app..  
I Guess I'd have to say that I like it so far 
because looking at the clock I realize that I've been
sitting here 
reading and coding for 6 hours with only 2 quick trips
to restroom. Wheww..
I've run into a problem though.. 
I want to put a label on my window after the user
opens up a file to edit.  
It's a long string of text, it's the full path to the
file.
The label displays, but if it's too long it just runs
until it gets cut off
by the right border of the main window.
I've been searching docs and email archives and can't
seem to find the solution.  
I don't know if it matters, but I add the label from
the sub that handles the opening 
of the file.
Here's the relevent code.
---------- start code -------
if (-e "$OPENED_FILE") {
 print "$OPENED_FILE \n";
 my $text = "Currently editing file: $OPENED_FILE . ";
 $current_file_label = $main->AddLabel( 
		      -name => "current_file_label",
		      -left => 10,
		      -top => 10,
		      -text => $text,
                      -font => 'Arial',
		      -foreground => 0x000000,
		      -wrap => 1
			);

-------- end code --------

Any solutions or suggestions appreciated..

tia,
--ed



__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/

RE: [perl-win32-gui-users] Where find Docs ...

[Jason B. <jas...@gb...>]

If you download the source package and unpack it the tutorials, samples and
docs...

It is on the sourceforge page, or use the direct download
http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.558.tar.gz

-----Original Message-----
From: NAHUM Marc [mailto:mar...@re...]
Sent: Wednesday, 16 January 2002 7:41 PM
To: per...@li...
Subject: [perl-win32-gui-users] Where find Docs ...


Hello,
Who know a good web site to find docs on win32::GUI ?

Thanks



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Where find Docs ...

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

The docs should come with the download of the module. If not, I can send you
a zipped copy off-line, although mine are probably not the latest...

> -----Original Message-----
> From: NAHUM Marc [mailto:mar...@re...]
> Sent: Wednesday, January 16, 2002 04:41
> To: per...@li...
> Subject: [perl-win32-gui-users] Where find Docs ...
> 
> 
> Hello,
> Who know a good web site to find docs on win32::GUI ?
> 
> Thanks
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Where find Docs ...

[NAHUM M. <mar...@re...>]

Hello,
Who know a good web site to find docs on win32::GUI ?

Thanks

[perl-win32-gui-users] Dialog boxes & tab navigation

['Nathan M. <nm...@ja...>]

Another Win32::GUI newbie question incoming...

I'm trying to pop up a DialogBox over my main app window. If I specify a
"-parent" option it does the right thing - staying on top of the main app.
But tab navigation doesn't work within the dialog... unless I get rid
of the "-parent" option.

I'm doing the right things for tab navigation: setting "-tabstop"
for the components and, for that matter, setting a "-default" and a
"-cancel" component. And those things work if I create the DialogBox
without a parent. But none of them works if I create the DialogBox with
a parent. What am I missing here?

Nathan Meyers
nm...@ja...

Re: [perl-win32-gui-users] Keyboard accelerators possible?

[<Kev...@al...>]

Nathan,

I've never tried to use the accelerator key but Aldo's
Pride script does use Ctrl-G from within the RichEdit
field to bring up a dialog box to goto a particular line

I added a few things to this and the code looks like this

     sub Editor_KeyPress {
        my($key) = @_;
        if ($key == 6 ){          # Ctrl-F
           Find_Click();
        } elsif ($key == 7)  {    # Ctrl-G
           return 0;
        } elsif ($key == 14) {    # Ctrl-N
           FindNext_Click();
        } elsif ($key == 9)  {    # Tab
           return 0;
        } elsif ($key == 13) {    # Enter

          etc

where the RichEdit field is called Editor.  Something like that might do
what you want,
although the keys only work when the Editor field has focus.

Cheers,

Kev.

----------------------------------------------------------------------------------------------------------------------------
Hello,

I'm new to Win32::GUI and trying to solve a problem; I can't find a
thing about it in the mail archives.

Is it possible to define keyboard accelerators for menu items - not the
mnemonics used in conjunction with the Alt key, but the Ctrl characters
that dispatch to menu callbacks (commonly done in GUI applications)?

Nathan Meyers
nm...@ja...

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Keyboard accelerators possible?

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

From Gui.pm:
sub new {
    shift;
    my($k, $v);
    my $flag =3D 0;
    my $key =3D 0;
    my %accels =3D @_;
    while( ($k, $v) =3D each %accels) {
        $flag =3D 0;
        if($k =3D~ s/shift[-\+]//i)                { $flag |=3D 0x0004; =
}
        if($k =3D~ s/(ctrl|control)[-\+]//i)       { $flag |=3D 0x0008; =
}
        if($k =3D~ s/alt[-\+]//i)                  { $flag |=3D 0x0010; =
}

           if($k =3D~ /^space$/i)                  { $flag |=3D 0x0001; =
$key =3D 0x20; } # VK_SPACE
        elsif($k =3D~ /^left$/i)                   { $flag |=3D 0x0001; =
$key =3D 0x25; } # VK_LEFT
        elsif($k =3D~ /^right$/i)                  { $flag |=3D 0x0001; =
$key =3D 0x27; } # VK_RIGHT
        elsif($k =3D~ /^up$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x26; } # VK_UP
        elsif($k =3D~ /^down$/i)                   { $flag |=3D 0x0001; =
$key =3D 0x28; } # VK_DOWN
        elsif($k =3D~ /^ins$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x2D; } # VK_INSERT
        elsif($k =3D~ /^del$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x2E; } # VK_DELETE     =20
        elsif($k =3D~ /^f1$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x70; } # VK_F1
        elsif($k =3D~ /^f2$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x71; } # VK_F2
        elsif($k =3D~ /^f3$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x72; } # VK_F3
        elsif($k =3D~ /^f4$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x73; } # VK_F4
        elsif($k =3D~ /^f5$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x74; } # VK_F5
        elsif($k =3D~ /^f6$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x75; } # VK_F6
        elsif($k =3D~ /^f7$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x76; } # VK_F7
        elsif($k =3D~ /^f8$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x77; } # VK_F8
        elsif($k =3D~ /^f9$/i)                     { $flag |=3D 0x0001; =
$key =3D 0x78; } # VK_F9
        elsif($k =3D~ /^f10$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x79; } # VK_F10
        elsif($k =3D~ /^f11$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x7A; } # VK_F11
        elsif($k =3D~ /^f12$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x7B; } # VK_F12
        elsif($k =3D~ /^esc$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x1B; } # VK_ESCAPE
        elsif($k =3D~ /^backspace$/i)              { $flag |=3D 0x0001; =
$key =3D 0x08; } # VK_BACK
        elsif($k =3D~ /^tab$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x09; } # VK_TAB
        elsif($k =3D~ /^return$/i)                 { $flag |=3D 0x0001; =
$key =3D 0x0D; } # VK_RETURN
        elsif($k =3D~ /^end$/i)                    { $flag |=3D 0x0001; =
$key =3D 0x23; } # VK_END
        elsif($k =3D~ /^home$/i)                   { $flag |=3D 0x0001; =
$key =3D 0x24; } # VK_HOME
        elsif($k =3D~ /^(pgup|pageup)$/i)          { $flag |=3D 0x0001; =
$key =3D 0x21; } # VK_PRIOR
        elsif($k =3D~ /^(pgdn|pagedn|pagedown)$/i) { $flag |=3D 0x0001; =
$key =3D 0x22; } # VK_NEXT
        elsif($k =3D~ /^[0-9a-zA-Z]$/)             { $flag |=3D 0x0001; =
$key =3D ord(uc($k)); } # ASCII

        push(@acc, $id);=20
        push(@acc, $key);
        push(@acc, $flag);
        $self->{$Win32::GUI::AcceleratorCounter++} =3D $v;
       =20
    }
    if($Win32::GUI::AcceleratorTable) {
        =
Win32::GUI::DestroyAcceleratorTable($Win32::GUI::AcceleratorTable);
    }
    my $handle =3D Win32::GUI::CreateAcceleratorTable( @acc );
    if($handle) {
        $self->{-handle} =3D $handle;
        return 1;                    =20
    } else {
        return 0;
    }
}


Script: x.pl
use Win32::GUI;
$Window =3D new Win32::GUI::Window (
	-name   =3D> "Window",
	-topmost =3D> 1,
	-left   =3D> 300,
	-dialogui =3D> 1,
	-top    =3D> 400,
	-width  =3D> 205,
	-height =3D> 235,
	-maxsize  =3D> [205,235],
	-minsize  =3D> [205,235],
	-text   =3D> "something",
	-maximizebox =3D> 0,
	-minimizebox =3D>1,
	-helpbutton =3D> 0,
	-resizable =3D>0,
	-accel =3D> $A,
);

$CBdropdown =3D $Window->AddCombobox(
	-tabstop =3D> 1,
	-default =3D>1,
    -sort =3D> 1,
    -name   =3D> Dropdown,
    -left   =3D> 10,
    -top    =3D> 15,
    -width  =3D> 180,
    -height =3D> 300,
    -scroll  =3D> 1,
    -addstyle  =3D> WS_VISIBLE | 0x0003 | WS_VSCROLL,


);
my @a =3D qw[ One Two Three Four Five Six Seven Eight Nine Ten];
foreach my $a(){
	$CBdropdown->InsertItem($a)
}

Running this script before modifiying gui.pm results in:
when pressing "t", the combo box will alternate between "Two", "Threee, =
and "Ten"
If you Hold the ctrl while pressing "t", it will cycle the combo box, =
proving that the accelerator table is not intercepting the events.=20


Now, if you just bless and return $self, (or $self,$class) you now get =
the DESTROY event upon Window_Terminate AND the window seems to trap the =
ctrl-t combonation, which I can assume since the combobox does not =
cycle.

I dont know how the message queue thing works, but perhaps this is a =
start.  Maybe someone with xs experience can take a look at it to see if =
any other progress can be made on it.  It appears that @acc is pushed in =
the form ($id, $key, $flag) (key is the key pressed such as 'k', flag is =
the modifier key such as 'alt', 'ctrl',  but $id is defined nowhere, and =
is not even in the lexical scope of the sub.  I would expect this to be =
wrong, but not sure.

Or maybe we are close enough to a new Win32::GUI release that it does =
not make a difference?


I changed :=20
if($handle) {
        $self->{-handle} =3D $handle;
        return 1;   =20
}

to :
if($handle) {
        $self->{-handle} =3D $handle;
        bless($self);           =20
        return $self;                  =20
}

so that an object is return instead of a true/false.  I can only assume =
that the -accel needs an object and not a true/false value.

If anyone makes any headway, let the group know.

Joe






> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Monday, January 14, 2002 10:34 AM
> To: 'Nathan Meyers'; per...@li...
> Subject: RE: [perl-win32-gui-users] Keyboard accelerators possible?
>=20
>=20
> It does exist as method Win32::GUI::AcceleratorTable . I've=20
> never been able
> to make it work, but perhaps someone else can lend a hand.=20
>=20
> From the .pm...
> # Example:
> #     $A =3D new Win32::GUI::AcceleratorTable(
> #         "Ctrl-X"       =3D> "Close",
> #         "Shift-N"      =3D> "New",
> #         "Ctrl-Alt-Del" =3D> "Reboot",
> #     );
>=20
>=20
>=20
> > -----Original Message-----
> > From: Nathan Meyers [mailto:nm...@ja...]
> > Sent: Monday, January 14, 2002 01:48
> > To: per...@li...
> > Subject: [perl-win32-gui-users] Keyboard accelerators possible?
> >=20
> >=20
> > Hello,
> >=20
> > I'm new to Win32::GUI and trying to solve a problem; I can't find a
> > thing about it in the mail archives.
> >=20
> > Is it possible to define keyboard accelerators for menu items=20
> > - not the
> > mnemonics used in conjunction with the Alt key, but the Ctrl=20
> > characters
> > that dispatch to menu callbacks (commonly done in GUI applications)?
> >=20
> > Nathan Meyers
> > nm...@ja...
> >=20
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >=20
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

RE: [perl-win32-gui-users] Keyboard accelerators possible?

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

It does exist as method Win32::GUI::AcceleratorTable . I've never been able
to make it work, but perhaps someone else can lend a hand. 

From the .pm...
# Example:
#     $A = new Win32::GUI::AcceleratorTable(
#         "Ctrl-X"       => "Close",
#         "Shift-N"      => "New",
#         "Ctrl-Alt-Del" => "Reboot",
#     );



> -----Original Message-----
> From: Nathan Meyers [mailto:nm...@ja...]
> Sent: Monday, January 14, 2002 01:48
> To: per...@li...
> Subject: [perl-win32-gui-users] Keyboard accelerators possible?
> 
> 
> Hello,
> 
> I'm new to Win32::GUI and trying to solve a problem; I can't find a
> thing about it in the mail archives.
> 
> Is it possible to define keyboard accelerators for menu items 
> - not the
> mnemonics used in conjunction with the Alt key, but the Ctrl 
> characters
> that dispatch to menu callbacks (commonly done in GUI applications)?
> 
> Nathan Meyers
> nm...@ja...
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Keyboard accelerators possible?

[Nathan M. <nm...@ja...>]

Hello,

I'm new to Win32::GUI and trying to solve a problem; I can't find a
thing about it in the mail archives.

Is it possible to define keyboard accelerators for menu items - not the
mnemonics used in conjunction with the Alt key, but the Ctrl characters
that dispatch to menu callbacks (commonly done in GUI applications)?

Nathan Meyers
nm...@ja...

Re: [perl-win32-gui-users] win32gui bug , AddLabel ...?

[NAHUM M. <mar...@re...>]

Ok it's works ,

*Thanks

----- Original Message -----
From: "Johan Lindstrom" <jo...@ba...>
To: <per...@li...>
Sent: Friday, January 11, 2002 12:09 PM
Subject: Re: [perl-win32-gui-users] win32gui bug , AddLabel ...?


Mark wrote:
>$main->AddLabel(
>     -text =3D> "toto",
>     );

Give it a name:
-name =3D> "lblToto",


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "RE IP addresses - ISP-Solaris Archive"
<http://isp-lists.isp-planet.com/isp-solaris/0110/msg00024.html>



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] win32gui bug , AddLabel ...?

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

Mark wrote:
>$main->AddLabel(
>     -text => "toto",
>     );

Give it a name:
-name => "lblToto",


/J

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

Latest bookmark: "RE IP addresses - ISP-Solaris Archive"
<http://isp-lists.isp-planet.com/isp-solaris/0110/msg00024.html>

[perl-win32-gui-users] win32gui bug , AddLabel ...?

[NAHUM M. <mar...@re...>]

perl : 5.6.0 build 623 +win XP pro

hello ,

Why this one don't work :=20

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------
use Win32::GUI;

$main =3D Win32::GUI::Window->new(-name =3D> 'Main', -text =3D> 'Serveur =
d\'impression',
                                    -width =3D> 210, -height =3D> 150);

$main->AddLabel(
    -text =3D> "toto",
    );

$main->Show();
  =20
$return =3D $main->Dialog();


sub Window_Terminate {
        -1;
    }

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------

and this one work :=20

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------
use Win32::GUI;

$main =3D Win32::GUI::Window->new(-name =3D> 'Main', -text =3D> 'Serveur =
d\'impression',
                                    -width =3D> 210, -height =3D> 150);

$main->Show();
  =20
$return =3D $main->Dialog();


sub Window_Terminate {
        -1;
    }

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------


Thanks for help ...

[perl-win32-gui-users] win32::gui tutorials??

[ed <co...@ya...>]

Hey all.. 
I was trying to learn a little about programming
win32::gui and found some tutorials here 
http://search.cpan.org/search?dist=Win32-GUI
But tutorials 6,7, and 8 seem to be missing. 
Are they anywhere to be found?
Are there any other good resources to learn about
programming the win32::gui ..?

thanks,
--ed


__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/

Re: [perl-win32-gui-users] display images--sample code?

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

Hi,

    I have made a package for read/write/display different image file.
    You can see some sample in the source zip file.

Win32::GUI::DIBitmap add new reading/writing bitmap formats to Win32::GUI
and some images manipulations (Conversion, Screen capture, ...).
This package uses FreeImage 2.4.1, an open source image library supporting
all common bitmap formats (visit : http://www.6ixsoft.com/).
Supports many formats, such as:

  Format  Reading Writing Description.
  BMP     Y       Y       Windows or OS/2 Bitmap
  ICO     Y       N       Windows Icon
  JPEG    Y       Y       JPEG - JFIF Compliant
  JNG     Y       N       JPEG Network Graphics
  KOALA   Y       N       C64 Koala Graphics
  IFF     Y       N       IFF Interleaved Bitmap
  MNG     Y       N       Multiple Network Graphics
  PBM     Y       Y       Portable Bitmap (ASCII)
  PBMRAW  Y       Y       Portable Bitmap (RAW)
  PCD     Y       N       Kodak PhotoCD
  PCX     Y       N       Zsoft Paintbrush
  PGM     Y       Y       Portable Greymap (ASCII)
  PGMRAW  Y       Y       Portable Greymap (RAW)
  PNG     Y       Y       Portable Network Graphics
  PPM     Y       Y       Portable Pixelmap (ASCII)
  PPMRAW  Y       Y       Portable Pixelmap (RAW)
  RAS     Y       N       Sun Raster Image
  TARGA   Y       N       Truevision Targa
  TIFF    Y       Y       Tagged Image File Format
  WBMP    Y       Y       Wireless Bitmap
  PSD     Y       N       Adobe Photoshop


See more here :

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


I 'm working on a new release with FreeImage 2.5.0.

Laurent.

RE: [perl-win32-gui-users] Bitmaps in Win32::GUI [perl-win32-gui- users]

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

> Failure-- Seems like ImageMagick "accidentally" inverts the color when
> converting from .tif to .bmp ... and that ImageMagick's 
> Negate operation
> doesn't have any effect on .bmp files !!!
> 
> Failure-- there seems to be no way to control the colors: white turns
> out grey.  Lots of -foreground and -background options don't seem to
> help.

-foreground and -background only affect the text, not the bitmap.

BMPs contain a color map. For b&w images, this table must hold two entries.
If you know the BMP header structure, you can tweak the color table to alter
the appearance.

Look at TiffSlice.pl on my perl site http://www.fairymails.com/perl/
The Tiff.pm module contains a function to create BMP headers. I don't
remember where I got the info about the BMP format - somewhere on the
internet I guess ;-)

Just searched for "BMP format reference" and found
this http://www.wotsit.org/search.asp?s=graphics 
(use the link "Windows BMP Format (MS Word) [Wim Wouters]")

and that http://www.dcs.ed.ac.uk/home/mxr/gfx/2d/BMP.txt
(http://www.dcs.ed.ac.uk/home/mxr/gfx/index-hi.html was referenced by
http://www.webopedia.com/TERM/B/BMP.html)

have fun,
Harald

RE: [perl-win32-gui-users] display images--sample code?

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

> On the other hand, I fear that none of that will allow me to 
> add scroll
> bars to the bitmap, so that I can display a portion of a bigger than
> screen image.

You could add scroll bars and then reposition the image. The scroll bars
don't have to be tied to the label within Win32::GUI, you just act upon them
in your script.

I have a working solution for displaying a moving map. I first slice a
picture into tiles (I use 640x480 snippets) and then the script lets you
display any portion of the original picture by using a quadruplet of these
tiles. I do the moving with dragging, though, not with scroll bars. If
you're interested (or anyone else, of course), gimme a shout.

have fun,
Harald

[perl-win32-gui-users] Bitmaps in Win32::GUI [perl-win32-gui-users]

[Glenn L. <Gle...@ne...>]

Hi,

Attached is a test program, to help figure out some of the capabilities
of Win32::GUI with regard to bitmapped graphics.  I've had some basic
success, but a failure I can't live with has cropped up:

Success-- either a Label or a Button allows a BMP file to be loaded into
it, via Win32::GUI::Bitmap.  The attached code does this (you'll need a
bitmap file; mine is monochrome, B&W, 1 bpp, stored in .tif format)

Failure-- Seems like ImageMagick "accidentally" inverts the color when
converting from .tif to .bmp ... and that ImageMagick's Negate operation
doesn't have any effect on .bmp files !!!

Failure-- there seems to be no way to control the colors: white turns
out grey.  Lots of -foreground and -background options don't seem to
help.

Advice welcome.

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: SOLVED!! Re: [perl-win32-gui-users] This code runs onW2000, but not W98...???

[Glenn L. <Gle...@ne...>]

And here's another fellow that is extremely happy that Mark had this
problem, and
that someone knew the answer.  So while I was gone for a few weeks
around Christmas,
this is the best present I've gotten from the list upon my return!  The
only
response I got when I described the same problem some months back (maybe
a whole
year by now) was that Aldo doesn't use W98.  Clearly our collective
knowledge has
been increased since then!  And discussions like this do help
understanding, in my
opinion, even if we aren't expecting fixes.

I look forward to fixing my application soon, to keep its menus working
on W98 now.

I'm hoping that someday we might here a bit about the new, revamped
Win32::GUI,
also.


Mark Wilkinson wrote:

> "Piske, Harald" wrote:
>
> > Guys ... it's Christmas :-) This group has always been a tremendous source
> > for solutions.
>
> indeed it has!
>
> > I understand there is a solution to the problem that was
> > posted. I fail to see the point in going back and forth about what might
> > have been a better idea some time ago.
>
> The intent was to explore this quirky behavior in its entirety and determine
> exactly *why* it behaves the way it does, so that others who look through
> archives of this group will be able to identify the solution if they have
> similar but non-identical problems to the one I reported.  The
> solution/workaround *is* straightforward, but only if you know the problem
> exists, and why it works the way it does.  I spent three days trying to work out
> why my code didn't function, and I want to both warn others about this potential
> pitfall, as well as understand *why* the behavior exists so that I can avoid
> meeting it again in the future.  As you will notice, I received a response
> indicating a similar behavior with Bitmap objects in Label controls... a
> non-identical situation that I can now avoid because I (and others) have been
> warned... so these conversations are a good thing!
>
> Certainly, as an open-source developer myself,  have several active mailing
> lists and bug lists for my larger projects.  I find these kinds of conversations
> *very* helpful as I go about improving my own products, so I am not ashamed to
> hash-out problems I find with other modules.. not to be cruel, but to be
> constructive and helpful to the author!  I know that I put a hell of a lot of
> work into my own code, and I want people to find it straightfoward and clear...
> I think all OS authors want that...
>
> > Happy holidays everyone
> > Hope you had a nice evening in Europe, mine's yet to come
>
> Merry Christmas to you all!
>
> Mark
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: [perl-win32-gui-users] display images--sample code?

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

At 17:40 2002-01-07 -0800, Glenn Linderman wrote:
>ImageMagick can do lots of nice conversions of whatever graphic format
>to BMP format, if that is what Win32::GUI::Bitmap needs.

Yes, that's what you want.


>How can I get from there, to a window that displays the data? Do I have
>to
>
>$errstr = $image -> Write ( 'xxx.bmp' );
>
>as it appears that the Win32::GUI::Bitmap call requires a filename?
>use Win32::GUI;
>$bitmap = new Win32::GUI::Bitmap ( 'xxx.bmp' );

That would be the first quick solution to get something working until you 
figure out how to assign the bitmap data directly to object 
Win32::GUI::Bitmap object.

Encapsulate it into a sub or method and you can easily change 
implementation afterwards.

Read up on the graphics stuff in the Win32 API docs. And read the source 
(Perl + C) for the Bitmap class, that should get you going in the right 
direction.


>And then, having somehow or another a $bitmap reference, how do I
>display it in a window?
>
>I see one possibility of
>
>$main_window -> AddLabel ( -name => bitmap, -bitmap => $bitmap );

Good approach. And, as mentioned earlier on the list, keep the $bitmap 
object from being destroyed during the entire lifespan of the label.


>Are there any pros or cons of using Labels vs Buttons vs ???  And do you

Go with the label. I don't think you can remove the "button look" anyway.


>need to specify the exact size of the bitmap as the size of the label?
>Or do you need to leave room for borders, and other stuff?

Yes. I think there are no margins to consider if you align the image 
top-left or center-middle. But like you said, experiment, possibly using 
TGL to get things done fast (save the Design before you add bitmaps and 
place the bitmap files-in-or-below the .tgl directory).


>If there are any scaling capabilities, it'd be nice to know about them,
>I didn't find any the first pass through.

There is one sample program in the distro, resizing the background of a window.


>On the other hand, I fear that none of that will allow me to add scroll
>bars to the bitmap, so that I can display a portion of a bigger than
>screen image.

Difficult. Maybe if you can add a scrollbar style to the bitmap? That 
_might_ work, possibly... (look at the CreateWindow function in the Win32 
API).


>I fear I'll have to dive into Win32::GUI::DC to do some
>of this... I've been avoiding that so far... but this seems oriented to
>line art, rather than bitmap art...

If you have to do the DC thing you definitely should take a look at the 
Win32::GUI:Control::Label control (the Paint method... but the important 
methods are inherited from Win32::GUI:Control i think, let me know if you 
can't find them), because there are some really tricky things to consider 
when painting bitmaps on a device context, like pixel offsets etc. And 
there are useful utility routines in Win32::GUI::AdHoc for that i think.


All modules I mentioned:
http://www.bahnhof.se/~johanl/perl/Loft/


/J

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

Latest bookmark: "Re Newby Query Comment"
<http://www.perlmonks.org/index.pl?node_id=71663&lastnode_id=136782>

[perl-win32-gui-users] display images--sample code?

[Glenn L. <Gle...@ne...>]

Hi,

ImageMagick for Windows seems to be missing display routines, as the
supplied display utility is X based... or did I miss a key point of
their documentation?

Win32::GUI seems to be able to do something with Bitmaps, but it is not
particularly clear just what, or how.

ImageMagick can do lots of nice conversions of whatever graphic format
to BMP format, if that is what Win32::GUI::Bitmap needs.

I'd like to conquer the functionality of loading a file with
ImageMagick, and then using Win32::GUI to display it.

Loading the file seems to be straightforward:

use Image::Magick;
$image = Image::Magick -> new;
$errstr = $image -> Read ( $filename );

How can I get from there, to a window that displays the data? Do I have
to

$errstr = $image -> Write ( 'xxx.bmp' );

as it appears that the Win32::GUI::Bitmap call requires a filename?

use Win32::GUI;
$bitmap = new Win32::GUI::Bitmap ( 'xxx.bmp' );

or is there a way to avoid the intermediate file?  Using the TBD Create
method?

Or maybe Win32::GUI::BitmapInline?  Although this seems to create its
own intermediate file.

And then, having somehow or another a $bitmap reference, how do I
display it in a window?

I see one possibility of

$main_window -> AddLabel ( -name => bitmap, -bitmap => $bitmap );

Are there any pros or cons of using Labels vs Buttons vs ???  And do you
need to specify the exact size of the bitmap as the size of the label?
Or do you need to leave room for borders, and other stuff?  Some of this
will probably become clear as I start to experiment.

If there are any scaling capabilities, it'd be nice to know about them,
I didn't find any the first pass through.

On the other hand, I fear that none of that will allow me to add scroll
bars to the bitmap, so that I can display a portion of a bigger than
screen image.  I fear I'll have to dive into Win32::GUI::DC to do some
of this... I've been avoiding that so far... but this seems oriented to
line art, rather than bitmap art...

Any advice, guidance, or sample code that I could look at for this,
before I bang a hole in a wall with my head, and then find out it was
the wrong wall!!!  would be welcomed.

Mostly I'm dealing with monochrome bitmaps, if that simplifies things,
but they can get quite large, and scaling and scrolling are requirements
to get the job done.

--
Glenn
=====
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

Re: [perl-win32-gui-users] Field checking(OT)

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

At 00:55 2002-01-06 -0600, Steve Myers wrote:
>This isn't really directly related to Win32 GUI, so I'd like to apologize 
>now for that.  Don't even know PERL particularly well, and am not that bright.

It is very much off-topic since it has nothing to do with either Win32 or 
GUI programming. This is a good place to look for help on Perl in general:
http://www.perlmonks.org/


However, this once, here is the answer to your question:

>Lets say the variables they need to fill out are $test $test1 $test2
>Right now, I'm doing it with some if statements, but the problem is, the 
>poor poor way I'm doing it, if they fill out $test and $test2 but not 
>$test1, it will still work, because it checks the variables in order, and 
>if the last one it checks isn't blank, it works.

my $err = "";
$err .= "Fill out 1 please\n" if(!$test1);
$err .= "Fill out 2 please\n" if(!$test2);
yourAlertSub($err) if($err);


/J

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

Latest bookmark: "dbi style questions (code, discussion)"
<http://www.perlmonks.org/index.pl?node_id=135057&lastnode_id=136634>