gdiplus: Added GdipClonePen.

dlls/gdiplus/gdiplus.spec

@@ -51,7 +51,7 @@
 @ stub GdipCloneImageAttributes
 @ stub GdipCloneMatrix
 @ stub GdipClonePath
-@ stub GdipClonePen
+@ stdcall GdipClonePen(ptr ptr)
 @ stub GdipCloneRegion
 @ stub GdipCloneStringFormat
 @ stdcall GdipClosePathFigure(ptr)

dlls/gdiplus/pen.c

@@ -65,6 +65,28 @@ static DWORD gdip_to_gdi_join(GpLineJoin join)
     }
 }
 
+GpStatus WINGDIPAPI GdipClonePen(GpPen *pen, GpPen **clonepen)
+{
+    LOGBRUSH lb;
+
+    if(!pen || !clonepen)
+        return InvalidParameter;
+
+    *clonepen = GdipAlloc(sizeof(GpPen));
+    if(!*clonepen)  return OutOfMemory;
+
+    memcpy(*clonepen, pen, sizeof(GpPen));
+
+    lb.lbStyle = BS_SOLID;
+    lb.lbColor = (*clonepen)->color;
+    lb.lbHatch = 0;
+
+    (*clonepen)->gdipen = ExtCreatePen((*clonepen)->style,
+                                       roundr((*clonepen)->width), &lb, 0, NULL);
+
+    return Ok;
+}
+
 GpStatus WINGDIPAPI GdipCreatePen1(ARGB color, FLOAT width, GpUnit unit,
     GpPen **pen)
 {

include/gdiplusflat.h

@@ -27,6 +27,7 @@
 extern "C" {
 #endif
 
+GpStatus WINGDIPAPI GdipClonePen(GpPen*,GpPen**);
 GpStatus WINGDIPAPI GdipCreatePen1(ARGB,REAL,GpUnit,GpPen**);
 GpStatus WINGDIPAPI GdipDeletePen(GpPen*);
 GpStatus WINGDIPAPI GdipSetPenDashStyle(GpPen*,GpDashStyle);