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

[Chris Wearn]

>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