Click here to Skip to main content
15,883,623 members
Search within:


Articles / Desktop Programming / ATL
 

Classic Shell

Rate me:
Please Sign up or sign in to vote.
4.99/5 (135 votes)
23 Feb 2010MIT33 min read 953.8K   10K   195  
Classic Start menu and other shell features for Windows 7 and Vista.
 
// Classic Shell (c) 2009-2010, Ivo Beltchev
// The sources for Classic Shell are distributed under the MIT open source license

#include "stdafx.h"
#include "SkinManager.h"
#include "IconManager.h"
#include "ParseSettings.h"

MenuSkin::MenuSkin( void )
{
	AboutIcon=NULL;
	Main_bitmap=NULL;
	Caption_font=NULL;
	Main_font=NULL;
	Main_selectionColor=true;
	Main_separator=NULL;
	Submenu_font=NULL;
	Submenu_selectionColor=true;
	Submenu_separator=NULL;
}

MenuSkin::~MenuSkin( void )
{
	Reset();
}

void MenuSkin::Reset( void )
{
	if (AboutIcon) DestroyIcon(AboutIcon);
	if (Main_bitmap) DeleteObject(Main_bitmap);
	if (Caption_font) DeleteObject(Caption_font);
	if (Main_font) DeleteObject(Main_font);
	if (!Main_selectionColor && Main_selection.bmp) DeleteObject(Main_selection.bmp);
	if (Main_separator) DeleteObject(Main_separator);
	if (Submenu_font) DeleteObject(Submenu_font);
	if (!Submenu_selectionColor && Submenu_selection.bmp) DeleteObject(Submenu_selection.bmp);
	if (Submenu_separator) DeleteObject(Submenu_separator);

	AboutIcon=NULL;
	Main_bitmap=NULL;
	Caption_font=NULL;
	Main_font=NULL;
	Main_selectionColor=true;
	Main_separator=NULL;
	Submenu_font=NULL;
	Submenu_selectionColor=true;
	Submenu_separator=NULL;
}

static void LoadSkinNumbers( const wchar_t *str, int *numbers, int count, bool bColors )
{
	for (int i=0;i<count;i++)
	{
		wchar_t token[256];
		str=GetToken(str,token,_countof(token),L", \t");
		wchar_t *end;
		int num;
		if (token[0]=='#')
			num=wcstol(token+1,&end,16);
		else
			num=wcstol(token,&end,10);
		if (bColors)
			numbers[i]=((num&0xFF)<<16)|(num&0xFF00)|((num>>16)&0xFF);
		else
			numbers[i]=num;
	}
}

static HFONT LoadSkinFont( const wchar_t *str, const wchar_t *name, int weight, int size )
{
	wchar_t token[256];
	if (str)
	{
		str=GetToken(str,token,_countof(token),L", \t");
		name=token;
		wchar_t token2[256];
		str=GetToken(str,token2,_countof(token2),L", \t");
		if (_wcsicmp(token2,L"bold")==0)
			weight=FW_BOLD;
		else
			weight=FW_NORMAL;
		str=GetToken(str,token2,_countof(token2),L", \t");
		size=_wtol(token2);
		if (size==0) size=8;
	}
	else if (!name) return NULL;
	return CreateFont(size*CIconManager::GetDPI()/72,0,0,0,weight,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,CLEARTYPE_QUALITY,DEFAULT_PITCH,name);
}

static HICON LoadSkinIcon( HMODULE hMod, int index )
{
	if (hMod)
	{
		return (HICON)LoadImage(hMod,MAKEINTRESOURCE(index),IMAGE_ICON,0,0,LR_DEFAULTSIZE);
	}
	else
	{
		wchar_t path[_MAX_PATH];
		GetSkinsPath(path);
		wchar_t fname[_MAX_PATH];
		swprintf_s(fname,L"%s%d.ico",path,index);
		return (HICON)LoadImage(NULL,fname,IMAGE_ICON,0,0,LR_DEFAULTSIZE|LR_LOADFROMFILE);
	}
}

