1cpp/Source/AXControl.cpp - master - MadDAD/alterplast

1cpp/Source/AXControl.cpp
544 строки16 KB
trdm
24 мар 2017, 11:36
24 мар 2017, 11:36f368595
// AXControl.cpp: implementation of the CAXControl class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "afxpriv2.h"
#include "AXControl.h"

// �������� �������� � ����������
BOOL CAXCtrlContainer::CreateCtrlWnd(const CString& strClassName, CValue& RetVal)
{
	CRect rect;
	GetClientRect(rect);
	
	CAXControlWnd* pNewWnd = new CAXControlWnd(this);
	if(pNewWnd->CreateControl((LPCTSTR )strClassName,NULL, WS_VISIBLE|WS_CHILD|(m_bIsTab ? WS_TABSTOP : 0),rect, this, 0, NULL,FALSE,NULL))
	{
		delete m_pControl;
		m_pControl = pNewWnd;
		// ����� ����������� �������� WM_SETFOCUS, ���� ��������������� �������
		*m_pControl->GetSuperWndProcAddr() = (WNDPROC)::SetWindowLong(m_pControl->m_hWnd, GWL_WNDPROC, (LONG)AfxGetAfxWndProc());

		LPUNKNOWN iUnkControl=m_pControl->GetControlUnknown();
		iUnkControl->AddRef();
		DispatchToValue(reinterpret_cast<IUnknown**>(&iUnkControl), &RetVal);
		SetupEventHandlers();
		return TRUE;
	}else{
		delete pNewWnd;
		RuntimeError("�������� �������� ���������� %s �� �������",strClassName);
		return FALSE;
	}	
}

CAXCtrlContainer::~CAXCtrlContainer()
{
	delete m_pControl;
	//delete m_EventHandlers;
	//delete m_ComponentEventHandlers;
	if(m_pParentObj)
		m_pParentObj->m_pCtrlCnt=NULL;
}

void CAXCtrlContainer::Reset()
{
	delete m_pControl;
	m_pComponentBLModule=NULL;
	m_pDoc=NULL;
	m_pControl=NULL;
	m_pParentObj=NULL;
}

/*
STDMETHOD(OnControlInfoChanged)();
STDMETHOD(LockInPlaceActive)(BOOL fLock);
STDMETHOD(GetExtendedControl)(LPDISPATCH* ppDisp);
STDMETHOD(TransformCoords)(POINTL* lpptlHimetric,
	POINTF* lpptfContainer, DWORD flags);
STDMETHOD(TranslateAccelerator)(LPMSG lpMsg, DWORD grfModifiers);
STDMETHOD(OnFocus)(BOOL fGotFocus);
STDMETHOD(ShowPropertyFrame)();
STDMETHODIMP CAXCtrlContainer::XOleCtrlSite::OnFocus(BOOL bFocus)
{
	METHOD_PROLOGUE_EX_(CAXCtrlContainer, OleCtrlSite)
	return pThis->m_pCtrlSite->m_xOleControlSite.OnFocus(bFocus);
	//return S_OK;
}
*/


// �������� ����-���������� �� ����� �������� �����
// ��� ���� ���� ������� - �����, �� ���������, ��� ���� ������� �� ������ �������� �����
// (�� ��������� �����) - ��������� ��������, ������� � ��.
// � ���� ������� �� ����� ������, �� ��������� �����.
CAXCtrlContainer* CAXCtrlContainer::CreateContainer(CAXControl* pCtrlObj, CGetDoc7* pDoc, CGetField* pGetField, CBLContext* pUDC)
{
	int attrType;
    if(!pGetField || !((attrType=pGetField->GetCtrlInfo()->m_CtrlType)==1 || attrType==3))
    {
		RuntimeError("�������� ��� �������� (����������� ����� ��� ������)");
        RuntimeError("������������ ������� �����.");
        return NULL;
    }

	CAXCtrlContainer* pCont = new CAXCtrlContainer(pCtrlObj);
	pCont->m_pDoc=pDoc;
	CControlID* pControlID = pGetField->GetCtrlInfo();
	pCont->m_ControlID = pControlID->GetCodeName();

	LPCSTR szDummyFormulWithoutWorkingOnEnterPressOnAttrib = "//"; //"���� 1 = 1 ����� ��������� ;";
	pControlID->SetFormul(szDummyFormulWithoutWorkingOnEnterPressOnAttrib);

	if(pUDC)
		pCont->m_pComponentBLModule=((CComponentClass*)(pUDC))->GetModule();

	CWnd* pOldWnd = pDoc->GetFieldWnd(pGetField);
	CWnd* pParent = pOldWnd->GetParent();
	
	CRect rect;
	pOldWnd->GetWindowRect(rect);
	pParent->ScreenToClient(rect);
	int id = pOldWnd->GetDlgCtrlID();
	delete pOldWnd;

	pCont->m_bIsTab = (attrType != 1);

	DWORD dwStyle = WS_CHILD | (pCont->m_bIsTab ? WS_TABSTOP : 0);
	if (pGetField->m_Visible)
		dwStyle |= WS_VISIBLE;
	if (pGetField->GetReadOnly())
		dwStyle |= WS_DISABLED;
	
	pCont->Create(AfxRegisterWndClass(CS_HREDRAW|CS_VREDRAW, ::LoadCursor(NULL, IDC_ARROW), 0),
		NULL, dwStyle, rect, pParent, id);
	return pCont;
}

