dcsimg

Icon Picker List Box

WEBINAR:
On-Demand

Application Security Testing: An Integral Part of DevOps


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!

  • You must have javascript enabled in order to post comments.

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

Top White Papers and Webcasts

  • In order for IT service providers to succeed, it's paramount that they find a competitive advantage and continually develop new ways to find additional revenue streams. IT service providers need to be able to do it all for their clients – from managing entire technology infrastructures to responding quickly to a multitude of end-user needs. With a growing number of issues to resolve and limited technicians at hand, how can IT service providers operate efficiently while providing top-notch service …

  • Today, Cloud First has become a major movement across the global business landscape. As cloud computing has become an imperative for global enterprises, Cloud First is key in building a long-term roadmap for cloud services by implementing higher application performance, higher scalability, and reduced spending on infrastructure. But how does a business go about developing a Cloud-First strategy that retains a maximum return on investment (ROI)? Read this white paper to discover solutions to hidden costs in the …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.