🚀 go-pugleaf

Hay guys, I've got a little problem that i thought i had fixed but it's 
coming back to kick me.

I have a GUI that is built along the lines of MS OneCare / WinDefender.  We 
use a TImage streatched across the main form and load a JPEG background to 
create a graphical backdrop.

At the top of the form i have a toolbar that is created with a transparent 
background, using the TCoolBar.  This system all works ok on < XP i.e. my 
toolbar appears transparent over the image.

However, on XP, when theming is enabled, my toolbar looks crap i.e. when the 
user mouses-over, the buttons are painted with a gray background instead of 
the image background.  I tried to resolve this  by disabling theming for the 
TToolbar / TCoolbar using some code that i *found*, and it seemed to work. 
However, the system frequently falls over and the toolbar reverts to being 
painted as is.  The code i'm using looks like this,

void TUtilities::DisableXPTheme(HWND p_hWindow)
{
   bool bFreeLib = false;
   HINSTANCE hUxThemeDLL = NULL;

   // See if UxTheme.dll is already loaded, it it is, use it's handle
   hUxThemeDLL = GetModuleHandle("UxTheme.dll");
   if (!hUxThemeDLL)
   {
      // If it's not loaded, call LoadLibrary() - must unload the dll once 
it is finished
      hUxThemeDLL = LoadLibrary("UxTheme.dll");
      bFreeLib = true;
   }

   if (hUxThemeDLL)
   {
      TSetWindowTheme SetWindowTheme = NULL;
      SetWindowTheme = (TSetWindowTheme)GetProcAddress(hUxThemeDLL, 
"SetWindowTheme");
      if (SetWindowTheme)
      {
         (SetWindowTheme)(p_hWindow, (wchar_t *)" ", (wchar_t *)" ");
      }

      //Free the library:
      if (bFreeLib)
      {
         FreeLibrary(hUxThemeDLL);
         hUxThemeDLL = NULL;
      }
   }
}

and i'm calling it from the OnShow like this:

      Utils->DisableXPTheme(clbCoolBar->Handle);
      Utils->DisableXPTheme(tlbMain->Handle);


has anyone got any suggestions?

Best regards

Mike