extern CBkEndUI * pBkEndUI;

BEGIN_BL_METH_MAP(CAXControl)
    BL_METH("AssignAttrib", "�����������������", 2, methAssignAttrib, NULL, NULL)
    BL_METH("CreateControl", "���������", 1, NULL, methCreateControl, NULL)
    BL_METH("SetFocus", "���������������", 0, methSetFocus, NULL, NULL)
    BL_METH("Destroy", "����������", 0, methDestroy, NULL, NULL)
END_BL_METH_MAP()

BEGIN_BL_PROP_MAP(CAXControl)
    BL_PROP("Object", "������", GetPropObject, NULL)
    BL_PROP("EventProcessing", "����������������", GetPropEventProcessing, SetPropEventProcessing)
END_BL_PROP_MAP()

IMPLEMENT_MY_CONTEXT(CAXControl, "ActiveX", "��������", 1, NULL, NULL, 3);
//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CAXControl::CAXControl()
{
	m_pCtrlCnt=NULL;
}

CAXControl::~CAXControl()
{
	if(m_pCtrlCnt)
		m_pCtrlCnt->Reset();
}

BOOL CAXControl::methAssignAttrib(CValue **params)
{
	CBLContext* pBLCont = params[0]->GetContext();
	if (pBLCont)
	{
		if(!strcmp(pBLCont->GetRuntimeClass()->m_lpszClassName,"CFormAllCtrlsContext"))
		{
			CFormAllCtrlsContext *p_Form = (CFormAllCtrlsContext*)pBLCont;
		
			CGetDoc7* pDoc = (CGetDoc7*)p_Form->m_GetDoc;

				CGetFieldsArray* pGetFieldsArray = &(pDoc->m_cGetFieldsArray1);
				
				if(pDoc->m_CtrlArray.GetSize() <= 0)
					RuntimeError("����� <��������::�����������������> ����� ������������ ������ ����� ����������� �������� ���� �����");

				int cnt = pGetFieldsArray->GetSize();
				for(int i = 0; i<cnt; i++)
				{
					if(!strcmp(params[1]->m_String, pGetFieldsArray->GetAt(i)->GetCtrlInfo()->GetCodeName()))
						break;
				}
				if(i==cnt)
				{
					RuntimeError("�������� ������������� ��������");
					return FALSE;
				}
				m_pCtrlCnt = CAXCtrlContainer::CreateContainer(this, pDoc, pGetFieldsArray->GetAt(i), NULL);
		}else{
			RuntimeError("������� ������� �����");
		}
	}else{
		RuntimeError("�� ������� �����");
	}
	return TRUE;
}

BOOL CAXControl::methCreateControl(CValue &RetVal, CValue **params)
{
	if(!m_pCtrlCnt)
	{
		RuntimeError("�� ����� ������������ ������� ����������");
		return FALSE;
	}
	CString className=params[0]->GetString();
	className.TrimRight();
	return m_pCtrlCnt->CreateCtrlWnd(className, RetVal);
}

BOOL CAXControl::methDestroy(CValue **params)
{
	if(m_pCtrlCnt) m_pCtrlCnt->DestroyWindow();
	return TRUE;
}

BOOL CAXControl::methSetFocus(CValue **params)
{
    if(m_pCtrlCnt) SetFocus(m_pCtrlCnt->m_pControl->m_hWnd);
	return TRUE;
}

BOOL CAXControl::SetPropObject(CValue const& Value)
{
	if(IS_BLTYPE(Value,CStdOleBLContext)){
/*		CStdOleBLContext *cont=((CStdOleBLContext*)(Value.GetContext()));
		IOleObject *iOleObj;
		cont->m_IUnknown->QueryInterface(IID_IOleObject,(void**)&iOleObj);
		COleControlSite *pSite = afxOccManager->CreateSite(pControlWnd->m_pCtrlCont);
		pSite->m_pWndCtrl = m_pCtrlWnd;
		//pSite->m_hWnd= m_pCtrlWnd->m_hWnd;
		m_pCtrlWnd->m_pCtrlSite = pSite;
		_AFX_THREAD_STATE* pState = AfxGetThreadState();
		if (!pState->m_bNeedTerm && !AfxOleInit())
			return FALSE;
		pSite->m_pObject = iOleObj;
		pSite->QuickActivate();
		iOleObj->SetClientSite(&(pSite->m_xOleClientSite));
		HWND hWnd = NULL;
		cont->m_IUnknown->QueryInterface(IID_IOleInPlaceObject,
				(LPVOID*)&(pSite->m_pInPlaceObject));
		if (SUCCEEDED(pSite->m_pInPlaceObject->GetWindow(&hWnd)))
		{
			if (pSite->m_hWnd != hWnd)
			{
				pSite->m_hWnd = hWnd;
				if (pSite->m_pWndCtrl != NULL)
					pSite->m_pWndCtrl->Attach(pSite->m_hWnd);
			}
		}
		pControlWnd->m_pCtrlCont->m_siteMap.SetAt(pSite->m_hWnd, pSite);
		/**/
	}
	return TRUE;
}

BOOL CAXControl::GetPropObject(CValue &Value) const
{
	if(!m_pCtrlCnt) return TRUE;
	if(m_pCtrlCnt->m_pControl)
	{
		LPUNKNOWN iUnkControl = m_pCtrlCnt->m_pControl->GetControlUnknown();
		iUnkControl->AddRef();
		DispatchToValue(reinterpret_cast<IUnknown**>(&iUnkControl), &Value);
	}
	return TRUE;
}
/*
BOOL CAXControl::CreateControl(CWnd* pFrame, CGetDoc7* pDoc, CGetField* pGetField, CValue& vControl)
{
    if (pGetField == NULL || pGetField->GetCtrlInfo()->m_CtrlType != HOSTING_CONTROL_TYPE)
    {
        RuntimeError("������������ ������� �����.");
        return FALSE;
    }
    CAXControl* pAXControl = NULL;
    CBLContext* pControl = NULL;
	BOOL bIsComponentClass = FALSE;

    if (IS_BLTYPE(vControl,CComponentClass))
    {
        CBLContext* pAXControlCtx;
        if (static_cast<CComponentClass*>(vControl.GetContext())->GetBaseClass(RUNTIME_CLASS(CAXControl), &pAXControlCtx))
        {
            pAXControl = static_cast<CAXControl*>(pAXControlCtx);
			bIsComponentClass = TRUE;
        }
    }
	else if(IS_BLTYPE(vControl,CAXControl))
	{
		pAXControl=static_cast<CAXControl*>(vControl.GetContext());
	}
    else if (vControl.GetTypeCode() == UNDEFINE_TYPE_1C)
    {
        pAXControl = new CAXControl;
        vControl.AssignContext(pAXControl);
        pAXControl->DecrRef();
    }
    if (!pAXControl)
    {
        RuntimeError("������������ ������ ��.", 0);
        return FALSE;
    }
    CControlID* pControlID = pGetField->GetCtrlInfo();
    pAXControl->m_pParentWnd = (CAXControlWnd*)pDoc->GetFieldWnd(pGetField);
	pAXControl->m_pCtrlWnd = new CAXControlWnd;
	if(bIsComponentClass)
		pAXControl->m_pCtrlWnd->m_pComponentBLModule=((CComponentClass*)(vControl.GetContext()))->GetModule();
	pAXControl->m_pCtrlWnd->m_pDoc=pDoc;
	pAXControl->m_pCtrlWnd->m_ControlID = pControlID->GetCodeName();
    return TRUE;
}
*/
BOOL CAXControl::CreateControlWnd(CWnd* pParent, CGetDoc7* pDoc, CGetField* pGetField, CBLContext* pUDC)
{
	m_pCtrlCnt = CAXCtrlContainer::CreateContainer(this, pDoc, pGetField, pUDC);
    return TRUE;
}

BOOL CAXControl::_Create(CValue** ppValue)
{
	methAssignAttrib(ppValue);
	CValue RetVal;
	methCreateControl(RetVal,&ppValue[2]);
	return TRUE;
}

CAXControlWnd::CAXControlWnd(CAXCtrlContainer* pCont):m_pCont(pCont)
{
}

