ATL / WTL / STL

<br />
<small>LRESULT OnCtlColorStatic(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);</small>

<small>LRESULT MainDialog::OnCtlColorStatic(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled)<br />
{<br />
	HWND hWnd = (HWND)lParam;<br />
	HDC hDc = (HDC)wParam;<br />
<br />
	COLORREF m_crTextColorMaroon;<br />
	m_crTextColorMaroon = RGB( 128, 0, 0 );<br />
	HBRUSH hbr;<br />
	hbr = (HBRUSH)m_crTextColorMaroon;<br />
<br />
	if( hWnd == (HWND)GetDlgItem(IDC_FILE) ||<br />
		hWnd == (HWND)GetDlgItem(IDC_FILESIZE)) 	<br />
	{<br />
		::SetTextColor( hDc, m_crTextColorMaroon );<br />
		::SetBkMode(hDc, TRANSPARENT);<br />
		return (LRESULT) GetStockObject (HOLLOW_BRUSH);<br />
	}<br />
<br />
	return 0;<br />
}</small>

<br />
class CMainFrame : public CFrameWindowImpl<CMainFrame >, public CUpdateUI<CMainFrame >,public CMessageFilter, public CIdleHandler, public C_ImgArchive<br />
{<br />
public:<br />
	DECLARE_FRAME_WND_CLASS(NULL, IDR_MAINFRAME)<br />
<br />
	CIAVView m_view;<br />
	CThumbView m_thumbview;<br />
<br />
	BEGIN_UPDATE_UI_MAP(CMainFrame)<br />
	END_UPDATE_UI_MAP()<br />
<br />
	BEGIN_MSG_MAP(CMainFrame)<br />
		MESSAGE_HANDLER(WM_CREATE, OnCreate)<br />
                .....<br />
		CHAIN_MSG_MAP(CUpdateUI<cmainframe>)<br />
		CHAIN_MSG_MAP(CFrameWindowImpl<cmainframe>)<br />
	END_MSG_MAP()<br />
<br />
....}<br />
<br />
//<br />
LRESULT CMainFrame::OnCreate(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)<br />
{<br />
<br />
//create view#1<br />
m_hWndClient=m_thumbview.Create(m_hWnd, rcDefault, NULL,<br />
	WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | LVS_ICON |  LVS_SINGLESEL | WS_EX_COMPOSITED);<br />
<br />
//create view#2<br />
m_view_hWnd=m_view.Create(m_hWnd, rcDefault, NULL, <br />
	WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN);<br />
<br />
//add thumbnail-list images here, or later, it's not important<br />
....<br />
}<br />
<br />
<br />
<br />
class CIAVView :   public CScrollWindowImpl<CIAVView ><br />
{<br />
public:	<br />
   DECLARE_WND_CLASS_EX(NULL, CS_HREDRAW | CS_VREDRAW, -1)<br />
	BEGIN_MSG_MAP(CIAVView)<br />
		MESSAGE_HANDLER(WM_ERASEBKGND, OnEraseBackground)<br />
		...<br />
		CHAIN_MSG_MAP(CScrollWindowImpl<ciavview>)<br />
	END_MSG_MAP()<br />
<br />
	void DoPaint(CDCHandle dc); //I implement flicker-free draw here<br />
...<br />
}<br />
<br />
class CThumbView: public CDoubleBufferWindowImpl<CThumbView, CListViewCtrl><br />
public:<br />
	DECLARE_WND_SUPERCLASS(NULL, CListViewCtrl::GetWndClassName())<br />
<br />
	CImageList m_ImageListThumb;<br />
<br />
	BEGIN_MSG_MAP(CThumbView)<br />
                     ...		<br />
	END_MSG_MAP()<br />
...<br />
}<br />
<br />
</ciavview></cmainframe></cmainframe>

<code>// Included all generally needed stuff here
#include "stdafx.h"
#include "DBItem.h"
#include "DB_Obj1.h"

DBItem::DBItem(int nId, _ConnectionPtr  pConnectionGeneral)
{
	pConnDB = pConnectionGeneral;
	pRstDB.CreateInstance(__uuidof(Recordset));
	nIid = nId;
}

DBItem::~DBItem()
{
	pRstDB->Close();
	pRstDB.Release();
	pRstDB.Detach();

	ds.mAttr.clear();
	ds.mAttrFields.clear();
	ds.mAttrLoaded.clear();
	ds.mAttrModified.clear();
	ds.mDeps.clear();
	ds.mLinks.clear();
	ds.sIdField.~basic_string();
	ds.sTableName.~basic_string();
	ds.sTittleAttr.~basic_string();
	ds.sTreeLink.~basic_string();

	while (!mMessages.empty())
	{
		mMessages.pop();
	}
}

 /**
 *	Loads object's attributes from DB to ds.mAttr, as variants.
 *      Sets Loaded flag
 */
BOOL DBItem::Load()
{
	char *sztempQuery;
	string sQuery, sFldName;
	int i;
	FieldPtr pField;

	FormLoadQuery(&sztempQuery);
	sQuery = sztempQuery;
	free(sztempQuery);

	if (ExecuteQuery(sQuery))
	{
		for (i = 0; i < pRstDB->Fields->Count; i++)
		{
			pField = pRstDB->Fields->GetItem(_variant_t((long)i, VT_I4));
			sFldName = pField->Name;
			ds.mAttr[ds.mAttrFields[sFldName]] = pField->Value;
			ds.mAttrLoaded[ds.mAttrFields[sFldName]] = TRUE;
		}
	}
	else
	{
		AddMessage(DB_ERROR, "Error while executing load query. Check previous message!");
		return FALSE;
	}

	return TRUE;
}

 /**
 *	Returns a variant attribute. Loads the attributes is requested one isn't loaded, just so we won't load too early
 *	or too much
 */
_variant_t DBItem::GetAttr(string sAttr)
{
	_variant_t vAttr;

	if (nIid == 0)
	{
		vAttr.vt = VT_NULL;
		return vAttr;
	}

	if (!ds.mAttrLoaded[sAttr])
	{
		if (!Load())
		{
			vAttr.vt = VT_NULL;
		}
		else
		{
			vAttr = ds.mAttr[sAttr];
		}
	}
	else
	{
		vAttr = ds.mAttr[sAttr];
	}

	return vAttr;
}

 /**
 *	Tries to execute sQuery on the ADO connection object. Fills pRstDB
 *	Exceptions will fail it and push a massage describing themselves onto message stack.
 */
BOOL DBItem::ExecuteQuery(string sQuery)
{
	try
	{
		pRstDB = pConnDB->Execute(sQuery.c_str(), NULL, adCmdText);
	}
	catch (_com_error &e)
	{
		AddMessage(DB_EXCEPTION, "Exception in DBItem::ExecuteQuery(), Class '" + GetClass() + "', ID " + ToString(nIid) + " Error: " + (string)e.ErrorMessage());
		return FALSE;
	}

	return TRUE;
}

 /**
 *	Pushes a message to the object's message stack. Errors, Exceptions, Infos, we'll see about others
 *	TODO: pop message
 */
void DBItem::AddMessage(int nMsgType, string sMessage)
{
	string stempMessage;

	stempMessage = ToString(nMsgType) + sMessage;
	mMessages.push(stempMessage);
}

 /**
 *	Returns a string containing objects name, as defined by ds.sTittleAttr
 *	TODO: Treat case where there's no such thing as ds.sTittleAttr
 */
string DBItem::GetName()
{
	_variant_t vVar;
	string stempName = "";

	vVar = GetAttr(ds.sTittleAttr);
	try
	{
		stempName =  vVar.operator _bstr_t().operator const char *();
	}
	catch (_com_error &e)
	{
		AddMessage(DB_EXCEPTION, "Exception in DBItem::GetName(), Class '" + GetClass() + "', ID " + ToString(nIid) + " Error: " + (string)e.ErrorMessage());
		stempName = "";
	}
	return stempName;
}

/*
 *	Returns a pointer to the instance of the type and ID specified by attribute's value, hopefully (it does!!!)
 *
 */
