/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ /* * This file is part of the LibreOffice project. * * This Source Code Form is subject to the terms of the Mozilla Public * License, v. 2.0. If a copy of the MPL was not distributed with this * file, You can obtain one at http://mozilla.org/MPL/2.0/. * * This file incorporates work covered by the following license notice: * * Licensed to the Apache Software Foundation (ASF) under one or more * contributor license agreements. See the NOTICE file distributed * with this work for additional information regarding copyright * ownership. The ASF licenses this file to you under the Apache * License, Version 2.0 (the "License"); you may not use this file * except in compliance with the License. You may obtain a copy of * the License at http://www.apache.org/licenses/LICENSE-2.0 . */ // 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(&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: */