static HBITMAP LoadSkinBitmap( HMODULE hMod, int index, bool &b32 )
{
	HBITMAP src;
	if (hMod)
		src=(HBITMAP)LoadImage(hMod,MAKEINTRESOURCE(index),IMAGE_BITMAP,0,0,LR_CREATEDIBSECTION);
	else
	{
		wchar_t path[_MAX_PATH];
		GetSkinsPath(path);
		wchar_t fname[_MAX_PATH];
		swprintf_s(fname,L"%s%d.bmp",path,index);
		src=(HBITMAP)LoadImage(NULL,fname,IMAGE_BITMAP,0,0,LR_CREATEDIBSECTION|LR_LOADFROMFILE);
	}
	if (!src) return NULL;

	BITMAP info;
	GetObject(src,sizeof(info),&info);
	b32=false;
	if (info.bmBitsPixel<32)
		return src;

	int n=info.bmWidth*info.bmHeight;
	// HACK: when LoadImage reads a 24-bit image it creates a 32-bit bitmap with 0 in the alpha channel
	// we use that to detect 24-bit images and don't pre-multiply the alpha
	for (int i=0;i<n;i++)
	{
		unsigned int &pixel=((unsigned int*)info.bmBits)[i];
		if (pixel&0xFF000000)
		{
			b32=true;
			break;
		}
	}

	if (!b32) return src;

	// 32-bit bitmap detected. pre-multiply the alpha
	for (int i=0;i<n;i++)
	{
		unsigned int &pixel=((unsigned int*)info.bmBits)[i];
		int a=(pixel>>24);
		int r=(pixel>>16)&255;
		int g=(pixel>>8)&255;
		int b=(pixel)&255;
		r=(r*a)/255;
		g=(g*a)/255;
		b=(b*a)/255;
		pixel=(a<<24)|(r<<16)|(g<<8)|b;
	}
	return src;
}

