gdiplus: Implement GdipDeleteFontFamily.

dlls/gdiplus/font.c

@@ -218,3 +218,30 @@ GpStatus WINGDIPAPI GdipCreateFontFamilyFromName(GDIPCONST WCHAR *name,
 
     return Ok;
 }
+
+
+/*****************************************************************************
+ * GdipDeleteFontFamily [GDIPLUS.@]
+ *
+ * Removes the specified FontFamily
+ *
+ * PARAMS
+ *  *FontFamily         [I] The family to delete
+ *
+ * RETURNS
+ *  SUCCESS: Ok
+ *  FAILURE: InvalidParameter if FontFamily is NULL.
+ *
+ */
+GpStatus WINGDIPAPI GdipDeleteFontFamily(GpFontFamily *FontFamily)
+{
+    if (!FontFamily)
+        return InvalidParameter;
+    TRACE("Deleting %p (%s)\n", FontFamily, debugstr_w(FontFamily->FamilyName));
+
+    if (FontFamily->FamilyName) GdipFree (FontFamily->FamilyName);
+    if (FontFamily->tmw) GdipFree (FontFamily->tmw);
+    GdipFree (FontFamily);
+
+    return Ok;
+}

dlls/gdiplus/gdiplus.spec

@@ -141,7 +141,7 @@
 @ stdcall GdipDeleteCustomLineCap(ptr)
 @ stub GdipDeleteEffect
 @ stdcall GdipDeleteFont(ptr)
-@ stub GdipDeleteFontFamily
+@ stdcall GdipDeleteFontFamily(ptr)
 @ stdcall GdipDeleteGraphics(ptr)
 @ stdcall GdipDeleteMatrix(ptr)
 @ stdcall GdipDeletePath(ptr)

include/gdiplusflat.h

@@ -350,6 +350,7 @@ GpStatus WINGDIPAPI GdipCloneFont(GpFont*,GpFont**);
 
 GpStatus WINGDIPAPI GdipCreateFontFamilyFromName(GDIPCONST WCHAR*,
     GpFontCollection*, GpFontFamily**);
+GpStatus WINGDIPAPI GdipDeleteFontFamily(GpFontFamily*);
 
 GpStatus WINGDIPAPI GdipCreateStringFormat(INT,LANGID,GpStringFormat**);
 GpStatus WINGDIPAPI GdipDeleteStringFormat(GpStringFormat*);