I use this in several of my applications, however, most of the time, I use GUILoft to build my UI.  In this case $win is my window or dialog and this should work exactly as if I built the window object manually:
 
my $icon = new Win32::GUI::Icon('icon1.ico');
$win->ChangeIcon($icon);
 
note that it is expecting an icon object, not a bitmap object from my testing (I have not verified this).  Also,  if I remember correctly, icons used like this have to have some certain color depth and size limits or they will not work right.  It may be possible to convert a bmp to a properly formatted icon in code, but I would not know how (if someone has an example that does not require an external program other than a perl module, I would like to know about it).  I would also be interested if there is a way to create an icon from a dll resource file?
 

Joe Frazier, Jr.
Senior Support Engineer

Peopleclick Service Support
Tel:  +1-800-841-2365
E-Mail: Support@Peopleclick.com

 


From: perl-win32-gui-users-admin@lists.sourceforge.net [mailto:perl-win32-gui-users-admin@lists.sourceforge.net] On Behalf Of Eric Hansen
Sent: Wednesday, July 28, 2004 5:55 PM
To: perl-win32-gui-users@lists.sourceforge.net; Peter.Eisengrein@atx.com
Subject: RE: [perl-win32-gui-users] How to change window/dialogbox icon

Peter, thanks, but what I am really needing is an icon for a Window or DialogBox.

Not needing an icon for the system tray.  I was hoping to be able to use a small bitmap file

For the icon since I do not have an icon generator.

 

$Icon = new Win32::GUI::Bitmap("C:\\Bibles\\bible.bmp",1);     #    1 specifies icon type

$W->Show();

$W->BringWindowToTop();

$W->SetIcon($Icon,0);              #  0 = small icon, 1 = big icon

$W->ChangeSmallIcon($Icon);

 

Does not do the trick.

 

Eric

-----Original Message-----
From: Peter Eisengrein [mailto:Peter.Eisengrein@atx.com]
Sent:
Wednesday, July 28, 2004 3:58 PM
To: 'Eric Hansen'; perl-win32-gui-users@lists.sourceforge.net
Subject: RE: [perl-win32-gui-users] How to change window/dialogbox icon

 

my $icon = new Win32::GUI::Icon("Icon.ico");

 

my $ni = $Window->AddNotifyIcon(
 -icon => $icon,
 -id => 1,
 -name => ni,
 -tip => "Mouseover shows this",
);

 

 

 

-----Original Message-----
From: Eric Hansen [mailto:eric.amerwood@charter.net]
Sent:
Wednesday, July 28, 2004 4:45 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] How to change window/dialogbox icon

Can someone show me an example how to

Change the camel (perl) icon to a user-defined icon?

In both Windows and DialogBoxes?

 

I tried using Windows/DialogBox option       –icon  =>  $myicon,

 

Where $myicon is either defined as…

 

$Icon = new Win32::GUI::Icon("C:\\Bibles\\bible.bmp");

     (or)

$Icon = new Win32::GUI::Bitmap("C:\\Bibles\\bible.bmp",1);

 

But neither work. 

 

Thanks,

Eric