diff options
Diffstat (limited to 'extensions/test/ole/MfcControl/MfcControlCtl.cpp')
| -rw-r--r-- | extensions/test/ole/MfcControl/MfcControlCtl.cpp | 347 |
1 files changed, 0 insertions, 347 deletions
diff --git a/extensions/test/ole/MfcControl/MfcControlCtl.cpp b/extensions/test/ole/MfcControl/MfcControlCtl.cpp deleted file mode 100644 index 399fb5db9..000000000 --- a/extensions/test/ole/MfcControl/MfcControlCtl.cpp +++ /dev/null @@ -1,347 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -// MfcControlCtl.cpp : Implementation of the CMfcControlCtrl ActiveX Control class. - -#include "stdafx.h" -#include "MfcControl.h" -#include "MfcControlCtl.h" -#include "MfcControlPpg.h" - - -#ifdef _DEBUG -#define new DEBUG_NEW -#undef THIS_FILE -static char THIS_FILE[] = __FILE__; -#endif - - -IMPLEMENT_DYNCREATE(CMfcControlCtrl, COleControl) - - -///////////////////////////////////////////////////////////////////////////// -// Message map - -BEGIN_MESSAGE_MAP(CMfcControlCtrl, COleControl) - //{{AFX_MSG_MAP(CMfcControlCtrl) - // NOTE - ClassWizard will add and remove message map entries - // DO NOT EDIT what you see in these blocks of generated code ! - //}}AFX_MSG_MAP - ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties) -END_MESSAGE_MAP() - - -///////////////////////////////////////////////////////////////////////////// -// Dispatch map - -BEGIN_DISPATCH_MAP(CMfcControlCtrl, COleControl) - //{{AFX_DISPATCH_MAP(CMfcControlCtrl) - DISP_FUNCTION(CMfcControlCtrl, "inShort", inShort, VT_I2, VTS_I2) - DISP_FUNCTION(CMfcControlCtrl, "inLong", inLong, VT_I4, VTS_I4) - DISP_FUNCTION(CMfcControlCtrl, "inString", inString, VT_BSTR, VTS_PBSTR) - DISP_FUNCTION(CMfcControlCtrl, "inFloat", inFloat, VT_R4, VTS_R4) - DISP_FUNCTION(CMfcControlCtrl, "inDouble", inDouble, VT_R8, VTS_R8) - DISP_FUNCTION(CMfcControlCtrl, "inVariant", inVariant, VT_VARIANT, VTS_VARIANT) - DISP_FUNCTION(CMfcControlCtrl, "inObject", inObject, VT_DISPATCH, VTS_DISPATCH) - DISP_FUNCTION(CMfcControlCtrl, "outShort", outShort, VT_EMPTY, VTS_PI2) - DISP_FUNCTION(CMfcControlCtrl, "outLong", outLong, VT_EMPTY, VTS_PI4) - DISP_FUNCTION(CMfcControlCtrl, "outString", outString, VT_EMPTY, VTS_PBSTR) - DISP_FUNCTION(CMfcControlCtrl, "outFloat", outFloat, VT_EMPTY, VTS_PR4) - DISP_FUNCTION(CMfcControlCtrl, "outDouble", outDouble, VT_EMPTY, VTS_PR8) - DISP_FUNCTION(CMfcControlCtrl, "outVariant", outVariant, VT_EMPTY, VTS_PVARIANT) - DISP_FUNCTION(CMfcControlCtrl, "outObject", outObject, VT_EMPTY, VTS_PDISPATCH) - //}}AFX_DISPATCH_MAP -END_DISPATCH_MAP() - - -///////////////////////////////////////////////////////////////////////////// -// Event map - -BEGIN_EVENT_MAP(CMfcControlCtrl, COleControl) - //{{AFX_EVENT_MAP(CMfcControlCtrl) - // NOTE - ClassWizard will add and remove event map entries - // DO NOT EDIT what you see in these blocks of generated code ! - //}}AFX_EVENT_MAP -END_EVENT_MAP() - - -///////////////////////////////////////////////////////////////////////////// -// Property pages - -// TODO: Add more property pages as needed. Remember to increase the count! -BEGIN_PROPPAGEIDS(CMfcControlCtrl, 1) - PROPPAGEID(CMfcControlPropPage::guid) -END_PROPPAGEIDS(CMfcControlCtrl) - - -///////////////////////////////////////////////////////////////////////////// -// Initialize class factory and guid - -IMPLEMENT_OLECREATE_EX(CMfcControlCtrl, "MFCCONTROL.MfcControlCtrl.1", - 0xac221fb6, 0xa0d8, 0x11d4, 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4) - - -///////////////////////////////////////////////////////////////////////////// -// Type library ID and version - -IMPLEMENT_OLETYPELIB(CMfcControlCtrl, _tlid, _wVerMajor, _wVerMinor) - - -///////////////////////////////////////////////////////////////////////////// -// Interface IDs - -const IID BASED_CODE IID_DMfcControl = - { 0xac221fb4, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } }; -const IID BASED_CODE IID_DMfcControlEvents = - { 0xac221fb5, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } }; - - -///////////////////////////////////////////////////////////////////////////// -// Control type information - -static const DWORD BASED_CODE _dwMfcControlOleMisc = - OLEMISC_ACTIVATEWHENVISIBLE | - OLEMISC_SETCLIENTSITEFIRST | - OLEMISC_INSIDEOUT | - OLEMISC_CANTLINKINSIDE | - OLEMISC_RECOMPOSEONRESIZE; - -IMPLEMENT_OLECTLTYPE(CMfcControlCtrl, IDS_MFCCONTROL, _dwMfcControlOleMisc) - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry - -// Adds or removes system registry entries for CMfcControlCtrl - -BOOL CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry(BOOL bRegister) -{ - // TODO: Verify that your control follows apartment-model threading rules. - // Refer to MFC TechNote 64 for more information. - // If your control does not conform to the apartment-model rules, then - // you must modify the code below, changing the 6th parameter from - // afxRegApartmentThreading to 0. - - if (bRegister) - return AfxOleRegisterControlClass( - AfxGetInstanceHandle(), - m_clsid, - m_lpszProgID, - IDS_MFCCONTROL, - IDB_MFCCONTROL, - afxRegApartmentThreading, - _dwMfcControlOleMisc, - _tlid, - _wVerMajor, - _wVerMinor); - else - return AfxOleUnregisterClass(m_clsid, m_lpszProgID); -} - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl::CMfcControlCtrl - Constructor - -CMfcControlCtrl::CMfcControlCtrl() -{ - InitializeIIDs(&IID_DMfcControl, &IID_DMfcControlEvents); - - // TODO: Initialize your control's instance data here. -} - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl::~CMfcControlCtrl - Destructor - -CMfcControlCtrl::~CMfcControlCtrl() -{ - // TODO: Cleanup your control's instance data here. -} - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl::OnDraw - Drawing function - -void CMfcControlCtrl::OnDraw( - CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid) -{ - // TODO: Replace the following code with your own drawing code. - pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH))); - pdc->Ellipse(rcBounds); -} - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl::DoPropExchange - Persistence support - -void CMfcControlCtrl::DoPropExchange(CPropExchange* pPX) -{ - ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor)); - COleControl::DoPropExchange(pPX); - - // TODO: Call PX_ functions for each persistent custom property. - -} - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl::OnResetState - Reset control to default state - -void CMfcControlCtrl::OnResetState() -{ - COleControl::OnResetState(); // Resets defaults found in DoPropExchange - - // TODO: Reset any other control state here. -} - - -///////////////////////////////////////////////////////////////////////////// -// CMfcControlCtrl message handlers - - -short CMfcControlCtrl::inShort(short val) -{ - char buf[256]; - sprintf( buf, "inByte: value= %d", val); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - return val+1; -} - -long CMfcControlCtrl::inLong(long val) -{ - char buf[256]; - sprintf( buf, "inLong: value= %d", val); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - return val+1; -} - -BSTR CMfcControlCtrl::inString(BSTR* val) -{ - CString strResult; - strResult= *val; - char buf[256]; - sprintf( buf, "inString: value= %S", *val); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - strResult += L" an appended string"; - return strResult.AllocSysString(); -} - -float CMfcControlCtrl::inFloat(float val) -{ - char buf[256]; - sprintf( buf, "inFloat: value= %f", val); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - return val+1; -} - -double CMfcControlCtrl::inDouble(double val) -{ - char buf[256]; - sprintf( buf, "inDouble: value= %g", val); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - return val+1; -} - -VARIANT CMfcControlCtrl::inVariant(const VARIANT FAR& val) -{ - VARIANT vaResult; - VariantInit(&vaResult); - VariantCopyInd( &vaResult, const_cast<VARIANT*>(&val)); - if( vaResult.vt == VT_BSTR) - { - char buf[256]; - sprintf( buf, "inVariant: value= %S", vaResult.bstrVal); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - - } - return _variant_t( L" a string from CMfcControlCtrl::inVariant"); -} - -LPDISPATCH CMfcControlCtrl::inObject(LPDISPATCH val) -{ - char buf[256]; - _bstr_t bstr; - HRESULT hr= S_OK; - COleVariant var; - DISPID id; - OLECHAR* name=L"prpString"; - if( SUCCEEDED(hr= val->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id))) - { - DISPPARAMS params={0,0,0,0}; - hr= val->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, ¶ms, &var,0,0); - - } - - if( var.vt== VT_BSTR) - bstr= var.bstrVal; - sprintf( buf, "inObject: value= %S", (wchar_t*)bstr); - ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK); - - return NULL; -} - - -void CMfcControlCtrl::outShort(short* val) -{ - *val= 123; -} - -void CMfcControlCtrl::outLong(long* val) -{ - *val= 1234; -} - -void CMfcControlCtrl::outString(BSTR FAR* val) -{ - *val= SysAllocString(L"A string from CMfcControlCtrl::outString "); -} - -void CMfcControlCtrl::outFloat(float* val) -{ - *val= 3.14f; -} - -void CMfcControlCtrl::outDouble(double* val) -{ - *val= 3.145; -} - -void CMfcControlCtrl::outVariant(VARIANT FAR* val) -{ - VariantInit( val); - val->vt= VT_BSTR; - val->bstrVal= SysAllocString( L"a string in a VARIANT"); -} - -void CMfcControlCtrl::outObject(LPDISPATCH FAR* val) -{ - //{BFE10EBE-8584-11D4-005004526AB4} - HRESULT hr= S_OK; - CLSID clsTestControl; - hr= CLSIDFromProgID( L"AxTestComponents.Basic", &clsTestControl); - - IDispatch* pDisp= NULL; - hr= CoCreateInstance( clsTestControl, NULL, CLSCTX_ALL, __uuidof(IDispatch), (void**)&pDisp); - - if( SUCCEEDED( hr) && val) - { - COleVariant var; - DISPID id; - OLECHAR* name=L"prpString"; - if( SUCCEEDED(hr= pDisp->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id))) - { - COleVariant vaParam1(_T("this is property prpString of AxTestComponents.Basic")); - DISPID dispidPut= DISPID_PROPERTYPUT; - DISPPARAMS params; - params.cArgs= 1; - params.cNamedArgs= 1; - params.rgdispidNamedArgs= &dispidPut; - params.rgvarg= &vaParam1; - - hr= pDisp->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, ¶ms, &var,0,0); - *val= pDisp; - } - - } - -} -// VT_I1 - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |