Property list ActiveX control

// FunctionItem.cpp: implementation of the CFunctionItem class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "PropList.h"
#include "FunctionItem.h"
#include "MyList.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

// Utility
#define GETICONRESOURCE16(i) (HICON)LoadImage(AfxGetResourceHandle( ),MAKEINTRESOURCE(i),IMAGE_ICON,16,16,0)
#define GETICONRESOURCE32(i) (HICON)LoadImage(AfxGetResourceHandle( ),MAKEINTRESOURCE(i),IMAGE_ICON,32,32,0)


//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CFunctionItem::CFunctionItem()
{
	type = TYPE_FUNCTION;
}

CFunctionItem::~CFunctionItem()
{

}

void CFunctionItem::CreateControl(CWnd *pParent,CFont* pFont, UINT id)
{
	CListItem::CreateControl(pParent,pFont,id);
	m_button.Create("",WS_CHILD|BS_PUSHBUTTON|BS_ICON|BS_FLAT,CRect(0,0,10,10),pParent,id);
	m_button.SetIcon(GETICONRESOURCE16(IDI_SCRIPT));

	m_scripter.CreateInstance(__uuidof(ScriptControl));
	_bstr_t bstrLanguage(L"VBScript");
	m_scripter->put_Language(bstrLanguage);
}

void CFunctionItem::Activate(CRect rect)
{
	if (!bEnabled)
		return;
}

void CFunctionItem::DrawValue(CDC *pDc, CRect rect)
{
	CListItem::DrawValue(pDc,rect);
	rect.right -= 1;
	rect.bottom -= 1;
	CRect rcButton = rect;
	rcButton.left = rect.right - rect.Height()-4;
	m_button.MoveWindow(rcButton);
	m_button.SetButtonStyle(m_button.GetButtonStyle() & ~BS_DEFPUSHBUTTON);
	m_button.ShowWindow(SW_SHOW);
	m_button.Invalidate();
	rect.right -= rect.Height()+8;
	rect.left+= 5;
	rect.right-= 2;
	pDc->DrawText(GetString(),rect,DT_PATH_ELLIPSIS|DT_END_ELLIPSIS|DT_SINGLELINE|DT_VCENTER);
}

CString CFunctionItem::GetString()
{
	_variant_t var;
	CString str;
	CString val = value.bstrVal;
	
	// Replace variable names with values
	CMyList* pList = (CMyList*)pOwner;
	if (!pList)
		return "";
	val = pList->ReplaceValues(val);
	try  // Make sure exception handling is turned on.
	{
		
		var = m_scripter->Eval(_bstr_t(val));
	}
	catch(_com_error e)
	{
		IScriptErrorPtr scriptError(m_scripter->GetError());
		CString strDescription = (char*)scriptError->GetDescription();
		
		scriptError->Clear();

		str.Format("Error: %s",strDescription);
		return str;
	}
	switch (var.vt)
	{
	case VT_I2:
		str.Format("%d",var.iVal);
		break;
	case VT_I4:
		str.Format("%d",var.lVal);
		break;
	case VT_R4:
		str.Format("%.2f",var.fltVal);
		break;
	case VT_R8:
		str.Format("%.2f",var.dblVal);
		break;
	case VT_BSTR:
		str = var.bstrVal;
		break;
	}
	return str;
}

void CFunctionItem::setIsOpened(BOOL val)
{
	CListItem::setIsOpened(val);
	if (IsWindow(m_button.m_hWnd))
	{
		if (val)
			m_button.ShowWindow(SW_SHOW);
		else
			m_button.ShowWindow(SW_HIDE);
	}
}