void CAXCtrlContainer::SetupEventHandlers(){
	if(!m_pControl)
		return;
	IProvideClassInfoPtr pPCI = m_pControl->GetControlUnknown();
	if(pPCI==NULL)
		return;
	ITypeInfoPtr pClassInfo;
	pPCI->GetClassInfo(&pClassInfo);
	if(pClassInfo==NULL)
		return;

	TYPEATTR *pTypeAttr;
	if(S_OK!=pClassInfo->GetTypeAttr(&pTypeAttr))
		return;

	for(UINT iType = 0; (iType < pTypeAttr->cImplTypes) ; iType++ )
	{
		int iFlags;
		if(S_OK == pClassInfo->GetImplTypeFlags( iType, &iFlags ) )
		{
			if((iFlags & IMPLTYPE_MASK) == IMPLTYPE_DEFAULTSOURCE )
			{
				ITypeInfoPtr pTypeInfo;
				HREFTYPE hRefType;
				if(S_OK == pClassInfo->GetRefTypeOfImplType( iType, &hRefType ))
				{
					if(S_OK == pClassInfo->GetRefTypeInfo(hRefType, &pTypeInfo) && pTypeInfo!=NULL)
					{
						int iMethod;
						UINT nNames;
						TYPEATTR* pta;
						if(S_OK == pTypeInfo->GetTypeAttr( &pta ))
						{
							for( iMethod = 0; iMethod < pta->cFuncs; iMethod++ )
							{
								FUNCDESC* pfd;
								if(S_OK == pTypeInfo->GetFuncDesc( iMethod, &pfd ))
								{
									if( !(pfd->wFuncFlags&FUNCFLAG_FRESTRICTED) &&
										(pfd->funckind == FUNC_DISPATCH) )
									{
										CComBSTR bstrNames=NULL;
										if(S_OK == pTypeInfo->GetNames( pfd->memid, &bstrNames, 1,&nNames ))
										{
											CString funcName(bstrNames);
											//SysFreeString(bstrNames);
											CBLModule7 *pMod = m_pDoc->m_pBLModule;
											if(pMod)
											{
												CString nameProc(m_ControlID+"_"+funcName);
												int r = pMod->FindProc(nameProc, 0);
												if(r<0)
													r = pMod->FindFunc(nameProc);
												if(r>=0)
												{
													EventInfo ei={r,pfd->cParams};
													m_EventHandlers->SetAt(pfd->memid,ei);
												}
											}
											if(m_pComponentBLModule)
											{
												int r = m_pComponentBLModule->FindProc(funcName,0);
												if(r<0)
													r = m_pComponentBLModule->FindFunc(funcName);
												if(r>=0)
												{
													EventInfo ei={r,pfd->cParams};
													m_ComponentEventHandlers->SetAt(pfd->memid,ei);
												}
											}
										}
									}
									pTypeInfo->ReleaseFuncDesc(pfd);
								}
							}
							pTypeInfo->ReleaseTypeAttr(pta);
						}
					}
				}
				break;
			}
		}
	}
	pClassInfo->ReleaseTypeAttr(pTypeAttr);
}

void CAXCtrlContainer::CallEventHandler(EventInfo ei, CValue** lArray, CBLModule7* pModule)
{
	if(ei.procid>0)
	{
		CBLProcInfo cblProcInfo;
		if(pModule->GetProcInfo(ei.procid,cblProcInfo))
		{
			int newArgNum = cblProcInfo.GetNParams();
			if(newArgNum > ei.argNum) newArgNum = ei.argNum;
			int t = cblProcInfo.GetType();

			CGetCtrl* pCurCtrl=m_pDoc->GetActiveCtl();
			if(pCurCtrl) pCurCtrl->DeActivate();
			m_pDoc->OnStartBatch();
			if(t == 1)
				pModule->CallAsProc(ei.procid,newArgNum,lArray);
			else
			{
				CValue arValue;
				pModule->CallAsFunc(ei.procid,arValue,newArgNum,lArray);
			}
			m_pDoc->OnEndBatch(1);
		}
	}

}
/**/
BOOL CAXControlWnd::OnCmdMsg(UINT nID, int nCode, void* pExtra,AFX_CMDHANDLERINFO* pHandlerInfo)
{
	return m_pCont->OnCtrlCmdMsg(nID, nCode, pExtra, pHandlerInfo);
}

BEGIN_MESSAGE_MAP(CAXCtrlContainer, CWnd)
	ON_WM_SIZE()
	ON_WM_SETFOCUS()
	ON_WM_GETDLGCODE()
	ON_WM_PAINT()
END_MESSAGE_MAP()

BEGIN_MESSAGE_MAP(CAXControlWnd, CWnd)
	ON_WM_SETFOCUS()
	ON_WM_MOUSEACTIVATE()
