Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Perl-Sensitive Sunglasses

Comment on

This is the second demonstration program I've written for wxperl. Jouke mentioned that my last tutorial was better suited to someone familiar with wxperl than not, and I've tried to keep the same level of detail & explanation here.
This script shows how to load and display a file (in this case, a jpeg) into a bitmap control. I found that wxWindows' documentation was unclear on how image handlers interacted with image controls and bitmap controls, and it took a little under two hours to come up with the 9 (!) lines of code to complete the task. It also shows how to implement constraints to keep resized objects looking good.
You'll have to change the name of the file being loaded, but otherwise the script should load as-is.
#!/usr/bin/perl use Wx; package MyApp; #As always, we need to subclass Wx::App and populate it with a frame. use strict; use vars qw(@ISA); @ISA=qw(Wx::App); sub OnInit { my $this = @_; my $frame = MyFrame->new( "Mini-image demo", [-1,-1], [-1,-1]); # if the frame didn't get created, exit early. don't use die here, as +it seems to be a little unstable... # if OnInit returns false,though, wx will clean up after itself nicely +. unless ($frame) {print "unable to create frame -- exiting."; return +undef} $frame->Show( 1 ); 1; #everything's ok, on with the show. } package MyFrame; # subclass wx::Frame to insert the image control. use vars qw(@ISA); use strict; # # All we load here are 2 constants used # to keep the image stretched to the dimensions of the window. # use Wx qw( wxWidth wxHeight); # # Wx::Image loads the Image control and all of the Image handlers. # use Wx::Image; use IO::File; @ISA=qw(Wx::Frame); sub new { my $class = shift; my $this = $class->SUPER::new( undef, -1, $_[0], $_[1], $_[2] ); # # replace the filename with something appropriate. # my $file = IO::File->new( "c:/halo2.jpg", "r" ) or return undef; binmode $file; # # define a handler for jpeg images. # handlers are half of what translates file formats (.jpg in thi +s case) # into streams readable by wxBitmap objects for diplay. # yes, this means you typically can't cram a file's contents int +o # a wxBitmap control -- the exception being windows bitmaps. # # There is a method called 'Wx::Image::FindHandlerType', but I c +ouldn't # get the thing to work in any way, shape or form. # my $handler = Wx::JPEGHandler->new(); # # wxImages are the other half of getting images displayed -- # they hold the data stream created by a handler. # Although there's many functions that can be performed with an +wxImage, # all we're interested is turning the stream into a bitmap. # my $image = Wx::Image->new(); my $bmp; # used to hold the bitmap. # # here we load the file into $image. simple enough. # $handler->LoadFile( $image, $file ); # # and here, we turn the data in $image into a bitmap, and store +in $bmp. # if the data in $bmp is bad for some reason, $bmp->Ok() will fa +il. $bmp = $image->ConvertToBitmap(); if( $bmp->Ok() ) { # create a static bitmap called ImageViewer that displays the # selected image. $this->{ImageViewer}= Wx::StaticBitmap->new($this, -1, $bmp); } # At this point, we could just return the frame, and be ok. # unfortunately, the static bitmap could be *really* static and +not # resize itself when the window's resized, which'd look pretty u +gly. # # To make sure everything looks ok, we'll assign constraints to # Imageviewer. # Layout constraints determine how controls will appear within t +he # window. They consist of 4 members : left, top, width and heigh +t. # constraints are objects by themselves, and need to be assigned + to # objects in order to have any use. We'll be using this contstra +int # in order to stretch the picture out to the full size of the wi +ndow. # my $b1 = Wx::LayoutConstraints->new(); # set the upper left corner to absolute [0,0]. # if there were other controls using constraints, we could change +these to # something like $b1->left->RightOf ($widget, 5) to make this cont +rol appear # 5 pixels to the right of $widget's constraints. $b1->left->Absolute(0); $b1->top->Absolute(0); # now set the width and height to 100% each way. $b1->width->PercentOf( $this, wxWidth,100); $b1->height->PercentOf( $this, wxHeight, 100); # # Now that all the dimensions of the constraint are complete, # assign it to ImageViewer. # $this->{ImageViewer}->SetConstraints( $b1 ); $this; # return the frame object to the calling application. } package main; my $app = MyApp->new();# create an instance of the Wx::App-derived cla +ss $app->MainLoop(); # run

In reply to wxPerl image handling (short & sweet). by boo_radley

and:  <code> code here </code>

  • Please read these before you post! —
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others studying the Monastery: (12)
    As of 2014-03-13 14:30 GMT
    Find Nodes?
      Voting Booth?

      Have you used a cryptocurrency?

      Results (281 votes), past polls