4 * Copyright 1993 Alexandre Julliard
26 /* Object types for EnumObjects() */
31 HANDLE *lpPenBrushList = NULL;
34 /***********************************************************************
38 static BRUSHOBJ WhiteBrush =
40 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
41 { BS_SOLID, RGB(255,255,255), 0 } /* logbrush */
44 static BRUSHOBJ LtGrayBrush =
46 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
47 { BS_SOLID, RGB(192,192,192), 0 } /* logbrush */
50 static BRUSHOBJ GrayBrush =
52 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
53 { BS_SOLID, RGB(128,128,128), 0 } /* logbrush */
56 static BRUSHOBJ DkGrayBrush =
58 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
59 { BS_SOLID, RGB(64,64,64), 0 } /* logbrush */
62 static BRUSHOBJ BlackBrush =
64 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
65 { BS_SOLID, RGB(0,0,0), 0 } /* logbrush */
68 static BRUSHOBJ NullBrush =
70 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
71 { BS_NULL, 0, 0 } /* logbrush */
74 static PENOBJ WhitePen =
76 { 0, PEN_MAGIC, 1, 0 }, /* header */
77 { PS_SOLID, { 1, 0 }, RGB(255,255,255) } /* logpen */
80 static PENOBJ BlackPen =
82 { 0, PEN_MAGIC, 1, 0 }, /* header */
83 { PS_SOLID, { 1, 0 }, RGB(0,0,0) } /* logpen */
86 static PENOBJ NullPen =
88 { 0, PEN_MAGIC, 1, 0 }, /* header */
89 { PS_NULL, { 1, 0 }, 0 } /* logpen */
92 static FONTOBJ OEMFixedFont =
94 { 0, FONT_MAGIC, 1, 0 }, /* header */
95 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, OEM_CHARSET,
96 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
99 static FONTOBJ AnsiFixedFont =
101 { 0, FONT_MAGIC, 1, 0 }, /* header */
102 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
103 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
106 static FONTOBJ AnsiVarFont =
108 { 0, FONT_MAGIC, 1, 0 }, /* header */
109 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
110 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
113 static FONTOBJ SystemFont =
115 { 0, FONT_MAGIC, 1, 0 }, /* header */
116 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
117 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
120 static FONTOBJ DeviceDefaultFont =
122 { 0, FONT_MAGIC, 1, 0 }, /* header */
123 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
124 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
127 static FONTOBJ SystemFixedFont =
129 { 0, FONT_MAGIC, 1, 0 }, /* header */
130 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
131 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
135 static GDIOBJHDR * StockObjects[NB_STOCK_OBJECTS] =
137 (GDIOBJHDR *) &WhiteBrush,
138 (GDIOBJHDR *) &LtGrayBrush,
139 (GDIOBJHDR *) &GrayBrush,
140 (GDIOBJHDR *) &DkGrayBrush,
141 (GDIOBJHDR *) &BlackBrush,
142 (GDIOBJHDR *) &NullBrush,
143 (GDIOBJHDR *) &WhitePen,
144 (GDIOBJHDR *) &BlackPen,
145 (GDIOBJHDR *) &NullPen,
147 (GDIOBJHDR *) &OEMFixedFont,
148 (GDIOBJHDR *) &AnsiFixedFont,
149 (GDIOBJHDR *) &AnsiVarFont,
150 (GDIOBJHDR *) &SystemFont,
151 (GDIOBJHDR *) &DeviceDefaultFont,
152 NULL, /* DEFAULT_PALETTE created by COLOR_Init */
153 (GDIOBJHDR *) &SystemFixedFont
156 static FARPROC16 defDCHookCallback;
159 /***********************************************************************
162 * GDI initialization.
168 defDCHookCallback = (FARPROC16)MODULE_GetEntryPoint(GetModuleHandle("USER"),
170 dprintf_gdi( stddeb, "DCHook: 16-bit callback is %08x\n",
171 (unsigned)defDCHookCallback );
173 /* Create default palette */
175 if (!(hpalette = COLOR_Init())) return FALSE;
176 StockObjects[DEFAULT_PALETTE] = (GDIOBJHDR *)GDI_HEAP_LIN_ADDR( hpalette );
178 /* Create default bitmap */
180 if (!BITMAP_Init()) return FALSE;
182 /* Initialize brush dithering */
184 if (!BRUSH_Init()) return FALSE;
186 /* Initialize fonts */
188 if (!FONT_Init()) return FALSE;
194 /***********************************************************************
197 FARPROC16 GDI_GetDefDCHook(void)
199 return defDCHookCallback;
203 /***********************************************************************
206 HANDLE GDI_AllocObject( WORD size, WORD magic )
208 static DWORD count = 0;
210 HANDLE handle = GDI_HEAP_ALLOC( size );
211 if (!handle) return 0;
212 obj = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
215 obj->dwCount = ++count;
220 /***********************************************************************
223 BOOL GDI_FreeObject( HANDLE handle )
227 /* Can't free stock objects */
228 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
231 object = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
232 if (!object) return FALSE;
233 object->wMagic = 0; /* Mark it as invalid */
237 GDI_HEAP_FREE( handle );
241 /***********************************************************************
244 * Return a pointer to the GDI object associated to the handle.
245 * Return NULL if the object has the wrong magic number.
247 GDIOBJHDR * GDI_GetObjPtr( HANDLE handle, WORD magic )
249 GDIOBJHDR * ptr = NULL;
251 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
252 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
254 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
255 if (!ptr) return NULL;
256 if ((magic != MAGIC_DONTCARE) && (ptr->wMagic != magic)) return NULL;
261 /***********************************************************************
262 * DeleteObject (GDI.69)
264 BOOL DeleteObject( HGDIOBJ16 obj )
266 /* Check if object is valid */
268 GDIOBJHDR * header = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( obj );
269 if (!header) return FALSE;
271 dprintf_gdi(stddeb, "DeleteObject: %04x\n", obj );
275 switch(header->wMagic)
277 case PEN_MAGIC: return GDI_FreeObject( obj );
278 case BRUSH_MAGIC: return BRUSH_DeleteObject( obj, (BRUSHOBJ*)header );
279 case FONT_MAGIC: return GDI_FreeObject( obj );
280 case PALETTE_MAGIC: return GDI_FreeObject( obj );
281 case BITMAP_MAGIC: return BITMAP_DeleteObject( obj, (BITMAPOBJ*)header);
282 case REGION_MAGIC: return REGION_DeleteObject( obj, (RGNOBJ*)header );
288 /***********************************************************************
289 * GetStockObject (GDI.87)
291 HANDLE GetStockObject( int obj )
293 if ((obj < 0) || (obj >= NB_STOCK_OBJECTS)) return 0;
294 if (!StockObjects[obj]) return 0;
295 dprintf_gdi(stddeb, "GetStockObject: returning %d\n",
296 FIRST_STOCK_HANDLE + obj );
297 return (HANDLE)(FIRST_STOCK_HANDLE + obj);
301 /***********************************************************************
302 * GetObject16 (GDI.82)
304 INT16 GetObject16( HANDLE16 handle, INT16 count, LPVOID buffer )
306 GDIOBJHDR * ptr = NULL;
307 dprintf_gdi(stddeb, "GetObject16: %04x %d %p\n", handle, count, buffer );
308 if (!count) return 0;
310 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
311 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
313 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
319 return PEN_GetObject( (PENOBJ *)ptr, count, buffer );
321 return BRUSH_GetObject( (BRUSHOBJ *)ptr, count, buffer );
323 return BITMAP_GetObject16( (BITMAPOBJ *)ptr, count, buffer );
325 return FONT_GetObject( (FONTOBJ *)ptr, count, buffer );
327 return PALETTE_GetObject( (PALETTEOBJ *)ptr, count, buffer );
333 /***********************************************************************
334 * GetObject32A (GDI32.204)
336 INT32 GetObject32A( HANDLE32 handle, INT32 count, LPVOID buffer )
338 GDIOBJHDR * ptr = NULL;
339 dprintf_gdi(stddeb, "GetObject32A: %08x %d %p\n", handle, count, buffer );
340 if (!count) return 0;
342 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
343 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
345 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
351 return BITMAP_GetObject32( (BITMAPOBJ *)ptr, count, buffer );
356 fprintf( stderr, "GetObject32: magic %04x not implemented\n",
364 /***********************************************************************
365 * GetObject32W (GDI32.206)
367 INT32 GetObject32W( HANDLE32 handle, INT32 count, LPVOID buffer )
369 return GetObject32A( handle, count, buffer );
373 /***********************************************************************
374 * SelectObject (GDI.45)
376 HANDLE SelectObject( HDC hdc, HANDLE handle )
378 GDIOBJHDR * ptr = NULL;
381 dprintf_gdi(stddeb, "SelectObject: hdc=%04x %04x\n", hdc, handle );
382 if ((handle >= FIRST_STOCK_HANDLE) && (handle <= LAST_STOCK_HANDLE))
383 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
385 ptr = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
388 dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
391 dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC);
398 return PEN_SelectObject( dc, handle, (PENOBJ *)ptr );
400 return BRUSH_SelectObject( dc, handle, (BRUSHOBJ *)ptr );
402 return BITMAP_SelectObject( dc, handle, (BITMAPOBJ *)ptr );
404 return FONT_SelectObject( dc, handle, (FONTOBJ *)ptr );
406 return (HANDLE)SelectClipRgn( hdc, handle );
412 /***********************************************************************
413 * UnrealizeObject (GDI.150)
415 BOOL UnrealizeObject( HANDLE handle )
417 dprintf_gdi(stdnimp, "UnrealizeObject: %04x\n", handle );
422 /***********************************************************************
423 * EnumObjects (GDI.71)
425 INT EnumObjects( HDC hdc, INT nObjType, GOBJENUMPROC lpEnumFunc, LPARAM lParam )
427 /* Solid colors to enumerate */
428 static const COLORREF solid_colors[] =
429 { RGB(0x00,0x00,0x00), RGB(0xff,0xff,0xff),
430 RGB(0xff,0x00,0x00), RGB(0x00,0xff,0x00),
431 RGB(0x00,0x00,0xff), RGB(0xff,0xff,0x00),
432 RGB(0xff,0x00,0xff), RGB(0x00,0xff,0xff),
433 RGB(0x80,0x00,0x00), RGB(0x00,0x80,0x00),
434 RGB(0x80,0x80,0x00), RGB(0x00,0x00,0x80),
435 RGB(0x80,0x00,0x80), RGB(0x00,0x80,0x80),
436 RGB(0x80,0x80,0x80), RGB(0xc0,0xc0,0xc0)
441 LOGBRUSH16 *brush = NULL;
443 dprintf_gdi( stddeb, "EnumObjects: %04x %d %08lx %08lx\n",
444 hdc, nObjType, (DWORD)lpEnumFunc, lParam );
448 /* Enumerate solid pens */
449 if (!(pen = SEGPTR_NEW(LOGPEN16))) break;
450 for (i = 0; i < sizeof(solid_colors)/sizeof(solid_colors[0]); i++)
452 pen->lopnStyle = PS_SOLID;
453 pen->lopnWidth.x = 1;
454 pen->lopnWidth.y = 0;
455 pen->lopnColor = solid_colors[i];
456 retval = CallEnumObjectsProc( lpEnumFunc, SEGPTR_GET(pen),
458 dprintf_gdi( stddeb, "EnumObject: solid pen %08lx, ret=%d\n",
459 solid_colors[i], retval);
466 /* Enumerate solid brushes */
467 if (!(brush = SEGPTR_NEW(LOGBRUSH16))) break;
468 for (i = 0; i < sizeof(solid_colors)/sizeof(solid_colors[0]); i++)
470 brush->lbStyle = BS_SOLID;
471 brush->lbColor = solid_colors[i];
473 retval = CallEnumObjectsProc( lpEnumFunc, SEGPTR_GET(brush),
475 dprintf_gdi( stddeb, "EnumObject: solid brush %08lx, ret=%d\n",
476 solid_colors[i], retval);
480 /* Now enumerate hatched brushes */
481 if (retval) for (i = HS_HORIZONTAL; i <= HS_DIAGCROSS; i++)
483 brush->lbStyle = BS_HATCHED;
484 brush->lbColor = RGB(0,0,0);
486 retval = CallEnumObjectsProc( lpEnumFunc, SEGPTR_GET(brush),
488 dprintf_gdi( stddeb, "EnumObject: hatched brush %d, ret=%d\n",
496 fprintf( stderr, "EnumObjects: invalid type %d\n", nObjType );
503 /***********************************************************************
504 * IsGDIObject (GDI.462)
506 BOOL IsGDIObject(HANDLE handle)
510 object = (GDIOBJHDR *) GDI_HEAP_LIN_ADDR( handle );
511 /* FIXME: should check magic here */
512 return (object != NULL);
516 /***********************************************************************
519 INT16 MulDiv16( INT16 foo, INT16 bar, INT16 baz )
522 if (!baz) return -32768;
523 ret = (foo * bar) / baz;
524 if ((ret > 32767) || (ret < -32767)) return -32768;
529 /***********************************************************************
530 * MulDiv32 (KERNEL32.391)
532 INT32 MulDiv32( INT32 foo, INT32 bar, INT32 baz )
537 ret = ((long long)foo * bar) / baz;
538 if ((ret > 2147483647) || (ret < -2147483647)) return -1;
542 return (foo * bar) / baz;