FIX: ClassWizard Uses DISPID_CAPTION as Custom Caption Property

MORE INFORMATION

Steps to Reproduce Behavior

1. Create an ActiveX control with MFC ActiveX ControlWizard.
2. Add a custom "Get/Set methods" property named "Caption" with ClassWizard. The following is generated by ClassWizard:

         // The following lines are added to your control's .h file:
         afx_msg BSTR GetCaption();
         afx_msg void SetCaption(LPCTSTR lpszNewValue);
   
         // The following line is added to dispatch map of your control's .cpp
         // file:
         DISP_PROPERTY_EX_ID(CMyActiveXCtrl, "Caption", DISPID_CAPTION,
            GetCaption, SetCaption, VT_BSTR)
   
         // The following methods are added to your control's .cpp file:
         BSTR CMyActiveXCtrl::GetCaption()
         {
            CString strResult;
            // TODO: Add your property handler here.
   
            return strResult.AllocSysString();
         }
   
         void CMyActiveXCtrl::SetCaption(LPCTSTR lpszNewValue)
         {
            // TODO: Add your property handler here.
   
         SetModifiedFlag();
         }
   
   
         // The following line is added to your control's Object
         // Description (.ODL) file:
         [id(DISPID_CAPTION)] BSTR Caption;
   					

3. Add a member variable to your control's class named m_Caption of type CString. Then, make the following changes to the following functions in your control's .cpp file:

         void CMyActiveXCtrl::DoPropExchange(CPropExchange* pPX)
         {
            ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
            COleControl::DoPropExchange(pPX);
   
            PX_String(pPX, _T("Caption"), m_Caption, _T("Caption"));
         }
   
         BSTR CMyActiveXCtrl::GetCaption()
         {
            CString strResult;
            strResult=m_Caption;
            return strResult.AllocSysString();
         }
   
         void CMyActiveXCtrl::SetCaption(LPCTSTR lpszNewValue)
         {
            SetModifiedFlag();
            m_Caption=lpszNewValue;
   
            BoundPropertyChanged(DISPID_CAPTION);
         }
   					

4. Build the control's project and load the control to a form in Visual Basic.
5. Change the value of Caption property for the control from "Caption" to "Change Caption" in Visual Basic's Properties Window. Then, save this project.
6. Load the control's project in Visual Basic. The caption's value is "Change Caption." Now, change it from "Change Caption" to "More Change Caption". Save this project again.
7. Load the control's project once again in Visual Basic. However, the caption value is "Change Caption" instead of "More Change Caption."
8. If you open the .frm file of the control with Notepad, you will notice that there are two persisted Caption properties. One is "Change Caption" and the other is "More Change Caption."