src/video/wincommon/SDL_syswm.c - third_party/sdl - Git at Google

 /*
     SDL - Simple DirectMedia Layer
     Copyright (C) 1997-2009 Sam Lantinga

     This library is free software; you can redistribute it and/or
     modify it under the terms of the GNU Lesser General Public
     License as published by the Free Software Foundation; either
     version 2.1 of the License, or (at your option) any later version.

     This library is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     Lesser General Public License for more details.

     You should have received a copy of the GNU Lesser General Public
     License along with this library; if not, write to the Free Software
     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

     Sam Lantinga
     slouken@libsdl.org
 */
 #include "SDL_config.h"

 #define WIN32_LEAN_AND_MEAN
 #include <windows.h>

 #include "SDL_version.h"
 #include "SDL_video.h"
 #include "SDL_loadso.h"
 #include "SDL_syswm.h"
 #include "../SDL_pixels_c.h"
 #include "../SDL_cursor_c.h"
 #include "SDL_syswm_c.h"
 #include "SDL_wingl_c.h"


 #ifdef _WIN32_WCE
 #define DISABLE_ICON_SUPPORT
 #endif

 /* The screen icon -- needs to be freed on SDL_VideoQuit() */
 HICON   screen_icn = NULL;

 /* Win32 icon mask semantics are different from those of SDL:
      SDL applies the mask to the icon and copies result to desktop.
      Win32 applies the mask to the desktop and XORs the icon on.
    This means that the SDL mask needs to be applied to the icon and
    then inverted and passed to Win32.
 */
 void WIN_SetWMIcon(_THIS, SDL_Surface *icon, Uint8 *mask)
 {
 #ifdef DISABLE_ICON_SUPPORT
 	return;
 #else
 	SDL_Palette *pal_256;
 	SDL_Surface *icon_256;
 	Uint8 *pdata, *pwin32;
 	Uint8 *mdata, *mwin32, m = 0;
 	int icon_len;
 	int icon_plen;
 	int icon_mlen;
 	int icon_pitch;
 	int mask_pitch;
 	SDL_Rect bounds;
 	int i, skip;
 	int row, col;
 	struct /* quasi-BMP format */ Win32Icon {
 		Uint32 biSize;
 		Sint32 biWidth;
 		Sint32 biHeight;
 		Uint16 biPlanes;
 		Uint16 biBitCount;
 		Uint32 biCompression;
 		Uint32 biSizeImage;
 		Sint32 biXPelsPerMeter;
 		Sint32 biYPelsPerMeter;
 		Uint32 biClrUsed;
 		Uint32 biClrImportant;
 		struct /* RGBQUAD -- note it's BGR ordered */ {
 			Uint8 rgbBlue;
 			Uint8 rgbGreen;
 			Uint8 rgbRed;
 			Uint8 rgbReserved;
 		} biColors[256];
 		/* Pixels:
 		Uint8 pixels[]
 		*/
 		/* Mask:
 		Uint8 mask[]
 		*/
 	} *icon_win32;

 	/* Allocate the win32 bmp icon and set everything to zero */
 	icon_pitch = ((icon->w+3)&~3);
 	mask_pitch = ((icon->w+7)/8);
 	icon_plen = icon->h*icon_pitch;
 	icon_mlen = icon->h*mask_pitch;
 	icon_len = sizeof(*icon_win32)+icon_plen+icon_mlen;
 	icon_win32 = (struct Win32Icon *)SDL_stack_alloc(Uint8, icon_len);
 	if ( icon_win32 == NULL ) {
 		return;
 	}
 	SDL_memset(icon_win32, 0, icon_len);

 	/* Set the basic BMP parameters */
 	icon_win32->biSize = sizeof(*icon_win32)-sizeof(icon_win32->biColors);
 	icon_win32->biWidth = icon->w;
 	icon_win32->biHeight = icon->h*2;
 	icon_win32->biPlanes = 1;
 	icon_win32->biBitCount = 8;
 	icon_win32->biSizeImage = icon_plen+icon_mlen;

 	/* Allocate a standard 256 color icon surface */
 	icon_256 = SDL_CreateRGBSurface(SDL_SWSURFACE, icon->w, icon->h,
 					 icon_win32->biBitCount, 0, 0, 0, 0);
 	if ( icon_256 == NULL ) {
 		SDL_stack_free(icon_win32);
 		return;
 	}
 	pal_256 = icon_256->format->palette;
 	if (icon->format->palette &&
 		(icon->format->BitsPerPixel == icon_256->format->BitsPerPixel)){
 		Uint8 black;
 		SDL_memcpy(pal_256->colors, icon->format->palette->colors,
 					pal_256->ncolors*sizeof(SDL_Color));
 		/* Make sure that 0 is black! */
 		black = SDL_FindColor(pal_256, 0x00, 0x00, 0x00);
 		pal_256->colors[black] = pal_256->colors[0];
 		pal_256->colors[0].r = 0x00;
 		pal_256->colors[0].g = 0x00;
 		pal_256->colors[0].b = 0x00;
 	} else {
 		SDL_DitherColors(pal_256->colors,
 					icon_256->format->BitsPerPixel);
 	}

 	/* Now copy color data to the icon BMP */
 	for ( i=0; i<(1<<icon_win32->biBitCount); ++i ) {
 		icon_win32->biColors[i].rgbRed = pal_256->colors[i].r;
 		icon_win32->biColors[i].rgbGreen = pal_256->colors[i].g;
 		icon_win32->biColors[i].rgbBlue = pal_256->colors[i].b;
 	}

 	/* Convert icon to a standard surface format.  This may not always
 	   be necessary, as Windows supports a variety of BMP formats, but
 	   it greatly simplifies our code.
 	*/
     bounds.x = 0;
     bounds.y = 0;
     bounds.w = icon->w;
     bounds.h = icon->h;
     if ( SDL_LowerBlit(icon, &bounds, icon_256, &bounds) < 0 ) {
 	    SDL_stack_free(icon_win32);
 		SDL_FreeSurface(icon_256);
         return;
 	}

 	/* Copy pixels upside-down to icon BMP, masked with the icon mask */
 	if ( SDL_MUSTLOCK(icon_256) || (icon_256->pitch != icon_pitch) ) {
 		SDL_stack_free(icon_win32);
 		SDL_FreeSurface(icon_256);
 		SDL_SetError("Warning: Unexpected icon_256 characteristics");
 		return;
 	}
 	pdata = (Uint8 *)icon_256->pixels;
 	mdata = mask;
 	pwin32 = (Uint8 *)icon_win32+sizeof(*icon_win32)+icon_plen-icon_pitch;
 	skip = icon_pitch - icon->w;
 	for ( row=0; row<icon->h; ++row ) {
 		for ( col=0; col<icon->w; ++col ) {
 			if ( (col%8) == 0 ) {
 				m = *mdata++;
 			}
 			if ( (m&0x80) != 0x00 ) {
 				*pwin32 = *pdata;
 			}
 			m <<= 1;
 			++pdata;
 			++pwin32;
 		}
 		pdata  += skip;
 		pwin32 += skip;
 		pwin32 -= 2*icon_pitch;
 	}
 	SDL_FreeSurface(icon_256);

 	/* Copy mask inverted and upside-down to icon BMP */
 	mdata = mask;
 	mwin32 = (Uint8 *)icon_win32
 			+sizeof(*icon_win32)+icon_plen+icon_mlen-mask_pitch;
 	for ( row=0; row<icon->h; ++row ) {
 		for ( col=0; col<mask_pitch; ++col ) {
 			*mwin32++ = ~*mdata++;
 		}
 		mwin32 -= 2*mask_pitch;
 	}

 	/* Finally, create the icon handle and set the window icon */
 	screen_icn = CreateIconFromResourceEx((Uint8 *)icon_win32, icon_len,
 			TRUE, 0x00030000, icon->w, icon->h, LR_DEFAULTCOLOR);
 	if ( screen_icn == NULL ) {
 		SDL_SetError("Couldn't create Win32 icon handle");
 	} else {
 		SetClassLongPtr(SDL_Window, GCLP_HICON, (LONG_PTR)screen_icn);
 	}
 	SDL_stack_free(icon_win32);
 #endif /* DISABLE_ICON_SUPPORT */
 }

 typedef BOOL (WINAPI *PtrSetWindowTextW)(HWND hWnd, LPCWSTR lpString);

 void WIN_SetWMCaption(_THIS, const char *title, const char *icon)
 {
 #ifdef _WIN32_WCE
 	/* WinCE uses the UNICODE version */
 	LPWSTR lpszW = SDL_iconv_utf8_ucs2((char *)title);
 	SetWindowText(SDL_Window, lpszW);
 	SDL_free(lpszW);
 #else
 	Uint16 *lpsz = SDL_iconv_utf8_ucs2(title);
 	size_t len = WideCharToMultiByte(CP_ACP, 0, lpsz, -1, NULL, 0, NULL, NULL);
 	char *cvt = SDL_stack_alloc(char, len + 1);
 	WideCharToMultiByte(CP_ACP, 0, lpsz, -1, cvt, len, NULL, NULL);
 	SetWindowText(SDL_Window, cvt);
 	SDL_stack_free(cvt);
 	SDL_free(lpsz);
 #endif
 }

 int WIN_IconifyWindow(_THIS)
 {
 	ShowWindow(SDL_Window, SW_MINIMIZE);
 	return(1);
 }

 SDL_GrabMode WIN_GrabInput(_THIS, SDL_GrabMode mode)
 {
 	if ( mode == SDL_GRAB_OFF ) {
 		ClipCursor(NULL);
 		if ( !(SDL_cursorstate & CURSOR_VISIBLE) ) {
 		/*	RJR: March 28, 2000
 			must be leaving relative mode, move mouse from
 			center of window to where it belongs ... */
 			POINT pt;
 			int x, y;
 			SDL_GetMouseState(&x,&y);
 			pt.x = x;
 			pt.y = y;
 			ClientToScreen(SDL_Window, &pt);
 			SetCursorPos(pt.x,pt.y);
 		}
 #ifdef _WIN32_WCE
 		AllKeys(0);
 #endif
 	} else {
 		ClipCursor(&SDL_bounds);
 		if ( !(SDL_cursorstate & CURSOR_VISIBLE) ) {
 		/*	RJR: March 28, 2000
 			must be entering relative mode, get ready by
 			moving mouse to	center of window ... */
 			POINT pt;
 			pt.x = (SDL_VideoSurface->w/2);
 			pt.y = (SDL_VideoSurface->h/2);
 			ClientToScreen(SDL_Window, &pt);
 			SetCursorPos(pt.x, pt.y);
 		}
 #ifdef _WIN32_WCE
 		AllKeys(1);
 #endif
 	}
 	return(mode);
 }

 /* If 'info' is the right version, this function fills it and returns 1.
    Otherwise, in case of a version mismatch, it returns -1.
 */
 int WIN_GetWMInfo(_THIS, SDL_SysWMinfo *info)
 {
 	if ( info->version.major <= SDL_MAJOR_VERSION ) {
 		info->window = SDL_Window;
 		if ( SDL_VERSIONNUM(info->version.major,
 		                    info->version.minor,
 		                    info->version.patch) >=
 		     SDL_VERSIONNUM(1, 2, 5) ) {
 #if SDL_VIDEO_OPENGL
 			info->hglrc = GL_hrc;
 #else
 			info->hglrc = NULL;
 #endif
 		}
 		return(1);
 	} else {
 		SDL_SetError("Application not compiled with SDL %d.%d\n",
 					SDL_MAJOR_VERSION, SDL_MINOR_VERSION);
 		return(-1);
 	}
 }
	/*
	SDL - Simple DirectMedia Layer
	Copyright (C) 1997-2009 Sam Lantinga

	This library is free software; you can redistribute it and/or
	modify it under the terms of the GNU Lesser General Public
	License as published by the Free Software Foundation; either
	version 2.1 of the License, or (at your option) any later version.

	This library is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	Lesser General Public License for more details.

	You should have received a copy of the GNU Lesser General Public
	License along with this library; if not, write to the Free Software
	Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

	Sam Lantinga
	slouken@libsdl.org
	*/
	#include "SDL_config.h"

	#define WIN32_LEAN_AND_MEAN
	#include <windows.h>

	#include "SDL_version.h"
	#include "SDL_video.h"
	#include "SDL_loadso.h"
	#include "SDL_syswm.h"
	#include "../SDL_pixels_c.h"
	#include "../SDL_cursor_c.h"
	#include "SDL_syswm_c.h"
	#include "SDL_wingl_c.h"


	#ifdef _WIN32_WCE
	#define DISABLE_ICON_SUPPORT
	#endif

	/* The screen icon -- needs to be freed on SDL_VideoQuit() */
	HICON screen_icn = NULL;

	/* Win32 icon mask semantics are different from those of SDL:
	SDL applies the mask to the icon and copies result to desktop.
	Win32 applies the mask to the desktop and XORs the icon on.
	This means that the SDL mask needs to be applied to the icon and
	then inverted and passed to Win32.
	*/
	void WIN_SetWMIcon(_THIS, SDL_Surface icon, Uint8 mask)
	{
	#ifdef DISABLE_ICON_SUPPORT
	return;
	#else
	SDL_Palette *pal_256;
	SDL_Surface *icon_256;
	Uint8 pdata, pwin32;
	Uint8 mdata, mwin32, m = 0;
	int icon_len;
	int icon_plen;
	int icon_mlen;
	int icon_pitch;
	int mask_pitch;
	SDL_Rect bounds;
	int i, skip;
	int row, col;
	struct /* quasi-BMP format */ Win32Icon {
	Uint32 biSize;
	Sint32 biWidth;
	Sint32 biHeight;
	Uint16 biPlanes;
	Uint16 biBitCount;
	Uint32 biCompression;
	Uint32 biSizeImage;
	Sint32 biXPelsPerMeter;
	Sint32 biYPelsPerMeter;
	Uint32 biClrUsed;
	Uint32 biClrImportant;
	struct /* RGBQUAD -- note it's BGR ordered */ {
	Uint8 rgbBlue;
	Uint8 rgbGreen;
	Uint8 rgbRed;
	Uint8 rgbReserved;
	} biColors[256];
	/* Pixels:
	Uint8 pixels[]
	*/
	/* Mask:
	Uint8 mask[]
	*/
	} *icon_win32;

	/* Allocate the win32 bmp icon and set everything to zero */
	icon_pitch = ((icon->w+3)&~3);
	mask_pitch = ((icon->w+7)/8);
	icon_plen = icon->h*icon_pitch;
	icon_mlen = icon->h*mask_pitch;
	icon_len = sizeof(*icon_win32)+icon_plen+icon_mlen;
	icon_win32 = (struct Win32Icon *)SDL_stack_alloc(Uint8, icon_len);
	if ( icon_win32 == NULL ) {
	return;
	}
	SDL_memset(icon_win32, 0, icon_len);

	/* Set the basic BMP parameters */
	icon_win32->biSize = sizeof(*icon_win32)-sizeof(icon_win32->biColors);
	icon_win32->biWidth = icon->w;
	icon_win32->biHeight = icon->h*2;
	icon_win32->biPlanes = 1;
	icon_win32->biBitCount = 8;
	icon_win32->biSizeImage = icon_plen+icon_mlen;

	/* Allocate a standard 256 color icon surface */
	icon_256 = SDL_CreateRGBSurface(SDL_SWSURFACE, icon->w, icon->h,
	icon_win32->biBitCount, 0, 0, 0, 0);
	if ( icon_256 == NULL ) {
	SDL_stack_free(icon_win32);
	return;
	}
	pal_256 = icon_256->format->palette;
	if (icon->format->palette &&
	(icon->format->BitsPerPixel == icon_256->format->BitsPerPixel)){
	Uint8 black;
	SDL_memcpy(pal_256->colors, icon->format->palette->colors,
	pal_256->ncolors*sizeof(SDL_Color));
	/* Make sure that 0 is black! */
	black = SDL_FindColor(pal_256, 0x00, 0x00, 0x00);
	pal_256->colors[black] = pal_256->colors[0];
	pal_256->colors[0].r = 0x00;
	pal_256->colors[0].g = 0x00;
	pal_256->colors[0].b = 0x00;
	} else {
	SDL_DitherColors(pal_256->colors,
	icon_256->format->BitsPerPixel);
	}

	/* Now copy color data to the icon BMP */
	for ( i=0; i<(1<<icon_win32->biBitCount); ++i ) {
	icon_win32->biColors[i].rgbRed = pal_256->colors[i].r;
	icon_win32->biColors[i].rgbGreen = pal_256->colors[i].g;
	icon_win32->biColors[i].rgbBlue = pal_256->colors[i].b;
	}

	/* Convert icon to a standard surface format. This may not always
	be necessary, as Windows supports a variety of BMP formats, but
	it greatly simplifies our code.
	*/
	bounds.x = 0;
	bounds.y = 0;
	bounds.w = icon->w;
	bounds.h = icon->h;
	if ( SDL_LowerBlit(icon, &bounds, icon_256, &bounds) < 0 ) {
	SDL_stack_free(icon_win32);
	SDL_FreeSurface(icon_256);
	return;
	}

	/* Copy pixels upside-down to icon BMP, masked with the icon mask */
	if ( SDL_MUSTLOCK(icon_256) \|\| (icon_256->pitch != icon_pitch) ) {
	SDL_stack_free(icon_win32);
	SDL_FreeSurface(icon_256);
	SDL_SetError("Warning: Unexpected icon_256 characteristics");
	return;
	}
	pdata = (Uint8 *)icon_256->pixels;
	mdata = mask;
	pwin32 = (Uint8 )icon_win32+sizeof(icon_win32)+icon_plen-icon_pitch;
	skip = icon_pitch - icon->w;
	for ( row=0; row<icon->h; ++row ) {
	for ( col=0; col<icon->w; ++col ) {
	if ( (col%8) == 0 ) {
	m = *mdata++;
	}
	if ( (m&0x80) != 0x00 ) {
	pwin32 = pdata;
	}
	m <<= 1;
	++pdata;
	++pwin32;
	}
	pdata += skip;
	pwin32 += skip;
	pwin32 -= 2*icon_pitch;
	}
	SDL_FreeSurface(icon_256);

	/* Copy mask inverted and upside-down to icon BMP */
	mdata = mask;
	mwin32 = (Uint8 *)icon_win32
	+sizeof(*icon_win32)+icon_plen+icon_mlen-mask_pitch;
	for ( row=0; row<icon->h; ++row ) {
	for ( col=0; col<mask_pitch; ++col ) {
	mwin32++ = ~mdata++;
	}
	mwin32 -= 2*mask_pitch;
	}

	/* Finally, create the icon handle and set the window icon */
	screen_icn = CreateIconFromResourceEx((Uint8 *)icon_win32, icon_len,
	TRUE, 0x00030000, icon->w, icon->h, LR_DEFAULTCOLOR);
	if ( screen_icn == NULL ) {
	SDL_SetError("Couldn't create Win32 icon handle");
	} else {
	SetClassLongPtr(SDL_Window, GCLP_HICON, (LONG_PTR)screen_icn);
	}
	SDL_stack_free(icon_win32);
	#endif /* DISABLE_ICON_SUPPORT */
	}

	typedef BOOL (WINAPI *PtrSetWindowTextW)(HWND hWnd, LPCWSTR lpString);

	void WIN_SetWMCaption(_THIS, const char title, const char icon)
	{
	#ifdef _WIN32_WCE
	/* WinCE uses the UNICODE version */
	LPWSTR lpszW = SDL_iconv_utf8_ucs2((char *)title);
	SetWindowText(SDL_Window, lpszW);
	SDL_free(lpszW);
	#else
	Uint16 *lpsz = SDL_iconv_utf8_ucs2(title);
	size_t len = WideCharToMultiByte(CP_ACP, 0, lpsz, -1, NULL, 0, NULL, NULL);
	char *cvt = SDL_stack_alloc(char, len + 1);
	WideCharToMultiByte(CP_ACP, 0, lpsz, -1, cvt, len, NULL, NULL);
	SetWindowText(SDL_Window, cvt);
	SDL_stack_free(cvt);
	SDL_free(lpsz);
	#endif
	}

	int WIN_IconifyWindow(_THIS)
	{
	ShowWindow(SDL_Window, SW_MINIMIZE);
	return(1);
	}

	SDL_GrabMode WIN_GrabInput(_THIS, SDL_GrabMode mode)
	{
	if ( mode == SDL_GRAB_OFF ) {
	ClipCursor(NULL);
	if ( !(SDL_cursorstate & CURSOR_VISIBLE) ) {
	/* RJR: March 28, 2000
	must be leaving relative mode, move mouse from
	center of window to where it belongs ... */
	POINT pt;
	int x, y;
	SDL_GetMouseState(&x,&y);
	pt.x = x;
	pt.y = y;
	ClientToScreen(SDL_Window, &pt);
	SetCursorPos(pt.x,pt.y);
	}
	#ifdef _WIN32_WCE
	AllKeys(0);
	#endif
	} else {
	ClipCursor(&SDL_bounds);
	if ( !(SDL_cursorstate & CURSOR_VISIBLE) ) {
	/* RJR: March 28, 2000
	must be entering relative mode, get ready by
	moving mouse to center of window ... */
	POINT pt;
	pt.x = (SDL_VideoSurface->w/2);
	pt.y = (SDL_VideoSurface->h/2);
	ClientToScreen(SDL_Window, &pt);
	SetCursorPos(pt.x, pt.y);
	}
	#ifdef _WIN32_WCE
	AllKeys(1);
	#endif
	}
	return(mode);
	}

	/* If 'info' is the right version, this function fills it and returns 1.
	Otherwise, in case of a version mismatch, it returns -1.
	*/
	int WIN_GetWMInfo(_THIS, SDL_SysWMinfo *info)
	{
	if ( info->version.major <= SDL_MAJOR_VERSION ) {
	info->window = SDL_Window;
	if ( SDL_VERSIONNUM(info->version.major,
	info->version.minor,
	info->version.patch) >=
	SDL_VERSIONNUM(1, 2, 5) ) {
	#if SDL_VIDEO_OPENGL
	info->hglrc = GL_hrc;
	#else
	info->hglrc = NULL;
	#endif
	}
	return(1);
	} else {
	SDL_SetError("Application not compiled with SDL %d.%d\n",
	SDL_MAJOR_VERSION, SDL_MINOR_VERSION);
	return(-1);
	}
	}