Set icon for each window?

[hdt888]

I have a program with 2 windows:

+ main1 -> icon1
+ main2 -> icon2

And 2 child windows of main window 2.

+child2_1 -> icon3
+child2_2 -> icon4

How to set window icons for these 4 windows (this icon will be displayed under the Windows Taskbar) ?

[RASHAD]

Hi

Code: Select all

    PostMessage_(WindowID(?),#WM_SETICON,0,hIcon)

[hdt888]

It's not work. Thank RASHAD sir !

[RASHAD]

It's not work

Why ?
PB 6.21 x64 Windows 11 x64

Code: Select all

CatchImage(0,?icon1)
CatchImage(1,?icon2)

OpenWindow(0, 0, 0, 800,600, "PureBasic Window #1", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PostMessage_(WindowID(0),#WM_SETICON,0,ImageID(0))

OpenWindow(1, 0, 0, 400,300, "PureBasic Window #2", #PB_Window_SystemMenu| #PB_Window_ScreenCentered ,WindowID(0))
PostMessage_(WindowID(1),#WM_SETICON,0,ImageID(1))

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
End 

DataSection
    icon1:
    IncludeBinary #PB_Compiler_Home + "examples/sources/Data/CdPlayer.ico"
    icon2:
    IncludeBinary #PB_Compiler_Home + "examples/sources/Data/CdPlayer.ico"
EndDataSection

[Bisonte]

It's not work

Why ?

I think he mean, that the Icon on the Taskbar should change also to the window that has the focus...

[RASHAD]

Hi Bisonte
If so next is a workaround needs of course more tricks

Code: Select all

CatchImage(0,?icon1)
CatchImage(1,?icon2)

OpenWindow(0, 400, 400, 400,300, "PureBasic Window #1", #PB_Window_SystemMenu )

OpenWindow(1, 420 + WindowWidth(0), 400, 400,300, "PureBasic Window #2", #PB_Window_SystemMenu )


AddWindowTimer(0,125,10)

  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Timer
        If GetActiveWindow() = 0
          PostMessage_(WindowID(0),#WM_SETICON,0,ImageID(0))
          PostMessage_(WindowID(1),#WM_SETICON,0,ImageID(0))
        ElseIf GetActiveWindow() = 1
          PostMessage_(WindowID(0),#WM_SETICON,0,ImageID(1))
          PostMessage_(WindowID(1),#WM_SETICON,0,ImageID(1))
        EndIf

     Case #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
      
    EndSelect

  Until Quit = 1
End 

DataSection
    icon1:
    IncludeBinary #PB_Compiler_Home + "examples/sources/Data/CdPlayer.ico"
    
    icon2:
    IncludeBinary "d:/PBLogoBig.ico"
EndDataSection

[BarryG]

.

[Mesa]

Perhaps it should be clarified that only icons in .ico format work under Windows, not .png, etc.

M.

[Bisonte]

Hi Bisonte
If so next is a workaround needs of course more tricks

This one opens here on W11 two windows with two taskbar fields... and each one have the same Icon...

I think he ment : MainWindow Icon0, Childwindow 1 Icon1, ChildWindow2 Icon 2
only one Taskbarentry and the icon at the taskbar should change...
I think its not really possible without a mysterious hack
The design of Windows is not made for this ....