[perl-win32-gui-users] RE: Win32::GUI Icons on buttons

[MJG]

Chris, had some time to play with this.  What the
"$W->SetIcon($icoImage);" did for me was replace the camel icon on the
window with mine.  The text on the button still disappears.

MJG

-----Original Message-----
From: Chris Wearn [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, December 30, 2003 11:02 PM
To: MJG
Cc: perl-Win32-GUI-Users@lists.sourceforge.net
Subject: RE: Win32::GUI Icons on buttons


>Is this not the proper way to add an icon to a button?

>$W->AddButton(
>   -name    => "SomeName",
>   -left    => 5,
>   -top     => 5,
>   -text    => "Print Somehing!",
>   -tabstop => 1,
>   -icon    => "./Iconfile.ico"
>);


TRY:
# ================================

# Load Icon
$icoImage = new Win32::GUI::Icon("./images/button.ico");

# Button - SomeName
$btnSomeName = $W->AddButton(
   -name    => "btnSomeName",
   -left    => 5,
   -top     => 5,
   -text    => "Print Somehing!",
   -tabstop => 1,
   -icon    => $icoImage,
);


if -icon => $icoImage,  doesn't work try:

...
   -text    => "Print Somehing!",
   -tabstop => 1,
);
$W->SetIcon($icoImage);


Chris