OpenEuphoria

2. Re: Win98 look & feel / removing manifest file effects

• Posted by SDPringle Mar 12, 2011
• 1685 views

The affects are the problems found and described in ticket 616 no longer appear. I haven't heard any thing specific about negative effects. As far as I know, there aren't any.

4. Re: Win98 look & feel / removing manifest file effects

• Posted by mattlewis (admin) Mar 12, 2011
• 1757 views

Take a look at Causing the UxTheme Manager to Ignore Top Level Windows, and in particular, SetThemeAppProperties.

In the interest of debugging, does the issue persist if you translate the code? The translator does not (currently) compile the manifest, so you get a non-themed executable.

Matt

6. Re: Win98 look & feel / removing manifest file effects

• Posted by mattlewis (admin) Mar 12, 2011
• 1992 views

I played around a little with this function and the example program from ticket:616. In win32lib, at least, it looks like it's necessary to send the WM_THEMECHANGED message to all of the controls. It doesn't seem to propagate to children automatically. The de-theming definitely works for me (on XP), although it didn't solve the issue brought up in the ticket.

include win32lib.ew  
constant Win1 = create(Window,"Strange",0,Default,Default,400,400,0),  
		TabCtl = create(TabControl,"",Win1,5,5,380,355,0),  
		Tab1 = create(TabItem,"First",TabCtl,0,0,0,0,0),  
		Label1 = create(CText,"Nothing important",Tab1,10,30,360,25,0),  
		Cbox1 = create(Combo,"",Tab1,20,80,250,100,0), 
		StyleButton = create( Button, "Change Style", Tab1, 20, 100, 90, 30, 0 ), 
		$ 
 
include std/dll.e 
include std/machine.e 
constant  
	UXTHEME = open_dll("UxTheme.dll"), 
	xSetThemeAppProperties = define_c_proc( UXTHEME, "SetThemeAppProperties", { C_INT } ) 
 
addItem( Cbox1, "foo") 
integer theme = 3 
constant WM_THEMECHANGED = 0x031A 
procedure StyleButton_onClick(integer self, integer event, sequence parms) 
	theme = 3 - theme 
	c_proc( xSetThemeAppProperties, { theme } ) 
	sendMessage( Win1, WM_THEMECHANGED, 0, 0 ) 
	sendMessage( TabCtl, WM_THEMECHANGED, 0, 0 ) 
	sendMessage( Label1, WM_THEMECHANGED, 0, 0 ) 
	sendMessage( Cbox1, WM_THEMECHANGED, 0, 0 ) 
	sendMessage( StyleButton, WM_THEMECHANGED, 0, 0 ) 
 
end procedure 
setHandler( StyleButton, w32HClick, routine_id("StyleButton_onClick")) 
 
WinMain(Win1,Normal)  

Matt

8. Re: Win98 look & feel / removing manifest file effects

• Posted by mattlewis (admin) Mar 12, 2011
• 1637 views

Yes, the control drawing seems to be a Win32Lib issue. The same code, ported to wxEuphoria, looks fine.

Matt

10. Re: Win98 look & feel / removing manifest file effects

• Posted by SDPringle Mar 12, 2011
• 1612 views

Not exactly. It runs without problems on Windows Vista. I stopped using Windows XP for development of EUPHORIA.