4 * Copyright 1993 Alexandre Julliard
17 #include "wine/winbase16.h"
26 #include "debugtools.h"
29 DEFAULT_DEBUG_CHANNEL(gdi
);
31 /* ### start build ### */
32 extern WORD CALLBACK
GDI_CallTo16_word_ll(GOBJENUMPROC16
,LONG
,LONG
);
33 /* ### stop build ### */
35 /***********************************************************************
39 static const LOGBRUSH WhiteBrush
= { BS_SOLID
, RGB(255,255,255), 0 };
40 static const LOGBRUSH BlackBrush
= { BS_SOLID
, RGB(0,0,0), 0 };
41 static const LOGBRUSH NullBrush
= { BS_NULL
, 0, 0 };
43 /* FIXME: these should perhaps be BS_HATCHED, at least for 1 bitperpixel */
44 static const LOGBRUSH LtGrayBrush
= { BS_SOLID
, RGB(192,192,192), 0 };
45 static const LOGBRUSH GrayBrush
= { BS_SOLID
, RGB(128,128,128), 0 };
47 /* This is BS_HATCHED, for 1 bitperpixel. This makes the spray work in pbrush */
48 /* NB_HATCH_STYLES is an index into HatchBrushes */
49 static const LOGBRUSH DkGrayBrush
= { BS_HATCHED
, RGB(0,0,0), NB_HATCH_STYLES
};
51 static const LOGPEN WhitePen
= { PS_SOLID
, { 0, 0 }, RGB(255,255,255) };
52 static const LOGPEN BlackPen
= { PS_SOLID
, { 0, 0 }, RGB(0,0,0) };
53 static const LOGPEN NullPen
= { PS_NULL
, { 0, 0 }, 0 };
55 static const LOGFONTW OEMFixedFont
=
56 { 12, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, OEM_CHARSET
,
57 0, 0, DEFAULT_QUALITY
, FIXED_PITCH
| FF_MODERN
, {'\0'} };
59 static const LOGFONTW AnsiFixedFont
=
60 { 12, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, ANSI_CHARSET
,
61 0, 0, DEFAULT_QUALITY
, FIXED_PITCH
| FF_MODERN
, {'\0'} };
63 static const LOGFONTW AnsiVarFont
=
64 { 12, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, ANSI_CHARSET
,
65 0, 0, DEFAULT_QUALITY
, VARIABLE_PITCH
| FF_SWISS
,
66 {'M','S',' ','S','a','n','s',' ','S','e','r','i','f','\0'} };
68 static const LOGFONTW SystemFont
=
69 { 16, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, ANSI_CHARSET
,
70 0, 0, DEFAULT_QUALITY
, VARIABLE_PITCH
| FF_SWISS
,
71 {'S','y','s','t','e','m','\0'} };
73 static const LOGFONTW DeviceDefaultFont
=
74 { 16, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, ANSI_CHARSET
,
75 0, 0, DEFAULT_QUALITY
, VARIABLE_PITCH
| FF_SWISS
, {'\0'} };
77 static const LOGFONTW SystemFixedFont
=
78 { 16, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, ANSI_CHARSET
,
79 0, 0, DEFAULT_QUALITY
, FIXED_PITCH
| FF_MODERN
, {'\0'} };
81 /* FIXME: Is this correct? */
82 static const LOGFONTW DefaultGuiFont
=
83 { -11, 0, 0, 0, FW_NORMAL
, FALSE
, FALSE
, FALSE
, ANSI_CHARSET
,
84 0, 0, DEFAULT_QUALITY
, VARIABLE_PITCH
| FF_SWISS
,
85 {'M','S',' ','S','a','n','s',' ','S','e','r','i','f','\0'} };
87 /* reserve one extra entry for the stock default bitmap */
88 /* this is what Windows does too */
89 #define NB_STOCK_OBJECTS (STOCK_LAST+2)
91 static HGDIOBJ stock_objects
[NB_STOCK_OBJECTS
];
93 static SYSLEVEL GDI_level
= { CRITICAL_SECTION_INIT("GDI_level"), 3 };
94 static WORD GDI_HeapSel
;
96 inline static BOOL
get_bool(char *buffer
)
98 return (buffer
[0] == 'y' || buffer
[0] == 'Y' ||
99 buffer
[0] == 't' || buffer
[0] == 'T' ||
104 /******************************************************************************
107 static HFONT
create_stock_font( char const *fontName
, const LOGFONTW
*font
, HKEY hkey
)
111 char buffer
[MAX_PATH
];
114 if (!hkey
) return CreateFontIndirectW( font
);
117 sprintf(key
, "%s.Height", fontName
);
118 count
= sizeof(buffer
);
119 if(!RegQueryValueExA(hkey
, key
, 0, &type
, buffer
, &count
))
120 lf
.lfHeight
= atoi(buffer
);
122 sprintf(key
, "%s.Bold", fontName
);
123 count
= sizeof(buffer
);
124 if(!RegQueryValueExA(hkey
, key
, 0, &type
, buffer
, &count
))
125 lf
.lfWeight
= get_bool(buffer
) ? FW_BOLD
: FW_NORMAL
;
127 sprintf(key
, "%s.Italic", fontName
);
128 count
= sizeof(buffer
);
129 if(!RegQueryValueExA(hkey
, key
, 0, &type
, buffer
, &count
))
130 lf
.lfItalic
= get_bool(buffer
);
132 sprintf(key
, "%s.Underline", fontName
);
133 count
= sizeof(buffer
);
134 if(!RegQueryValueExA(hkey
, key
, 0, &type
, buffer
, &count
))
135 lf
.lfUnderline
= get_bool(buffer
);
137 sprintf(key
, "%s.StrikeOut", fontName
);
138 count
= sizeof(buffer
);
139 if(!RegQueryValueExA(hkey
, key
, 0, &type
, buffer
, &count
))
140 lf
.lfStrikeOut
= get_bool(buffer
);
141 return CreateFontIndirectW( &lf
);
145 #define TRACE_SEC(handle,text) \
146 TRACE("(%04x): " text " %ld\n", (handle), GDI_level.crst.RecursionCount)
149 /***********************************************************************
152 * Increment the reference count of a GDI object.
154 inline static void inc_ref_count( HGDIOBJ handle
)
158 if ((header
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
)))
161 GDI_ReleaseObj( handle
);
166 /***********************************************************************
169 * Decrement the reference count of a GDI object.
171 inline static void dec_ref_count( HGDIOBJ handle
)
175 if ((header
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
)))
177 if (header
->dwCount
) header
->dwCount
--;
178 if (header
->dwCount
!= 0x80000000) GDI_ReleaseObj( handle
);
181 /* handle delayed DeleteObject*/
183 GDI_ReleaseObj( handle
);
184 TRACE( "executing delayed DeleteObject for %04x\n", handle
);
185 DeleteObject( handle
);
191 /***********************************************************************
194 * GDI initialization.
198 HINSTANCE16 instance
;
203 if (RegOpenKeyA(HKEY_LOCAL_MACHINE
, "Software\\Wine\\Wine\\Config\\Tweak.Fonts", &hkey
))
206 /* create GDI heap */
207 if ((instance
= LoadLibrary16( "GDI.EXE" )) < 32) return FALSE
;
208 GDI_HeapSel
= instance
| 7;
210 /* create stock objects */
211 stock_objects
[WHITE_BRUSH
] = CreateBrushIndirect( &WhiteBrush
);
212 stock_objects
[LTGRAY_BRUSH
] = CreateBrushIndirect( &LtGrayBrush
);
213 stock_objects
[GRAY_BRUSH
] = CreateBrushIndirect( &GrayBrush
);
214 stock_objects
[DKGRAY_BRUSH
] = CreateBrushIndirect( &DkGrayBrush
);
215 stock_objects
[BLACK_BRUSH
] = CreateBrushIndirect( &BlackBrush
);
216 stock_objects
[NULL_BRUSH
] = CreateBrushIndirect( &NullBrush
);
218 stock_objects
[WHITE_PEN
] = CreatePenIndirect( &WhitePen
);
219 stock_objects
[BLACK_PEN
] = CreatePenIndirect( &BlackPen
);
220 stock_objects
[NULL_PEN
] = CreatePenIndirect( &NullPen
);
222 stock_objects
[DEFAULT_PALETTE
] = PALETTE_Init();
223 stock_objects
[DEFAULT_BITMAP
] = CreateBitmap( 1, 1, 1, 1, NULL
);
225 stock_objects
[OEM_FIXED_FONT
] = create_stock_font( "OEMFixed", &OEMFixedFont
, hkey
);
226 stock_objects
[ANSI_FIXED_FONT
] = create_stock_font( "AnsiFixed", &AnsiFixedFont
, hkey
);
227 stock_objects
[ANSI_VAR_FONT
] = create_stock_font( "AnsiVar", &AnsiVarFont
, hkey
);
228 stock_objects
[SYSTEM_FONT
] = create_stock_font( "System", &SystemFont
, hkey
);
229 stock_objects
[DEVICE_DEFAULT_FONT
] = create_stock_font( "DeviceDefault", &DeviceDefaultFont
, hkey
);
230 stock_objects
[SYSTEM_FIXED_FONT
] = create_stock_font( "SystemFixed", &SystemFixedFont
, hkey
);
231 stock_objects
[DEFAULT_GUI_FONT
] = create_stock_font( "DefaultGui", &DefaultGuiFont
, hkey
);
234 /* clear the NOSYSTEM bit on all stock objects*/
235 for (i
= 0; i
< NB_STOCK_OBJECTS
; i
++)
237 if (!stock_objects
[i
])
239 if (i
== 9) continue; /* there's no stock object 9 */
240 ERR( "could not create stock object %d\n", i
);
243 ptr
= GDI_GetObjPtr( stock_objects
[i
], MAGIC_DONTCARE
);
244 ptr
->wMagic
&= ~OBJECT_NOSYSTEM
;
245 GDI_ReleaseObj( stock_objects
[i
] );
248 if (hkey
) RegCloseKey( hkey
);
255 #define FIRST_LARGE_HANDLE 16
256 #define MAX_LARGE_HANDLES ((GDI_HEAP_SIZE >> 2) - FIRST_LARGE_HANDLE)
257 static GDIOBJHDR
*large_handles
[MAX_LARGE_HANDLES
];
258 static int next_large_handle
;
260 /***********************************************************************
263 * Allocate a GDI handle from the large heap. Helper for GDI_AllocObject
265 inline static GDIOBJHDR
*alloc_large_heap( WORD size
, HGDIOBJ
*handle
)
270 for (i
= next_large_handle
+ 1; i
< MAX_LARGE_HANDLES
; i
++)
271 if (!large_handles
[i
]) goto found
;
272 for (i
= 0; i
<= next_large_handle
; i
++)
273 if (!large_handles
[i
]) goto found
;
278 if ((obj
= HeapAlloc( GetProcessHeap(), 0, size
)))
280 large_handles
[i
] = obj
;
281 *handle
= (i
+ FIRST_LARGE_HANDLE
) << 2;
282 next_large_handle
= i
;
288 /***********************************************************************
291 void *GDI_AllocObject( WORD size
, WORD magic
, HGDIOBJ
*handle
)
295 _EnterSysLevel( &GDI_level
);
298 /* allocate DCs on the larger heap */
300 case DISABLED_DC_MAGIC
:
303 case METAFILE_DC_MAGIC
:
304 case ENHMETAFILE_MAGIC
:
305 case ENHMETAFILE_DC_MAGIC
:
307 if (!(obj
= alloc_large_heap( size
, handle
))) goto error
;
310 if (!(*handle
= LOCAL_Alloc( GDI_HeapSel
, LMEM_MOVEABLE
, size
))) goto error
;
311 assert( *handle
& 2 );
312 obj
= (GDIOBJHDR
*)LOCAL_Lock( GDI_HeapSel
, *handle
);
317 obj
->wMagic
= magic
|OBJECT_NOSYSTEM
;
320 TRACE_SEC( *handle
, "enter" );
324 _LeaveSysLevel( &GDI_level
);
330 /***********************************************************************
333 * The object ptr must have been obtained with GDI_GetObjPtr.
334 * The new pointer must be released with GDI_ReleaseObj.
336 void *GDI_ReallocObject( WORD size
, HGDIOBJ handle
, void *object
)
340 assert( handle
& 2 ); /* no realloc for large handles */
341 LOCAL_Unlock( GDI_HeapSel
, handle
);
342 if (!(new_handle
= LOCAL_ReAlloc( GDI_HeapSel
, handle
, size
, LMEM_MOVEABLE
)))
344 TRACE_SEC( handle
, "leave" );
345 _LeaveSysLevel( &GDI_level
);
348 assert( new_handle
== handle
); /* moveable handle cannot change */
349 return LOCAL_Lock( GDI_HeapSel
, handle
);
353 /***********************************************************************
356 BOOL
GDI_FreeObject( HGDIOBJ handle
, void *ptr
)
358 GDIOBJHDR
*object
= ptr
;
360 object
->wMagic
= 0; /* Mark it as invalid */
361 if (handle
& 2) /* GDI heap handle */
363 LOCAL_Unlock( GDI_HeapSel
, handle
);
364 LOCAL_Free( GDI_HeapSel
, handle
);
366 else /* large heap handle */
368 int i
= (handle
>> 2) - FIRST_LARGE_HANDLE
;
369 if (i
>= 0 && i
< MAX_LARGE_HANDLES
&& large_handles
[i
])
371 HeapFree( GetProcessHeap(), 0, large_handles
[i
] );
372 large_handles
[i
] = NULL
;
374 else ERR( "Invalid handle %x\n", handle
);
376 TRACE_SEC( handle
, "leave" );
377 _LeaveSysLevel( &GDI_level
);
382 /***********************************************************************
385 * Return a pointer to the GDI object associated to the handle.
386 * Return NULL if the object has the wrong magic number.
387 * The object must be released with GDI_ReleaseObj.
389 void *GDI_GetObjPtr( HGDIOBJ handle
, WORD magic
)
391 GDIOBJHDR
*ptr
= NULL
;
393 _EnterSysLevel( &GDI_level
);
395 if (handle
& 2) /* GDI heap handle */
397 ptr
= (GDIOBJHDR
*)LOCAL_Lock( GDI_HeapSel
, handle
);
400 if (((magic
!= MAGIC_DONTCARE
) && (GDIMAGIC(ptr
->wMagic
) != magic
)) ||
401 (GDIMAGIC(ptr
->wMagic
) < FIRST_MAGIC
) ||
402 (GDIMAGIC(ptr
->wMagic
) > LAST_MAGIC
))
404 LOCAL_Unlock( GDI_HeapSel
, handle
);
409 else /* large heap handle */
411 int i
= (handle
>> 2) - FIRST_LARGE_HANDLE
;
412 if (i
>= 0 && i
< MAX_LARGE_HANDLES
)
414 ptr
= large_handles
[i
];
415 if (ptr
&& (magic
!= MAGIC_DONTCARE
) && (GDIMAGIC(ptr
->wMagic
) != magic
)) ptr
= NULL
;
421 _LeaveSysLevel( &GDI_level
);
422 SetLastError( ERROR_INVALID_HANDLE
);
423 WARN( "Invalid handle %x\n", handle
);
425 else TRACE_SEC( handle
, "enter" );
431 /***********************************************************************
435 void GDI_ReleaseObj( HGDIOBJ handle
)
437 if (handle
& 2) LOCAL_Unlock( GDI_HeapSel
, handle
);
438 TRACE_SEC( handle
, "leave" );
439 _LeaveSysLevel( &GDI_level
);
443 /***********************************************************************
446 void GDI_CheckNotLock(void)
448 _CheckNotSysLevel( &GDI_level
);
452 /***********************************************************************
456 static BOOL
FONT_DeleteObject(HGDIOBJ hfont
, FONTOBJ
*fontobj
)
458 WineEngDestroyFontInstance( hfont
);
459 return GDI_FreeObject( hfont
, fontobj
);
463 /***********************************************************************
464 * DeleteObject (GDI.69)
465 * SysDeleteObject (GDI.605)
467 BOOL16 WINAPI
DeleteObject16( HGDIOBJ16 obj
)
469 return DeleteObject( obj
);
473 /***********************************************************************
474 * DeleteObject (GDI32.@)
476 BOOL WINAPI
DeleteObject( HGDIOBJ obj
)
478 /* Check if object is valid */
481 if (HIWORD(obj
)) return FALSE
;
483 if (!(header
= GDI_GetObjPtr( obj
, MAGIC_DONTCARE
))) return FALSE
;
485 if (!(header
->wMagic
& OBJECT_NOSYSTEM
)
486 && (header
->wMagic
>= FIRST_MAGIC
) && (header
->wMagic
<= LAST_MAGIC
))
488 TRACE("Preserving system object %04x\n", obj
);
489 GDI_ReleaseObj( obj
);
495 TRACE("delayed for %04x because object in use, count %ld\n", obj
, header
->dwCount
);
496 header
->dwCount
|= 0x80000000; /* mark for delete */
497 GDI_ReleaseObj( obj
);
501 TRACE("%04x\n", obj
);
505 switch(GDIMAGIC(header
->wMagic
))
507 case PEN_MAGIC
: return GDI_FreeObject( obj
, header
);
508 case BRUSH_MAGIC
: return BRUSH_DeleteObject( obj
, (BRUSHOBJ
*)header
);
509 case FONT_MAGIC
: return FONT_DeleteObject( obj
, (FONTOBJ
*)header
);
510 case PALETTE_MAGIC
: return PALETTE_DeleteObject(obj
,(PALETTEOBJ
*)header
);
511 case BITMAP_MAGIC
: return BITMAP_DeleteObject( obj
, (BITMAPOBJ
*)header
);
512 case REGION_MAGIC
: return REGION_DeleteObject( obj
, (RGNOBJ
*)header
);
514 GDI_ReleaseObj( obj
);
515 return DeleteDC(obj
);
517 WARN("Already deleted\n");
520 WARN("Unknown magic number (%04x)\n",GDIMAGIC(header
->wMagic
));
522 GDI_ReleaseObj( obj
);
526 /***********************************************************************
527 * GetStockObject (GDI.87)
529 HGDIOBJ16 WINAPI
GetStockObject16( INT16 obj
)
531 return (HGDIOBJ16
)GetStockObject( obj
);
535 /***********************************************************************
536 * GetStockObject (GDI32.@)
538 HGDIOBJ WINAPI
GetStockObject( INT obj
)
541 if ((obj
< 0) || (obj
>= NB_STOCK_OBJECTS
)) return 0;
542 ret
= stock_objects
[obj
];
543 TRACE("returning %4x\n", ret
);
548 /***********************************************************************
551 INT16 WINAPI
GetObject16( HANDLE16 handle
, INT16 count
, LPVOID buffer
)
555 TRACE("%04x %d %p\n", handle
, count
, buffer
);
556 if (!count
) return 0;
558 if (!(ptr
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
))) return 0;
560 switch(GDIMAGIC(ptr
->wMagic
))
563 result
= PEN_GetObject16( (PENOBJ
*)ptr
, count
, buffer
);
566 result
= BRUSH_GetObject16( (BRUSHOBJ
*)ptr
, count
, buffer
);
569 result
= BITMAP_GetObject16( (BITMAPOBJ
*)ptr
, count
, buffer
);
572 result
= FONT_GetObject16( (FONTOBJ
*)ptr
, count
, buffer
);
575 result
= PALETTE_GetObject( (PALETTEOBJ
*)ptr
, count
, buffer
);
578 GDI_ReleaseObj( handle
);
583 /***********************************************************************
584 * GetObjectA (GDI32.@)
586 INT WINAPI
GetObjectA( HANDLE handle
, INT count
, LPVOID buffer
)
590 TRACE("%08x %d %p\n", handle
, count
, buffer
);
591 if (!count
) return 0;
593 if (!(ptr
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
))) return 0;
595 switch(GDIMAGIC(ptr
->wMagic
))
598 result
= PEN_GetObject( (PENOBJ
*)ptr
, count
, buffer
);
601 result
= BRUSH_GetObject( (BRUSHOBJ
*)ptr
, count
, buffer
);
604 result
= BITMAP_GetObject( (BITMAPOBJ
*)ptr
, count
, buffer
);
607 result
= FONT_GetObjectA( (FONTOBJ
*)ptr
, count
, buffer
);
610 result
= PALETTE_GetObject( (PALETTEOBJ
*)ptr
, count
, buffer
);
615 case DISABLED_DC_MAGIC
:
618 case METAFILE_DC_MAGIC
:
619 case ENHMETAFILE_MAGIC
:
620 case ENHMETAFILE_DC_MAGIC
:
621 FIXME("Magic %04x not implemented\n", GDIMAGIC(ptr
->wMagic
) );
625 ERR("Invalid GDI Magic %04x\n", GDIMAGIC(ptr
->wMagic
));
628 GDI_ReleaseObj( handle
);
632 /***********************************************************************
633 * GetObjectW (GDI32.@)
635 INT WINAPI
GetObjectW( HANDLE handle
, INT count
, LPVOID buffer
)
639 TRACE("%08x %d %p\n", handle
, count
, buffer
);
640 if (!count
) return 0;
642 if (!(ptr
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
))) return 0;
644 switch(GDIMAGIC(ptr
->wMagic
))
647 result
= PEN_GetObject( (PENOBJ
*)ptr
, count
, buffer
);
650 result
= BRUSH_GetObject( (BRUSHOBJ
*)ptr
, count
, buffer
);
653 result
= BITMAP_GetObject( (BITMAPOBJ
*)ptr
, count
, buffer
);
656 result
= FONT_GetObjectW( (FONTOBJ
*)ptr
, count
, buffer
);
659 result
= PALETTE_GetObject( (PALETTEOBJ
*)ptr
, count
, buffer
);
662 FIXME("Magic %04x not implemented\n", GDIMAGIC(ptr
->wMagic
) );
665 GDI_ReleaseObj( handle
);
669 /***********************************************************************
670 * GetObjectType (GDI32.@)
672 DWORD WINAPI
GetObjectType( HANDLE handle
)
676 TRACE("%08x\n", handle
);
678 if (!(ptr
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
))) return 0;
680 switch(GDIMAGIC(ptr
->wMagic
))
707 result
= OBJ_METAFILE
;
709 case METAFILE_DC_MAGIC
:
712 case ENHMETAFILE_MAGIC
:
713 result
= OBJ_ENHMETAFILE
;
715 case ENHMETAFILE_DC_MAGIC
:
716 result
= OBJ_ENHMETADC
;
719 FIXME("Magic %04x not implemented\n", GDIMAGIC(ptr
->wMagic
) );
722 GDI_ReleaseObj( handle
);
726 /***********************************************************************
727 * GetCurrentObject (GDI32.@)
729 HANDLE WINAPI
GetCurrentObject(HDC hdc
,UINT type
)
732 DC
* dc
= DC_GetDCPtr( hdc
);
737 case OBJ_PEN
: ret
= dc
->hPen
; break;
738 case OBJ_BRUSH
: ret
= dc
->hBrush
; break;
739 case OBJ_PAL
: ret
= dc
->hPalette
; break;
740 case OBJ_FONT
: ret
= dc
->hFont
; break;
741 case OBJ_BITMAP
: ret
= dc
->hBitmap
; break;
743 /* the SDK only mentions those above */
744 FIXME("(%08x,%d): unknown type.\n",hdc
,type
);
747 GDI_ReleaseObj( hdc
);
751 /***********************************************************************
754 * If the driver supports vector fonts we create a gdi font first and
755 * then call the driver to give it a chance to supply its own device
756 * font. If the driver wants to do this it returns TRUE and we can
757 * delete the gdi font, if the driver wants to use the gdi font it
758 * should return FALSE, to signal an error return GDI_ERROR. For
759 * drivers that don't support vector fonts they must supply their own
762 static HGDIOBJ
FONT_SelectObject(DC
*dc
, HGDIOBJ hFont
)
766 if(dc
->hFont
!= hFont
|| dc
->gdiFont
== NULL
) {
767 if(GetDeviceCaps(dc
->hSelf
, TEXTCAPS
) & TC_VA_ABLE
)
768 dc
->gdiFont
= WineEngCreateFontInstance(hFont
);
771 if(dc
->funcs
->pSelectObject
)
772 ret
= dc
->funcs
->pSelectObject(dc
, hFont
);
774 if(ret
&& dc
->gdiFont
) {
779 ret
= FALSE
; /* SelectObject returns FALSE on error */
788 /***********************************************************************
789 * SelectObject (GDI.45)
791 HGDIOBJ16 WINAPI
SelectObject16( HDC16 hdc
, HGDIOBJ16 handle
)
793 return (HGDIOBJ16
)SelectObject( hdc
, handle
);
797 /***********************************************************************
798 * SelectObject (GDI32.@)
800 HGDIOBJ WINAPI
SelectObject( HDC hdc
, HGDIOBJ handle
)
803 DC
* dc
= DC_GetDCUpdate( hdc
);
805 TRACE("hdc=%04x %04x\n", hdc
, handle
);
807 /* Fonts get a rather different treatment so we'll handle them
809 if(GetObjectType(handle
) == OBJ_FONT
)
810 ret
= FONT_SelectObject(dc
, handle
);
811 else if (dc
->funcs
->pSelectObject
)
812 ret
= dc
->funcs
->pSelectObject( dc
, handle
);
813 GDI_ReleaseObj( hdc
);
815 if (ret
&& ret
!= handle
)
817 inc_ref_count( handle
);
818 dec_ref_count( ret
);
824 /***********************************************************************
825 * UnrealizeObject (GDI.150)
827 BOOL16 WINAPI
UnrealizeObject16( HGDIOBJ16 obj
)
829 return UnrealizeObject( obj
);
833 /***********************************************************************
834 * UnrealizeObject (GDI32.@)
836 BOOL WINAPI
UnrealizeObject( HGDIOBJ obj
)
839 /* Check if object is valid */
841 GDIOBJHDR
* header
= GDI_GetObjPtr( obj
, MAGIC_DONTCARE
);
842 if (!header
) return FALSE
;
844 TRACE("%04x\n", obj
);
846 /* Unrealize object */
848 switch(GDIMAGIC(header
->wMagic
))
851 result
= PALETTE_UnrealizeObject( obj
, (PALETTEOBJ
*)header
);
855 /* Windows resets the brush origin. We don't need to. */
858 GDI_ReleaseObj( obj
);
863 /***********************************************************************
864 * EnumObjects (GDI.71)
866 INT16 WINAPI
EnumObjects16( HDC16 hdc
, INT16 nObjType
,
867 GOBJENUMPROC16 lpEnumFunc
, LPARAM lParam
)
869 /* Solid colors to enumerate */
870 static const COLORREF solid_colors
[] =
871 { RGB(0x00,0x00,0x00), RGB(0xff,0xff,0xff),
872 RGB(0xff,0x00,0x00), RGB(0x00,0xff,0x00),
873 RGB(0x00,0x00,0xff), RGB(0xff,0xff,0x00),
874 RGB(0xff,0x00,0xff), RGB(0x00,0xff,0xff),
875 RGB(0x80,0x00,0x00), RGB(0x00,0x80,0x00),
876 RGB(0x80,0x80,0x00), RGB(0x00,0x00,0x80),
877 RGB(0x80,0x00,0x80), RGB(0x00,0x80,0x80),
878 RGB(0x80,0x80,0x80), RGB(0xc0,0xc0,0xc0)
886 TRACE("%04x %d %08lx %08lx\n",
887 hdc
, nObjType
, (DWORD
)lpEnumFunc
, lParam
);
891 /* Enumerate solid pens */
892 segptr
= MapLS( &pen
);
893 for (i
= 0; i
< sizeof(solid_colors
)/sizeof(solid_colors
[0]); i
++)
895 pen
.lopnStyle
= PS_SOLID
;
898 pen
.lopnColor
= solid_colors
[i
];
899 retval
= GDI_CallTo16_word_ll( lpEnumFunc
, segptr
, lParam
);
900 TRACE("solid pen %08lx, ret=%d\n", solid_colors
[i
], retval
);
907 /* Enumerate solid brushes */
908 segptr
= MapLS( &brush
);
909 for (i
= 0; i
< sizeof(solid_colors
)/sizeof(solid_colors
[0]); i
++)
911 brush
.lbStyle
= BS_SOLID
;
912 brush
.lbColor
= solid_colors
[i
];
914 retval
= GDI_CallTo16_word_ll( lpEnumFunc
, segptr
, lParam
);
915 TRACE("solid brush %08lx, ret=%d\n", solid_colors
[i
], retval
);
919 /* Now enumerate hatched brushes */
920 if (retval
) for (i
= HS_HORIZONTAL
; i
<= HS_DIAGCROSS
; i
++)
922 brush
.lbStyle
= BS_HATCHED
;
923 brush
.lbColor
= RGB(0,0,0);
925 retval
= GDI_CallTo16_word_ll( lpEnumFunc
, segptr
, lParam
);
926 TRACE("hatched brush %d, ret=%d\n", i
, retval
);
933 WARN("(%d): Invalid type\n", nObjType
);
940 /***********************************************************************
941 * EnumObjects (GDI32.@)
943 INT WINAPI
EnumObjects( HDC hdc
, INT nObjType
,
944 GOBJENUMPROC lpEnumFunc
, LPARAM lParam
)
946 /* Solid colors to enumerate */
947 static const COLORREF solid_colors
[] =
948 { RGB(0x00,0x00,0x00), RGB(0xff,0xff,0xff),
949 RGB(0xff,0x00,0x00), RGB(0x00,0xff,0x00),
950 RGB(0x00,0x00,0xff), RGB(0xff,0xff,0x00),
951 RGB(0xff,0x00,0xff), RGB(0x00,0xff,0xff),
952 RGB(0x80,0x00,0x00), RGB(0x00,0x80,0x00),
953 RGB(0x80,0x80,0x00), RGB(0x00,0x00,0x80),
954 RGB(0x80,0x00,0x80), RGB(0x00,0x80,0x80),
955 RGB(0x80,0x80,0x80), RGB(0xc0,0xc0,0xc0)
962 TRACE("%04x %d %08lx %08lx\n",
963 hdc
, nObjType
, (DWORD
)lpEnumFunc
, lParam
);
967 /* Enumerate solid pens */
968 for (i
= 0; i
< sizeof(solid_colors
)/sizeof(solid_colors
[0]); i
++)
970 pen
.lopnStyle
= PS_SOLID
;
973 pen
.lopnColor
= solid_colors
[i
];
974 retval
= lpEnumFunc( &pen
, lParam
);
975 TRACE("solid pen %08lx, ret=%d\n",
976 solid_colors
[i
], retval
);
982 /* Enumerate solid brushes */
983 for (i
= 0; i
< sizeof(solid_colors
)/sizeof(solid_colors
[0]); i
++)
985 brush
.lbStyle
= BS_SOLID
;
986 brush
.lbColor
= solid_colors
[i
];
988 retval
= lpEnumFunc( &brush
, lParam
);
989 TRACE("solid brush %08lx, ret=%d\n",
990 solid_colors
[i
], retval
);
994 /* Now enumerate hatched brushes */
995 if (retval
) for (i
= HS_HORIZONTAL
; i
<= HS_DIAGCROSS
; i
++)
997 brush
.lbStyle
= BS_HATCHED
;
998 brush
.lbColor
= RGB(0,0,0);
1000 retval
= lpEnumFunc( &brush
, lParam
);
1001 TRACE("hatched brush %d, ret=%d\n",
1008 /* FIXME: implement Win32 types */
1009 WARN("(%d): Invalid type\n", nObjType
);
1016 /***********************************************************************
1017 * IsGDIObject (GDI.462)
1019 * returns type of object if valid (W95 system programming secrets p. 264-5)
1021 BOOL16 WINAPI
IsGDIObject16( HGDIOBJ16 handle
)
1025 GDIOBJHDR
*object
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
);
1028 magic
= GDIMAGIC(object
->wMagic
) - PEN_MAGIC
+ 1;
1029 GDI_ReleaseObj( handle
);
1035 /***********************************************************************
1036 * SetObjectOwner (GDI.461)
1038 void WINAPI
SetObjectOwner16( HGDIOBJ16 handle
, HANDLE16 owner
)
1044 /***********************************************************************
1045 * SetObjectOwner (GDI32.@)
1047 void WINAPI
SetObjectOwner( HGDIOBJ handle
, HANDLE owner
)
1053 /***********************************************************************
1054 * MakeObjectPrivate (GDI.463)
1056 * What does that mean ?
1057 * Some little docu can be found in "Undocumented Windows",
1058 * but this is basically useless.
1059 * At least we know that this flags the GDI object's wMagic
1060 * with 0x2000 (OBJECT_PRIVATE), so we just do it.
1061 * But Wine doesn't react on that yet.
1063 void WINAPI
MakeObjectPrivate16( HGDIOBJ16 handle
, BOOL16
private )
1065 GDIOBJHDR
*ptr
= GDI_GetObjPtr( handle
, MAGIC_DONTCARE
);
1068 ERR("invalid GDI object %04x !\n", handle
);
1071 ptr
->wMagic
|= OBJECT_PRIVATE
;
1072 GDI_ReleaseObj( handle
);
1076 /***********************************************************************
1077 * GdiFlush (GDI32.@)
1079 BOOL WINAPI
GdiFlush(void)
1081 return TRUE
; /* FIXME */
1085 /***********************************************************************
1086 * GdiGetBatchLimit (GDI32.@)
1088 DWORD WINAPI
GdiGetBatchLimit(void)
1090 return 1; /* FIXME */
1094 /***********************************************************************
1095 * GdiSetBatchLimit (GDI32.@)
1097 DWORD WINAPI
GdiSetBatchLimit( DWORD limit
)
1099 return 1; /* FIXME */
1103 /***********************************************************************
1104 * GdiSeeGdiDo (GDI.452)
1106 DWORD WINAPI
GdiSeeGdiDo16( WORD wReqType
, WORD wParam1
, WORD wParam2
,
1111 case 0x0001: /* LocalAlloc */
1112 return LOCAL_Alloc( GDI_HeapSel
, wParam1
, wParam3
);
1113 case 0x0002: /* LocalFree */
1114 return LOCAL_Free( GDI_HeapSel
, wParam1
);
1115 case 0x0003: /* LocalCompact */
1116 return LOCAL_Compact( GDI_HeapSel
, wParam3
, 0 );
1117 case 0x0103: /* LocalHeap */
1120 WARN("(wReqType=%04x): Unknown\n", wReqType
);
1125 /***********************************************************************
1126 * GdiSignalProc32 (GDI.610)
1128 WORD WINAPI
GdiSignalProc( UINT uCode
, DWORD dwThreadOrProcessID
,
1129 DWORD dwFlags
, HMODULE16 hModule
)
1134 /***********************************************************************
1135 * GdiInit2 (GDI.403)
1137 * See "Undocumented Windows"
1139 HANDLE16 WINAPI
GdiInit216(
1140 HANDLE16 h1
, /* [in] GDI object */
1141 HANDLE16 h2
/* [in] global data */
1144 FIXME("(%04x, %04x), stub.\n", h1
, h2
);
1146 return 0xffff; /* undefined return value */
1147 return h1
; /* FIXME: should be the memory handle of h1 */
1150 /***********************************************************************
1151 * FinalGdiInit (GDI.405)
1153 void WINAPI
FinalGdiInit16( HBRUSH16 hPattern
/* [in] fill pattern of desktop */ )
1157 /***********************************************************************
1158 * GdiFreeResources (GDI.609)
1160 WORD WINAPI
GdiFreeResources16( DWORD reserve
)
1162 return (WORD
)( (int)LOCAL_CountFree( GDI_HeapSel
) * 100 /
1163 (int)LOCAL_HeapSize( GDI_HeapSel
) );
1166 /***********************************************************************
1169 INT16 WINAPI
MulDiv16(
1170 INT16 nMultiplicand
,
1175 if (!nDivisor
) return -32768;
1176 /* We want to deal with a positive divisor to simplify the logic. */
1179 nMultiplicand
= - nMultiplicand
;
1180 nDivisor
= -nDivisor
;
1182 /* If the result is positive, we "add" to round. else,
1183 * we subtract to round. */
1184 if ( ( (nMultiplicand
< 0) && (nMultiplier
< 0) ) ||
1185 ( (nMultiplicand
>= 0) && (nMultiplier
>= 0) ) )
1186 ret
= (((int)nMultiplicand
* nMultiplier
) + (nDivisor
/2)) / nDivisor
;
1188 ret
= (((int)nMultiplicand
* nMultiplier
) - (nDivisor
/2)) / nDivisor
;
1189 if ((ret
> 32767) || (ret
< -32767)) return -32768;
1194 /*******************************************************************
1195 * GetColorAdjustment [GDI32.@]
1199 BOOL WINAPI
GetColorAdjustment(HDC hdc
, LPCOLORADJUSTMENT lpca
)
1201 FIXME("GetColorAdjustment, stub\n");
1205 /*******************************************************************
1206 * GetMiterLimit [GDI32.@]
1210 BOOL WINAPI
GetMiterLimit(HDC hdc
, PFLOAT peLimit
)
1212 FIXME("GetMiterLimit, stub\n");
1216 /*******************************************************************
1217 * SetMiterLimit [GDI32.@]
1221 BOOL WINAPI
SetMiterLimit(HDC hdc
, FLOAT eNewLimit
, PFLOAT peOldLimit
)
1223 FIXME("SetMiterLimit, stub\n");
1227 /*******************************************************************
1228 * GdiComment [GDI32.@]
1232 BOOL WINAPI
GdiComment(HDC hdc
, UINT cbSize
, const BYTE
*lpData
)
1234 FIXME("GdiComment, stub\n");
1237 /*******************************************************************
1238 * SetColorAdjustment [GDI32.@]
1242 BOOL WINAPI
SetColorAdjustment(HDC hdc
, const COLORADJUSTMENT
* lpca
)
1244 FIXME("SetColorAdjustment, stub\n");