Implement OleFontImpl_QueryTextMetrics.

c2292eef · Alex Villacís Lasso · Alexandre Julliard · 1b7e7363 · c2292eef
Commit c2292eef authored Feb 18, 2005 by Alex Villacís Lasso Committed by Alexandre Julliard Feb 18, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 2 deletions

olefont.c dlls/oleaut32/olefont.c +10 -2

No files found.
--- a/dlls/oleaut32/olefont.c
+++ b/dlls/oleaut32/olefont.c
@@ -1068,8 +1068,16 @@ static HRESULT      WINAPI OLEFontImpl_QueryTextMetrics(
  IFont*         iface,
  TEXTMETRICOLE* ptm)
 {
-  FIXME("(%p, %p), stub!\n",iface,ptm);
-  return E_NOTIMPL;
+  HDC hdcRef;
+  HFONT hOldFont, hNewFont;
+
+  hdcRef = GetDC(0);
+  OLEFontImpl_get_hFont(iface, &hNewFont);
+  hOldFont = SelectObject(hdcRef, hNewFont);
+  GetTextMetricsW(hdcRef, ptm);
+  SelectObject(hdcRef, hOldFont);
+  ReleaseDC(0, hdcRef);
+  return S_OK;
 }

 /************************************************************************