/* * (c) Copyright 1993, Silicon Graphics, Inc. * ALL RIGHTS RESERVED * Permission to use, copy, modify, and distribute this software for * any purpose and without fee is hereby granted, provided that the above * copyright notice appear in all copies and that both the copyright notice * and this permission notice appear in supporting documentation, and that * the name of Silicon Graphics, Inc. not be used in advertising * or publicity pertaining to distribution of the software without specific, * written prior permission. * * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS" * AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE, * INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR * FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON * GRAPHICS, INC. BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT, * SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY * KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION, * LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF * THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC. HAS BEEN * ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON * ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE * POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE. * * US Government Users Restricted Rights * Use, duplication, or disclosure by the Government is subject to * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph * (c)(1)(ii) of the Rights in Technical Data and Computer Software * clause at DFARS 252.227-7013 and/or in similar or successor * clauses in the FAR or the DOD or NASA FAR Supplement. * Unpublished-- rights reserved under the copyright laws of the * United States. Contractor/manufacturer is Silicon Graphics, * Inc., 2011 N. Shoreline Blvd., Mountain View, CA 94039-7311. * * OpenGL(TM) is a trademark of Silicon Graphics, Inc. */ #include #include #include #include "tk.h" #include "windows.h" #if(WINVER < 0x0400) // Ordinarily not defined for versions before 4.00. #define COLOR_3DDKSHADOW 21 #define COLOR_3DLIGHT 22 #define COLOR_INFOTEXT 23 #define COLOR_INFOBK 24 #endif #define static #if defined(__cplusplus) || defined(c_plusplus) #define class c_class #endif #if DBG #define TKASSERT(x) \ if ( !(x) ) { \ PrintMessage("%s(%d) Assertion failed %s\n", \ __FILE__, __LINE__, #x); \ } #else #define TKASSERT(x) #endif /* DBG */ /******************************************************************************/ static struct _WINDOWINFO { int x, y; int width, height; GLenum type; GLenum dmPolicy; int ipfd; BOOL bDefPos; } windInfo = { 0, 0, 100, 100, TK_INDEX | TK_SINGLE, TK_MINIMUM_CRITERIA, 0, TRUE }; static HWND tkhwnd = NULL; static HDC tkhdc = NULL; static HGLRC tkhrc = NULL; static HPALETTE tkhpalette = NULL; static OSVERSIONINFO tkOSVerInfo; GLboolean tkPopupEnable = TRUE; // Fixed palette support. #define BLACK PALETTERGB(0,0,0) #define WHITE PALETTERGB(255,255,255) #define MAX_STATIC_COLORS (COLOR_INFOBK - COLOR_SCROLLBAR + 1) static int tkNumStaticColors = MAX_STATIC_COLORS; // TRUE if app wants to take over palette static BOOL tkUseStaticColors = FALSE; // TRUE if static system color settings have been replaced with B&W settings. static BOOL tkSystemColorsInUse = FALSE; // TRUE if original static colors saved static BOOL tkStaticColorsSaved = FALSE; // saved system static colors (initialize with default colors) static COLORREF gacrSave[MAX_STATIC_COLORS]; // new B&W system static colors static COLORREF gacrBlackAndWhite[] = { WHITE, // COLOR_SCROLLBAR BLACK, // COLOR_BACKGROUND BLACK, // COLOR_ACTIVECAPTION WHITE, // COLOR_INACTIVECAPTION WHITE, // COLOR_MENU WHITE, // COLOR_WINDOW BLACK, // COLOR_WINDOWFRAME BLACK, // COLOR_MENUTEXT BLACK, // COLOR_WINDOWTEXT WHITE, // COLOR_CAPTIONTEXT WHITE, // COLOR_ACTIVEBORDER WHITE, // COLOR_INACTIVEBORDER WHITE, // COLOR_APPWORKSPACE BLACK, // COLOR_HIGHLIGHT WHITE, // COLOR_HIGHLIGHTTEXT WHITE, // COLOR_BTNFACE BLACK, // COLOR_BTNSHADOW BLACK, // COLOR_GRAYTEXT BLACK, // COLOR_BTNTEXT BLACK, // COLOR_INACTIVECAPTIONTEXT BLACK, // COLOR_BTNHIGHLIGHT BLACK, // COLOR_3DDKSHADOW WHITE, // COLOR_3DLIGHT BLACK, // COLOR_INFOTEXT WHITE // COLOR_INFOBK }; static INT gaiStaticIndex[] = { COLOR_SCROLLBAR , COLOR_BACKGROUND , COLOR_ACTIVECAPTION , COLOR_INACTIVECAPTION , COLOR_MENU , COLOR_WINDOW , COLOR_WINDOWFRAME , COLOR_MENUTEXT , COLOR_WINDOWTEXT , COLOR_CAPTIONTEXT , COLOR_ACTIVEBORDER , COLOR_INACTIVEBORDER , COLOR_APPWORKSPACE , COLOR_HIGHLIGHT , COLOR_HIGHLIGHTTEXT , COLOR_BTNFACE , COLOR_BTNSHADOW , COLOR_GRAYTEXT , COLOR_BTNTEXT , COLOR_INACTIVECAPTIONTEXT, COLOR_BTNHIGHLIGHT , COLOR_3DDKSHADOW , COLOR_3DLIGHT , COLOR_INFOTEXT , COLOR_INFOBK }; static BOOL GrabStaticEntries(HDC); static BOOL ReleaseStaticEntries(HDC); #define RESTORE_FROM_REGISTRY 1 #if RESTORE_FROM_REGISTRY // Registry names for the system colors. CHAR *gaszSysClrNames[] = { "Scrollbar", // COLOR_SCROLLBAR 0 "Background", // COLOR_BACKGROUND 1 (also COLOR_DESKTOP) "ActiveTitle", // COLOR_ACTIVECAPTION 2 "InactiveTitle", // COLOR_INACTIVECAPTION 3 "Menu", // COLOR_MENU 4 "Window", // COLOR_WINDOW 5 "WindowFrame", // COLOR_WINDOWFRAME 6 "MenuText", // COLOR_MENUTEXT 7 "WindowText", // COLOR_WINDOWTEXT 8 "TitleText", // COLOR_CAPTIONTEXT 9 "ActiveBorder", // COLOR_ACTIVEBORDER 10 "InactiveBorder", // COLOR_INACTIVEBORDER 11 "AppWorkspace", // COLOR_APPWORKSPACE 12 "Hilight", // COLOR_HIGHLIGHT 13 "HilightText", // COLOR_HIGHLIGHTTEXT 14 "ButtonFace", // COLOR_BTNFACE 15 (also COLOR_3DFACE) "ButtonShadow", // COLOR_BTNSHADOW 16 (also COLOR_3DSHADOW) "GrayText", // COLOR_GRAYTEXT 17 "ButtonText", // COLOR_BTNTEXT 18 "InactiveTitleText", // COLOR_INACTIVECAPTIONTEXT 19 "ButtonHilight", // COLOR_BTNHIGHLIGHT 20 (also COLOR_3DHILIGHT) "ButtonDkShadow", // COLOR_3DDKSHADOW 21 "ButtonLight", // COLOR_3DLIGHT 22 "InfoText", // COLOR_INFOTEXT 23 "InfoWindow" // COLOR_INFOBK 24 }; static BOOL GetRegistrySysColors(COLORREF *, int); #endif static void (*ExposeFunc)(int, int) = NULL; static void (*ReshapeFunc)(GLsizei, GLsizei) = NULL; static void (*DisplayFunc)(void) = NULL; static GLenum (*KeyDownFunc)(int, GLenum) = NULL; static GLenum (*MouseDownFunc)(int, int, GLenum) = NULL; static GLenum (*MouseUpFunc)(int, int, GLenum) = NULL; static GLenum (*MouseMoveFunc)(int, int, GLenum) = NULL; static void (*IdleFunc)(void) = NULL; static char *lpszClassName = "tkLibWClass"; static WCHAR *lpszClassNameW = L"tkLibWClass"; static long tkWndProc(HWND hWnd, UINT message, DWORD wParam, LONG lParam); static unsigned char ComponentFromIndex(int i, int nbits, int shift ); static void PrintMessage( const char *Format, ... ); static PALETTEENTRY *FillRgbPaletteEntries( PIXELFORMATDESCRIPTOR *Pfd, PALETTEENTRY *Entries, UINT Count ); static HPALETTE CreateCIPalette( HDC Dc ); static HPALETTE CreateRGBPalette( HDC hdc ); static void DestroyThisWindow( HWND Window ); static void CleanUp( void ); static void DelayPaletteRealization( void ); static long RealizePaletteNow( HDC Dc, HPALETTE Palette, BOOL bForceBackground ); static void ForceRedraw( HWND Window ); static BOOL FindPixelFormat(HDC hdc, GLenum type); static int FindBestPixelFormat(HDC hdc, GLenum type, PIXELFORMATDESCRIPTOR *ppfd); static int FindExactPixelFormat(HDC hdc, GLenum type, PIXELFORMATDESCRIPTOR *ppfd); static BOOL IsPixelFormatValid(HDC hdc, int ipfd, PIXELFORMATDESCRIPTOR *ppfd); static int PixelFormatDescriptorFromDc( HDC Dc, PIXELFORMATDESCRIPTOR *Pfd ); static void *AllocateMemory( size_t Size ); static void *AllocateZeroedMemory( size_t Size ); static void FreeMemory( void *Chunk ); /* * Prototypes for the debugging functions go here */ #define DBGFUNC 0 #if DBGFUNC static void DbgPrintf( const char *Format, ... ); static void pwi( void ); static void pwr(RECT *pr); static void ShowPixelFormat(HDC hdc); #endif static float colorMaps[] = { 0.000000F, 1.000000F, 0.000000F, 1.000000F, 0.000000F, 1.000000F, 0.000000F, 1.000000F, 0.333333F, 0.776471F, 0.443137F, 0.556863F, 0.443137F, 0.556863F, 0.219608F, 0.666667F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.039216F, 0.078431F, 0.117647F, 0.156863F, 0.200000F, 0.239216F, 0.278431F, 0.317647F, 0.356863F, 0.400000F, 0.439216F, 0.478431F, 0.517647F, 0.556863F, 0.600000F, 0.639216F, 0.678431F, 0.717647F, 0.756863F, 0.800000F, 0.839216F, 0.878431F, 0.917647F, 0.956863F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 0.000000F, 0.000000F, 1.000000F, 1.000000F, 0.000000F, 0.000000F, 1.000000F, 1.000000F, 0.333333F, 0.443137F, 0.776471F, 0.556863F, 0.443137F, 0.219608F, 0.556863F, 0.666667F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.039216F, 0.078431F, 0.117647F, 0.156863F, 0.200000F, 0.239216F, 0.278431F, 0.317647F, 0.356863F, 0.400000F, 0.439216F, 0.478431F, 0.517647F, 0.556863F, 0.600000F, 0.639216F, 0.678431F, 0.717647F, 0.756863F, 0.800000F, 0.839216F, 0.878431F, 0.917647F, 0.956863F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.141176F, 0.282353F, 0.427451F, 0.568627F, 0.713726F, 0.854902F, 1.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 0.333333F, 0.443137F, 0.443137F, 0.219608F, 0.776471F, 0.556863F, 0.556863F, 0.666667F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.666667F, 0.333333F, 0.039216F, 0.078431F, 0.117647F, 0.156863F, 0.200000F, 0.239216F, 0.278431F, 0.317647F, 0.356863F, 0.400000F, 0.439216F, 0.478431F, 0.517647F, 0.556863F, 0.600000F, 0.639216F, 0.678431F, 0.717647F, 0.756863F, 0.800000F, 0.839216F, 0.878431F, 0.917647F, 0.956863F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.000000F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.247059F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.498039F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 0.749020F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, 1.000000F, }; /* Default Palette */ float auxRGBMap[20][3] = { { 0.0F, 0.0F, 0.0F }, /* 0: black */ { 0x80/255.0F, 0.0F, 0.0F }, /* 1: Half red */ { 0.0F, 0x80/255.0F, 0.0F }, /* 2: Half green */ { 0x80/255.0F, 0x80/255.0F, 0.0F }, /* 3: Half yellow */ { 0.0F, 0.0F, 0x80/255.0F }, /* 4: Half blue */ { 0x80/255.0F, 0.0F, 0x80/255.0F }, /* 5: Half magenta */ { 0.0F, 0x80/255.0F, 0x80/255.0F }, /* 6: Half cyan */ { 0xC0/255.0F, 0xC0/255.0F, 0xC0/255.0F }, /* 7: Light gray */ { 0xC0/255.0F, 0xDC/255.0F, 0xC0/255.0F }, /* 8: Green gray */ { 0xA6/255.0F, 0xCA/255.0F, 0xF0/255.0F }, /* 9: Half gray */ { 1.0F, 0xFB/255.0F, 0xF0/255.0F }, /* 10: Pale */ { 0xA0/255.0F, 0xA0/255.0F, 0xA4/255.0F }, /* 11: Med gray */ { 0x80/255.0F, 0x80/255.0F, 0x80/255.0F }, /* 12: Dark gray */ { 1.0F, 0.0F, 0.0F }, /* 13: red */ { 0.0F, 1.0F, 0.0F }, /* 14: green */ { 1.0F, 1.0F, 0.0F }, /* 15: yellow */ { 0.0F, 0.0F, 1.0F }, /* 16: blue */ { 1.0F, 0.0F, 1.0F }, /* 17: magenta */ { 0.0F, 1.0F, 1.0F }, /* 18: cyan */ { 1.0F, 1.0F, 1.0F }, /* 19: white */ }; /*************************************************************** * * * Exported Functions go here * * * ***************************************************************/ void tkErrorPopups(GLboolean bEnable) { tkPopupEnable = bEnable; } void tkCloseWindow(void) { DestroyThisWindow(tkhwnd); } void tkExec(void) { MSG Message; /* * WM_SIZE gets delivered before we get here! */ if (ReshapeFunc) { RECT ClientRect; GetClientRect(tkhwnd, &ClientRect); (*ReshapeFunc)(ClientRect.right, ClientRect.bottom); } while (GL_TRUE) { /* * Process all pending messages */ if (IdleFunc) { while (PeekMessage(&Message, NULL, 0, 0, PM_NOREMOVE) == TRUE) { if (GetMessage(&Message, NULL, 0, 0) ) { TranslateMessage(&Message); DispatchMessage(&Message); } else { /* * Nothing else to do here, just return */ return; } } /* * If an idle function was defined, call it */ if (IdleFunc) { (*IdleFunc)(); } } else { if (GetMessage(&Message, NULL, 0, 0)) { TranslateMessage(&Message); DispatchMessage(&Message); } else { return; } } } } void tkExposeFunc(void (*Func)(int, int)) { ExposeFunc = Func; } void tkReshapeFunc(void (*Func)(GLsizei, GLsizei)) { ReshapeFunc = Func; } void tkDisplayFunc(void (*Func)(void)) { DisplayFunc = Func; } void tkKeyDownFunc(GLenum (*Func)(int, GLenum)) { KeyDownFunc = Func; } void tkMouseDownFunc(GLenum (*Func)(int, int, GLenum)) { MouseDownFunc = Func; } void tkMouseUpFunc(GLenum (*Func)(int, int, GLenum)) { MouseUpFunc = Func; } void tkMouseMoveFunc(GLenum (*Func)(int, int, GLenum)) { MouseMoveFunc = Func; } void tkIdleFunc(void (*Func)(void)) { IdleFunc = Func; } void tkInitPosition(int x, int y, int width, int height) { if (x == CW_USEDEFAULT) { x = 0; y = 0; windInfo.bDefPos = TRUE; } else windInfo.bDefPos = FALSE; windInfo.x = x + GetSystemMetrics(SM_CXFRAME); windInfo.y = y + GetSystemMetrics(SM_CYCAPTION) - GetSystemMetrics(SM_CYBORDER) + GetSystemMetrics(SM_CYFRAME); windInfo.width = width; windInfo.height = height; } void tkInitDisplayMode(GLenum type) { windInfo.type = type; } void tkInitDisplayModePolicy(GLenum type) { windInfo.dmPolicy = type; } GLenum tkInitDisplayModeID(GLint ipfd) { windInfo.ipfd = ipfd; return GL_TRUE; } // Initialize a window, create a rendering context for that window GLenum tkInitWindow(char *title) { TKASSERT( NULL==tkhwnd ); TKASSERT( NULL==tkhdc ); TKASSERT( NULL==tkhrc ); TKASSERT( NULL==tkhpalette ); return tkInitWindowAW(title, FALSE); } GLenum tkInitWindowAW(char *title, BOOL bUnicode) { WNDCLASS wndclass; RECT WinRect; HANDLE hInstance; ATOM aRegister; GLenum Result = GL_FALSE; BOOL bGetVersionExRet; hInstance = GetModuleHandle(NULL); tkOSVerInfo.dwOSVersionInfoSize = sizeof(tkOSVerInfo); bGetVersionExRet = GetVersionEx(&tkOSVerInfo); TKASSERT(bGetVersionExRet); if ( tkOSVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && tkOSVerInfo.dwMajorVersion == 3 && (tkOSVerInfo.dwMinorVersion == 5 || tkOSVerInfo.dwMinorVersion == 51) ) tkNumStaticColors = COLOR_BTNHIGHLIGHT - COLOR_SCROLLBAR + 1; else tkNumStaticColors = COLOR_INFOBK - COLOR_SCROLLBAR + 1; // Must not define CS_PARENTDC style. wndclass.style = CS_HREDRAW | CS_VREDRAW; wndclass.lpfnWndProc = (WNDPROC)tkWndProc; wndclass.cbClsExtra = 0; wndclass.cbWndExtra = 0; wndclass.hInstance = hInstance; wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION); wndclass.hCursor = LoadCursor(NULL, IDC_ARROW); wndclass.hbrBackground = GetStockObject(BLACK_BRUSH); wndclass.lpszMenuName = NULL; if (bUnicode) wndclass.lpszClassName = (LPCSTR)lpszClassNameW; else wndclass.lpszClassName = (LPCSTR)lpszClassName; if (bUnicode) { aRegister = RegisterClassW((CONST WNDCLASSW *)&wndclass); } else { aRegister = RegisterClass(&wndclass); } /* * If the window failed to register, then there's no * need to continue further. */ if(0 == aRegister) { PrintMessage("Failed to register window class\n"); return(Result); } /* * Make window large enough to hold a client area as large as windInfo */ WinRect.left = windInfo.x; WinRect.right = windInfo.x + windInfo.width; WinRect.top = windInfo.y; WinRect.bottom = windInfo.y + windInfo.height; AdjustWindowRect(&WinRect, WS_OVERLAPPEDWINDOW, FALSE); /* * Must use WS_CLIPCHILDREN and WS_CLIPSIBLINGS styles. */ if (bUnicode) { tkhwnd = CreateWindowW( (LPCWSTR)lpszClassNameW, (LPCWSTR)title, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN | WS_CLIPSIBLINGS, (windInfo.bDefPos) ? CW_USEDEFAULT : WinRect.left, (windInfo.bDefPos) ? CW_USEDEFAULT : WinRect.top, WinRect.right - WinRect.left, WinRect.bottom - WinRect.top, NULL, NULL, hInstance, NULL); } else { tkhwnd = CreateWindow( lpszClassName, title, WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN | WS_CLIPSIBLINGS, (windInfo.bDefPos) ? CW_USEDEFAULT : WinRect.left, (windInfo.bDefPos) ? CW_USEDEFAULT : WinRect.top, WinRect.right - WinRect.left, WinRect.bottom - WinRect.top, NULL, NULL, hInstance, NULL); } if ( NULL != tkhwnd ) { // If default window positioning used, find out window position and fix // up the windInfo position info. if (windInfo.bDefPos) { GetWindowRect(tkhwnd, &WinRect); windInfo.x = WinRect.left + GetSystemMetrics(SM_CXFRAME); windInfo.y = WinRect.top + GetSystemMetrics(SM_CYCAPTION) - GetSystemMetrics(SM_CYBORDER) + GetSystemMetrics(SM_CYFRAME); } tkhdc = GetDC(tkhwnd); if ( NULL != tkhdc ) { ShowWindow(tkhwnd, SW_SHOWDEFAULT); if ( FindPixelFormat(tkhdc, windInfo.type) ) { /* * Create a Rendering Context */ tkhrc = wglCreateContext(tkhdc); if ( NULL != tkhrc ) { /* * Make it Current */ if ( wglMakeCurrent(tkhdc, tkhrc) ) { Result = GL_TRUE; } else { PrintMessage("wglMakeCurrent Failed\n"); } } else { PrintMessage("wglCreateContext Failed\n"); } } } else { PrintMessage("Could not get an HDC for window 0x%08lX\n", tkhwnd ); } } else { PrintMessage("create window failed\n"); } if ( GL_FALSE == Result ) { DestroyThisWindow(tkhwnd); // Something Failed, Destroy this window } return( Result ); } /******************************************************************************/ /* * You cannot just call DestroyWindow() here. The programs do not expect * tkQuit() to return; DestroyWindow() just sends a WM_DESTROY message */ void tkQuit(void) { DestroyThisWindow(tkhwnd); ExitProcess(0); } /******************************************************************************/ void tkSetOneColor(int index, float r, float g, float b) { PALETTEENTRY PalEntry; HPALETTE Palette; if ( NULL != (Palette = CreateCIPalette( tkhdc )) ) { if ( tkUseStaticColors && ( index == 0 || index == 255 ) ) return; PalEntry.peRed = (BYTE)(r*(float)255.0 + (float)0.5); PalEntry.peGreen = (BYTE)(g*(float)255.0 + (float)0.5); PalEntry.peBlue = (BYTE)(b*(float)255.0 + (float)0.5); PalEntry.peFlags = ( tkUseStaticColors ) ? PC_NOCOLLAPSE : 0; // This is a workaround for a GDI palette "feature". If any of // the static colors are repeated in the palette, those colors // will map to the first occurance. So, for our case where there // are only two static colors (black and white), if a white // color appears anywhere in the palette other than in the last // entry, the static white will remap to the first white. This // destroys the nice one-to-one mapping we are trying to achieve. // // There are two ways to workaround this. The first is to // simply not allow a pure white anywhere but in the last entry. // Such requests are replaced with an attenuated white of // (0xFE, 0xFE, 0xFE). // // The other way is to mark these extra whites with PC_RESERVED // which will cause GDI to skip these entries when mapping colors. // This way the app gets the actual colors requested, but can // have side effects on other apps. // // Both solutions are included below. The PC_RESERVED solution is // the one currently enabled. It may have side effects, but taking // over the static colors as we are is a really big side effect that // should swamp out the effects of using PC_RESERVED. if ( tkUseStaticColors ) { if ( PalEntry.peRed == 0xFF && PalEntry.peGreen == 0xFF && PalEntry.peBlue == 0xFF ) { #define USE_PC_RESERVED_WORKAROUND 1 #if USE_PC_RESERVED_WORKAROUND PalEntry.peFlags |= PC_RESERVED; #else PalEntry.peRed = PalEntry.peGreen = PalEntry.peBlue = 0xFE; #endif } } SetPaletteEntries( Palette, index, 1, &PalEntry); DelayPaletteRealization(); } } void tkSetFogRamp(int density, int startIndex) { HPALETTE CurrentPal; PALETTEENTRY *pPalEntry; UINT n, i, j, k, intensity, fogValues, colorValues; if ( NULL != (CurrentPal = CreateCIPalette(tkhdc)) ) { n = GetPaletteEntries( CurrentPal, 0, 0, NULL ); pPalEntry = AllocateMemory( n * sizeof(PALETTEENTRY) ); if ( NULL != pPalEntry) { fogValues = 1 << density; colorValues = 1 << startIndex; for (i = 0; i < colorValues; i++) { for (j = 0; j < fogValues; j++) { k = i * fogValues + j; intensity = i * fogValues + j * colorValues; //mf: not sure what they're trying to do here //intensity = (intensity << 8) | intensity; ??? // This is a workaround for a GDI palette "feature". If any of // the static colors are repeated in the palette, those colors // will map to the first occurance. So, for our case where there // are only two static colors (black and white), if a white // color appears anywhere in the palette other than in the last // entry, the static white will remap to the first white. This // destroys the nice one-to-one mapping we are trying to achieve. // // There are two ways to workaround this. The first is to // simply not allow a pure white anywhere but in the last entry. // Such requests are replaced with an attenuated white of // (0xFE, 0xFE, 0xFE). // // The other way is to mark these extra whites with PC_RESERVED // which will cause GDI to skip these entries when mapping colors. // This way the app gets the actual colors requested, but can // have side effects on other apps. // // Both solutions are included below. The PC_RESERVED solution is // the one currently enabled. It may have side effects, but taking // over the static colors as we are is a really big side effect that // should swamp out the effects of using PC_RESERVED. #if USE_PC_RESERVED_WORKAROUND if (intensity > 0xFF) intensity = 0xFF; #else if (intensity >= 0xFF) intensity = ( tkUseStaticColors && k != 255) ? 0xFE : 0xFF; #endif pPalEntry[k].peRed = pPalEntry[k].peGreen = pPalEntry[k].peBlue = (BYTE) intensity; pPalEntry[k].peFlags = ( tkUseStaticColors && k != 0 && k != 255 ) ? PC_NOCOLLAPSE : 0; #if USE_PC_RESERVED_WORKAROUND if (tkUseStaticColors && intensity == 0xFF && k != 0 && k!= 255) pPalEntry[k].peFlags |= PC_RESERVED; #endif } } SetPaletteEntries(CurrentPal, 0, n, pPalEntry); FreeMemory( pPalEntry ); DelayPaletteRealization(); } } } void tkSetGreyRamp(void) { HPALETTE CurrentPal; PALETTEENTRY *Entries; UINT Count, i; float intensity; if ( NULL != (CurrentPal = CreateCIPalette( tkhdc )) ) { Count = GetPaletteEntries( CurrentPal, 0, 0, NULL ); Entries = AllocateMemory( Count * sizeof(PALETTEENTRY) ); if ( NULL != Entries ) { for (i = 0; i < Count; i++) { intensity = (float)(((double)i / (double)(Count-1)) * (double)255.0 + (double)0.5); Entries[i].peRed = Entries[i].peGreen = Entries[i].peBlue = (BYTE) intensity; Entries[i].peFlags = ( tkUseStaticColors && i != 0 && i != 255 ) ? PC_NOCOLLAPSE : 0; } SetPaletteEntries( CurrentPal, 0, Count, Entries ); FreeMemory( Entries ); DelayPaletteRealization(); } } } void tkSetRGBMap( int Size, float *Values ) { HPALETTE CurrentPal; PIXELFORMATDESCRIPTOR Pfd, *pPfd; PALETTEENTRY *Entries; UINT Count; if ( NULL != (CurrentPal = CreateCIPalette( tkhdc )) ) { pPfd = &Pfd; if ( PixelFormatDescriptorFromDc( tkhdc, pPfd ) ) { Count = 1 << pPfd->cColorBits; Entries = AllocateMemory( Count * sizeof(PALETTEENTRY) ); if ( NULL != Entries ) { FillRgbPaletteEntries( pPfd, Entries, Count ); SetPaletteEntries( CurrentPal, 0, Count, Entries ); FreeMemory(Entries); RealizePaletteNow( tkhdc, tkhpalette, FALSE ); } } } } /******************************************************************************/ void tkSwapBuffers(void) { SwapBuffers(tkhdc); } /******************************************************************************/ GLint tkGetColorMapSize(void) { CreateCIPalette( tkhdc ); if ( NULL == tkhpalette ) return( 0 ); return( GetPaletteEntries( tkhpalette, 0, 0, NULL ) ); } void tkGetMouseLoc(int *x, int *y) { POINT Point; *x = 0; *y = 0; GetCursorPos(&Point); /* * GetCursorPos returns screen coordinates, * we want window coordinates */ *x = Point.x - windInfo.x; *y = Point.y - windInfo.y; } HWND tkGetHWND(void) { return tkhwnd; } HDC tkGetHDC(void) { return tkhdc; } HGLRC tkGetHRC(void) { return tkhrc; } GLenum tkGetDisplayModePolicy(void) { return windInfo.dmPolicy; } GLint tkGetDisplayModeID(void) { return windInfo.ipfd; } GLenum tkGetDisplayMode(void) { return windInfo.type; } /*********************************************************************** * * * The Following functions are for our own use only. (ie static) * * * ***********************************************************************/ static long tkWndProc(HWND hWnd, UINT message, DWORD wParam, LONG lParam) { int key; PAINTSTRUCT paint; HDC hdc; PIXELFORMATDESCRIPTOR pfd; switch (message) { case WM_USER: if ( RealizePaletteNow( tkhdc, tkhpalette, FALSE ) > 0 ) { ForceRedraw( hWnd ); } return(0); case WM_SIZE: windInfo.width = LOWORD(lParam); windInfo.height = HIWORD(lParam); if (ReshapeFunc) { (*ReshapeFunc)(windInfo.width, windInfo.height); ForceRedraw( hWnd ); } return (0); case WM_MOVE: windInfo.x = LOWORD(lParam); windInfo.y = HIWORD(lParam); return (0); case WM_PAINT: /* * Validate the region even if there are no DisplayFunc. * Otherwise, USER will not stop sending WM_PAINT messages. */ hdc = BeginPaint(tkhwnd, &paint); if (DisplayFunc) { (*DisplayFunc)(); } EndPaint(tkhwnd, &paint); return (0); case WM_QUERYNEWPALETTE: // We don't actually realize the palette here (we do it at WM_ACTIVATE // time), but we need the system to think that we have so that a // WM_PALETTECHANGED message is generated. return (1); case WM_PALETTECHANGED: // Respond to this message only if the window that changed the palette // is not this app's window. // We are not the foreground window, so realize palette in the // background. We cannot call RealizePaletteNow to do this because // we should not do any of the tkUseStaticColors processing while // in background. if ( hWnd != (HWND) wParam ) { if ( !tkSystemColorsInUse && NULL != tkhpalette && NULL != SelectPalette( tkhdc, tkhpalette, TRUE ) ) RealizePalette( tkhdc ); } return (0); case WM_SYSCOLORCHANGE: // If the system colors have changed and we have a palette // for an RGB surface then we need to recompute the static // color mapping because they might have been changed in // the process of changing the system colors. if (tkhdc != NULL && tkhpalette != NULL && PixelFormatDescriptorFromDc(tkhdc, &pfd) && (pfd.dwFlags & PFD_NEED_PALETTE) && pfd.iPixelType == PFD_TYPE_RGBA) { HPALETTE hpalTmp; hpalTmp = tkhpalette; tkhpalette = NULL; if (CreateRGBPalette(tkhdc) != NULL) { DeleteObject(hpalTmp); ForceRedraw(hWnd); } else { tkhpalette = hpalTmp; } } break; case WM_ACTIVATE: // If the window is going inactive, the palette must be realized to // the background. Cannot depend on WM_PALETTECHANGED to be sent since // the window that comes to the foreground may or may not be palette // managed. if ( LOWORD(wParam) == WA_INACTIVE ) { if ( NULL != tkhpalette ) { // Realize as a background palette. Need to call // RealizePaletteNow rather than RealizePalette directly to // because it may be necessary to release usage of the static // system colors. if ( RealizePaletteNow( tkhdc, tkhpalette, TRUE ) > 0 ) ForceRedraw( hWnd ); } } // Window is going active. If we are not iconized, realize palette // to the foreground. If management of the system static colors is // needed, RealizePaletteNow will take care of it. else if ( HIWORD(wParam) == 0 ) { if ( NULL != tkhpalette ) { if ( RealizePaletteNow( tkhdc, tkhpalette, FALSE ) > 0 ) ForceRedraw( hWnd ); return (1); } } // Allow DefWindowProc() to finish the default processing (which includes // changing the keyboard focus). break; case WM_MOUSEMOVE: if (MouseMoveFunc) { GLenum mask; mask = 0; if (wParam & MK_LBUTTON) { mask |= TK_LEFTBUTTON; } if (wParam & MK_MBUTTON) { mask |= TK_MIDDLEBUTTON; } if (wParam & MK_RBUTTON) { mask |= TK_RIGHTBUTTON; } if ((*MouseMoveFunc)( LOWORD(lParam), HIWORD(lParam), mask )) { ForceRedraw( hWnd ); } } return (0); case WM_LBUTTONDOWN: SetCapture(hWnd); if (MouseDownFunc) { if ( (*MouseDownFunc)(LOWORD(lParam), HIWORD(lParam), TK_LEFTBUTTON) ) { ForceRedraw( hWnd ); } } return (0); case WM_LBUTTONUP: ReleaseCapture(); if (MouseUpFunc) { if ((*MouseUpFunc)(LOWORD(lParam), HIWORD(lParam), TK_LEFTBUTTON)) { ForceRedraw( hWnd ); } } return (0); case WM_MBUTTONDOWN: SetCapture(hWnd); if (MouseDownFunc) { if ((*MouseDownFunc)(LOWORD(lParam), HIWORD(lParam), TK_MIDDLEBUTTON)) { ForceRedraw( hWnd ); } } return (0); case WM_MBUTTONUP: ReleaseCapture(); if (MouseUpFunc) { if ((*MouseUpFunc)(LOWORD(lParam), HIWORD(lParam), TK_MIDDLEBUTTON)) { ForceRedraw( hWnd ); } } return (0); case WM_RBUTTONDOWN: SetCapture(hWnd); if (MouseDownFunc) { if ((*MouseDownFunc)(LOWORD(lParam), HIWORD(lParam), TK_RIGHTBUTTON)) { ForceRedraw( hWnd ); } } return (0); case WM_RBUTTONUP: ReleaseCapture(); if (MouseUpFunc) { if ((*MouseUpFunc)(LOWORD(lParam), HIWORD(lParam), TK_RIGHTBUTTON)) { ForceRedraw( hWnd ); } } return (0); case WM_KEYDOWN: switch (wParam) { case VK_SPACE: key = TK_SPACE; break; case VK_RETURN: key = TK_RETURN; break; case VK_ESCAPE: key = TK_ESCAPE; break; case VK_LEFT: key = TK_LEFT; break; case VK_UP: key = TK_UP; break; case VK_RIGHT: key = TK_RIGHT; break; case VK_DOWN: key = TK_DOWN; break; default: key = GL_FALSE; break; } if (key && KeyDownFunc) { GLenum mask; mask = 0; if (GetKeyState(VK_CONTROL)) { mask |= TK_CONTROL; } if (GetKeyState(VK_SHIFT)) { mask |= TK_SHIFT; } if ( (*KeyDownFunc)(key, mask) ) { ForceRedraw( hWnd ); } } return (0); case WM_CHAR: if (('0' <= wParam && wParam <= '9') || ('a' <= wParam && wParam <= 'z') || ('A' <= wParam && wParam <= 'Z')) { key = wParam; } else { key = GL_FALSE; } if (key && KeyDownFunc) { GLenum mask; mask = 0; if (GetKeyState(VK_CONTROL)) { mask |= TK_CONTROL; } if (GetKeyState(VK_SHIFT)) { mask |= TK_SHIFT; } if ( (*KeyDownFunc)(key, mask) ) { ForceRedraw( hWnd ); } } return (0); case WM_CLOSE: DestroyWindow(tkhwnd); return(0); case WM_DESTROY: CleanUp(); PostQuitMessage(TRUE); return 0; } return(DefWindowProc( hWnd, message, wParam, lParam)); } #if RESTORE_FROM_REGISTRY /******************************Public*Routine******************************\ * GetRegistrySysColors * * Reads the Control Panel's color settings from the registry and stores * those values in pcr. If we fail to get any value, then the corresponding * entry in pcr is not modified. * * History: * 12-Apr-1995 -by- Gilman Wong [gilmanw] * Wrote it. \**************************************************************************/ static BOOL GetRegistrySysColors(COLORREF *pcr, int nColors) { BOOL bRet = FALSE; long lRet; HKEY hkSysColors = (HKEY) NULL; int i; DWORD dwDataType; char achColor[64]; DWORD cjColor; TKASSERT(nColors <= tkNumStaticColors); // Open the key for the system color settings. lRet = RegOpenKeyExA(HKEY_CURRENT_USER, "Control Panel\\Colors", 0, KEY_QUERY_VALUE, &hkSysColors); if ( lRet != ERROR_SUCCESS ) { goto GetRegistrySysColors_exit; } // Read each system color value. The names are stored in the global // array of char *, gaszSysClrNames. for (i = 0; i < nColors; i++) { cjColor = sizeof(achColor); lRet = RegQueryValueExA(hkSysColors, (LPSTR) gaszSysClrNames[i], (LPDWORD) NULL, &dwDataType, (LPBYTE) achColor, &cjColor); TKASSERT(lRet != ERROR_MORE_DATA); if ( lRet == ERROR_SUCCESS && dwDataType == REG_SZ ) { DWORD r, g, b; sscanf(achColor, "%ld %ld %ld", &r, &g, &b); pcr[i] = RGB(r, g, b); } } bRet = TRUE; GetRegistrySysColors_exit: if (hkSysColors) RegCloseKey(hkSysColors); return bRet; } #endif /******************************Public*Routine******************************\ * GrabStaticEntries * * Support routine for RealizePaletteNow to manage the static system color * usage. * * This function will save the current static system color usage state. * It will fail if: * * 1. TK is not in "sys color in use state but system palette is in * SYSPAL_NOSTATIC mode. This means that another app still possesses * the static system colors. This this happens, GrabStaticEntries * will post a message to cause TK to try again (by calling * DelayPaletteRealization). * * Side effect: * If system colors are changed, then WM_SYSCOLORCHANGE message is * broadcast to all top level windows. * * DelayPaletteRealization may be called in case 2 above, resulting in * a WM_USER message being posted to our message queue. * * Returns: * TRUE if successful, FALSE otherwise (see above). * * History: * 26-Apr-1994 -by- Gilman Wong [gilmanw] * Wrote it. \**************************************************************************/ static BOOL GrabStaticEntries(HDC hdc) { int i; BOOL bRet = FALSE; // Do nothing if sys colors already in use. if ( !tkSystemColorsInUse ) { // Take possession only if no other app has the static colors. // How can we tell? If the return from SetSystemPaletteUse is // SYSPAL_STATIC, then no other app has the statics. If it is // SYSPAL_NOSTATIC, someone else has them and we must fail. // // SetSystemPaletteUse is properly synchronized internally // so that it is atomic. // // Because we are relying on SetSystemPaletteUse to synchronize TK, // it is important to observe the following order for grabbing and // releasing: // // Grab call SetSystemPaletteUse and check for SYSPAL_STATIC // save sys color settings // set new sys color settings // // Release restore sys color settings // call SetSystemPaletteUse if ( SetSystemPaletteUse( hdc, SYSPAL_NOSTATIC ) == SYSPAL_STATIC ) { // Save current sys color settings. for (i = COLOR_SCROLLBAR; i <= COLOR_BTNHIGHLIGHT; i++) gacrSave[i - COLOR_SCROLLBAR] = GetSysColor(i); // Set b&w sys color settings. Put TK in "sys colors in use" state. SetSysColors(tkNumStaticColors, gaiStaticIndex, gacrBlackAndWhite); tkSystemColorsInUse = TRUE; // Inform all other top-level windows of the system color change. PostMessage(HWND_BROADCAST, WM_SYSCOLORCHANGE, 0, 0); bRet = TRUE; } // Sleep a little and then post message to try palette realization again // later. else { Sleep(0L); DelayPaletteRealization(); } } else bRet = TRUE; return bRet; } /******************************Public*Routine******************************\ * ReleaseStaticEntries * * Support routine for RealizePaletteNow to manage the static system color * usage. * * This function will reset the current static system color usage state. * It will fail if: * * 1. TK is not in a "sys colors in use" state. If we are in this case, * then the static system colors do not need to be released. * * Side effect: * If system colors are changed, then WM_SYSCOLORCHANGE message is * broadcast to all top level windows. * * Returns: * TRUE if successful, FALSE otherwise (see above). * * History: * 21-Jul-1994 -by- Gilman Wong [gilmanw] * Wrote it. \**************************************************************************/ static BOOL ReleaseStaticEntries(HDC hdc) { BOOL bRet = FALSE; // Do nothing if sys colors not in use. if ( tkSystemColorsInUse ) { #if RESTORE_FROM_REGISTRY // Replace saved system colors with registry values. We do it now // rather than earlier because someone may have changed registry while // TK app was running in the foreground (very unlikely, but it could // happen). // // Also, we still try to save current setting in GrabStaticEntries so // that if for some reason we fail to grab one or more of the colors // from the registry, we can still fall back on what we grabbed via // GetSysColors (even though there is a chance its the wrong color). GetRegistrySysColors(gacrSave, tkNumStaticColors); #endif // Restore the saved system color settings. SetSysColors(tkNumStaticColors, gaiStaticIndex, gacrSave); // Return the system palette to SYSPAL_STATIC. SetSystemPaletteUse( hdc, SYSPAL_STATIC ); // Inform all other top-level windows of the system color change. PostMessage(HWND_BROADCAST, WM_SYSCOLORCHANGE, 0, 0); // Reset the "sys colors in use" state and return success. tkSystemColorsInUse = FALSE; bRet = TRUE; } return bRet; } // Default palette entry flags #define PALETTE_FLAGS PC_NOCOLLAPSE // Gamma correction factor * 10 #define GAMMA_CORRECTION 14 // Maximum color distance with 8-bit components #define MAX_COL_DIST (3*256*256L) // Number of static colors #define STATIC_COLORS 20 // Flags used when matching colors #define EXACT_MATCH 1 #define COLOR_USED 1 // Conversion tables for n bits to eight bits #if GAMMA_CORRECTION == 10 // These tables are corrected for a gamma of 1.0 static unsigned char abThreeToEight[8] = { 0, 0111 >> 1, 0222 >> 1, 0333 >> 1, 0444 >> 1, 0555 >> 1, 0666 >> 1, 0377 }; static unsigned char abTwoToEight[4] = { 0, 0x55, 0xaa, 0xff }; static unsigned char abOneToEight[2] = { 0, 255 }; #else // These tables are corrected for a gamma of 1.4 static unsigned char abThreeToEight[8] = { 0, 63, 104, 139, 171, 200, 229, 255 }; static unsigned char abTwoToEight[4] = { 0, 116, 191, 255 }; static unsigned char abOneToEight[2] = { 0, 255 }; #endif // Table which indicates which colors in a 3-3-2 palette should be // replaced with the system default colors #if GAMMA_CORRECTION == 10 static int aiDefaultOverride[STATIC_COLORS] = { 0, 4, 32, 36, 128, 132, 160, 173, 181, 245, 247, 164, 156, 7, 56, 63, 192, 199, 248, 255 }; #else static int aiDefaultOverride[STATIC_COLORS] = { 0, 3, 24, 27, 64, 67, 88, 173, 181, 236, 247, 164, 91, 7, 56, 63, 192, 199, 248, 255 }; #endif static unsigned char ComponentFromIndex(int i, int nbits, int shift) { unsigned char val; TKASSERT(nbits >= 1 && nbits <= 3); val = i >> shift; switch (nbits) { case 1: return abOneToEight[val & 1]; case 2: return abTwoToEight[val & 3]; case 3: return abThreeToEight[val & 7]; } } // System default colors static PALETTEENTRY apeDefaultPalEntry[STATIC_COLORS] = { { 0, 0, 0, 0 }, { 0x80,0, 0, 0 }, { 0, 0x80,0, 0 }, { 0x80,0x80,0, 0 }, { 0, 0, 0x80, 0 }, { 0x80,0, 0x80, 0 }, { 0, 0x80,0x80, 0 }, { 0xC0,0xC0,0xC0, 0 }, { 192, 220, 192, 0 }, { 166, 202, 240, 0 }, { 255, 251, 240, 0 }, { 160, 160, 164, 0 }, { 0x80,0x80,0x80, 0 }, { 0xFF,0, 0, 0 }, { 0, 0xFF,0, 0 }, { 0xFF,0xFF,0, 0 }, { 0, 0, 0xFF, 0 }, { 0xFF,0, 0xFF, 0 }, { 0, 0xFF,0xFF, 0 }, { 0xFF,0xFF,0xFF, 0 } }; /******************************Public*Routine******************************\ * * UpdateStaticMapping * * Computes the best match between the current system static colors * and a 3-3-2 palette * * History: * Tue Aug 01 18:18:12 1995 -by- Drew Bliss [drewb] * Created * \**************************************************************************/ static void UpdateStaticMapping(PALETTEENTRY *pe332Palette) { HPALETTE hpalStock; int iStatic, i332; int iMinDist, iDist; int iDelta; int iMinEntry; PALETTEENTRY *peStatic, *pe332; hpalStock = GetStockObject(DEFAULT_PALETTE); // The system should always have one of these TKASSERT(hpalStock != NULL); // Make sure there's the correct number of entries TKASSERT(GetPaletteEntries(hpalStock, 0, 0, NULL) == STATIC_COLORS); // Get the current static colors GetPaletteEntries(hpalStock, 0, STATIC_COLORS, apeDefaultPalEntry); // Zero the flags in the static colors because they are used later peStatic = apeDefaultPalEntry; for (iStatic = 0; iStatic < STATIC_COLORS; iStatic++) { peStatic->peFlags = 0; peStatic++; } // Zero the flags in the incoming palette because they are used later pe332 = pe332Palette; for (i332 = 0; i332 < 256; i332++) { pe332->peFlags = 0; pe332++; } // Try to match each static color exactly // This saves time by avoiding the least-squares match for each // exact match peStatic = apeDefaultPalEntry; for (iStatic = 0; iStatic < STATIC_COLORS; iStatic++) { pe332 = pe332Palette; for (i332 = 0; i332 < 256; i332++) { if (peStatic->peRed == pe332->peRed && peStatic->peGreen == pe332->peGreen && peStatic->peBlue == pe332->peBlue) { TKASSERT(pe332->peFlags != COLOR_USED); peStatic->peFlags = EXACT_MATCH; pe332->peFlags = COLOR_USED; aiDefaultOverride[iStatic] = i332; break; } pe332++; } peStatic++; } // Match each static color as closely as possible to an entry // in the 332 palette by minimized the square of the distance peStatic = apeDefaultPalEntry; for (iStatic = 0; iStatic < STATIC_COLORS; iStatic++) { // Skip colors already matched exactly if (peStatic->peFlags == EXACT_MATCH) { peStatic++; continue; } iMinDist = MAX_COL_DIST+1; #if DBG iMinEntry = -1; #endif pe332 = pe332Palette; for (i332 = 0; i332 < 256; i332++) { // Skip colors already used if (pe332->peFlags == COLOR_USED) { pe332++; continue; } // Compute Euclidean distance squared iDelta = pe332->peRed-peStatic->peRed; iDist = iDelta*iDelta; iDelta = pe332->peGreen-peStatic->peGreen; iDist += iDelta*iDelta; iDelta = pe332->peBlue-peStatic->peBlue; iDist += iDelta*iDelta; if (iDist < iMinDist) { iMinDist = iDist; iMinEntry = i332; } pe332++; } TKASSERT(iMinEntry != -1); // Remember the best match aiDefaultOverride[iStatic] = iMinEntry; pe332Palette[iMinEntry].peFlags = COLOR_USED; peStatic++; } // Zero the flags in the static colors because they may have been // set. We want them to be zero so the colors can be remapped peStatic = apeDefaultPalEntry; for (iStatic = 0; iStatic < STATIC_COLORS; iStatic++) { peStatic->peFlags = 0; peStatic++; } // Reset the 332 flags because we may have set them pe332 = pe332Palette; for (i332 = 0; i332 < 256; i332++) { pe332->peFlags = PALETTE_FLAGS; pe332++; } #if 0 for (iStatic = 0; iStatic < STATIC_COLORS; iStatic++) { PrintMessage("Static color %2d maps to %d\n", iStatic, aiDefaultOverride[iStatic]); } #endif } /******************************Public*Routine******************************\ * FillRgbPaletteEntries * * Fills a PALETTEENTRY array with values required for a logical rgb palette. * If tkSetStaticColorUsage has been called with TRUE, the static system * colors will be overridden. Otherwise, the PALETTEENTRY array will be * fixed up to contain the default static system colors. * * History: * 26-Apr-1994 -by- Gilman Wong [gilmanw] * Wrote it. \**************************************************************************/ static PALETTEENTRY * FillRgbPaletteEntries( PIXELFORMATDESCRIPTOR *Pfd, PALETTEENTRY *Entries, UINT Count ) { PALETTEENTRY *Entry; UINT i; if ( NULL != Entries ) { for ( i = 0, Entry = Entries ; i < Count ; i++, Entry++ ) { Entry->peRed = ComponentFromIndex(i, Pfd->cRedBits, Pfd->cRedShift); Entry->peGreen = ComponentFromIndex(i, Pfd->cGreenBits, Pfd->cGreenShift); Entry->peBlue = ComponentFromIndex(i, Pfd->cBlueBits, Pfd->cBlueShift); Entry->peFlags = PALETTE_FLAGS; } if ( 256 == Count) { // If app set static system color usage for fixed palette support, // setup to take over the static colors. Otherwise, fixup the // static system colors. if ( tkUseStaticColors ) { // Black and white already exist as the only remaining static // colors. Let those remap. All others should be put into // the palette (i.e., set PC_NOCOLLAPSE). Entries[0].peFlags = 0; Entries[255].peFlags = 0; } else { // The defaultOverride array is computed assuming a 332 // palette where red has zero shift, etc. if ( (3 == Pfd->cRedBits) && (0 == Pfd->cRedShift) && (3 == Pfd->cGreenBits) && (3 == Pfd->cGreenShift) && (2 == Pfd->cBlueBits) && (6 == Pfd->cBlueShift) ) { UpdateStaticMapping(Entries); for ( i = 0 ; i < STATIC_COLORS ; i++) { Entries[aiDefaultOverride[i]] = apeDefaultPalEntry[i]; } } } } } return( Entries ); } static HPALETTE CreateRGBPalette( HDC Dc ) { PIXELFORMATDESCRIPTOR Pfd, *pPfd; LOGPALETTE *LogPalette; UINT Count; if ( NULL == tkhpalette ) { pPfd = &Pfd; if ( PixelFormatDescriptorFromDc( Dc, pPfd ) ) { /* * Make sure we need a palette */ if ( (pPfd->iPixelType == PFD_TYPE_RGBA) && (pPfd->dwFlags & PFD_NEED_PALETTE) ) { /* * Note how palette is to be realized. Take over the * system colors if either the pixel format requires it * or the app wants it. */ tkUseStaticColors = ( pPfd->dwFlags & PFD_NEED_SYSTEM_PALETTE ) || TK_USE_FIXED_332_PAL(windInfo.type); Count = 1 << pPfd->cColorBits; LogPalette = AllocateMemory( sizeof(LOGPALETTE) + Count * sizeof(PALETTEENTRY)); if ( NULL != LogPalette ) { LogPalette->palVersion = 0x300; LogPalette->palNumEntries = Count; FillRgbPaletteEntries( pPfd, &LogPalette->palPalEntry[0], Count ); tkhpalette = CreatePalette(LogPalette); FreeMemory(LogPalette); RealizePaletteNow( Dc, tkhpalette, FALSE ); } } } } return( tkhpalette ); } static HPALETTE CreateCIPalette( HDC Dc ) { PIXELFORMATDESCRIPTOR Pfd; LOGPALETTE *LogicalPalette; HPALETTE StockPalette; UINT PaletteSize, StockPaletteSize, EntriesToCopy; if ( (Dc != NULL) && (NULL == tkhpalette) ) { if ( PixelFormatDescriptorFromDc( Dc, &Pfd ) ) { if ( Pfd.iPixelType == PFD_TYPE_COLORINDEX ) { /* * Note how palette is to be realized (Is this the correct place to do this?) */ tkUseStaticColors = ( Pfd.dwFlags & PFD_NEED_SYSTEM_PALETTE ) || TK_USE_FIXED_332_PAL(windInfo.type); /* * Limit the size of the palette to 256 colors. * Why? Because this is what was decided. */ PaletteSize = (Pfd.cColorBits >= 8) ? 256 : (1 << Pfd.cColorBits); LogicalPalette = AllocateZeroedMemory( sizeof(LOGPALETTE) + (PaletteSize * sizeof(PALETTEENTRY)) ); if ( NULL != LogicalPalette ) { LogicalPalette->palVersion = 0x300; LogicalPalette->palNumEntries = PaletteSize; StockPalette = GetStockObject(DEFAULT_PALETTE); StockPaletteSize = GetPaletteEntries( StockPalette, 0, 0, NULL ); /* * start by copying default palette into new one */ EntriesToCopy = StockPaletteSize < PaletteSize ? StockPaletteSize : PaletteSize; GetPaletteEntries( StockPalette, 0, EntriesToCopy, LogicalPalette->palPalEntry ); /* * If we are taking possession of the system colors, * must guarantee that 0 and 255 are black and white * (respectively). */ if ( tkUseStaticColors && PaletteSize == 256 ) { int i; LogicalPalette->palPalEntry[0].peRed = LogicalPalette->palPalEntry[0].peGreen = LogicalPalette->palPalEntry[0].peBlue = 0x00; LogicalPalette->palPalEntry[255].peRed = LogicalPalette->palPalEntry[255].peGreen = LogicalPalette->palPalEntry[255].peBlue = 0xFF; LogicalPalette->palPalEntry[0].peFlags = LogicalPalette->palPalEntry[255].peFlags = 0; /* * All other entries should be remappable, * so mark them as PC_NOCOLLAPSE. */ for ( i = 1; i < 255; i++ ) LogicalPalette->palPalEntry[i].peFlags = PC_NOCOLLAPSE; } tkhpalette = CreatePalette(LogicalPalette); FreeMemory(LogicalPalette); RealizePaletteNow( Dc, tkhpalette, FALSE ); } } } } return( tkhpalette ); } static BOOL FindPixelFormat(HDC hdc, GLenum type) { PIXELFORMATDESCRIPTOR pfd; int PfdIndex; BOOL Result = FALSE; if ( TK_MINIMUM_CRITERIA == windInfo.dmPolicy ) PfdIndex = FindBestPixelFormat(hdc, type, &pfd); else if ( TK_EXACT_MATCH == windInfo.dmPolicy ) PfdIndex = FindExactPixelFormat(hdc, type, &pfd); else if ( IsPixelFormatValid(hdc, windInfo.ipfd, &pfd) ) PfdIndex = windInfo.ipfd; else PfdIndex = 0; if ( PfdIndex ) { if ( SetPixelFormat(hdc, PfdIndex, &pfd) ) { /* * If this pixel format requires a palette do it now. * In colorindex mode, create a logical palette only * if the application needs to modify it. */ CreateRGBPalette( hdc ); Result = TRUE; } else { PrintMessage("SetPixelFormat failed\n"); } } else { PrintMessage("Selecting a pixel format failed\n"); } return(Result); } static int FindBestPixelFormat(HDC hdc, GLenum type, PIXELFORMATDESCRIPTOR *ppfd) { PIXELFORMATDESCRIPTOR pfd; pfd.nSize = sizeof(pfd); pfd.nVersion = 1; pfd.dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL; if (TK_IS_DOUBLE(type)) pfd.dwFlags |= PFD_DOUBLEBUFFER; if (TK_IS_INDEX(type)) { pfd.iPixelType = PFD_TYPE_COLORINDEX; pfd.cColorBits = 8; } else { pfd.iPixelType = PFD_TYPE_RGBA; pfd.cColorBits = 24; } if (TK_HAS_ALPHA(type)) pfd.cAlphaBits = 8; else pfd.cAlphaBits = 0; if (TK_HAS_ACCUM(type)) pfd.cAccumBits = pfd.cColorBits + pfd.cAlphaBits; else pfd.cAccumBits = 0; if (TK_HAS_DEPTH(type)) { if (TK_IS_DEPTH16(type)) pfd.cDepthBits = 16; else pfd.cDepthBits = 32; } else { pfd.cDepthBits = 0; } if (TK_HAS_STENCIL(type)) pfd.cStencilBits = 4; else pfd.cStencilBits = 0; pfd.cAuxBuffers = 0; pfd.iLayerType = PFD_MAIN_PLANE; *ppfd = pfd; return ( ChoosePixelFormat(hdc, &pfd) ); } static int FindExactPixelFormat(HDC hdc, GLenum type, PIXELFORMATDESCRIPTOR *ppfd) { int i, MaxPFDs, Score, BestScore, BestPFD; PIXELFORMATDESCRIPTOR pfd; i = 1; BestPFD = BestScore = 0; do { MaxPFDs = DescribePixelFormat(hdc, i, sizeof(pfd), &pfd); if ( MaxPFDs <= 0 ) return ( 0 ); Score = 0; if ( !( ( pfd.dwFlags & PFD_DRAW_TO_WINDOW ) && ( pfd.dwFlags & PFD_SUPPORT_OPENGL ) ) ) continue; if ( pfd.iLayerType != PFD_MAIN_PLANE ) continue; if ( ( pfd.iPixelType == PFD_TYPE_RGBA ) && ( TK_IS_INDEX(type) ) ) continue; if ( ( pfd.iPixelType == PFD_TYPE_COLORINDEX ) && ( TK_IS_RGB(type) ) ) continue; if ( ( pfd.dwFlags & PFD_DOUBLEBUFFER ) && ( TK_IS_SINGLE(type) ) ) continue; if ( !( pfd.dwFlags & PFD_DOUBLEBUFFER ) && ( TK_IS_DOUBLE(type) ) ) continue; /* If accum requested then accum rgb size must be > 0 */ /* If alpha requested then alpha size must be > 0 */ /* if accum & alpha requested then accum alpha size must be > 0 */ if ( TK_IS_RGB(type) ) { if ( TK_HAS_ACCUM(type) ) { if ( pfd.cAccumBits <= 0 ) continue; } else { if ( pfd.cAccumBits > 0 ) continue; } if ( TK_HAS_ALPHA(type) ) { if ( pfd.cAlphaBits <= 0 ) continue; if ( TK_HAS_ACCUM(type) && pfd.cAccumAlphaBits <= 0 ) continue; } else { if ( pfd.cAlphaBits > 0 ) continue; } } if ( TK_HAS_DEPTH(type) ) { if ( pfd.cDepthBits <= 0 ) continue; } else { if ( pfd.cDepthBits > 0 ) continue; } if ( TK_HAS_STENCIL(type) ) { if ( pfd.cStencilBits <= 0 ) continue; } else { if ( pfd.cStencilBits > 0 ) continue; } Score = pfd.cColorBits; if (Score > BestScore) { BestScore = Score; BestPFD = i; *ppfd = pfd; } } while (++i <= MaxPFDs); return ( BestPFD ); } static BOOL IsPixelFormatValid(HDC hdc, int ipfd, PIXELFORMATDESCRIPTOR *ppfd) { if ( ipfd > 0 ) { if ( ipfd <= DescribePixelFormat(hdc, ipfd, sizeof(*ppfd), ppfd) ) { if ( ( ppfd->dwFlags & PFD_DRAW_TO_WINDOW ) && ( ppfd->dwFlags & PFD_SUPPORT_OPENGL ) ) { return ( TRUE ); } } } return ( FALSE ); } static void PrintMessage( const char *Format, ... ) { va_list ArgList; char Buffer[256]; va_start(ArgList, Format); vsprintf(Buffer, Format, ArgList); va_end(ArgList); MESSAGEBOX(GetFocus(), Buffer, "Error", MB_OK); } static void DelayPaletteRealization( void ) { MSG Message; TKASSERT(NULL!=tkhwnd); /* * Add a WM_USER message to the queue, if there isn't one there already. */ if (!PeekMessage(&Message, tkhwnd, WM_USER, WM_USER, PM_NOREMOVE) ) { PostMessage( tkhwnd, WM_USER, 0, 0); } } /******************************Public*Routine******************************\ * RealizePaletteNow * * Select the given palette in background or foreground mode (as specified * by the bForceBackground flag), and realize the palette. * * If static system color usage is set, the system colors are replaced. * * History: * 26-Apr-1994 -by- Gilman Wong [gilmanw] * Wrote it. \**************************************************************************/ static long RealizePaletteNow( HDC Dc, HPALETTE Palette, BOOL bForceBackground ) { long Result = -1; BOOL bHaveSysPal = TRUE; TKASSERT( NULL!=Dc ); TKASSERT( NULL!=Palette ); // If static system color usage is set, prepare to take over the // system palette. if ( tkUseStaticColors ) { // If foreground, take over the static colors. If background, release // the static colors. if ( !bForceBackground ) { // If GrabStaticEntries succeeds, then it is OK to take over the // static colors. If not, then GrabStaticEntries will have // posted a WM_USER message for us to try again later. bHaveSysPal = GrabStaticEntries( Dc ); } else { // If we are currently using the system colors (tkSystemColorsInUse) // and RealizePaletteNow was called with bForceBackground set, we // are being deactivated and must release the static system colors. ReleaseStaticEntries( Dc ); } // Rerealize the palette. // // If set to TRUE, bForceBackground will force the palette to be realized // as a background palette, regardless of focus. This will happen anyway // if the TK window does not have the keyboard focus. if ( (bForceBackground || bHaveSysPal) && UnrealizeObject( Palette ) && NULL != SelectPalette( Dc, Palette, bForceBackground ) ) { Result = RealizePalette( Dc ); } } else { if ( NULL != SelectPalette( Dc, Palette, FALSE ) ) { Result = RealizePalette( Dc ); } } return( Result ); } static void ForceRedraw( HWND Window ) { MSG Message; if (!PeekMessage(&Message, Window, WM_PAINT, WM_PAINT, PM_NOREMOVE) ) { InvalidateRect( Window, NULL, FALSE ); } } static int PixelFormatDescriptorFromDc( HDC Dc, PIXELFORMATDESCRIPTOR *Pfd ) { int PfdIndex; if ( 0 < (PfdIndex = GetPixelFormat( Dc )) ) { if ( 0 < DescribePixelFormat( Dc, PfdIndex, sizeof(*Pfd), Pfd ) ) { return(PfdIndex); } else { PrintMessage("Could not get a description of pixel format %d\n", PfdIndex ); } } else { PrintMessage("Could not get pixel format for Dc 0x%08lX\n", Dc ); } return( 0 ); } static void DestroyThisWindow( HWND Window ) { if ( NULL != Window ) { DestroyWindow( Window ); } } /* * This Should be called in response to a WM_DESTROY message */ static void CleanUp( void ) { HPALETTE hStock; // Cleanup the palette. if ( NULL != tkhpalette ) { // If static system color usage is set, restore the system colors. if ( tkUseStaticColors ) { RealizePaletteNow( tkhdc, GetStockObject(DEFAULT_PALETTE), TRUE ); } else { if ( hStock = GetStockObject( DEFAULT_PALETTE ) ) SelectPalette( tkhdc, hStock, FALSE ); } DeleteObject( tkhpalette ); } // Cleanup the RC. if ( NULL != tkhrc ) { wglMakeCurrent( tkhdc, NULL ); // Release first... wglDeleteContext( tkhrc ); // then delete. } // Cleanup the DC. if ( NULL != tkhdc ) { ReleaseDC( tkhwnd, tkhdc ); } // Be really nice and reset global values. tkhwnd = NULL; tkhdc = NULL; tkhrc = NULL; tkhpalette = NULL; ExposeFunc = NULL; ReshapeFunc = NULL; IdleFunc = NULL; DisplayFunc = NULL; KeyDownFunc = NULL; MouseDownFunc = NULL; MouseUpFunc = NULL; MouseMoveFunc = NULL; } static void * AllocateMemory( size_t Size ) { return( LocalAlloc( LMEM_FIXED, Size ) ); } static void * AllocateZeroedMemory( size_t Size ) { return( LocalAlloc( LMEM_FIXED | LMEM_ZEROINIT, Size ) ); } static void FreeMemory( void *Chunk ) { TKASSERT( NULL!=Chunk ); LocalFree( Chunk ); } /******************************************************************* * * * Debugging functions go here * * * *******************************************************************/ #if DBGFUNC static void DbgPrintf( const char *Format, ... ) { va_list ArgList; char Buffer[256]; va_start(ArgList, Format); vsprintf(Buffer, Format, ArgList); va_end(ArgList); printf("%s", Buffer ); fflush(stdout); } static void pwi( void ) { DbgPrintf("windInfo: x %d, y %d, w %d, h %d\n", windInfo.x, windInfo.y, windInfo.width, windInfo.height); } static void pwr(RECT *pr) { DbgPrintf("Rect: left %d, top %d, right %d, bottom %d\n", pr->left, pr->top, pr->right, pr->bottom); } static void ShowPixelFormat(HDC hdc) { PIXELFORMATDESCRIPTOR pfd, *ppfd; int format; ppfd = &pfd; format = PixelFormatDescriptorFromDc( hdc, ppfd ); DbgPrintf("Pixel format %d\n", format); DbgPrintf(" dwFlags - 0x%x", ppfd->dwFlags); if (ppfd->dwFlags & PFD_DOUBLEBUFFER) DbgPrintf("PFD_DOUBLEBUFFER "); if (ppfd->dwFlags & PFD_STEREO) DbgPrintf("PFD_STEREO "); if (ppfd->dwFlags & PFD_DRAW_TO_WINDOW) DbgPrintf("PFD_DRAW_TO_WINDOW "); if (ppfd->dwFlags & PFD_DRAW_TO_BITMAP) DbgPrintf("PFD_DRAW_TO_BITMAP "); if (ppfd->dwFlags & PFD_SUPPORT_GDI) DbgPrintf("PFD_SUPPORT_GDI "); if (ppfd->dwFlags & PFD_SUPPORT_OPENGL) DbgPrintf("PFD_SUPPORT_OPENGL "); if (ppfd->dwFlags & PFD_GENERIC_FORMAT) DbgPrintf("PFD_GENERIC_FORMAT "); if (ppfd->dwFlags & PFD_NEED_PALETTE) DbgPrintf("PFD_NEED_PALETTE "); if (ppfd->dwFlags & PFD_NEED_SYSTEM_PALETTE) DbgPrintf("PFD_NEED_SYSTEM_PALETTE "); DbgPrintf("\n"); DbgPrintf(" iPixelType - %d", ppfd->iPixelType); if (ppfd->iPixelType == PFD_TYPE_RGBA) DbgPrintf("PGD_TYPE_RGBA\n"); if (ppfd->iPixelType == PFD_TYPE_COLORINDEX) DbgPrintf("PGD_TYPE_COLORINDEX\n"); DbgPrintf(" cColorBits - %d\n", ppfd->cColorBits); DbgPrintf(" cRedBits - %d\n", ppfd->cRedBits); DbgPrintf(" cRedShift - %d\n", ppfd->cRedShift); DbgPrintf(" cGreenBits - %d\n", ppfd->cGreenBits); DbgPrintf(" cGreenShift - %d\n", ppfd->cGreenShift); DbgPrintf(" cBlueBits - %d\n", ppfd->cBlueBits); DbgPrintf(" cBlueShift - %d\n", ppfd->cBlueShift); DbgPrintf(" cAlphaBits - %d\n", ppfd->cAlphaBits); DbgPrintf(" cAlphaShift - 0x%x\n", ppfd->cAlphaShift); DbgPrintf(" cAccumBits - %d\n", ppfd->cAccumBits); DbgPrintf(" cAccumRedBits - %d\n", ppfd->cAccumRedBits); DbgPrintf(" cAccumGreenBits - %d\n", ppfd->cAccumGreenBits); DbgPrintf(" cAccumBlueBits - %d\n", ppfd->cAccumBlueBits); DbgPrintf(" cAccumAlphaBits - %d\n", ppfd->cAccumAlphaBits); DbgPrintf(" cDepthBits - %d\n", ppfd->cDepthBits); DbgPrintf(" cStencilBits - %d\n", ppfd->cStencilBits); DbgPrintf(" cAuxBuffers - %d\n", ppfd->cAuxBuffers); DbgPrintf(" iLayerType - %d\n", ppfd->iLayerType); DbgPrintf(" bReserved - %d\n", ppfd->bReserved); DbgPrintf(" dwLayerMask - 0x%x\n", ppfd->dwLayerMask); DbgPrintf(" dwVisibleMask - 0x%x\n", ppfd->dwVisibleMask); DbgPrintf(" dwDamageMask - 0x%x\n", ppfd->dwDamageMask); } #endif /* DBG */