4 * Copyright 1993 Alexandre Julliard
9 #include "debugtools.h"
11 DEFAULT_DEBUG_CHANNEL(gdi)
15 /***********************************************************************
16 * CreatePen16 (GDI.61)
18 HPEN16 WINAPI CreatePen16( INT16 style, INT16 width, COLORREF color )
22 TRACE("%d %d %06lx\n", style, width, color );
24 logpen.lopnStyle = style;
25 logpen.lopnWidth.x = width;
26 logpen.lopnWidth.y = 0;
27 logpen.lopnColor = color;
29 return CreatePenIndirect( &logpen );
33 /***********************************************************************
34 * CreatePen32 (GDI32.55)
36 HPEN WINAPI CreatePen( INT style, INT width, COLORREF color )
40 TRACE("%d %d %06lx\n", style, width, color );
42 logpen.lopnStyle = style;
43 logpen.lopnWidth.x = width;
44 logpen.lopnWidth.y = 0;
45 logpen.lopnColor = color;
47 return CreatePenIndirect( &logpen );
51 /***********************************************************************
52 * CreatePenIndirect16 (GDI.62)
54 HPEN16 WINAPI CreatePenIndirect16( const LOGPEN16 * pen )
59 if (pen->lopnStyle > PS_INSIDEFRAME) return 0;
60 hpen = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC );
62 penPtr = (PENOBJ *)GDI_HEAP_LOCK( hpen );
63 penPtr->logpen.lopnStyle = pen->lopnStyle;
64 penPtr->logpen.lopnColor = pen->lopnColor;
65 CONV_POINT16TO32( &pen->lopnWidth, &penPtr->logpen.lopnWidth );
66 GDI_HEAP_UNLOCK( hpen );
71 /***********************************************************************
72 * CreatePenIndirect32 (GDI32.56)
74 HPEN WINAPI CreatePenIndirect( const LOGPEN * pen )
79 if (pen->lopnStyle > PS_INSIDEFRAME) return 0;
80 hpen = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC );
82 penPtr = (PENOBJ *)GDI_HEAP_LOCK( hpen );
83 penPtr->logpen.lopnStyle = pen->lopnStyle;
84 penPtr->logpen.lopnWidth = pen->lopnWidth;
85 penPtr->logpen.lopnColor = pen->lopnColor;
86 GDI_HEAP_UNLOCK( hpen );
90 /***********************************************************************
91 * ExtCreatePen32 (GDI32.93)
93 * FIXME: PS_USERSTYLE not handled
96 HPEN WINAPI ExtCreatePen( DWORD style, DWORD width,
97 const LOGBRUSH * brush, DWORD style_count,
98 const DWORD *style_bits )
102 if ((style & PS_STYLE_MASK) == PS_USERSTYLE)
103 FIXME("PS_USERSTYLE not handled\n");
104 if ((style & PS_TYPE_MASK) == PS_GEOMETRIC)
106 FIXME("Hatches not implemented\n");
108 logpen.lopnStyle = style & ~PS_TYPE_MASK;
109 logpen.lopnWidth.x = (style & PS_GEOMETRIC) ? width : 1;
110 logpen.lopnWidth.y = 0;
111 logpen.lopnColor = brush->lbColor;
112 return CreatePenIndirect( &logpen );
115 /***********************************************************************
118 INT16 PEN_GetObject16( PENOBJ * pen, INT16 count, LPSTR buffer )
121 logpen.lopnStyle = pen->logpen.lopnStyle;
122 logpen.lopnColor = pen->logpen.lopnColor;
123 CONV_POINT32TO16( &pen->logpen.lopnWidth, &logpen.lopnWidth );
124 if (count > sizeof(logpen)) count = sizeof(logpen);
125 memcpy( buffer, &logpen, count );
130 /***********************************************************************
133 INT PEN_GetObject( PENOBJ * pen, INT count, LPSTR buffer )
135 if (count > sizeof(pen->logpen)) count = sizeof(pen->logpen);
136 memcpy( buffer, &pen->logpen, count );