4 * Copyright 1993 Alexandre Julliard
25 /* Object types for EnumObjects() */
29 /***********************************************************************
33 static BRUSHOBJ WhiteBrush =
35 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
36 { BS_SOLID, RGB(255,255,255), 0 } /* logbrush */
39 static BRUSHOBJ LtGrayBrush =
41 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
42 { BS_SOLID, RGB(192,192,192), 0 } /* logbrush */
45 static BRUSHOBJ GrayBrush =
47 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
48 { BS_SOLID, RGB(128,128,128), 0 } /* logbrush */
51 static BRUSHOBJ DkGrayBrush =
53 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
54 { BS_SOLID, RGB(64,64,64), 0 } /* logbrush */
57 static BRUSHOBJ BlackBrush =
59 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
60 { BS_SOLID, RGB(0,0,0), 0 } /* logbrush */
63 static BRUSHOBJ NullBrush =
65 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
66 { BS_NULL, 0, 0 } /* logbrush */
69 static PENOBJ WhitePen =
71 { 0, PEN_MAGIC, 1, 0 }, /* header */
72 { PS_SOLID, { 1, 0 }, RGB(255,255,255) } /* logpen */
75 static PENOBJ BlackPen =
77 { 0, PEN_MAGIC, 1, 0 }, /* header */
78 { PS_SOLID, { 1, 0 }, RGB(0,0,0) } /* logpen */
81 static PENOBJ NullPen =
83 { 0, PEN_MAGIC, 1, 0 }, /* header */
84 { PS_NULL, { 1, 0 }, 0 } /* logpen */
87 static FONTOBJ OEMFixedFont =
89 { 0, FONT_MAGIC, 1, 0 }, /* header */
90 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, OEM_CHARSET,
91 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
94 static FONTOBJ AnsiFixedFont =
96 { 0, FONT_MAGIC, 1, 0 }, /* header */
97 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
98 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
101 static FONTOBJ AnsiVarFont =
103 { 0, FONT_MAGIC, 1, 0 }, /* header */
104 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
105 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
108 static FONTOBJ SystemFont =
110 { 0, FONT_MAGIC, 1, 0 }, /* header */
111 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
112 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
115 static FONTOBJ DeviceDefaultFont =
117 { 0, FONT_MAGIC, 1, 0 }, /* header */
118 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
119 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
122 static FONTOBJ SystemFixedFont =
124 { 0, FONT_MAGIC, 1, 0 }, /* header */
125 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
126 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
130 static GDIOBJHDR * StockObjects[NB_STOCK_OBJECTS] =
132 (GDIOBJHDR *) &WhiteBrush,
133 (GDIOBJHDR *) &LtGrayBrush,
134 (GDIOBJHDR *) &GrayBrush,
135 (GDIOBJHDR *) &DkGrayBrush,
136 (GDIOBJHDR *) &BlackBrush,
137 (GDIOBJHDR *) &NullBrush,
138 (GDIOBJHDR *) &WhitePen,
139 (GDIOBJHDR *) &BlackPen,
140 (GDIOBJHDR *) &NullPen,
142 (GDIOBJHDR *) &OEMFixedFont,
143 (GDIOBJHDR *) &AnsiFixedFont,
144 (GDIOBJHDR *) &AnsiVarFont,
145 (GDIOBJHDR *) &SystemFont,
146 (GDIOBJHDR *) &DeviceDefaultFont,
147 NULL, /* DEFAULT_PALETTE created by COLOR_Init */
148 (GDIOBJHDR *) &SystemFixedFont
151 static FARPROC16 defDCHookCallback;
154 /***********************************************************************
157 * GDI initialization.
159 BOOL32 GDI_Init(void)
163 defDCHookCallback = (FARPROC16)MODULE_GetEntryPoint(GetModuleHandle("USER"),
165 dprintf_gdi( stddeb, "DCHook: 16-bit callback is %08x\n",
166 (unsigned)defDCHookCallback );
168 /* Create default palette */
170 if (!(hpalette = COLOR_Init())) return FALSE;
171 StockObjects[DEFAULT_PALETTE] = (GDIOBJHDR *)GDI_HEAP_LIN_ADDR( hpalette );
173 /* Create default bitmap */
175 if (!BITMAP_Init()) return FALSE;
177 /* Initialize brush dithering */
179 if (!BRUSH_Init()) return FALSE;
181 /* Initialize fonts */
183 if (!FONT_Init()) return FALSE;
189 /***********************************************************************
192 FARPROC16 GDI_GetDefDCHook(void)
194 return defDCHookCallback;
198 /***********************************************************************
201 HANDLE16 GDI_AllocObject( WORD size, WORD magic )
203 static DWORD count = 0;
205 HANDLE handle = GDI_HEAP_ALLOC( size );
206 if (!handle) return 0;
207 obj = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
210 obj->dwCount = ++count;
215 /***********************************************************************
218 BOOL32 GDI_FreeObject( HANDLE16 handle )
222 /* Can't free stock objects */
223 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
226 object = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
227 if (!object) return FALSE;
228 object->wMagic = 0; /* Mark it as invalid */
232 GDI_HEAP_FREE( handle );
236 /***********************************************************************
239 * Return a pointer to the GDI object associated to the handle.
240 * Return NULL if the object has the wrong magic number.
242 GDIOBJHDR * GDI_GetObjPtr( HANDLE16 handle, WORD magic )
244 GDIOBJHDR * ptr = NULL;
246 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
247 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
249 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
250 if (!ptr) return NULL;
251 if ((magic != MAGIC_DONTCARE) && (ptr->wMagic != magic)) return NULL;
256 /***********************************************************************
257 * DeleteObject (GDI.69)
259 BOOL DeleteObject( HGDIOBJ16 obj )
261 /* Check if object is valid */
263 GDIOBJHDR * header = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( obj );
264 if (!header) return FALSE;
266 dprintf_gdi(stddeb, "DeleteObject: %04x\n", obj );
270 switch(header->wMagic)
272 case PEN_MAGIC: return GDI_FreeObject( obj );
273 case BRUSH_MAGIC: return BRUSH_DeleteObject( obj, (BRUSHOBJ*)header );
274 case FONT_MAGIC: return GDI_FreeObject( obj );
275 case PALETTE_MAGIC: return PALETTE_DeleteObject(obj,(PALETTEOBJ*)header);
276 case BITMAP_MAGIC: return BITMAP_DeleteObject( obj, (BITMAPOBJ*)header);
277 case REGION_MAGIC: return REGION_DeleteObject( obj, (RGNOBJ*)header );
283 /***********************************************************************
284 * GetStockObject (GDI.87)
286 HANDLE GetStockObject( int obj )
288 if ((obj < 0) || (obj >= NB_STOCK_OBJECTS)) return 0;
289 if (!StockObjects[obj]) return 0;
290 dprintf_gdi(stddeb, "GetStockObject: returning %d\n",
291 FIRST_STOCK_HANDLE + obj );
292 return (HANDLE)(FIRST_STOCK_HANDLE + obj);
296 /***********************************************************************
297 * GetObject16 (GDI.82)
299 INT16 GetObject16( HANDLE16 handle, INT16 count, LPVOID buffer )
301 GDIOBJHDR * ptr = NULL;
302 dprintf_gdi(stddeb, "GetObject16: %04x %d %p\n", handle, count, buffer );
303 if (!count) return 0;
305 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
306 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
308 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
314 return PEN_GetObject( (PENOBJ *)ptr, count, buffer );
316 return BRUSH_GetObject( (BRUSHOBJ *)ptr, count, buffer );
318 return BITMAP_GetObject16( (BITMAPOBJ *)ptr, count, buffer );
320 return FONT_GetObject( (FONTOBJ *)ptr, count, buffer );
322 return PALETTE_GetObject( (PALETTEOBJ *)ptr, count, buffer );
328 /***********************************************************************
329 * GetObject32A (GDI32.204)
331 INT32 GetObject32A( HANDLE32 handle, INT32 count, LPVOID buffer )
333 GDIOBJHDR * ptr = NULL;
334 dprintf_gdi(stddeb, "GetObject32A: %08x %d %p\n", handle, count, buffer );
335 if (!count) return 0;
337 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
338 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
340 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
346 return BITMAP_GetObject32( (BITMAPOBJ *)ptr, count, buffer );
351 fprintf( stderr, "GetObject32: magic %04x not implemented\n",
359 /***********************************************************************
360 * GetObject32W (GDI32.206)
362 INT32 GetObject32W( HANDLE32 handle, INT32 count, LPVOID buffer )
364 return GetObject32A( handle, count, buffer );
368 /***********************************************************************
369 * SelectObject (GDI.45)
371 HANDLE SelectObject( HDC hdc, HANDLE handle )
373 GDIOBJHDR * ptr = NULL;
376 dprintf_gdi(stddeb, "SelectObject: hdc=%04x %04x\n", hdc, handle );
377 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
378 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
380 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
383 dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
386 dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC);
393 return PEN_SelectObject( dc, handle, (PENOBJ *)ptr );
395 return BRUSH_SelectObject( dc, handle, (BRUSHOBJ *)ptr );
397 return BITMAP_SelectObject( dc, handle, (BITMAPOBJ *)ptr );
399 return FONT_SelectObject( dc, handle, (FONTOBJ *)ptr );
401 return (HANDLE)SelectClipRgn( hdc, handle );
407 /***********************************************************************
408 * UnrealizeObject (GDI.150)
410 BOOL UnrealizeObject( HANDLE obj )
412 /* Check if object is valid */
414 GDIOBJHDR * header = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( obj );
415 if (!header) return FALSE;
417 dprintf_gdi( stddeb, "UnrealizeObject: %04x\n", obj );
419 /* Unrealize object */
421 switch(header->wMagic)
424 return PALETTE_UnrealizeObject( obj, (PALETTEOBJ *)header );
427 /* Windows resets the brush origin. We don't need to. */
434 /***********************************************************************
435 * EnumObjects (GDI.71)
437 INT EnumObjects( HDC hdc, INT nObjType, GOBJENUMPROC16 lpEnumFunc,
440 /* Solid colors to enumerate */
441 static const COLORREF solid_colors[] =
442 { RGB(0x00,0x00,0x00), RGB(0xff,0xff,0xff),
443 RGB(0xff,0x00,0x00), RGB(0x00,0xff,0x00),
444 RGB(0x00,0x00,0xff), RGB(0xff,0xff,0x00),
445 RGB(0xff,0x00,0xff), RGB(0x00,0xff,0xff),
446 RGB(0x80,0x00,0x00), RGB(0x00,0x80,0x00),
447 RGB(0x80,0x80,0x00), RGB(0x00,0x00,0x80),
448 RGB(0x80,0x00,0x80), RGB(0x00,0x80,0x80),
449 RGB(0x80,0x80,0x80), RGB(0xc0,0xc0,0xc0)
454 LOGBRUSH16 *brush = NULL;
456 dprintf_gdi( stddeb, "EnumObjects: %04x %d %08lx %08lx\n",
457 hdc, nObjType, (DWORD)lpEnumFunc, lParam );
461 /* Enumerate solid pens */
462 if (!(pen = SEGPTR_NEW(LOGPEN16))) break;
463 for (i = 0; i < sizeof(solid_colors)/sizeof(solid_colors[0]); i++)
465 pen->lopnStyle = PS_SOLID;
466 pen->lopnWidth.x = 1;
467 pen->lopnWidth.y = 0;
468 pen->lopnColor = solid_colors[i];
469 retval = lpEnumFunc( SEGPTR_GET(pen), lParam );
470 dprintf_gdi( stddeb, "EnumObject: solid pen %08lx, ret=%d\n",
471 solid_colors[i], retval);
478 /* Enumerate solid brushes */
479 if (!(brush = SEGPTR_NEW(LOGBRUSH16))) break;
480 for (i = 0; i < sizeof(solid_colors)/sizeof(solid_colors[0]); i++)
482 brush->lbStyle = BS_SOLID;
483 brush->lbColor = solid_colors[i];
485 retval = lpEnumFunc( SEGPTR_GET(brush), lParam );
486 dprintf_gdi( stddeb, "EnumObject: solid brush %08lx, ret=%d\n",
487 solid_colors[i], retval);
491 /* Now enumerate hatched brushes */
492 if (retval) for (i = HS_HORIZONTAL; i <= HS_DIAGCROSS; i++)
494 brush->lbStyle = BS_HATCHED;
495 brush->lbColor = RGB(0,0,0);
497 retval = lpEnumFunc( SEGPTR_GET(brush), lParam );
498 dprintf_gdi( stddeb, "EnumObject: hatched brush %d, ret=%d\n",
506 fprintf( stderr, "EnumObjects: invalid type %d\n", nObjType );
513 /***********************************************************************
514 * IsGDIObject (GDI.462)
516 BOOL IsGDIObject(HANDLE handle)
520 object = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
521 /* FIXME: should check magic here */
522 return (object != NULL);
526 /***********************************************************************
529 INT16 MulDiv16( INT16 foo, INT16 bar, INT16 baz )
532 if (!baz) return -32768;
533 ret = (foo * bar) / baz;
534 if ((ret > 32767) || (ret < -32767)) return -32768;
539 /***********************************************************************
540 * MulDiv32 (KERNEL32.391)
542 INT32 MulDiv32( INT32 foo, INT32 bar, INT32 baz )
547 ret = ((long long)foo * bar) / baz;
548 if ((ret > 2147483647) || (ret < -2147483647)) return -1;
552 return (foo * bar) / baz;