4 * Copyright 1993 Alexandre Julliard
13 /***********************************************************************
14 * CreatePen16 (GDI.61)
16 HPEN16 WINAPI
CreatePen16( INT16 style
, INT16 width
, COLORREF color
)
18 LOGPEN logpen
= { style
, { width
, 0 }, color
};
19 TRACE(gdi
, "%d %d %06lx\n", style
, width
, color
);
20 return CreatePenIndirect( &logpen
);
24 /***********************************************************************
25 * CreatePen32 (GDI32.55)
27 HPEN WINAPI
CreatePen( INT style
, INT width
, COLORREF color
)
29 LOGPEN logpen
= { style
, { width
, 0 }, color
};
30 TRACE(gdi
, "%d %d %06lx\n", style
, width
, color
);
31 return CreatePenIndirect( &logpen
);
35 /***********************************************************************
36 * CreatePenIndirect16 (GDI.62)
38 HPEN16 WINAPI
CreatePenIndirect16( const LOGPEN16
* pen
)
43 if (pen
->lopnStyle
> PS_INSIDEFRAME
) return 0;
44 hpen
= GDI_AllocObject( sizeof(PENOBJ
), PEN_MAGIC
);
46 penPtr
= (PENOBJ
*)GDI_HEAP_LOCK( hpen
);
47 penPtr
->logpen
.lopnStyle
= pen
->lopnStyle
;
48 penPtr
->logpen
.lopnColor
= pen
->lopnColor
;
49 CONV_POINT16TO32( &pen
->lopnWidth
, &penPtr
->logpen
.lopnWidth
);
50 GDI_HEAP_UNLOCK( hpen
);
55 /***********************************************************************
56 * CreatePenIndirect32 (GDI32.56)
58 HPEN WINAPI
CreatePenIndirect( const LOGPEN
* pen
)
63 if (pen
->lopnStyle
> PS_INSIDEFRAME
) return 0;
64 hpen
= GDI_AllocObject( sizeof(PENOBJ
), PEN_MAGIC
);
66 penPtr
= (PENOBJ
*)GDI_HEAP_LOCK( hpen
);
67 penPtr
->logpen
.lopnStyle
= pen
->lopnStyle
;
68 penPtr
->logpen
.lopnWidth
= pen
->lopnWidth
;
69 penPtr
->logpen
.lopnColor
= pen
->lopnColor
;
70 GDI_HEAP_UNLOCK( hpen
);
74 /***********************************************************************
75 * ExtCreatePen32 (GDI32.93)
77 * FIXME: PS_USERSTYLE not handled
80 HPEN WINAPI
ExtCreatePen( DWORD style
, DWORD width
,
81 const LOGBRUSH
* brush
, DWORD style_count
,
82 const DWORD
*style_bits
)
86 if ((style
& PS_STYLE_MASK
) == PS_USERSTYLE
)
87 FIXME(gdi
, "PS_USERSTYLE not handled\n");
88 if ((style
& PS_TYPE_MASK
) == PS_GEOMETRIC
)
90 FIXME(gdi
, "Hatches not implemented\n");
92 logpen
.lopnStyle
= style
& ~PS_TYPE_MASK
;
93 logpen
.lopnWidth
.x
= (style
& PS_GEOMETRIC
) ? width
: 1;
94 logpen
.lopnWidth
.y
= 0;
95 logpen
.lopnColor
= brush
->lbColor
;
96 return CreatePenIndirect( &logpen
);
99 /***********************************************************************
102 INT16
PEN_GetObject16( PENOBJ
* pen
, INT16 count
, LPSTR buffer
)
105 logpen
.lopnStyle
= pen
->logpen
.lopnStyle
;
106 logpen
.lopnColor
= pen
->logpen
.lopnColor
;
107 CONV_POINT32TO16( &pen
->logpen
.lopnWidth
, &logpen
.lopnWidth
);
108 if (count
> sizeof(logpen
)) count
= sizeof(logpen
);
109 memcpy( buffer
, &logpen
, count
);
114 /***********************************************************************
117 INT
PEN_GetObject( PENOBJ
* pen
, INT count
, LPSTR buffer
)
119 if (count
> sizeof(pen
->logpen
)) count
= sizeof(pen
->logpen
);
120 memcpy( buffer
, &pen
->logpen
, count
);