Implemented GetCharacterPlacementW.

objects/font.c

diff --git a/objects/font.c b/objects/font.c
index 01ce73d..efba0d2 100644
--- a/objects/font.c
+++ b/objects/font.c
@@ -1975,9 +1975,43 @@
 			 INT nMaxExtent, GCP_RESULTSW *lpResults,
 			 DWORD dwFlags)
 {
-    /* return value 0 is correct for most cases anyway */
-    FIXME(":stub!\n");
-    return 0;
+    DWORD ret=0;
+    SIZE size;
+
+    TRACE("%s 0x%08x 0x%08x 0x%08lx:partial stub!\n",
+          debugstr_w(lpString), uCount, nMaxExtent, dwFlags);
+
+    TRACE("lpOrder=%p lpDx=%p lpCaretPos=%p lpClass=%p "
+          "lpOutString=%p lpGlyphs=%p\n",
+          lpResults->lpOrder, lpResults->lpDx, lpResults->lpCaretPos,
+          lpResults->lpClass, lpResults->lpOutString, lpResults->lpGlyphs);
+
+    if(dwFlags)			FIXME("flags 0x%08lx ignored\n", dwFlags);
+    if(lpResults->lpOrder)	FIXME("reordering not implemented\n");
+    if(lpResults->lpCaretPos)	FIXME("caret positions not implemented\n");
+    if(lpResults->lpClass)	FIXME("classes not implemented\n");
+    if(lpResults->lpGlyphs)	FIXME("glyphs not implemented\n");
+
+    /* copy will do if the GCP_REORDER flag is not set */
+    if(lpResults->lpOutString)
+    {
+      lstrcpynW(lpResults->lpOutString, lpString, uCount);
+    }
+
+    if (lpResults->lpDx)
+    {
+      int i, c;
+      for (i=0; i<uCount;i++)
+      { 
+        if (GetCharWidth32W(hdc, lpString[i], lpString[i], &c))
+          lpResults->lpDx[i]= c;
+      }
+    }
+
+    if (GetTextExtentPoint32W(hdc, lpString, uCount, &size))
+      ret = MAKELONG(size.cx, size.cy);
+
+    return ret;
 }
 
 /*************************************************************************