git.oblomov.eu Git - wine/blob - dlls/gdi32/gdiobj.c

   1 /*
   2  * GDI functions
   3  *
   4  * Copyright 1993 Alexandre Julliard
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <assert.h>
  24 #include <stdlib.h>
  25 #include <stdarg.h>
  26 #include <stdio.h>
  27
  28 #include "windef.h"
  29 #include "winbase.h"
  30 #include "wingdi.h"
  31 #include "winreg.h"
  32 #include "winnls.h"
  33 #include "winerror.h"
  34 #include "winternl.h"
  35
  36 #include "gdi_private.h"
  37 #include "wine/debug.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(gdi);
  40
  41 #define HGDIOBJ_32(h16)   ((HGDIOBJ)(ULONG_PTR)(h16))
  42
  43 #define GDI_HEAP_SIZE 0xffe0
  44
  45 /***********************************************************************
  46  *          GDI stock objects
  47  */
  48
  49 static const LOGBRUSH WhiteBrush = { BS_SOLID, RGB(255,255,255), 0 };
  50 static const LOGBRUSH BlackBrush = { BS_SOLID, RGB(0,0,0), 0 };
  51 static const LOGBRUSH NullBrush  = { BS_NULL, 0, 0 };
  52
  53 static const LOGBRUSH LtGrayBrush = { BS_SOLID, RGB(192,192,192), 0 };
  54 static const LOGBRUSH GrayBrush   = { BS_SOLID, RGB(128,128,128), 0 };
  55 static const LOGBRUSH DkGrayBrush = { BS_SOLID, RGB(64,64,64), 0 };
  56
  57 static const LOGPEN WhitePen = { PS_SOLID, { 0, 0 }, RGB(255,255,255) };
  58 static const LOGPEN BlackPen = { PS_SOLID, { 0, 0 }, RGB(0,0,0) };
  59 static const LOGPEN NullPen  = { PS_NULL,  { 0, 0 }, 0 };
  60
  61 static const LOGBRUSH DCBrush = { BS_SOLID, RGB(255,255,255), 0 };
  62 static const LOGPEN DCPen     = { PS_SOLID, { 0, 0 }, RGB(0,0,0) };
  63
  64 /* reserve one extra entry for the stock default bitmap */
  65 /* this is what Windows does too */
  66 #define NB_STOCK_OBJECTS (STOCK_LAST+2)
  67
  68 static HGDIOBJ stock_objects[NB_STOCK_OBJECTS];
  69
  70 static CRITICAL_SECTION gdi_section;
  71 static CRITICAL_SECTION_DEBUG critsect_debug =
  72 {
  73     0, 0, &gdi_section,
  74     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
  75       0, 0, { (DWORD_PTR)(__FILE__ ": gdi_section") }
  76 };
  77 static CRITICAL_SECTION gdi_section = { &critsect_debug, -1, 0, 0, 0, 0 };
  78
  79
  80 /****************************************************************************
  81  *
  82  *      language-independent stock fonts
  83  *
  84  */
  85
  86 static const LOGFONTW OEMFixedFont =
  87 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, OEM_CHARSET,
  88   0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, {'\0'} };
  89
  90 static const LOGFONTW AnsiFixedFont =
  91 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
  92   0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, {'\0'} };
  93
  94 static const LOGFONTW AnsiVarFont =
  95 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
  96   0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
  97   {'M','S',' ','S','a','n','s',' ','S','e','r','i','f','\0'} };
  98
  99 /******************************************************************************
 100  *
 101  *      language-dependent stock fonts
 102  *
 103  *      'ANSI' charset and 'DEFAULT' charset is not same.
 104  *      The chars in CP_ACP should be drawn with 'DEFAULT' charset.
 105  *      'ANSI' charset seems to be identical with ISO-8859-1.
 106  *      'DEFAULT' charset is a language-dependent charset.
 107  *
 108  *      'System' font seems to be an alias for language-dependent font.
 109  */
 110
 111 /*
 112  * language-dependent stock fonts for all known charsets
 113  * please see TranslateCharsetInfo (dlls/gdi/font.c) and
 114  * CharsetBindingInfo (dlls/x11drv/xfont.c),
 115  * and modify entries for your language if needed.
 116  */
 117 struct DefaultFontInfo
 118 {
 119         UINT            charset;
 120         LOGFONTW        SystemFont;
 121         LOGFONTW        DeviceDefaultFont;
 122         LOGFONTW        SystemFixedFont;
 123         LOGFONTW        DefaultGuiFont; /* Note for this font the lfHeight member should be the point size */
 124 };
 125
 126 static const struct DefaultFontInfo default_fonts[] =
 127 {
 128     {   ANSI_CHARSET,
 129         { /* System */
 130           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
 131            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 132            {'S','y','s','t','e','m','\0'}
 133         },
 134         { /* Device Default */
 135           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
 136            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 137            {'\0'}
 138         },
 139         { /* System Fixed */
 140           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
 141            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 142            {'\0'}
 143         },
 144         { /* DefaultGuiFont */
 145            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
 146            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 147            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 148         },
 149     },
 150     {   EASTEUROPE_CHARSET,
 151         { /* System */
 152           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, EASTEUROPE_CHARSET,
 153            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 154            {'S','y','s','t','e','m','\0'}
 155         },
 156         { /* Device Default */
 157           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, EASTEUROPE_CHARSET,
 158            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 159            {'\0'}
 160         },
 161         { /* System Fixed */
 162           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, EASTEUROPE_CHARSET,
 163            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 164            {'\0'}
 165         },
 166         { /* DefaultGuiFont */
 167            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, EASTEUROPE_CHARSET,
 168            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 169            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 170         },
 171     },
 172     {   RUSSIAN_CHARSET,
 173         { /* System */
 174           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, RUSSIAN_CHARSET,
 175            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 176            {'S','y','s','t','e','m','\0'}
 177         },
 178         { /* Device Default */
 179           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, RUSSIAN_CHARSET,
 180            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 181            {'\0'}
 182         },
 183         { /* System Fixed */
 184           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, RUSSIAN_CHARSET,
 185            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 186            {'\0'}
 187         },
 188         { /* DefaultGuiFont */
 189            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, RUSSIAN_CHARSET,
 190            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 191            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 192         },
 193     },
 194     {   GREEK_CHARSET,
 195         { /* System */
 196           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GREEK_CHARSET,
 197            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 198            {'S','y','s','t','e','m','\0'}
 199         },
 200         { /* Device Default */
 201           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GREEK_CHARSET,
 202            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 203            {'\0'}
 204         },
 205         { /* System Fixed */
 206           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GREEK_CHARSET,
 207            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 208            {'\0'}
 209         },
 210         { /* DefaultGuiFont */
 211            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GREEK_CHARSET,
 212            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 213            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 214         },
 215     },
 216     {   TURKISH_CHARSET,
 217         { /* System */
 218           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, TURKISH_CHARSET,
 219            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 220            {'S','y','s','t','e','m','\0'}
 221         },
 222         { /* Device Default */
 223           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, TURKISH_CHARSET,
 224            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 225            {'\0'}
 226         },
 227         { /* System Fixed */
 228           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, TURKISH_CHARSET,
 229            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 230            {'\0'}
 231         },
 232         { /* DefaultGuiFont */
 233            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, TURKISH_CHARSET,
 234            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 235            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 236         },
 237     },
 238     {   HEBREW_CHARSET,
 239         { /* System */
 240           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HEBREW_CHARSET,
 241            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 242            {'S','y','s','t','e','m','\0'}
 243         },
 244         { /* Device Default */
 245           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HEBREW_CHARSET,
 246            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 247            {'\0'}
 248         },
 249         { /* System Fixed */
 250           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HEBREW_CHARSET,
 251            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 252            {'\0'}
 253         },
 254         { /* DefaultGuiFont */
 255            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HEBREW_CHARSET,
 256            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 257            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 258         },
 259     },
 260     {   ARABIC_CHARSET,
 261         { /* System */
 262           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ARABIC_CHARSET,
 263            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 264            {'S','y','s','t','e','m','\0'}
 265         },
 266         { /* Device Default */
 267           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ARABIC_CHARSET,
 268            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 269            {'\0'}
 270         },
 271         { /* System Fixed */
 272           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ARABIC_CHARSET,
 273            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 274            {'\0'}
 275         },
 276         { /* DefaultGuiFont */
 277            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ARABIC_CHARSET,
 278            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 279            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 280         },
 281     },
 282     {   BALTIC_CHARSET,
 283         { /* System */
 284           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, BALTIC_CHARSET,
 285            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 286            {'S','y','s','t','e','m','\0'}
 287         },
 288         { /* Device Default */
 289           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, BALTIC_CHARSET,
 290            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 291            {'\0'}
 292         },
 293         { /* System Fixed */
 294           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, BALTIC_CHARSET,
 295            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 296            {'\0'}
 297         },
 298         { /* DefaultGuiFont */
 299            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, BALTIC_CHARSET,
 300            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 301            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 302         },
 303     },
 304     {   THAI_CHARSET,
 305         { /* System */
 306           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, THAI_CHARSET,
 307            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 308            {'S','y','s','t','e','m','\0'}
 309         },
 310         { /* Device Default */
 311           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, THAI_CHARSET,
 312            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 313            {'\0'}
 314         },
 315         { /* System Fixed */
 316           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, THAI_CHARSET,
 317            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 318            {'\0'}
 319         },
 320         { /* DefaultGuiFont */
 321            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, THAI_CHARSET,
 322            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 323            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 324         },
 325     },
 326     {   SHIFTJIS_CHARSET,
 327         { /* System */
 328           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, SHIFTJIS_CHARSET,
 329            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 330            {'S','y','s','t','e','m','\0'}
 331         },
 332         { /* Device Default */
 333           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, SHIFTJIS_CHARSET,
 334            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 335            {'\0'}
 336         },
 337         { /* System Fixed */
 338           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, SHIFTJIS_CHARSET,
 339            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 340            {'\0'}
 341         },
 342         { /* DefaultGuiFont */
 343            9, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, SHIFTJIS_CHARSET,
 344            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 345            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 346         },
 347     },
 348     {   GB2312_CHARSET,
 349         { /* System */
 350           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GB2312_CHARSET,
 351            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 352            {'S','y','s','t','e','m','\0'}
 353         },
 354         { /* Device Default */
 355           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GB2312_CHARSET,
 356            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 357            {'\0'}
 358         },
 359         { /* System Fixed */
 360           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GB2312_CHARSET,
 361            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 362            {'\0'}
 363         },
 364         { /* DefaultGuiFont */
 365            9, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, GB2312_CHARSET,
 366            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 367            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 368         },
 369     },
 370     {   HANGEUL_CHARSET,
 371         { /* System */
 372           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HANGEUL_CHARSET,
 373            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 374            {'S','y','s','t','e','m','\0'}
 375         },
 376         { /* Device Default */
 377           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HANGEUL_CHARSET,
 378            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 379            {'\0'}
 380         },
 381         { /* System Fixed */
 382           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HANGEUL_CHARSET,
 383            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 384            {'\0'}
 385         },
 386         { /* DefaultGuiFont */
 387            9, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, HANGEUL_CHARSET,
 388            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 389            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 390         },
 391     },
 392     {   CHINESEBIG5_CHARSET,
 393         { /* System */
 394           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, CHINESEBIG5_CHARSET,
 395            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 396            {'S','y','s','t','e','m','\0'}
 397         },
 398         { /* Device Default */
 399           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, CHINESEBIG5_CHARSET,
 400            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 401            {'\0'}
 402         },
 403         { /* System Fixed */
 404           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, CHINESEBIG5_CHARSET,
 405            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 406            {'\0'}
 407         },
 408         { /* DefaultGuiFont */
 409            9, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, CHINESEBIG5_CHARSET,
 410            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 411            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 412         },
 413     },
 414     {   JOHAB_CHARSET,
 415         { /* System */
 416           16, 7, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, JOHAB_CHARSET,
 417            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 418            {'S','y','s','t','e','m','\0'}
 419         },
 420         { /* Device Default */
 421           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, JOHAB_CHARSET,
 422            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 423            {'\0'}
 424         },
 425         { /* System Fixed */
 426           16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, JOHAB_CHARSET,
 427            0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN,
 428            {'\0'}
 429         },
 430         { /* DefaultGuiFont */
 431            8, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, JOHAB_CHARSET,
 432            0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS,
 433            {'M','S',' ','S','h','e','l','l',' ','D','l','g','\0'}
 434         },
 435     },
 436 };
 437
 438
 439 /*************************************************************************
 440  * __wine_make_gdi_object_system    (GDI32.@)
 441  *
 442  * USER has to tell GDI that its system brushes and pens are non-deletable.
 443  * For a description of the GDI object magics and their flags,
 444  * see "Undocumented Windows" (wrong about the OBJECT_NOSYSTEM flag, though).
 445  */
 446 void CDECL __wine_make_gdi_object_system( HGDIOBJ handle, BOOL set)
 447 {
 448     GDIOBJHDR *ptr = GDI_GetObjPtr( handle, 0 );
 449     ptr->system = !!set;
 450     GDI_ReleaseObj( handle );
 451 }
 452
 453 /******************************************************************************
 454  *      get_default_fonts
 455  */
 456 static const struct DefaultFontInfo* get_default_fonts(UINT charset)
 457 {
 458         unsigned int n;
 459
 460         for(n=0;n<(sizeof(default_fonts)/sizeof(default_fonts[0]));n++)
 461         {
 462                 if ( default_fonts[n].charset == charset )
 463                         return &default_fonts[n];
 464         }
 465
 466         FIXME( "unhandled charset 0x%08x - use ANSI_CHARSET for default stock objects\n", charset );
 467         return &default_fonts[0];
 468 }
 469
 470
 471 /******************************************************************************
 472  *      get_default_charset    (internal)
 473  *
 474  * get the language-dependent charset that can handle CP_ACP correctly.
 475  */
 476 static UINT get_default_charset( void )
 477 {
 478     CHARSETINFO     csi;
 479     UINT    uACP;
 480
 481     uACP = GetACP();
 482     csi.ciCharset = ANSI_CHARSET;
 483     if ( !TranslateCharsetInfo( ULongToPtr(uACP), &csi, TCI_SRCCODEPAGE ) )
 484     {
 485         FIXME( "unhandled codepage %u - use ANSI_CHARSET for default stock objects\n", uACP );
 486         return ANSI_CHARSET;
 487     }
 488
 489     return csi.ciCharset;
 490 }
 491
 492 static const WCHAR dpi_key_name[] = {'S','o','f','t','w','a','r','e','\\','F','o','n','t','s','\0'};
 493 static const WCHAR dpi_value_name[] = {'L','o','g','P','i','x','e','l','s','\0'};
 494
 495 /******************************************************************************
 496  *      get_dpi   (internal)
 497  *
 498  * get the dpi from the registry
 499  */
 500 static DWORD get_dpi( void )
 501 {
 502     DWORD dpi = 96;
 503     HKEY hkey;
 504
 505     if (RegOpenKeyW(HKEY_CURRENT_CONFIG, dpi_key_name, &hkey) == ERROR_SUCCESS)
 506     {
 507         DWORD type, size, new_dpi;
 508
 509         size = sizeof(new_dpi);
 510         if(RegQueryValueExW(hkey, dpi_value_name, NULL, &type, (void *)&new_dpi, &size) == ERROR_SUCCESS)
 511         {
 512             if(type == REG_DWORD && new_dpi != 0)
 513                 dpi = new_dpi;
 514         }
 515         RegCloseKey(hkey);
 516     }
 517     return dpi;
 518 }
 519
 520
 521 /***********************************************************************
 522  *           GDI_inc_ref_count
 523  *
 524  * Increment the reference count of a GDI object.
 525  */
 526 HGDIOBJ GDI_inc_ref_count( HGDIOBJ handle )
 527 {
 528     GDIOBJHDR *header;
 529
 530     if ((header = GDI_GetObjPtr( handle, 0 )))
 531     {
 532         header->selcount++;
 533         GDI_ReleaseObj( handle );
 534     }
 535     else handle = 0;
 536
 537     return handle;
 538 }
 539
 540
 541 /***********************************************************************
 542  *           GDI_dec_ref_count
 543  *
 544  * Decrement the reference count of a GDI object.
 545  */
 546 BOOL GDI_dec_ref_count( HGDIOBJ handle )
 547 {
 548     GDIOBJHDR *header;
 549
 550     if ((header = GDI_GetObjPtr( handle, 0 )))
 551     {
 552         assert( header->selcount );
 553         if (!--header->selcount && header->deleted)
 554         {
 555             /* handle delayed DeleteObject*/
 556             header->deleted = 0;
 557             GDI_ReleaseObj( handle );
 558             TRACE( "executing delayed DeleteObject for %p\n", handle );
 559             DeleteObject( handle );
 560         }
 561         else GDI_ReleaseObj( handle );
 562     }
 563     return header != NULL;
 564 }
 565
 566
 567 /***********************************************************************
 568  *           DllMain
 569  *
 570  * GDI initialization.
 571  */
 572 BOOL WINAPI DllMain( HINSTANCE inst, DWORD reason, LPVOID reserved )
 573 {
 574     LOGFONTW default_gui_font;
 575     const struct DefaultFontInfo* deffonts;
 576     int i;
 577
 578     if (reason != DLL_PROCESS_ATTACH) return TRUE;
 579
 580     DisableThreadLibraryCalls( inst );
 581     WineEngInit();
 582
 583     /* create stock objects */
 584     stock_objects[WHITE_BRUSH]  = CreateBrushIndirect( &WhiteBrush );
 585     stock_objects[LTGRAY_BRUSH] = CreateBrushIndirect( &LtGrayBrush );
 586     stock_objects[GRAY_BRUSH]   = CreateBrushIndirect( &GrayBrush );
 587     stock_objects[DKGRAY_BRUSH] = CreateBrushIndirect( &DkGrayBrush );
 588     stock_objects[BLACK_BRUSH]  = CreateBrushIndirect( &BlackBrush );
 589     stock_objects[NULL_BRUSH]   = CreateBrushIndirect( &NullBrush );
 590
 591     stock_objects[WHITE_PEN]    = CreatePenIndirect( &WhitePen );
 592     stock_objects[BLACK_PEN]    = CreatePenIndirect( &BlackPen );
 593     stock_objects[NULL_PEN]     = CreatePenIndirect( &NullPen );
 594
 595     stock_objects[DEFAULT_PALETTE] = PALETTE_Init();
 596     stock_objects[DEFAULT_BITMAP]  = CreateBitmap( 1, 1, 1, 1, NULL );
 597
 598     /* language-independent stock fonts */
 599     stock_objects[OEM_FIXED_FONT]      = CreateFontIndirectW( &OEMFixedFont );
 600     stock_objects[ANSI_FIXED_FONT]     = CreateFontIndirectW( &AnsiFixedFont );
 601     stock_objects[ANSI_VAR_FONT]       = CreateFontIndirectW( &AnsiVarFont );
 602
 603     /* language-dependent stock fonts */
 604     deffonts = get_default_fonts(get_default_charset());
 605     stock_objects[SYSTEM_FONT]         = CreateFontIndirectW( &deffonts->SystemFont );
 606     stock_objects[DEVICE_DEFAULT_FONT] = CreateFontIndirectW( &deffonts->DeviceDefaultFont );
 607     stock_objects[SYSTEM_FIXED_FONT]   = CreateFontIndirectW( &deffonts->SystemFixedFont );
 608
 609     /* For the default gui font, we use the lfHeight member in deffonts as a place-holder
 610        for the point size so we must convert this into a true height */
 611     default_gui_font = deffonts->DefaultGuiFont;
 612     default_gui_font.lfHeight = -MulDiv(default_gui_font.lfHeight, get_dpi(), 72);
 613     stock_objects[DEFAULT_GUI_FONT]    = CreateFontIndirectW( &default_gui_font );
 614
 615     stock_objects[DC_BRUSH]     = CreateBrushIndirect( &DCBrush );
 616     stock_objects[DC_PEN]       = CreatePenIndirect( &DCPen );
 617
 618     /* clear the NOSYSTEM bit on all stock objects*/
 619     for (i = 0; i < NB_STOCK_OBJECTS; i++)
 620     {
 621         if (!stock_objects[i])
 622         {
 623             if (i == 9) continue;  /* there's no stock object 9 */
 624             ERR( "could not create stock object %d\n", i );
 625             return FALSE;
 626         }
 627         __wine_make_gdi_object_system( stock_objects[i], TRUE );
 628     }
 629
 630     return TRUE;
 631 }
 632
 633 #define FIRST_LARGE_HANDLE 16
 634 #define MAX_LARGE_HANDLES ((GDI_HEAP_SIZE >> 2) - FIRST_LARGE_HANDLE)
 635 static GDIOBJHDR *large_handles[MAX_LARGE_HANDLES];
 636 static int next_large_handle;
 637
 638 static const char *gdi_obj_type( unsigned type )
 639 {
 640     switch ( type )
 641     {
 642         case OBJ_PEN: return "OBJ_PEN";
 643         case OBJ_BRUSH: return "OBJ_BRUSH";
 644         case OBJ_DC: return "OBJ_DC";
 645         case OBJ_METADC: return "OBJ_METADC";
 646         case OBJ_PAL: return "OBJ_PAL";
 647         case OBJ_FONT: return "OBJ_FONT";
 648         case OBJ_BITMAP: return "OBJ_BITMAP";
 649         case OBJ_REGION: return "OBJ_REGION";
 650         case OBJ_METAFILE: return "OBJ_METAFILE";
 651         case OBJ_MEMDC: return "OBJ_MEMDC";
 652         case OBJ_EXTPEN: return "OBJ_EXTPEN";
 653         case OBJ_ENHMETADC: return "OBJ_ENHMETADC";
 654         case OBJ_ENHMETAFILE: return "OBJ_ENHMETAFILE";
 655         case OBJ_COLORSPACE: return "OBJ_COLORSPACE";
 656         default: return "UNKNOWN";
 657     }
 658 }
 659
 660 static void dump_gdi_objects( void )
 661 {
 662     int i;
 663
 664     TRACE( "%u objects:\n", MAX_LARGE_HANDLES );
 665
 666     EnterCriticalSection( &gdi_section );
 667     for (i = 0; i < MAX_LARGE_HANDLES; i++)
 668     {
 669         if (!large_handles[i])
 670         {
 671             TRACE( "index %d handle %p FREE\n", i, (HGDIOBJ)(ULONG_PTR)((i + FIRST_LARGE_HANDLE) << 2) );
 672             continue;
 673         }
 674         TRACE( "handle %p obj %p type %s selcount %u deleted %u\n",
 675                (HGDIOBJ)(ULONG_PTR)((i + FIRST_LARGE_HANDLE) << 2),
 676                large_handles[i], gdi_obj_type( large_handles[i]->type ),
 677                large_handles[i]->selcount, large_handles[i]->deleted );
 678     }
 679     LeaveCriticalSection( &gdi_section );
 680 }
 681
 682 /***********************************************************************
 683  *           alloc_gdi_handle
 684  *
 685  * Allocate a GDI handle for an object, which must have been allocated on the process heap.
 686  */
 687 HGDIOBJ alloc_gdi_handle( GDIOBJHDR *obj, WORD type, const struct gdi_obj_funcs *funcs )
 688 {
 689     int i;
 690
 691     /* initialize the object header */
 692     obj->type     = type;
 693     obj->system   = 0;
 694     obj->deleted  = 0;
 695     obj->selcount = 0;
 696     obj->funcs    = funcs;
 697     obj->hdcs     = NULL;
 698
 699     EnterCriticalSection( &gdi_section );
 700     for (i = next_large_handle + 1; i < MAX_LARGE_HANDLES; i++)
 701         if (!large_handles[i]) goto found;
 702     for (i = 0; i <= next_large_handle; i++)
 703         if (!large_handles[i]) goto found;
 704     LeaveCriticalSection( &gdi_section );
 705
 706     ERR( "out of GDI object handles, expect a crash\n" );
 707     if (TRACE_ON(gdi)) dump_gdi_objects();
 708     return 0;
 709
 710  found:
 711     large_handles[i] = obj;
 712     next_large_handle = i;
 713     LeaveCriticalSection( &gdi_section );
 714     return (HGDIOBJ)(ULONG_PTR)((i + FIRST_LARGE_HANDLE) << 2);
 715 }
 716
 717
 718 /***********************************************************************
 719  *           free_gdi_handle
 720  *
 721  * Free a GDI handle and return a pointer to the object.
 722  */
 723 void *free_gdi_handle( HGDIOBJ handle )
 724 {
 725     GDIOBJHDR *object = NULL;
 726     int i;
 727
 728     i = ((ULONG_PTR)handle >> 2) - FIRST_LARGE_HANDLE;
 729     if (i >= 0 && i < MAX_LARGE_HANDLES)
 730     {
 731         EnterCriticalSection( &gdi_section );
 732         object = large_handles[i];
 733         large_handles[i] = NULL;
 734         LeaveCriticalSection( &gdi_section );
 735     }
 736     if (object)
 737     {
 738         object->type  = 0;  /* mark it as invalid */
 739         object->funcs = NULL;
 740     }
 741     return object;
 742 }
 743
 744
 745 /***********************************************************************
 746  *           GDI_GetObjPtr
 747  *
 748  * Return a pointer to the GDI object associated to the handle.
 749  * Return NULL if the object has the wrong magic number.
 750  * The object must be released with GDI_ReleaseObj.
 751  */
 752 void *GDI_GetObjPtr( HGDIOBJ handle, WORD type )
 753 {
 754     GDIOBJHDR *ptr = NULL;
 755     int i;
 756
 757     EnterCriticalSection( &gdi_section );
 758
 759     i = ((UINT_PTR)handle >> 2) - FIRST_LARGE_HANDLE;
 760     if (i >= 0 && i < MAX_LARGE_HANDLES)
 761     {
 762         ptr = large_handles[i];
 763         if (ptr && type && ptr->type != type) ptr = NULL;
 764     }
 765
 766     if (!ptr)
 767     {
 768         LeaveCriticalSection( &gdi_section );
 769         WARN( "Invalid handle %p\n", handle );
 770     }
 771     else TRACE("(%p): enter %d\n", handle, gdi_section.RecursionCount);
 772
 773     return ptr;
 774 }
 775
 776
 777 /***********************************************************************
 778  *           GDI_ReleaseObj
 779  *
 780  */
 781 void GDI_ReleaseObj( HGDIOBJ handle )
 782 {
 783     TRACE("(%p): leave %d\n", handle, gdi_section.RecursionCount);
 784     LeaveCriticalSection( &gdi_section );
 785 }
 786
 787
 788 /***********************************************************************
 789  *           GDI_CheckNotLock
 790  */
 791 void GDI_CheckNotLock(void)
 792 {
 793     if (gdi_section.OwningThread == ULongToHandle(GetCurrentThreadId()) && gdi_section.RecursionCount)
 794     {
 795         ERR( "BUG: holding GDI lock\n" );
 796         DebugBreak();
 797     }
 798 }
 799
 800
 801 /***********************************************************************
 802  *           DeleteObject    (GDI32.@)
 803  *
 804  * Delete a Gdi object.
 805  *
 806  * PARAMS
 807  *  obj [I] Gdi object to delete
 808  *
 809  * RETURNS
 810  *  Success: TRUE. If obj was not returned from GetStockObject(), any resources
 811  *           it consumed are released.
 812  *  Failure: FALSE, if obj is not a valid Gdi object, or is currently selected
 813  *           into a DC.
 814  */
 815 BOOL WINAPI DeleteObject( HGDIOBJ obj )
 816 {
 817       /* Check if object is valid */
 818
 819     struct hdc_list *hdcs_head;
 820     const struct gdi_obj_funcs *funcs;
 821     GDIOBJHDR * header;
 822
 823     if (HIWORD(obj)) return FALSE;
 824
 825     if (!(header = GDI_GetObjPtr( obj, 0 ))) return FALSE;
 826
 827     if (header->system)
 828     {
 829         TRACE("Preserving system object %p\n", obj);
 830         GDI_ReleaseObj( obj );
 831         return TRUE;
 832     }
 833
 834     while ((hdcs_head = header->hdcs) != NULL)
 835     {
 836         DC *dc = get_dc_ptr(hdcs_head->hdc);
 837
 838         header->hdcs = hdcs_head->next;
 839         TRACE("hdc %p has interest in %p\n", hdcs_head->hdc, obj);
 840
 841         if(dc)
 842         {
 843             if(dc->funcs->pDeleteObject)
 844             {
 845                 GDI_ReleaseObj( obj );  /* release the GDI lock */
 846                 dc->funcs->pDeleteObject( dc->physDev, obj );
 847                 header = GDI_GetObjPtr( obj, 0 );  /* and grab it again */
 848             }
 849             release_dc_ptr( dc );
 850         }
 851         HeapFree(GetProcessHeap(), 0, hdcs_head);
 852         if (!header) return FALSE;
 853     }
 854
 855     if (header->selcount)
 856     {
 857         TRACE("delayed for %p because object in use, count %u\n", obj, header->selcount );
 858         header->deleted = 1;  /* mark for delete */
 859         GDI_ReleaseObj( obj );
 860         return TRUE;
 861     }
 862
 863     TRACE("%p\n", obj );
 864
 865       /* Delete object */
 866
 867     funcs = header->funcs;
 868     GDI_ReleaseObj( obj );
 869     if (funcs && funcs->pDeleteObject)
 870         return funcs->pDeleteObject( obj );
 871     else
 872         return FALSE;
 873 }
 874
 875 /***********************************************************************
 876  *           GDI_hdc_using_object
 877  *
 878  * Call this if the dc requires DeleteObject notification
 879  */
 880 BOOL GDI_hdc_using_object(HGDIOBJ obj, HDC hdc)
 881 {
 882     GDIOBJHDR * header;
 883     struct hdc_list **pphdc;
 884
 885     TRACE("obj %p hdc %p\n", obj, hdc);
 886
 887     if (!(header = GDI_GetObjPtr( obj, 0 ))) return FALSE;
 888
 889     if (header->system)
 890     {
 891         GDI_ReleaseObj(obj);
 892         return FALSE;
 893     }
 894
 895     for(pphdc = &header->hdcs; *pphdc; pphdc = &(*pphdc)->next)
 896         if((*pphdc)->hdc == hdc)
 897             break;
 898
 899     if(!*pphdc) {
 900         *pphdc = HeapAlloc(GetProcessHeap(), 0, sizeof(**pphdc));
 901         (*pphdc)->hdc = hdc;
 902         (*pphdc)->next = NULL;
 903     }
 904
 905     GDI_ReleaseObj(obj);
 906     return TRUE;
 907 }
 908
 909 /***********************************************************************
 910  *           GDI_hdc_not_using_object
 911  *
 912  */
 913 BOOL GDI_hdc_not_using_object(HGDIOBJ obj, HDC hdc)
 914 {
 915     GDIOBJHDR * header;
 916     struct hdc_list *phdc, **prev;
 917
 918     TRACE("obj %p hdc %p\n", obj, hdc);
 919
 920     if (!(header = GDI_GetObjPtr( obj, 0 ))) return FALSE;
 921
 922     if (header->system)
 923     {
 924         GDI_ReleaseObj(obj);
 925         return FALSE;
 926     }
 927
 928     phdc = header->hdcs;
 929     prev = &header->hdcs;
 930
 931     while(phdc) {
 932         if(phdc->hdc == hdc) {
 933             *prev = phdc->next;
 934             HeapFree(GetProcessHeap(), 0, phdc);
 935             phdc = *prev;
 936         } else {
 937             prev = &phdc->next;
 938             phdc = phdc->next;
 939         }
 940     }
 941
 942     GDI_ReleaseObj(obj);
 943     return TRUE;
 944 }
 945
 946 /***********************************************************************
 947  *           GetStockObject    (GDI32.@)
 948  */
 949 HGDIOBJ WINAPI GetStockObject( INT obj )
 950 {
 951     HGDIOBJ ret;
 952     if ((obj < 0) || (obj >= NB_STOCK_OBJECTS)) return 0;
 953     ret = stock_objects[obj];
 954     TRACE("returning %p\n", ret );
 955     return ret;
 956 }
 957
 958
 959 /***********************************************************************
 960  *           GetObjectA    (GDI32.@)
 961  */
 962 INT WINAPI GetObjectA( HGDIOBJ handle, INT count, LPVOID buffer )
 963 {
 964     const struct gdi_obj_funcs *funcs;
 965     GDIOBJHDR * ptr;
 966     INT result = 0;
 967
 968     TRACE("%p %d %p\n", handle, count, buffer );
 969
 970     if (!(ptr = GDI_GetObjPtr( handle, 0 ))) return 0;
 971     funcs = ptr->funcs;
 972     GDI_ReleaseObj( handle );
 973
 974     if (funcs && funcs->pGetObjectA)
 975         result = funcs->pGetObjectA( handle, count, buffer );
 976     else
 977         SetLastError( ERROR_INVALID_HANDLE );
 978
 979     return result;
 980 }
 981
 982 /***********************************************************************
 983  *           GetObjectW    (GDI32.@)
 984  */
 985 INT WINAPI GetObjectW( HGDIOBJ handle, INT count, LPVOID buffer )
 986 {
 987     const struct gdi_obj_funcs *funcs;
 988     GDIOBJHDR * ptr;
 989     INT result = 0;
 990     TRACE("%p %d %p\n", handle, count, buffer );
 991
 992     if (!(ptr = GDI_GetObjPtr( handle, 0 ))) return 0;
 993     funcs = ptr->funcs;
 994     GDI_ReleaseObj( handle );
 995
 996     if (funcs && funcs->pGetObjectW)
 997         result = funcs->pGetObjectW( handle, count, buffer );
 998     else
 999         SetLastError( ERROR_INVALID_HANDLE );
1000
1001     return result;
1002 }
1003
1004 /***********************************************************************
1005  *           GetObjectType    (GDI32.@)
1006  */
1007 DWORD WINAPI GetObjectType( HGDIOBJ handle )
1008 {
1009     GDIOBJHDR * ptr;
1010     DWORD result;
1011
1012     if (!(ptr = GDI_GetObjPtr( handle, 0 )))
1013     {
1014         SetLastError( ERROR_INVALID_HANDLE );
1015         return 0;
1016     }
1017     result = ptr->type;
1018     GDI_ReleaseObj( handle );
1019     TRACE("%p -> %u\n", handle, result );
1020     return result;
1021 }
1022
1023 /***********************************************************************
1024  *           GetCurrentObject           (GDI32.@)
1025  *
1026  * Get the currently selected object of a given type in a device context.
1027  *
1028  * PARAMS
1029  *  hdc  [I] Device context to get the current object from
1030  *  type [I] Type of current object to get (OBJ_* defines from "wingdi.h")
1031  *
1032  * RETURNS
1033  *  Success: The current object of the given type selected in hdc.
1034  *  Failure: A NULL handle.
1035  *
1036  * NOTES
1037  * - only the following object types are supported:
1038  *| OBJ_PEN
1039  *| OBJ_BRUSH
1040  *| OBJ_PAL
1041  *| OBJ_FONT
1042  *| OBJ_BITMAP
1043  */
1044 HGDIOBJ WINAPI GetCurrentObject(HDC hdc,UINT type)
1045 {
1046     HGDIOBJ ret = 0;
1047     DC * dc = get_dc_ptr( hdc );
1048
1049     if (!dc) return 0;
1050
1051     switch (type) {
1052         case OBJ_EXTPEN: /* fall through */
1053         case OBJ_PEN:    ret = dc->hPen; break;
1054         case OBJ_BRUSH:  ret = dc->hBrush; break;
1055         case OBJ_PAL:    ret = dc->hPalette; break;
1056         case OBJ_FONT:   ret = dc->hFont; break;
1057         case OBJ_BITMAP: ret = dc->hBitmap; break;
1058
1059         /* tests show that OBJ_REGION is explicitly ignored */
1060         case OBJ_REGION: break;
1061         default:
1062             /* the SDK only mentions those above */
1063             FIXME("(%p,%d): unknown type.\n",hdc,type);
1064             break;
1065     }
1066     release_dc_ptr( dc );
1067     return ret;
1068 }
1069
1070
1071 /***********************************************************************
1072  *           SelectObject    (GDI32.@)
1073  *
1074  * Select a Gdi object into a device context.
1075  *
1076  * PARAMS
1077  *  hdc  [I] Device context to associate the object with
1078  *  hObj [I] Gdi object to associate with hdc
1079  *
1080  * RETURNS
1081  *  Success: A non-NULL handle representing the previously selected object of
1082  *           the same type as hObj.
1083  *  Failure: A NULL object. If hdc is invalid, GetLastError() returns ERROR_INVALID_HANDLE.
1084  *           if hObj is not a valid object handle, no last error is set. In either
1085  *           case, hdc is unaffected by the call.
1086  */
1087 HGDIOBJ WINAPI SelectObject( HDC hdc, HGDIOBJ hObj )
1088 {
1089     HGDIOBJ ret = 0;
1090     GDIOBJHDR *header;
1091
1092     TRACE( "(%p,%p)\n", hdc, hObj );
1093
1094     header = GDI_GetObjPtr( hObj, 0 );
1095     if (header)
1096     {
1097         const struct gdi_obj_funcs *funcs = header->funcs;
1098         GDI_ReleaseObj( hObj );
1099         if (funcs && funcs->pSelectObject) ret = funcs->pSelectObject( hObj, hdc );
1100     }
1101     return ret;
1102 }
1103
1104
1105 /***********************************************************************
1106  *           UnrealizeObject    (GDI32.@)
1107  */
1108 BOOL WINAPI UnrealizeObject( HGDIOBJ obj )
1109 {
1110     BOOL result = FALSE;
1111     GDIOBJHDR * header = GDI_GetObjPtr( obj, 0 );
1112
1113     if (header)
1114     {
1115         const struct gdi_obj_funcs *funcs = header->funcs;
1116
1117         GDI_ReleaseObj( obj );
1118         if (funcs && funcs->pUnrealizeObject)
1119             result = header->funcs->pUnrealizeObject( obj );
1120         else
1121             result = TRUE;
1122     }
1123     return result;
1124 }
1125
1126
1127 /* Solid colors to enumerate */
1128 static const COLORREF solid_colors[] =
1129 { RGB(0x00,0x00,0x00), RGB(0xff,0xff,0xff),
1130 RGB(0xff,0x00,0x00), RGB(0x00,0xff,0x00),
1131 RGB(0x00,0x00,0xff), RGB(0xff,0xff,0x00),
1132 RGB(0xff,0x00,0xff), RGB(0x00,0xff,0xff),
1133 RGB(0x80,0x00,0x00), RGB(0x00,0x80,0x00),
1134 RGB(0x80,0x80,0x00), RGB(0x00,0x00,0x80),
1135 RGB(0x80,0x00,0x80), RGB(0x00,0x80,0x80),
1136 RGB(0x80,0x80,0x80), RGB(0xc0,0xc0,0xc0)
1137 };
1138
1139
1140 /***********************************************************************
1141  *           EnumObjects    (GDI32.@)
1142  */
1143 INT WINAPI EnumObjects( HDC hdc, INT nObjType,
1144                             GOBJENUMPROC lpEnumFunc, LPARAM lParam )
1145 {
1146     UINT i;
1147     INT retval = 0;
1148     LOGPEN pen;
1149     LOGBRUSH brush;
1150
1151     TRACE("%p %d %p %08lx\n", hdc, nObjType, lpEnumFunc, lParam );
1152     switch(nObjType)
1153     {
1154     case OBJ_PEN:
1155         /* Enumerate solid pens */
1156         for (i = 0; i < sizeof(solid_colors)/sizeof(solid_colors[0]); i++)
1157         {
1158             pen.lopnStyle   = PS_SOLID;
1159             pen.lopnWidth.x = 1;
1160             pen.lopnWidth.y = 0;
1161             pen.lopnColor   = solid_colors[i];
1162             retval = lpEnumFunc( &pen, lParam );
1163             TRACE("solid pen %08x, ret=%d\n",
1164                          solid_colors[i], retval);
1165             if (!retval) break;
1166         }
1167         break;
1168
1169     case OBJ_BRUSH:
1170         /* Enumerate solid brushes */
1171         for (i = 0; i < sizeof(solid_colors)/sizeof(solid_colors[0]); i++)
1172         {
1173             brush.lbStyle = BS_SOLID;
1174             brush.lbColor = solid_colors[i];
1175             brush.lbHatch = 0;
1176             retval = lpEnumFunc( &brush, lParam );
1177             TRACE("solid brush %08x, ret=%d\n",
1178                          solid_colors[i], retval);
1179             if (!retval) break;
1180         }
1181
1182         /* Now enumerate hatched brushes */
1183         if (retval) for (i = HS_HORIZONTAL; i <= HS_DIAGCROSS; i++)
1184         {
1185             brush.lbStyle = BS_HATCHED;
1186             brush.lbColor = RGB(0,0,0);
1187             brush.lbHatch = i;
1188             retval = lpEnumFunc( &brush, lParam );
1189             TRACE("hatched brush %d, ret=%d\n",
1190                          i, retval);
1191             if (!retval) break;
1192         }
1193         break;
1194
1195     default:
1196         /* FIXME: implement Win32 types */
1197         WARN("(%d): Invalid type\n", nObjType );
1198         break;
1199     }
1200     return retval;
1201 }
1202
1203
1204 /***********************************************************************
1205  *           SetObjectOwner    (GDI32.@)
1206  */
1207 void WINAPI SetObjectOwner( HGDIOBJ handle, HANDLE owner )
1208 {
1209     /* Nothing to do */
1210 }
1211
1212 /***********************************************************************
1213  *           GdiInitializeLanguagePack    (GDI32.@)
1214  */
1215 DWORD WINAPI GdiInitializeLanguagePack( DWORD arg )
1216 {
1217     FIXME("stub\n");
1218     return 0;
1219 }
1220
1221 /***********************************************************************
1222  *           GdiFlush    (GDI32.@)
1223  */
1224 BOOL WINAPI GdiFlush(void)
1225 {
1226     return TRUE;  /* FIXME */
1227 }
1228
1229
1230 /***********************************************************************
1231  *           GdiGetBatchLimit    (GDI32.@)
1232  */
1233 DWORD WINAPI GdiGetBatchLimit(void)
1234 {
1235     return 1;  /* FIXME */
1236 }
1237
1238
1239 /***********************************************************************
1240  *           GdiSetBatchLimit    (GDI32.@)
1241  */
1242 DWORD WINAPI GdiSetBatchLimit( DWORD limit )
1243 {
1244     return 1; /* FIXME */
1245 }
1246
1247
1248 /*******************************************************************
1249  *      GetColorAdjustment [GDI32.@]
1250  *
1251  *
1252  */
1253 BOOL WINAPI GetColorAdjustment(HDC hdc, LPCOLORADJUSTMENT lpca)
1254 {
1255         FIXME("stub\n");
1256         return 0;
1257 }
1258
1259 /*******************************************************************
1260  *      GdiComment [GDI32.@]
1261  *
1262  *
1263  */
1264 BOOL WINAPI GdiComment(HDC hdc, UINT cbSize, const BYTE *lpData)
1265 {
1266     DC *dc = get_dc_ptr(hdc);
1267     BOOL ret = FALSE;
1268     if(dc)
1269     {
1270         if (dc->funcs->pGdiComment)
1271             ret = dc->funcs->pGdiComment( dc->physDev, cbSize, lpData );
1272         release_dc_ptr( dc );
1273     }
1274     return ret;
1275 }
1276
1277 /*******************************************************************
1278  *      SetColorAdjustment [GDI32.@]
1279  *
1280  *
1281  */
1282 BOOL WINAPI SetColorAdjustment(HDC hdc, const COLORADJUSTMENT* lpca)
1283 {
1284         FIXME("stub\n");
1285         return 0;
1286 }