Icon Picker List Box

WEBINAR: On-demand webcast

How to Boost Database Development Productivity on Linux, Docker, and Kubernetes with Microsoft SQL Server 2017 REGISTER >

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

  • Many enterprises are working with an IT architecture that's evolved over time. As business needs evolve, IT must decide whether to modernize incrementally, or all at once. Each approach has its benefits and drawbacks. Identity Management is key to modernizing IT; it plays a crucial role in migrating to cloud apps like Office 365 or HR information systems, building web and mobile apps, and opening developer access to business systems. Read how Okta's modern approach to identity management helps business lower …

  • MongoDB has the flexibility, adaptability and extensibility to embrace widely varying data types and rapid design/deployment cycles. Combining MongoDB with our 5100 ECO Enterprise SSD brings amazing results in smaller, simpler deployments compared to legacy storage. In this technical brief, we compare two MongoDB test clusters, each using the Linux Logical Volume Manager (LVM) for RAID configuration: 5100 ECO 3-node cluster: Two Micron 5100 ECO (1.92TB) per node configured as a software RAID 0 (LVM) Legacy …

Most Popular Programming Stories

More for Developers

RSS Feeds

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