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 * CreatePen (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 if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, &hpen ))) return 0;
61 penPtr->logpen.lopnStyle = pen->lopnStyle;
62 penPtr->logpen.lopnColor = pen->lopnColor;
63 CONV_POINT16TO32( &pen->lopnWidth, &penPtr->logpen.lopnWidth );
64 GDI_ReleaseObj( hpen );
69 /***********************************************************************
70 * CreatePenIndirect (GDI32.56)
72 HPEN WINAPI CreatePenIndirect( const LOGPEN * pen )
77 if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, &hpen ))) return 0;
78 penPtr->logpen.lopnStyle = pen->lopnStyle;
79 penPtr->logpen.lopnWidth = pen->lopnWidth;
80 penPtr->logpen.lopnColor = pen->lopnColor;
81 GDI_ReleaseObj( hpen );
85 /***********************************************************************
86 * ExtCreatePen (GDI32.93)
88 * FIXME: PS_USERSTYLE not handled
91 HPEN WINAPI ExtCreatePen( DWORD style, DWORD width,
92 const LOGBRUSH * brush, DWORD style_count,
93 const DWORD *style_bits )
98 if ((style & PS_STYLE_MASK) == PS_USERSTYLE)
99 FIXME("PS_USERSTYLE not handled\n");
100 if ((style & PS_TYPE_MASK) == PS_GEOMETRIC)
102 FIXME("Hatches not implemented\n");
104 if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, &hpen ))) return 0;
105 penPtr->logpen.lopnStyle = style & ~PS_TYPE_MASK;
107 /* PS_USERSTYLE workaround */
108 if((penPtr->logpen.lopnStyle & PS_STYLE_MASK) == PS_USERSTYLE)
109 penPtr->logpen.lopnStyle =
110 (penPtr->logpen.lopnStyle & ~PS_STYLE_MASK) | PS_SOLID;
112 penPtr->logpen.lopnWidth.x = (style & PS_GEOMETRIC) ? width : 1;
113 penPtr->logpen.lopnWidth.y = 0;
114 penPtr->logpen.lopnColor = brush->lbColor;
115 GDI_ReleaseObj( hpen );
120 /***********************************************************************
123 INT16 PEN_GetObject16( PENOBJ * pen, INT16 count, LPSTR buffer )
126 logpen.lopnStyle = pen->logpen.lopnStyle;
127 logpen.lopnColor = pen->logpen.lopnColor;
128 CONV_POINT32TO16( &pen->logpen.lopnWidth, &logpen.lopnWidth );
129 if (count > sizeof(logpen)) count = sizeof(logpen);
130 memcpy( buffer, &logpen, count );
135 /***********************************************************************
138 INT PEN_GetObject( PENOBJ * pen, INT count, LPSTR buffer )
140 if (count > sizeof(pen->logpen)) count = sizeof(pen->logpen);
141 memcpy( buffer, &pen->logpen, count );