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 %p\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
);