Test only stdole32.tlb as we don't have olepro32.dll in Wine.
[wine] / dlls / gdi / pen.c
1 /*
2  * GDI pen objects
3  *
4  * Copyright 1993 Alexandre Julliard
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include "config.h"
22
23 #include <stdarg.h>
24 #include <string.h>
25
26 #include "windef.h"
27 #include "winbase.h"
28 #include "wingdi.h"
29 #include "wine/wingdi16.h"
30 #include "gdi.h"
31 #include "gdi_private.h"
32 #include "wine/debug.h"
33
34 WINE_DEFAULT_DEBUG_CHANNEL(gdi);
35
36   /* GDI logical pen object */
37 typedef struct
38 {
39     GDIOBJHDR   header;
40     LOGPEN    logpen;
41 } PENOBJ;
42
43
44 static HGDIOBJ PEN_SelectObject( HGDIOBJ handle, void *obj, HDC hdc );
45 static INT PEN_GetObject16( HGDIOBJ handle, void *obj, INT count, LPVOID buffer );
46 static INT PEN_GetObject( HGDIOBJ handle, void *obj, INT count, LPVOID buffer );
47
48 static const struct gdi_obj_funcs pen_funcs =
49 {
50     PEN_SelectObject,  /* pSelectObject */
51     PEN_GetObject16,   /* pGetObject16 */
52     PEN_GetObject,     /* pGetObjectA */
53     PEN_GetObject,     /* pGetObjectW */
54     NULL,              /* pUnrealizeObject */
55     GDI_FreeObject     /* pDeleteObject */
56 };
57
58
59 /***********************************************************************
60  *           CreatePen    (GDI32.@)
61  */
62 HPEN WINAPI CreatePen( INT style, INT width, COLORREF color )
63 {
64     LOGPEN logpen;
65
66     TRACE("%d %d %06lx\n", style, width, color );
67
68     logpen.lopnStyle = style;
69     logpen.lopnWidth.x = width;
70     logpen.lopnWidth.y = 0;
71     logpen.lopnColor = color;
72
73     return CreatePenIndirect( &logpen );
74 }
75
76
77 /***********************************************************************
78  *           CreatePenIndirect    (GDI32.@)
79  */
80 HPEN WINAPI CreatePenIndirect( const LOGPEN * pen )
81 {
82     PENOBJ * penPtr;
83     HPEN hpen;
84
85     if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, (HGDIOBJ *)&hpen,
86                                     &pen_funcs ))) return 0;
87     penPtr->logpen.lopnStyle = pen->lopnStyle;
88     penPtr->logpen.lopnWidth = pen->lopnWidth;
89     penPtr->logpen.lopnColor = pen->lopnColor;
90     GDI_ReleaseObj( hpen );
91     return hpen;
92 }
93
94 /***********************************************************************
95  *           ExtCreatePen    (GDI32.@)
96  *
97  * FIXME: PS_USERSTYLE not handled
98  */
99
100 HPEN WINAPI ExtCreatePen( DWORD style, DWORD width,
101                               const LOGBRUSH * brush, DWORD style_count,
102                               const DWORD *style_bits )
103 {
104     PENOBJ * penPtr;
105     HPEN hpen;
106
107     if ((style & PS_STYLE_MASK) == PS_USERSTYLE)
108         FIXME("PS_USERSTYLE not handled\n");
109     if ((style & PS_TYPE_MASK) == PS_GEOMETRIC)
110         if (brush->lbHatch && ((brush->lbStyle == BS_SOLID) || (brush->lbStyle == BS_HOLLOW)))
111             FIXME("Hatches not implemented\n"); 
112
113     if (!(penPtr = GDI_AllocObject( sizeof(PENOBJ), PEN_MAGIC, (HGDIOBJ *)&hpen,
114                                     &pen_funcs ))) return 0;
115     penPtr->logpen.lopnStyle = style & ~PS_TYPE_MASK;
116
117     /* PS_USERSTYLE workaround */
118     if((penPtr->logpen.lopnStyle & PS_STYLE_MASK) == PS_USERSTYLE)
119        penPtr->logpen.lopnStyle =
120          (penPtr->logpen.lopnStyle & ~PS_STYLE_MASK) | PS_SOLID;
121
122     penPtr->logpen.lopnWidth.x = (style & PS_GEOMETRIC) ? width : 1;
123     penPtr->logpen.lopnWidth.y = 0;
124     penPtr->logpen.lopnColor = brush->lbColor;
125     GDI_ReleaseObj( hpen );
126
127     return hpen;
128 }
129
130
131 /***********************************************************************
132  *           PEN_SelectObject
133  */
134 static HGDIOBJ PEN_SelectObject( HGDIOBJ handle, void *obj, HDC hdc )
135 {
136     HGDIOBJ ret;
137     DC *dc = DC_GetDCPtr( hdc );
138
139     if (!dc) return 0;
140     ret = dc->hPen;
141     if (dc->funcs->pSelectPen) handle = dc->funcs->pSelectPen( dc->physDev, handle );
142     if (handle) dc->hPen = handle;
143     else ret = 0;
144     GDI_ReleaseObj( hdc );
145     return ret;
146 }
147
148
149 /***********************************************************************
150  *           PEN_GetObject16
151  */
152 static INT PEN_GetObject16( HGDIOBJ handle, void *obj, INT count, LPVOID buffer )
153 {
154     PENOBJ *pen = obj;
155     LOGPEN16 logpen;
156
157     logpen.lopnStyle = pen->logpen.lopnStyle;
158     logpen.lopnColor = pen->logpen.lopnColor;
159     logpen.lopnWidth.x = pen->logpen.lopnWidth.x;
160     logpen.lopnWidth.y = pen->logpen.lopnWidth.y;
161     if (count > sizeof(logpen)) count = sizeof(logpen);
162     memcpy( buffer, &logpen, count );
163     return count;
164 }
165
166
167 /***********************************************************************
168  *           PEN_GetObject
169  */
170 static INT PEN_GetObject( HGDIOBJ handle, void *obj, INT count, LPVOID buffer )
171 {
172     PENOBJ *pen = obj;
173
174     if( !buffer )
175         return sizeof(pen->logpen);
176
177     if (count > sizeof(pen->logpen)) count = sizeof(pen->logpen);
178     memcpy( buffer, &pen->logpen, count );
179     return count;
180 }