Re: [perl-win32-gui-users] How to change window/dialogbox icon

[Jez White]

Hi,

You can use the GetIcon method of an ImageList object to return an icon from 
the original bitmap. You have to create the imagelist and load the bitmap into 
it first - a bit convoluted, but it does work.

Cheers,

jez.

  ----- Original Message ----- 
  From: Frazier, Joe Jr 
  To: Eric Hansen ; perl-win32-gui-users@lists.sourceforge.net ; [EMAIL 
PROTECTED] 
  Sent: Wednesday, July 28, 2004 11:02 PM
  Subject: RE: [perl-win32-gui-users] How to change window/dialogbox icon


  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: [EMAIL PROTECTED] 





----------------------------------------------------------------------------
    From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Eric Hansen
    Sent: Wednesday, July 28, 2004 5:55 PM
    To: perl-win32-gui-users@lists.sourceforge.net; [EMAIL PROTECTED]
    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:[EMAIL PROTECTED] 
    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:[EMAIL PROTECTED]
      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