XP-style tabbers: why doesn't this work?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

denzilquixode

Even with a manifest file specifying to use visual styles, the inside of a tabber in MaxGUI displays as the same colour as the window. To see how it should look with visual styles, go to Control Panel and open display or audio properties, and look at the tabber there - the tab page is white, the same colour as the tab itself, and has a subtle gradient towards the bottom.

So, I looked around the web and found out that in order to get this to work you have to use a uxtheme.dll function called EnableThemeDialogTexture, so I tried it out...

Strict 

Local window:TGadget=CreateWindow("My Window",40,40,320,240,Null,15 | WINDOW_HIDDEN)

Local tabber:TGadget=CreateTabber(0,0,ClientWidth(window),ClientHeight(window),window)

' ... WINDOWS XP THEME STUFF START ...
Const ETDT_ENABLETAB = 6

Global EnableThemeDialogTexture(m_hWnd:Int, flags:Int);

Local Uxtheme:Int = LoadLibraryA("uxtheme.dll")
If Uxtheme
	EnableThemeDialogTexture = GetProcAddress(Uxtheme,"EnableThemeDialogTexture")
End If

EnableThemeDialogTexture(QueryGadget(tabber,QUERY_HWND),ETDT_ENABLETAB)
' ... WINDOWS XP THEME STUFF END ...

ShowGadget window

While True
	WaitEvent 
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

...and it still doesn't work. Any idea what I'm doing wrong?