Window Icons

[neomancer]

How do i get an ICON in the window? like they normally do? system control box (top left)

[Manolo]

How do i get an ICON in the window? like they normally do? system control box (top left)

This one template from Franco

Code: Select all

; (c) 2001 - Franco's template - absolutely freeware
; How to change an application icon on the fly 
Procedure ChangeAppIcon(Image$)  
hIco=LoadImage(0,Image$)  
SetClassLong_(WindowID(),#GCL_HICON,hIco)
EndProcedure 
;test
If OpenWindow(0, 200, 200, 320,240, #PB_Window_SystemMenu ,"Test Window")
ChangeAppIcon("yourico.ico") ; <- your icon name...   
Repeat    
EventID.l = WaitWindowEvent()  
Until EventID = #PB_EventCloseWindow
EndIf 
End

Manolo

[fweil]

Was to slow !

I loose ...

Code: Select all

If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")
  hIcon = LoadIcon_(0, #IDI_ASTERISK)
  Debug SetClassLong_(WindowID(), #GCL_HICON, hIcon)
  Repeat
    EventID.l = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      Quit = 1
    EndIf
  Until Quit = 1
EndIf
End

[Karbon]

Yet another way :

Code: Select all

SendMessage_(WindowID(#Window), #WM_SETICON, 0, UseImage(#Icon))

[Randy Walker]

I've tried all 3 variations and they all work but, my icons come up corrupted in the title bar of all my windows.

Same icon works fine if I provide the path and let the editor/compiler install the icon for me. Do these methods of changing icons depend on a specific icon format? My current icon is 32x32 and I think 256 color.

[Blade]

Perhaps your icon is XP and your system is W2000 or less...

[Fou-Lu]

Now that you mention that, what's the difference between a XP icon and a win9x icon? I always thought that icons were just .bmp files with a different extension.

[Dare2]

.ico files are bmp-ish but can hold more than one image, eg, 16x16, 32x32, 48x48 instances.

If your .ico holds sizes not compatible with the destination then I think it gets resized and that can cause poor results.

Software like iconedit allows you to edit/create icon files with instances that work best for each requirement.

[Randy Walker]

My OS is XP Pro and XP Home and both have same symptoms. Both show icons fine if installed during compile. Both show distorted icons when I load and apply them manually. The icons I am using were created back in the Win95 era so I would expect them to be compatible.

I pulled down SNicon as suggested elseware, loaded my icon and saved it thinking maybe Snicon woulld fix any OS incompatibility. That made no difference. Tried both the SetClassLong and the SendMessage approaches and both render distorted icons. Icons appeareing when using Alt-Tab look fine no mattter what.

[netmaestro]

You can choose an icon for your application on the compiler options menu.

[Intrigued]

Thanks for sharing the run-time way of showing a different icon for a given window. I was wondering if that was possible a few weeks ago.

[Randy Walker]

You can choose an icon for your application on the compiler options menu.

I know that... and that gives me a perfect icon in my title bar... BUT when I change the icon using ether of the two methods:

SetClassLong_(WindowID(), #GCL_HICON, hIcon)

-or-

SendMessage_(WindowID(), #WM_SETICON, 1, hIcon)

The icon in the title bar is replaced and looks very distorted. My question is NOT "how to change the icon?" It is "Why does the icon get corrupted when my app loads it in manually?"

[Num3]

This works fine for me, without problems or distortions!

As long has i use 16 x 16 icons!