OpenEuphoria

Re: Binding & Icons

• Posted by Wolf <wolfritz at KING.IGS.NET> May 02, 2002
• 393 views

> has anyone noticed that when you press Alt+Tab to show you current 
> running applications Eu app don't display their icons?
> When i bind my app and run it and press Alt+tab ....i still see the icon 
> IDI_APPLICATION instead of the icon i used when binding my APP

...methinks, when you hit ALT + TAB, what's shown is the icon in the program's
title bar,
*not* the icon that Explorer shows.
To get your icon into the title bar using win32lib, you'll have to use some code
in your startup routine, for example:

procedure start_up()
atom jk
-- get the icon from your .exe'
jk = w32Func(xLoadIcon,{instance(),allocate_string("exw")})
-- and insert it in the program's title bar.
jk = sendMessage(YourWin,WM_SETICON, 1, jk)

... where 'YourWin' is your 'WinMain' id