Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
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

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • 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 surveying the Monastery: (5)
    As of 2020-10-27 15:51 GMT
    Find Nodes?
      Voting Booth?
      My favourite web site is:

      Results (257 votes). Check out past polls.