Hi there,
Anyone used this module successfuly? If I attempt to run the synopsis
code:
use Win32::GUI;
use Win32::GUI::DIBitmap;
$W = new Win32::GUI::Window (
-title => "Win32::GUI::DIBitmap test",
-pos => [100, 100],
-size => [400, 400],
-name => "Window",
);
$dib = newFromFile Win32::GUI::DIBitmap ('image.jpg');
$hbitmap = $dib->ConvertToBitmap();
undef $dib;
$W->AddButton (
-pos => [100, 100],
-size => [200, 200],
-bitmap => $hbitmap,
-name => "Button",
-visible => 1,
);
$W->Show();
Win32::GUI::Dialog();
sub Window_Terminate { -1 }
I get a undef back from newFromFile., and hence, the rest does not work.
I'm using ActivePerl 5.6, and the 5.6PPM version of Win32::GUI::DUBitmap
from http://perso.club-internet.fr/rocherl/Win32-GUI-DIBitmap-PPM-56.zip
Any clues?
<http://perso.club-internet.fr/rocherl/Win32-GUI-DIBitmap-PPM-56.zip>
http://perso.club-internet.fr/rocherl/Win32GUI.html
http://perso.club-internet.fr/rocherl/DIBitmap.html
--
Iain Whyte
infrastructure and systems manager
Fortis Clearing Sydney Pty Ltd
Ph: +61 2 92336497
Fx: +61 2 92364440
Mb: 0419793593
Em: [EMAIL PROTECTED]
=========================================================================
This e-mail is sent for the sole attention of the identified addressee
and its contents are provided for information purposes only. Fortis
Clearing Sydney Pty Ltd makes no warranty or representation as to the
accuracy and completeness of any information and does not assume whatever
commitment hereby. Legally binding obligations can only arise for, or be
entered into on behalf of, Fortis Clearing Sydney Pty Ltd by means of
a written instrument, signed by two duly authorised representatives of
Fortis Clearing Sydney Pty Ltd. Fortis Clearing Sydney Pty Ltd excludes
any liability whatsoever for any direct or consequential loss arising
from the use of, or reliance on, this e-mail or its contents.
=========================================================================
