VCL Component TCheckBox

//---------------------------------------------------------------------------
#ifndef MyCheckBoxH
#define MyCheckBoxH
//---------------------------------------------------------------------------
 
#include <vcl.h>
 
//---------------------------------------------------------------------------
namespace My_CheckBox
{
    class TCheckBox : public Stdctrls::TCheckBox
    {
    protected:
        virtual void __fastcall PaintWindow(HDC__ *DC) {
            Enabled = true;
            Stdctrls::TCheckBox::PaintWindow(DC);
        }
 
        virtual void __fastcall CreateWnd(void) {
            Stdctrls::TCheckBox::CreateWnd();
//          SetWindowTheme(Handle, L"", L"");
        }
 
        virtual void __fastcall WndProc(Messages::TMessage & Message) {
            if(Message.Msg == WM_PAINT) {
//              PaintWindow();
            }
            Stdctrls::TCheckBox::WndProc(Message);
        }
 
    public:
 
    };
};
#define TCheckBox My_CheckBox::TCheckBox
 
#endif

protected:
        void __fastcall WMPaint(TWMPaint &Message)
        {
            ControlState = ControlState << csCustomPaint; // переводим компонент временно в нужное состояние
            Stdctrls::TCheckBox::Dispatch(&Message);
            ControlState = ControlState >> csCustomPaint;
        }
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(WM_PAINT, TWMPaint, WMPaint)
        END_MESSAGE_MAP(Stdctrls::TCheckBox)