DBItem *DBItem::GetObject(string sAttr)
{
	DBItem *mliInstance;
	_variant_t vIdAttr;
	unsigned long dInstId;

	vIdAttr = GetAttr(sAttr);
	dInstId = vIdAttr.operator long();

	mliInstance = GetInstance(ds.mLinks[sAttr], dInstId);

	return mliInstance;
}

 /**
 *	Returns a DBIList pointer to a vector containing pointers to object instances masked as DBItem
 *	Have to remember to delete each instance and possibly the vector in the place of use
 *	To use, iterate through vector, cast to required class, they're all hiding as base class DBItem.
 */
DBIList *DBItem::GetInstances()
{
	DBIList *pVector;
	DBItem *mliInstance;
	char *sztempQuery;
	string sQuery;
	unsigned long ulID, ulCount;
	long i;
	FieldPtr pField;

	// Query to get all IDs
	FormGetIDsQuery(&sztempQuery);
	sQuery = sztempQuery;
	free(sztempQuery);

	if (ExecuteQuery(sQuery))
	{
		// Get number of instances to init our little vector container
		ulCount = pRstDB->Fields->Count;
		pVector = new DBIList(ulCount);
		for (i = 0; i < pRstDB->Fields->Count; i++)
		{
			pField = pRstDB->Fields->GetItem(_variant_t((long)i, VT_I4));
			// Get each ID value
			ulID = pField->Value.ulVal;
			// Instantiate
			mliInstance = GetInstance(GetClass(), ulID);
			// Push pointer in vector
			pVector->push_back(mliInstance);
		}
		// Return a pointer to our filled vector.
		return pVector;
	}
	else
	{
		AddMessage(DB_ERROR, "Error while executing ID query. Check previous message!");
		return NULL;
	}
}

 /**
 *	Returns current object's base class name. Should be overidden by all classes deriving from this.
 */
string DBItem::GetClass()
{
	return (string)"DBItem";
}

 /**
 *	Returns a pointer to a specific item type instance, posing as a base item instance, hopefully
 *	Given a class name and database ID
 */
DBItem *DBItem::GetInstance(string sClassName, unsigned long nId)
{	

	if (sClassName == "DB_Obj1")
		return new DB_Obj1(nId, pConnDB);

	return NULL;
}

 /**
 *	Fills *szQuery with the query needed to get all the object's attributes
 */
void DBItem::FormLoadQuery(char **szQuery)
{
	string stempQuery;

	stempQuery = "SELECT * FROM ";
	stempQuery += ds.sTableName;
	stempQuery += " WHERE ";
	stempQuery += ds.sIdField;
	stempQuery += "=";
	stempQuery += ToString(nIid);

	*szQuery = (char *) malloc(stempQuery.length() + 1);
	if (*szQuery == NULL)
	{
		
	}
	else
	{
		memset(*szQuery, 0, stempQuery.length() + 1);
		memcpy(*szQuery, stempQuery.c_str(), stempQuery.length());
	}
}

 /**
 *	Fills *szQuery with the query needed to get all the current class' instance IDs
 */
void DBItem::FormGetIDsQuery(char **szQuery)
{
	string stempQuery;

	stempQuery = "SELECT "
	stempQuery += ds.sIdField;
	stempQuery += " FROM ";
	stempQuery += ds.sTableName;

	*szQuery = (char *) malloc(stempQuery.length() + 1);
	if (*szQuery == NULL)
	{
		
	}
	else
	{
		memset(*szQuery, 0, stempQuery.length() + 1);
		memcpy(*szQuery, stempQuery.c_str(), stempQuery.length());
	}
}

 /**
 *	Converts input int to string representation
 */
string DBItem::ToString(int nConvertable)
{
	string stempConvert;
	char *sztempConvert;

	sztempConvert = (char *) malloc(16);
	memset(sztempConvert, 0, 16);

	_itoa(nConvertable, sztempConvert, 10);

	stempConvert = sztempConvert;
	free(sztempConvert);

	return stempConvert;
}

 /**
 *	Converts input long to string representation
 */
string DBItem::ToString(long nConvertable)
{
	string stempConvert;
	char *sztempConvert;

	sztempConvert = (char *) malloc(16);
	memset(sztempConvert, 0, 16);

	_ltoa(nConvertable, sztempConvert, 10);

	stempConvert = sztempConvert;
	free(sztempConvert);

	return stempConvert;
}
</code>