// Load the skin from the module. If hMod is NULL loads the "custom" skin from 1.txt
static bool LoadSkin( HMODULE hMod, MenuSkin &skin, const wchar_t *variation, bool bNoResources )
{
	CSkinParser parser;
	if (hMod)
	{
		HRSRC hResInfo=FindResource(hMod,MAKEINTRESOURCE(1),L"SKIN");
		if (!hResInfo) return false;
		if (!parser.LoadText(hMod,hResInfo)) return false;
	}
	else
	{
		wchar_t path[_MAX_PATH];
		GetSkinsPath(path);
		wcscat_s(path,L"1.txt");
		if (!parser.LoadText(path)) return false;
	}
	parser.ParseText();

	const wchar_t *str;

	for (int i=1;;i++)
	{
		char name[20];
		sprintf_s(name,"Variation%d",i);
		str=parser.FindSetting(name);
		if (str)
		{
			wchar_t token[256];
			str=GetToken(str,token,_countof(token),L", \t");
			int  res=_wtol(token);
			str=GetToken(str,token,_countof(token),L", \t");
			skin.Variations.push_back(std::pair<int,CString>(res,token));
		}
		else
			break;
	}

	if (variation)
	{
		for (std::vector<std::pair<int,CString>>::const_iterator it=skin.Variations.begin();it!=skin.Variations.end();++it)
			if (wcscmp(variation,it->second)==0)
			{
				if (hMod)
				{
					HRSRC hResInfo=FindResource(hMod,MAKEINTRESOURCE(it->first),L"SKIN");
					if (!hResInfo) break;
					if (!parser.LoadVariation(hMod,hResInfo)) break;
				}
				else
				{
					wchar_t path[_MAX_PATH];
					GetSkinsPath(path);
					wchar_t name[20];
					swprintf_s(name,L"%d.txt",it->first);
					wcscat_s(path,name);
					if (!parser.LoadVariation(path)) break;
				}

				break;
			}
	}

	// parse settings
	str=parser.FindSetting("About");
	if (str)
	{
		skin.About=str;
		skin.About.Replace(L"\\n",L"\n");
	}
	else skin.About.Empty();

	str=parser.FindSetting("AboutIcon");
	if (str) skin.AboutIcon=LoadSkinIcon(hMod,_wtol(str));

	skin.ForceRTL=false;
	if (!hMod)
	{
		str=parser.FindSetting("ForceRTL");
		if (str && _wtol(str))
			skin.ForceRTL=true;
	}

	// MAIN BITMAP SECTION - describes the background of the main menu
	str=parser.FindSetting("Main_bitmap");
	if (str && !bNoResources)
	{
		int id=_wtol(str);
		if (id)
		{
			skin.Main_bitmap=LoadSkinBitmap(hMod,id,skin.Main_bitmap32);
			if (!skin.Main_bitmap) return false;
		}
	}
	str=parser.FindSetting("Main_bitmap_slices_X");
	if (str)
	{
		LoadSkinNumbers(str,skin.Main_bitmap_slices_X,_countof(skin.Main_bitmap_slices_X),false);
	}
	else
		memset(skin.Main_bitmap_slices_X,0,sizeof(skin.Main_bitmap_slices_X));
	str=parser.FindSetting("Main_bitmap_slices_Y");
	if (str)
		LoadSkinNumbers(str,skin.Main_bitmap_slices_Y,_countof(skin.Main_bitmap_slices_Y),false);
	else
		memset(skin.Main_bitmap_slices_Y,0,sizeof(skin.Main_bitmap_slices_Y));
	str=parser.FindSetting("Main_opacity");
	skin.Main_opacity=MenuSkin::OPACITY_SOLID;
	if (str && skin.Main_bitmap)
	{
		if (_wcsicmp(str,L"region")==0) skin.Main_opacity=MenuSkin::OPACITY_REGION;
		if (_wcsicmp(str,L"alpha")==0) skin.Main_opacity=MenuSkin::OPACITY_ALPHA;
		if (_wcsicmp(str,L"glass")==0) skin.Main_opacity=MenuSkin::OPACITY_GLASS;
	}
	str=parser.FindSetting("Main_large_icons");
	skin.Main_large_icons=str && _wtol(str);


	// CAPTION SECTION - describes the caption portion of the main menu
	str=parser.FindSetting("Caption_font");
	skin.Caption_font=LoadSkinFont(str,L"Segoe UI",FW_NORMAL,18);
	str=parser.FindSetting("Caption_text_color");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Caption_text_color,1,true);
	else
		skin.Caption_text_color=0xFFFFFF;

	str=parser.FindSetting("Caption_glow_color");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Caption_glow_color,1,true);
	else
		skin.Caption_glow_color=0xFFFFFF;

	str=parser.FindSetting("Caption_glow_size");
	if (str)
		skin.Caption_glow_size=_wtol(str);
	else
		skin.Caption_glow_size=0;

	str=parser.FindSetting("Caption_padding");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Caption_padding,4,false);
	else
		memset(&skin.Caption_padding,0,sizeof(skin.Caption_padding));


	// MENU SECTION - describes the menu portion of the main menu
	str=parser.FindSetting("Main_font");
	skin.Main_font=LoadSkinFont(str,NULL,0,0);

	str=parser.FindSetting("Main_background");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Main_background,1,true);
	else
		skin.Main_background=GetSysColor(COLOR_MENU);

	str=parser.FindSetting("Main_text_color");
	if (str)
		LoadSkinNumbers(str,(int*)skin.Main_text_color,_countof(skin.Main_text_color),true);
	else
	{
		skin.Main_text_color[0]=GetSysColor(COLOR_MENUTEXT);
		skin.Main_text_color[1]=GetSysColor(COLOR_HIGHLIGHTTEXT);
		skin.Main_text_color[2]=GetSysColor(COLOR_GRAYTEXT);
		skin.Main_text_color[3]=GetSysColor(COLOR_HIGHLIGHTTEXT);
	}

	str=parser.FindSetting("Main_padding");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Main_padding,4,false);
	else
		memset(&skin.Main_padding,0,sizeof(skin.Main_padding));

	str=parser.FindSetting("Main_selection");
	if (str)
	{
		if (str[0]=='#')
			LoadSkinNumbers(str,(int*)&skin.Main_selection.color,1,true);
		else
		{
			skin.Main_selectionColor=false;
			if (!bNoResources)
			{
				int id=_wtol(str);
				if (id)
				{
					skin.Main_selection.bmp=LoadSkinBitmap(hMod,id,skin.Main_selection32);
					if (!skin.Main_selection.bmp) return false;
				}
			}

			str=parser.FindSetting("Main_selection_slices_X");
			if (str)
				LoadSkinNumbers(str,(int*)&skin.Main_selection_slices_X,_countof(skin.Main_selection_slices_X),false);
			else
				memset(skin.Main_selection_slices_X,0,sizeof(skin.Main_selection_slices_X));
		}
		str=parser.FindSetting("Main_selection_slices_Y");
		if (str)
			LoadSkinNumbers(str,(int*)&skin.Main_selection_slices_Y,_countof(skin.Main_selection_slices_Y),false);
		else
			memset(skin.Main_selection_slices_Y,0,sizeof(skin.Main_selection_slices_Y));
	}
	else
	{
		skin.Main_selection.color=GetSysColor(COLOR_MENUHILIGHT);
	}
	str=parser.FindSetting("Main_thin_frame");
	skin.Main_thin_frame=(str && _wtol(str));
	str=parser.FindSetting("Main_separator");
	if (str && !bNoResources)
	{
		int id=_wtol(str);
		if (id)
		{
			skin.Main_separator=LoadSkinBitmap(hMod,id,skin.Main_separator32);
			if (!skin.Main_separator) return false;
			BITMAP info;
			GetObject(skin.Main_separator,sizeof(info),&info);
			skin.Main_separatorHeight=info.bmHeight;
		}
	}
	str=parser.FindSetting("Main_separator_slices_X");
	if (str)
	{
		LoadSkinNumbers(str,skin.Main_separator_slices_X,_countof(skin.Main_separator_slices_X),false);
	}
	else
		memset(skin.Main_separator_slices_X,0,sizeof(skin.Main_separator_slices_X));


	// SUB-MENU SECTION - describes the menu portion of the sub-menu
	str=parser.FindSetting("Submenu_font");
	skin.Submenu_font=LoadSkinFont(str,NULL,0,0);

	str=parser.FindSetting("Submenu_background");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Submenu_background,1,true);
	else
		skin.Submenu_background=GetSysColor(COLOR_MENU);

	str=parser.FindSetting("Submenu_text_color");
	if (str)
		LoadSkinNumbers(str,(int*)skin.Submenu_text_color,_countof(skin.Submenu_text_color),true);
	else
	{
		skin.Submenu_text_color[0]=GetSysColor(COLOR_MENUTEXT);
		skin.Submenu_text_color[1]=GetSysColor(COLOR_HIGHLIGHTTEXT);
		skin.Submenu_text_color[2]=GetSysColor(COLOR_GRAYTEXT);
		skin.Submenu_text_color[3]=GetSysColor(COLOR_HIGHLIGHTTEXT);
	}

	str=parser.FindSetting("Submenu_padding");
	if (str)
		LoadSkinNumbers(str,(int*)&skin.Submenu_padding,4,false);
	else
		memset(&skin.Submenu_padding,0,sizeof(skin.Submenu_padding));

	str=parser.FindSetting("Submenu_selection");
	if (str)
	{
		if (str[0]=='#')
			LoadSkinNumbers(str,(int*)&skin.Submenu_selection.color,1,true);
		else
		{
			skin.Submenu_selectionColor=false;
			if (!bNoResources)
			{
				int id=_wtol(str);
				if (id)
				{
					skin.Submenu_selection.bmp=LoadSkinBitmap(hMod,id,skin.Submenu_selection32);
					if (!skin.Submenu_selection.bmp) return false;
				}
			}

			str=parser.FindSetting("Submenu_selection_slices_X");
			if (str)
				LoadSkinNumbers(str,(int*)&skin.Submenu_selection_slices_X,_countof(skin.Submenu_selection_slices_X),false);
			else
				memset(skin.Submenu_selection_slices_X,0,sizeof(skin.Submenu_selection_slices_X));
		}
		str=parser.FindSetting("Submenu_selection_slices_Y");
		if (str)
			LoadSkinNumbers(str,(int*)&skin.Submenu_selection_slices_Y,_countof(skin.Submenu_selection_slices_Y),false);
		else
			memset(skin.Submenu_selection_slices_Y,0,sizeof(skin.Submenu_selection_slices_Y));
	}
	else
	{
		skin.Submenu_selection.color=GetSysColor(COLOR_MENUHILIGHT);
	}
	str=parser.FindSetting("Submenu_thin_frame");
	skin.Submenu_thin_frame=(str && _wtol(str));
	str=parser.FindSetting("Submenu_separator");
	if (str && !bNoResources)
	{
		int id=_wtol(str);
		if (id)
		{
			skin.Submenu_separator=LoadSkinBitmap(hMod,id,skin.Submenu_separator32);
			if (!skin.Submenu_separator) return false;
			BITMAP info;
			GetObject(skin.Submenu_separator,sizeof(info),&info);
			skin.Submenu_separatorHeight=info.bmHeight;
		}
	}
	str=parser.FindSetting("Submenu_separator_slices_X");
	if (str)
	{
		LoadSkinNumbers(str,skin.Submenu_separator_slices_X,_countof(skin.Submenu_separator_slices_X),false);
	}
	else
		memset(skin.Submenu_separator_slices_X,0,sizeof(skin.Submenu_separator_slices_X));

	if (skin.Main_bitmap_slices_X[1]==0)
	{
		skin.Main_bitmap_slices_X[0]=skin.Main_bitmap_slices_X[2]=0;
		memset(&skin.Caption_padding,0,sizeof(skin.Caption_padding));
	}

	return true;
}

