4 * Copyright 1993 Alexandre Julliard
7 static char Copyright[] = "Copyright Alexandre Julliard, 1993";
13 #include "prototypes.h"
15 /* #define DEBUG_GDI /* */
16 /* #undef DEBUG_GDI /* */
19 MDESC *GDI_Heap = NULL;
21 /* Object types for EnumObjects() */
26 HANDLE *lpPenBrushList = NULL;
28 extern HPALETTE COLOR_Init(); /* color.c */
30 /***********************************************************************
34 static BRUSHOBJ WhiteBrush =
36 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
37 { BS_SOLID, RGB(255,255,255), 0 } /* logbrush */
40 static BRUSHOBJ LtGrayBrush =
42 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
43 { BS_SOLID, RGB(192,192,192), 0 } /* logbrush */
46 static BRUSHOBJ GrayBrush =
48 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
49 { BS_SOLID, RGB(128,128,128), 0 } /* logbrush */
52 static BRUSHOBJ DkGrayBrush =
54 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
55 { BS_SOLID, RGB(64,64,64), 0 } /* logbrush */
58 static BRUSHOBJ BlackBrush =
60 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
61 { BS_SOLID, RGB(0,0,0), 0 } /* logbrush */
64 static BRUSHOBJ NullBrush =
66 { 0, BRUSH_MAGIC, 1, 0 }, /* header */
67 { BS_NULL, 0, 0 } /* logbrush */
70 static PENOBJ WhitePen =
72 { 0, PEN_MAGIC, 1, 0 }, /* header */
73 { PS_SOLID, { 1, 0 }, RGB(255,255,255) } /* logpen */
76 static PENOBJ BlackPen =
78 { 0, PEN_MAGIC, 1, 0 }, /* header */
79 { PS_SOLID, { 1, 0 }, RGB(0,0,0) } /* logpen */
82 static PENOBJ NullPen =
84 { 0, PEN_MAGIC, 1, 0 }, /* header */
85 { PS_NULL, { 1, 0 }, 0 } /* logpen */
88 static FONTOBJ OEMFixedFont =
90 { 0, FONT_MAGIC, 1, 0 }, /* header */
91 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, OEM_CHARSET,
92 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
95 static FONTOBJ AnsiFixedFont =
97 { 0, FONT_MAGIC, 1, 0 }, /* header */
98 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
99 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
102 static FONTOBJ AnsiVarFont =
104 { 0, FONT_MAGIC, 1, 0 }, /* header */
105 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
106 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
109 static FONTOBJ SystemFont =
111 { 0, FONT_MAGIC, 1, 0 }, /* header */
112 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
113 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
116 static FONTOBJ DeviceDefaultFont =
118 { 0, FONT_MAGIC, 1, 0 }, /* header */
119 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
120 0, 0, DEFAULT_QUALITY, VARIABLE_PITCH | FF_SWISS, "" }
123 static FONTOBJ SystemFixedFont =
125 { 0, FONT_MAGIC, 1, 0 }, /* header */
126 { 12, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,
127 0, 0, DEFAULT_QUALITY, FIXED_PITCH | FF_MODERN, "" }
131 static GDIOBJHDR * StockObjects[NB_STOCK_OBJECTS] =
133 (GDIOBJHDR *) &WhiteBrush,
134 (GDIOBJHDR *) &LtGrayBrush,
135 (GDIOBJHDR *) &GrayBrush,
136 (GDIOBJHDR *) &DkGrayBrush,
137 (GDIOBJHDR *) &BlackBrush,
138 (GDIOBJHDR *) &NullBrush,
139 (GDIOBJHDR *) &WhitePen,
140 (GDIOBJHDR *) &BlackPen,
141 (GDIOBJHDR *) &NullPen,
143 (GDIOBJHDR *) &OEMFixedFont,
144 (GDIOBJHDR *) &AnsiFixedFont,
145 (GDIOBJHDR *) &AnsiVarFont,
146 (GDIOBJHDR *) &SystemFont,
147 (GDIOBJHDR *) &DeviceDefaultFont,
148 NULL, /* DEFAULT_PALETTE created by COLOR_Init */
149 (GDIOBJHDR *) &SystemFixedFont
153 /***********************************************************************
156 * GDI initialisation.
161 struct segment_descriptor_s * s;
164 /* Create GDI heap */
166 s = (struct segment_descriptor_s *)GetNextSegment( 0, 0x10000 );
167 if (s == NULL) return FALSE;
168 HEAP_Init( &GDI_Heap, s->base_addr, GDI_HEAP_SIZE );
171 /* Create default palette */
173 if (!(hpalette = COLOR_Init())) return FALSE;
174 StockObjects[DEFAULT_PALETTE] = (GDIOBJHDR *) GDI_HEAP_ADDR( hpalette );
176 /* Create default bitmap */
178 if (!BITMAP_Init()) return FALSE;
180 /* Initialise regions */
182 if (!REGION_Init()) return FALSE;
184 /* Initialise dithering */
186 if (!DITHER_Init()) return FALSE;
192 /***********************************************************************
193 * GDI_AppendToPenBrushList
195 BOOL GDI_AppendToPenBrushList(HANDLE hNewObj)
199 if (hNewObj == 0) return FALSE;
200 if (lpPenBrushList == NULL) {
201 lpPenBrushList = malloc(MAX_OBJ * sizeof(HANDLE));
202 lpPenBrushList[0] = 0;
203 dprintf_gdi(stddeb,"GDI_AppendToPenBrushList() lpPenBrushList allocated !\n");
205 for (lphObj = lpPenBrushList; i < MAX_OBJ; i++) {
209 dprintf_gdi(stddeb,"GDI_AppendToPenBrushList(%04X) appended (count=%d)\n", hNewObj, i);
218 /***********************************************************************
221 * Return the GDI object whose hNext field points to obj.
223 HANDLE GDI_FindPrevObject( HANDLE first, HANDLE obj )
227 for (handle = first; handle && (handle != obj); )
229 GDIOBJHDR * header = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );
230 handle = header->hNext;
236 /***********************************************************************
239 HANDLE GDI_AllocObject( WORD size, WORD magic )
241 static DWORD count = 0;
243 HANDLE handle = GDI_HEAP_ALLOC( GMEM_MOVEABLE, size );
244 if (!handle) return 0;
245 obj = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );
247 fprintf(stderr,"GDI_AllocObject // Error trying to get GDI_HEAD_ADDR !\n");
252 obj->dwCount = ++count;
253 if (magic == PEN_MAGIC || magic == BRUSH_MAGIC) {
254 GDI_AppendToPenBrushList(handle);
260 /***********************************************************************
263 BOOL GDI_FreeObject( HANDLE handle )
267 /* Can't free stock objects */
268 if (handle >= FIRST_STOCK_HANDLE) return TRUE;
270 object = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );
271 if (!object) return FALSE;
272 object->wMagic = 0; /* Mark it as invalid */
276 GDI_HEAP_FREE( handle );
280 /***********************************************************************
283 * Return a pointer to the GDI object associated to the handle.
284 * Return NULL if the object has the wrong magic number.
286 GDIOBJHDR * GDI_GetObjPtr( HANDLE handle, WORD magic )
288 GDIOBJHDR * ptr = NULL;
290 if (handle >= FIRST_STOCK_HANDLE)
292 if (handle < FIRST_STOCK_HANDLE + NB_STOCK_OBJECTS)
293 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
295 else ptr = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );
296 if (!ptr) return NULL;
297 if (ptr->wMagic != magic) return NULL;
302 /***********************************************************************
303 * DeleteObject (GDI.69)
305 BOOL DeleteObject( HANDLE obj )
307 /* Check if object is valid */
309 GDIOBJHDR * header = (GDIOBJHDR *) GDI_HEAP_ADDR( obj );
310 if (!header) return FALSE;
312 dprintf_gdi(stddeb, "DeleteObject: %d\n", obj );
316 switch(header->wMagic)
318 case PEN_MAGIC: return GDI_FreeObject( obj );
319 case BRUSH_MAGIC: return BRUSH_DeleteObject( obj, header );
320 case FONT_MAGIC: return GDI_FreeObject( obj );
321 case PALETTE_MAGIC: return GDI_FreeObject( obj );
322 case BITMAP_MAGIC: return BMP_DeleteObject( obj, header );
323 case REGION_MAGIC: return REGION_DeleteObject( obj, header );
329 /***********************************************************************
330 * GetStockObject (GDI.87)
332 HANDLE GetStockObject( int obj )
334 if ((obj < 0) || (obj >= NB_STOCK_OBJECTS)) return 0;
335 if (!StockObjects[obj]) return 0;
336 dprintf_gdi(stddeb, "GetStockObject: returning %04x\n",
337 FIRST_STOCK_HANDLE + obj );
338 return FIRST_STOCK_HANDLE + obj;
342 /***********************************************************************
345 int GetObject( HANDLE handle, int count, LPSTR buffer )
347 GDIOBJHDR * ptr = NULL;
348 dprintf_gdi(stddeb, "GetObject: %04x %d %08x\n", handle, count, buffer );
349 if (!count) return 0;
351 if (handle >= FIRST_STOCK_HANDLE)
353 if (handle < FIRST_STOCK_HANDLE + NB_STOCK_OBJECTS)
354 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
356 else ptr = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );
362 return PEN_GetObject( (PENOBJ *)ptr, count, buffer );
364 return BRUSH_GetObject( (BRUSHOBJ *)ptr, count, buffer );
366 return BMP_GetObject( (BITMAPOBJ *)ptr, count, buffer );
368 return FONT_GetObject( (FONTOBJ *)ptr, count, buffer );
370 return PALETTE_GetObject( (PALETTEOBJ *)ptr, count, buffer );
376 /***********************************************************************
377 * SelectObject (GDI.45)
379 HANDLE SelectObject( HDC hdc, HANDLE handle )
381 GDIOBJHDR * ptr = NULL;
384 dprintf_gdi(stddeb, "SelectObject: %d %04x\n", hdc, handle );
385 if (handle >= FIRST_STOCK_HANDLE)
387 if (handle < FIRST_STOCK_HANDLE + NB_STOCK_OBJECTS)
388 ptr = StockObjects[handle - FIRST_STOCK_HANDLE];
390 else ptr = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );
393 dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC );
396 dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC);
403 return PEN_SelectObject( dc, handle, (PENOBJ *)ptr );
405 return BRUSH_SelectObject( hdc, dc, handle, (BRUSHOBJ *)ptr );
407 return BITMAP_SelectObject( hdc, dc, handle, (BITMAPOBJ *)ptr );
409 return FONT_SelectObject( dc, handle, (FONTOBJ *)ptr );
411 return SelectClipRgn( hdc, handle );
417 /***********************************************************************
418 * UnrealizeObject (GDI.150)
420 BOOL UnrealizeObject( HANDLE handle )
422 dprintf_gdi(stdnimp, "UnrealizeObject: %04x\n", handle );
427 /***********************************************************************
428 * EnumObjects (GDI.71)
430 int EnumObjects(HDC hDC, int nObjType, FARPROC lpEnumFunc, LPSTR lpData)
437 LPSTR lpLog; /* Point to a LOGBRUSH or LOGPEN struct */
440 if (lpEnumFunc == NULL) {
441 fprintf(stderr,"EnumObjects // Bad EnumProc callback address !\n");
447 dprintf_gdi(stddeb,"EnumObjects(%04X, OBJ_PEN, %08X, %08X);\n",
448 hDC, lpEnumFunc, lpData);
449 hLog = USER_HEAP_ALLOC(GMEM_MOVEABLE, sizeof(LOGPEN));
450 lpLog = (LPSTR) USER_HEAP_ADDR(hLog);
452 fprintf(stderr,"EnumObjects // Unable to alloc LOGPEN struct !\n");
457 wMagic = BRUSH_MAGIC;
458 dprintf_gdi(stddeb,"EnumObjects(%04X, OBJ_BRUSH, %08X, %08X);\n",
459 hDC, lpEnumFunc, lpData);
460 hLog = USER_HEAP_ALLOC(GMEM_MOVEABLE, sizeof(LOGBRUSH));
461 lpLog = (LPSTR) USER_HEAP_ADDR(hLog);
463 fprintf(stderr,"EnumObjects // Unable to alloc LOGBRUSH struct !\n");
468 fprintf(stderr,"EnumObjects(%04X, %04X, %08X, %08X); // Unknown OBJ type !\n",
469 hDC, nObjType, lpEnumFunc, lpData);
472 dprintf_gdi(stddeb,"EnumObjects // Stock Objects first !\n");
473 for (i = 0; i < NB_STOCK_OBJECTS; i++) {
474 header = StockObjects[i];
475 if (header->wMagic == wMagic) {
476 PEN_GetObject( (PENOBJ *)header, sizeof(LOGPEN), (LPLOGPEN)lpLog);
477 BRUSH_GetObject( (BRUSHOBJ *)header, sizeof(LOGBRUSH), (LPLOGBRUSH)lpLog);
478 dprintf_gdi(stddeb,"EnumObjects // StockObj lpLog=%08X lpData=%08X\n", lpLog, lpData);
479 if (header->wMagic == BRUSH_MAGIC) {
480 dprintf_gdi(stddeb,"EnumObjects // StockBrush lbStyle=%04X\n", ((LPLOGBRUSH)lpLog)->lbStyle);
481 dprintf_gdi(stddeb,"EnumObjects // StockBrush lbColor=%08X\n", ((LPLOGBRUSH)lpLog)->lbColor);
482 dprintf_gdi(stddeb,"EnumObjects // StockBrush lbHatch=%04X\n", ((LPLOGBRUSH)lpLog)->lbHatch);
484 if (header->wMagic == PEN_MAGIC) {
485 dprintf_gdi(stddeb,"EnumObjects // StockPen lopnStyle=%04X\n", ((LPLOGPEN)lpLog)->lopnStyle);
486 dprintf_gdi(stddeb,"EnumObjects // StockPen lopnWidth=%08X\n", ((LPLOGPEN)lpLog)->lopnWidth);
487 dprintf_gdi(stddeb,"EnumObjects // StockPen lopnColor=%08X\n", ((LPLOGPEN)lpLog)->lopnColor);
492 nRet = (*lpEnumFunc)(lpLog, lpData);
494 nRet = CallBack16(lpEnumFunc, 4, 2, (int)lpLog, 2, (int)lpData);
497 dprintf_gdi(stddeb,"EnumObjects // after CallBack16 !\n");
499 USER_HEAP_FREE(hLog);
500 dprintf_gdi(stddeb,"EnumObjects // EnumEnd requested by application !\n");
505 if (lpPenBrushList == NULL) return 0;
506 dprintf_gdi(stddeb,"EnumObjects // Now DC owned objects %08X !\n", header);
507 for (lphObj = lpPenBrushList; *lphObj != 0; ) {
508 dprintf_gdi(stddeb,"EnumObjects // *lphObj=%04X\n", *lphObj);
509 header = (GDIOBJHDR *) GDI_HEAP_ADDR(*lphObj++);
510 if (header->wMagic == wMagic) {
511 dprintf_gdi(stddeb,"EnumObjects // DC_Obj lpLog=%08X lpData=%08X\n", lpLog, lpData);
512 if (header->wMagic == BRUSH_MAGIC) {
513 BRUSH_GetObject( (BRUSHOBJ *)header, sizeof(LOGBRUSH), (LPLOGBRUSH)lpLog);
514 dprintf_gdi(stddeb,"EnumObjects // DC_Brush lbStyle=%04X\n", ((LPLOGBRUSH)lpLog)->lbStyle);
515 dprintf_gdi(stddeb,"EnumObjects // DC_Brush lbColor=%08X\n", ((LPLOGBRUSH)lpLog)->lbColor);
516 dprintf_gdi(stddeb,"EnumObjects // DC_Brush lbHatch=%04X\n", ((LPLOGBRUSH)lpLog)->lbHatch);
518 if (header->wMagic == PEN_MAGIC) {
519 PEN_GetObject( (PENOBJ *)header, sizeof(LOGPEN), (LPLOGPEN)lpLog);
520 dprintf_gdi(stddeb,"EnumObjects // DC_Pen lopnStyle=%04X\n", ((LPLOGPEN)lpLog)->lopnStyle);
521 dprintf_gdi(stddeb,"EnumObjects // DC_Pen lopnWidth=%08X\n", ((LPLOGPEN)lpLog)->lopnWidth);
522 dprintf_gdi(stddeb,"EnumObjects // DC_Pen lopnColor=%08X\n", ((LPLOGPEN)lpLog)->lopnColor);
526 nRet = (*lpEnumFunc)(lpLog, lpData);
528 nRet = CallBack16(lpEnumFunc, 4, 2, (int)lpLog, 2, (int)lpData);
532 dprintf_gdi(stddeb,"EnumObjects // after CallBack16 !\n");
534 USER_HEAP_FREE(hLog);
535 dprintf_gdi(stddeb,"EnumObjects // EnumEnd requested by application !\n");
540 USER_HEAP_FREE(hLog);
541 dprintf_gdi(stddeb,"EnumObjects // End of enumeration !\n");
545 /***********************************************************************
546 * IsGDIObject(GDI.462)
548 BOOL IsGDIObject(HANDLE handle)
552 object = (GDIOBJHDR *) GDI_HEAP_ADDR( handle );