END_MESSAGE_MAP()

void CAXControlWnd::OnSetFocus(CWnd* pOldWnd)
{
	if(pOldWnd!=m_pCont)
	{
		int id = m_pCont->GetDlgCtrlID();
		m_pCont->m_pDoc->SetActiveCtl(id);
	}
	else
		Default();
}

int CAXControlWnd::OnMouseActivate(CWnd* pDesktopWnd, UINT nHitTest, UINT message)
{
	LRESULT lRet = Default();
	if(lRet==MA_ACTIVATE)
	{
		int id = m_pCont->GetDlgCtrlID();
		m_pCont->m_pDoc->SetActiveCtl(id);
	}
	return lRet;
}

BOOL CAXCtrlContainer::OnCtrlCmdMsg(UINT nID, int nCode, void* pExtra,AFX_CMDHANDLERINFO* pHandlerInfo)
{
	if(m_iEventProcessing){
		if(nCode == CN_EVENT){
			AFX_EVENT* pEvent=(AFX_EVENT*)pExtra;
			if(pEvent->m_eventKind == AFX_EVENT::event){
				EventInfo ei;
				BOOL foundModuleHandler=m_EventHandlers->Lookup(pEvent->m_dispid,ei);
				BOOL foundComponentHandler=FALSE;
				if(m_pComponentBLModule){
					foundComponentHandler=m_ComponentEventHandlers->Lookup(pEvent->m_dispid,ei);
				}
				if(foundModuleHandler || foundComponentHandler){
					CValue p1, p2, p3, p4, p5, p6, p7, p8, p9, p10;
					CValue *lArray[10]={&p1, &p2, &p3, &p4, &p5, &p6, &p7, &p8, &p9, &p10};
					UINT ui;
					((CBLMyEx*)NULL)->DispParamToValueEx(lArray,pEvent->m_pDispParams,&ui);
					if(foundComponentHandler){
						CallEventHandler(ei,lArray,(CBLModule7*)m_pComponentBLModule);
					}
					if(foundModuleHandler){
						CallEventHandler(ei,lArray,&(m_pDoc->m_cBLModule7));
					}
					for(int i=0;i<pEvent->m_pDispParams->cArgs;i++){
						VARIANTARG v=pEvent->m_pDispParams->rgvarg[i];
						if(v.vt & VT_BYREF){
							CValue RetValue=*(lArray[pEvent->m_pDispParams->cArgs-i-1]);
							VARTYPE ordType = v.vt ^ VT_BYREF;
							switch (RetValue.type)
							{
							case 1:
								switch (ordType)
								{
								case VT_UI1: *(v.pbVal)		=RetValue.m_Number; break;
								case VT_UI2: *(v.puiVal)	=RetValue.m_Number; break;
								case VT_UI4: *(v.pulVal)	=RetValue.m_Number; break;
								case VT_I1: *(v.pcVal)		=RetValue.m_Number; break;
								case VT_I2: *(v.piVal)		=RetValue.m_Number; break;
								case VT_I4: *(v.plVal)		=RetValue.m_Number; break;
								case VT_INT: *(v.pintVal)	=RetValue.m_Number; break;
								case VT_UINT: *(v.puintVal)	=RetValue.m_Number; break;
								case VT_BOOL: *(v.piVal)	=RetValue.m_Number; break;
								case VT_R4: *(v.pfltVal)	=RetValue.m_Number; break;
								default:
									((CBLMyEx*)NULL)->ValueToVariantEx(RetValue,v.pvarVal); break;
								}
								break;
							case 2:
								switch (ordType)
								{
								case VT_BSTR:
									*(v.pbstrVal) = RetValue.m_String.AllocSysString(); break;
								}
								break;
							case 3:
								((CBLMyEx*)NULL)->ValueToVariantEx(RetValue,v.pvarVal);
								break;
							default:
								if((ordType !=VT_DISPATCH) && (ordType !=VT_UNKNOWN))
									((CBLMyEx*)NULL)->ValueToVariantEx(RetValue,v.pvarVal);
							}
						}
					}/**/
				}
			}else if(pEvent->m_eventKind == AFX_EVENT::propChanged){
				//Msg("%s_propChanged(dispid=%i)", m_ControlID, pEvent->m_dispid);
			}else if(pEvent->m_eventKind == AFX_EVENT::propDSCNotify){
				//Msg("%s_DSCNotify(DSCSTATE=%i,DSCREASON=%i)", m_ControlID, pEvent->m_nDSCState, pEvent->m_nDSCReason);
			}
		}
		return FALSE;
	}else{
		return FALSE;
	}
}