bool LoadMenuSkin( const wchar_t *fname, MenuSkin &skin, const wchar_t *variation, bool bNoResources )
{
	wchar_t path[_MAX_PATH];
	GetSkinsPath(path);

	if (_wcsicmp(fname,L"<Default>")==0)
	{
		LoadDefaultMenuSkin(skin,variation,bNoResources);
		return true;
	}
	if (_wcsicmp(fname,L"Custom")==0)
	{
		if (!LoadSkin(NULL,skin,variation,bNoResources))
		{
			FreeMenuSkin(skin);
			return false;
		}
	}
	else
	{
		wcscat_s(path,fname);
		wcscat_s(path,L".skin");
		HMODULE hMod=LoadLibraryEx(path,NULL,LOAD_LIBRARY_AS_DATAFILE);
		if (!hMod)
			return false;

		if (!LoadSkin(hMod,skin,variation,bNoResources))
		{
			FreeMenuSkin(skin);
			FreeLibrary(hMod);
			return false;
		}

		FreeLibrary(hMod);
	}
	return true;
}

void LoadDefaultMenuSkin( MenuSkin &skin, const wchar_t *variation, bool bNoResources )
{
	LoadSkin(g_Instance,skin,variation,bNoResources);
}

void FreeMenuSkin( MenuSkin &skin )
{
	skin.Reset();
}

void GetSkinsPath( wchar_t *path )
{
	GetModuleFileName(g_Instance,path,_MAX_PATH);
	*PathFindFileName(path)=0;
#ifdef BUILD_SETUP
	wcscat_s(path,_MAX_PATH,L"Skins\\");
#else
	wcscat_s(path,_MAX_PATH,L"..\\Skins\\");
#endif
}

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The MIT License


Written By
Ivo Beltchev
Software Developer (Senior)
United States United States
Ivo started programming in 1985 on an Apple ][ clone. He graduated from Sofia University, Bulgaria with a MSCS degree. Ivo has been working as a professional programmer for over 12 years, and as a professional game programmer for over 10. He is currently employed in Pandemic Studios, a video game company in Los Angeles, California.

Comments and Discussions

Permalink
Advertise
Privacy
Cookies
Terms of Use
Layout: fixed | fluid

Posted 29 Nov 2009

Article Copyright 2009 by Ivo Beltchev
Everything else Copyright © CodeProject, 1999-2024

Web03 2.8:2024-04-02:1