Implement FontIsLinked.

dlls/gdi/freetype.c

@@ -3531,6 +3531,23 @@ BOOL WineEngGetLinkedHFont(DC *dc, WCHAR c, HFONT *new_hfont, UINT *glyph)
 
     return ret;
 }
+    
+
+/*************************************************************
+ *     FontIsLinked
+ */
+BOOL WINAPI FontIsLinked(HDC hdc)
+{
+    DC *dc = DC_GetDCPtr(hdc);
+    BOOL ret = FALSE;
+
+    if(!dc) return FALSE;
+    if(dc->gdiFont && !list_empty(&dc->gdiFont->child_fonts))
+        ret = TRUE;
+    GDI_ReleaseObj(hdc);
+    TRACE("returning %d\n", ret);
+    return ret;
+}
 
 #else /* HAVE_FREETYPE */
 
@@ -3642,4 +3659,9 @@ BOOL WineEngGetLinkedHFont(DC *dc, WCHAR c, HFONT *new_hfont, UINT *glyph)
 {
     return FALSE;
 }
+
+BOOL WINAPI FontIsLinked(HDC hdc)
+{
+    return FALSE;
+}
 #endif /* HAVE_FREETYPE */

dlls/gdi/gdi32.spec

@@ -125,7 +125,7 @@
 @ stdcall FixBrushOrgEx(long long long ptr)
 @ stdcall FlattenPath(long)
 @ stdcall FloodFill(long long long long)
-# @ stub FontIsLinked
+@ stdcall FontIsLinked(long)
 @ stdcall FrameRgn(long long long long long)
 @ stub FreeImageColorMatcher
 # @ stub GdiAddFontResourceW

dlls/gdi/gdi_private.h

@@ -432,3 +432,5 @@ extern BOOL REGION_FrameRgn( HRGN dest, HRGN src, INT x, INT y );
 /* Undocumented value for DIB's iUsage: Indicates a mono DIB w/o pal enties */
 #define DIB_PAL_MONO 2
 #endif /* __WINE_GDI_PRIVATE_H */
+
+BOOL WINAPI FontIsLinked(HDC);