Icon Picker List Box

Icon Picker List Box (7600 bytes) Select which icon you want.

Download Source Code and Example

If you've used any version of windows you've changed the icon for a shortcut.  The dialog used allows you to select from a list of icons found in a DLL, EXE or even an ICO file.  I needed such a control, so I wrote one.  It is basically an owner draw list box.  The only limitation here is I really wanted a horizontal listbox, but ended up with a vertical one.  The only limitation is the box must be sized to the icons at design time, although modifications on my code could be made to support it.

If anyone knows a way to get it horizontal, let me know.  I tried multicolumn, but it didn't work very well.

Feel free to modify and use this code anyway you like, it's not really hard stuff so I'm not going to place any restrictions on it.

Create a class derived from CListBox

class CIconPickerList : public CListBox
{
// Construction
public:
	CIconPickerList();

// Attributes
public:

// Operations
public:
	int AddIconItem(HICON hIcon); // My Function
// Overrides
	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CIconPickerList)
	public:
	virtual void DrawItem(LPDRAWITEMSTRUCT lpDrawItemStruct);
	virtual void MeasureItem(LPMEASUREITEMSTRUCT lpMeasureItemStruct);
	//}}AFX_VIRTUAL

// Implementation
public:
	virtual ~CIconPickerList();

	// Generated message map functions
protected:
	//{{AFX_MSG(CIconPickerList)
		// NOTE - the ClassWizard will add and remove member functions here.
	//}}AFX_MSG

	DECLARE_MESSAGE_MAP()
};
// Implement below
void CIconPickerList::DrawItem(LPDRAWITEMSTRUCT lpDrawItemStruct) 
{
	CDC* pDC = CDC::FromHandle(lpDrawItemStruct->hDC);
	HICON hIcon = (HICON)lpDrawItemStruct->itemData; // HICON in Item data

	if (lpDrawItemStruct->itemAction & ODA_DRAWENTIRE)
	{
		// Paint the color item in the color requested
		pDC->DrawIcon(lpDrawItemStruct->rcItem.left+5,lpDrawItemStruct->rcItem.top+5,hIcon);
	}

	if ((lpDrawItemStruct->itemState & ODS_SELECTED) &&
		(lpDrawItemStruct->itemAction & (ODA_SELECT | ODA_DRAWENTIRE)))
	{
		// item has been selected - hilite frame
		CBrush br(GetSysColor(COLOR_HIGHLIGHT));
		CRect rect;
		rect.CopyRect(&lpDrawItemStruct->rcItem);
		rect.DeflateRect(2,2,2,2);
		pDC->FrameRect(&rect, &br);

		rect.DeflateRect(1,1,1,1);
		pDC->FrameRect(&rect, &br);

	}

	if (!(lpDrawItemStruct->itemState & ODS_SELECTED) &&
		(lpDrawItemStruct->itemAction & ODA_SELECT))
	{
		// Item has been de-selected -- remove frame
		CBrush br(GetSysColor(COLOR_WINDOW));
		CRect rect;
		rect.CopyRect(&lpDrawItemStruct->rcItem);
		rect.DeflateRect(2,2,2,2);
		pDC->FrameRect(&rect, &br);

		rect.DeflateRect(1,1,1,1);
		pDC->FrameRect(&rect, &br);
	}
	
}

void CIconPickerList::MeasureItem(LPMEASUREITEMSTRUCT lpMeasureItemStruct) 
{
	lpMeasureItemStruct->itemHeight = 42;
	lpMeasureItemStruct->itemWidth = 42;
}

int CIconPickerList::AddIconItem(HICON hIcon)
{
	return AddString((LPCTSTR) hIcon);
}

Last updated: Aug 11 1998



Comments

  • There are no comments yet. Be the first to comment!

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • For the first time in modern history, workplace demographics now span four generations. Understanding the unique social influences that have shaped the behaviors of each is instrumental in creating productive work teams. And when managed effectively, their strengths, perspectives, and experiences can bring synergy in the workplace. Download this white paper for best practices on how to better understand and effectively manage a multi-generational workforce.

  • The nature of the financial services industry places a myriad of international compliance requirements on a company's IT team, as well as an expectation by its customers to deliver the high test levels of performance and reliability. To survive and thrive, businesses in the industry must not only keep pace with customer demand but gain competitive advantage. Those demands mean the IT team must be at the forefront of adopting emerging technologies

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date