🚀 go-pugleaf

"Remy Lebeau \(TeamB\)" <no.spam@no.spam.com> wrote:
>
>> if it is, then why would it accept the handle from AllocateHWnd?

> I cannot answer that because you have yet to show your
> actual code like I asked you to.

I thought you wanted to see what code didn't work.

In the main form's ctor:

    TMyComponent *pComponent = new TMyComponent( this );
    if( pComponent->Succeeded ) ShowMessage("Determing Theming Succeeded.");
    else ShowMessage(pComponent->ThemeError);

//-------------------------------------------------------------
#ifndef Unit2H
#define Unit2H
//-------------------------------------------------------------
#include <Classes.hpp>
#include <shlwapi.h>
//-------------------------------------------------------------
class TMyComponent : public TComponent
{
    protected:
        virtual void __fastcall WndProc( TMessage &Message );    
    private:
        HWND  FHandle;
        bool FSucceeded;
        AnsiString FThemeError;
    public:
        __fastcall  TMyComponent(TComponent* Owner);
        __fastcall ~TMyComponent();
        __property bool Succeeded = { read = FSucceeded };
        __property AnsiString ThemeError = { read = FThemeError };        
};
//-------------------------------------------------------------
#endif


//-------------------------------------------------------------
#include <basepch.h>
#pragma hdrstop

#include "Unit2.h"
#pragma package(smart_init)

//-------------------------------------------------------------
__fastcall TMyComponent::TMyComponent(TComponent* Owner) : TComponent(Owner)
{
    FSucceeded = false;
    FThemeError = "";
    FHandle = NULL;
    if( !ComponentState.Contains(csDesigning) )
      {
          FHandle = AllocateHWnd( WndProc );
          WORD MajorVersion = 0;
          HINSTANCE hComCtl32 = ::LoadLibrary( "ComCtl32.dll" );
          if( hComCtl32 )
            {
                DLLGETVERSIONPROC lpDllGetVersion = (DLLGETVERSIONPROC) ::GetProcAddress( hComCtl32, "DllGetVersion" );
                if( lpDllGetVersion )
                  {
                      DLLVERSIONINFO dvi = { sizeof(DLLVERSIONINFO), 0 };
                      if( SUCCEEDED(lpDllGetVersion(&dvi)) ) MajorVersion = dvi.dwMajorVersion;
                  }
                ::FreeLibrary( hComCtl32 );
            }
          else FThemeError = "LoadLibrary::ComCtl32 Failed.";
          if( MajorVersion > 5 )
            {
                HINSTANCE hUxTheme = ::LoadLibrary( "UxTheme.dll" );
                if( hUxTheme )
                  {
                      typedef BOOL WINAPI (*DLLISTHEMEACTIVE)();
                      DLLISTHEMEACTIVE IsThemeActive = (DLLISTHEMEACTIVE) ::GetProcAddress( hUxTheme, "IsThemeActive" );
                      if( IsThemeActive )
                        {
                            if( IsThemeActive() )
                              {
                                  typedef HANDLE HTHEME; typedef HTHEME WINAPI (*DLLOPENTHEMEDATA)(HWND, LPCWSTR ); DLLOPENTHEMEDATA OpenThemeData = (DLLOPENTHEMEDATA) ::GetProcAddress( hUxTheme, "OpenThemeData" );
                                  if( OpenThemeData )
                                    {
                                        HTHEME hTheme = OpenThemeData(FHandle, L"Button");
                                        if( hTheme )
                                          {
                                              typedef HRESULT WINAPI (*DLLCLOSETHEMEDATA)( HTHEME ); DLLCLOSETHEMEDATA CloseThemeData = (DLLCLOSETHEMEDATA) ::GetProcAddress( hUxTheme, "CloseThemeData" );
                                              if( CloseThemeData ) { CloseThemeData( hTheme ); FSucceeded = true; } else FThemeError = "GetProcAddress::CloseThemeData failed.";
                                          }
                                        else FThemeError.sprintf("Call to OpenThemeData failed.\nGetLastError : %u\n\t\t\t0x%08X\nSysErrorMessage : %s", ::GetLastError(), ::GetLastError(), SysErrorMessage(::GetLastError()) );
                                    }
                                  else FThemeError = "GetProcAddress::OpenThemeData failed.";
                              }
                            else FThemeError = "Theming is not active.";
                        }
                      else FThemeError = "GetProcAddress::IsThemeActive failed.";
                      ::FreeLibrary( hUxTheme );
                  }
                else FThemeError = "LoadLibrary::UxTheme failed.";
            }
          else FThemeError.sprintf("ComCtl32 Major Version too small : %d.", MajorVersion);
      }
}
//-------------------------------------------------------------
__fastcall TMyComponent::~TMyComponent()
{
    if( FHandle ) DeallocateHWnd( FHandle );
}
//-------------------------------------------------------------
void __fastcall TMyComponent::WndProc( TMessage &Message )
{
    Message.Result = DefWindowProc( FHandle, Message.Msg, Message.WParam, Message.LParam );
}
//-------------------------------------------------------------

~ JD