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');
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->SetIcon($Icon,0);              #  0 = small icon, 1 = big icon



Does not do the trick.



-----Original Message-----
From: Peter Eisengrein [mailto:Peter.Eisengrein@atx.com]
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]
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");


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


But neither work.