/* * OLEFONT test program * * Copyright 2003 Marcus Meissner * Copyright 2006 (Google) Benjamin Arai * * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include #include #include #include #define COBJMACROS #include #include #include #include #include #include #include #include #include #include #include #include DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0); static WCHAR MSSansSerif_font[] = {'M','S',' ','S','a','n','s',' ','S','e','r','i','f',0}; static WCHAR system_font[] = { 'S','y','s','t','e','m',0 }; static WCHAR arial_font[] = { 'A','r','i','a','l',0 }; static WCHAR marlett_font[] = { 'M','a','r','l','e','t','t',0 }; static HMODULE hOleaut32; static HRESULT (WINAPI *pOleCreateFontIndirect)(LPFONTDESC,REFIID,LPVOID*); #define EXPECT_HR(hr,hr_exp) \ ok(hr == hr_exp, "got 0x%08x, expected 0x%08x\n", hr, hr_exp) /* Create a font with cySize given by lo_size, hi_size, */ /* SetRatio to ratio_logical, ratio_himetric, */ /* check that resulting hfont has height hfont_height. */ /* Various checks along the way. */ static void test_ifont_size(LONGLONG size, LONG ratio_logical, LONG ratio_himetric, LONG hfont_height, const char * test_name) { FONTDESC fd; LPVOID pvObj = NULL; IFont* ifnt = NULL; HFONT hfont; LOGFONTA lf; CY psize; HRESULT hres; DWORD rtnval; fd.cbSizeofstruct = sizeof(FONTDESC); fd.lpstrName = arial_font; /* using scalable instead of bitmap font reduces errors due to font realization */ fd.cySize.int64 = size; fd.sWeight = 0; fd.sCharset = 0; fd.fItalic = FALSE; fd.fUnderline = FALSE; fd.fStrikethrough = FALSE; /* Create font, test that it worked. */ hres = pOleCreateFontIndirect(&fd, &IID_IFont, &pvObj); ifnt = pvObj; ok(hres == S_OK,"%s: OCFI returns 0x%08x instead of S_OK.\n", test_name, hres); ok(pvObj != NULL,"%s: OCFI returns NULL.\n", test_name); /* Change the scaling ratio */ hres = IFont_SetRatio(ifnt, ratio_logical, ratio_himetric); ok((ratio_logical && ratio_himetric) ? hres == S_OK : hres == E_FAIL, "%s: IFont_SetRatio unexpectedly returned 0x%08x.\n", test_name, hres); /* Read back size. */ hres = IFont_get_Size(ifnt, &psize); ok(hres == S_OK,"%s: IFont_get_size returns 0x%08x instead of S_OK.\n", test_name, hres); /* Check returned size - allow for errors due to rounding & font realization. */ ok((psize.int64 - size) < 10000 && (psize.int64 - size) > -10000, "%s: IFont_get_Size: Lo=%d, Hi=%d; expected Lo=%d, Hi=%d.\n", test_name, S(psize).Lo, S(psize).Hi, fd.cySize.Lo, fd.cySize.Hi); /* Check hFont size. */ hres = IFont_get_hFont (ifnt, &hfont); ok(hres == S_OK, "%s: IFont_get_hFont returns 0x%08x instead of S_OK.\n", test_name, hres); rtnval = GetObjectA(hfont, sizeof(LOGFONTA), &lf); ok(rtnval > 0, "GetObject(hfont) failed\n"); /* Since font scaling may encounter rounding errors, allow 1 pixel deviation. */ ok(abs(lf.lfHeight - hfont_height) <= 1, "%s: hFont has lf.lfHeight=%d, expected %d.\n", test_name, lf.lfHeight, hfont_height); /* Free IFont. */ IFont_Release(ifnt); } static void test_ifont_sizes(void) { /* Test various size operations and conversions. */ /* Add more as needed. */ /* Results of first 2 tests depend on display resolution. */ HDC hdc = GetDC(0); LONG dpi = GetDeviceCaps(hdc, LOGPIXELSY); /* expected results depend on display DPI */ ReleaseDC(0, hdc); if(dpi == 96) /* normal resolution display */ { test_ifont_size(180000, 0, 0, -24, "default"); /* normal font */ test_ifont_size(186000, 0, 0, -25, "rounding"); /* test rounding */ } else if(dpi == 72) /* low resolution display */ { test_ifont_size(180000, 0, 0, -18, "default"); /* normal font */ test_ifont_size(186000, 0, 0, -19, "rounding"); /* test rounding */ } else if(dpi == 120) /* high resolution display */ { test_ifont_size(180000, 0, 0, -30, "default"); /* normal font */ test_ifont_size(186000, 0, 0, -31, "rounding"); /* test rounding */ } else skip("Skipping resolution dependent font size tests - display resolution is %d\n", dpi); /* Next 4 tests specify a scaling ratio, so display resolution is not a factor. */ test_ifont_size(180000, 72, 2540, -18, "ratio1"); /* change ratio */ test_ifont_size(180000, 144, 2540, -36, "ratio2"); /* another ratio */ test_ifont_size(180000, 72, 1270, -36, "ratio3"); /* yet another ratio */ test_ifont_size(186000, 72, 2540, -19, "rounding+ratio"); /* test rounding with ratio */ /* test various combinations of logical == himetric */ test_ifont_size(180000, 10, 10, -635, "identical ratio 1"); test_ifont_size(240000, 10, 10, -848, "identical ratio 2"); test_ifont_size(300000, 10, 10, -1058, "identical ratio 3"); /* test various combinations of logical and himetric both set to 1 */ test_ifont_size(180000, 1, 1, -24, "1:1 ratio 1"); test_ifont_size(240000, 1, 1, -32, "1:1 ratio 2"); test_ifont_size(300000, 1, 1, -40, "1:1 ratio 3"); /* test various combinations of logical set to 1 */ test_ifont_size(180000, 1, 0, -24, "1:0 ratio 1"); test_ifont_size(240000, 1, 0, -32, "1:0 ratio 2"); test_ifont_size(300000, 1, 0, -40, "1:0 ratio 3"); /* test various combinations of himetric set to 1 */ test_ifont_size(180000, 0, 1, -24, "0:1 ratio 1"); test_ifont_size(240000, 0, 1, -32, "0:1 ratio 2"); test_ifont_size(300000, 0, 1, -40, "0:1 ratio 3"); /* test various combinations of 2:1 logical:himetric */ test_ifont_size(180000, 2, 1, -1270, "2:1 ratio 1"); test_ifont_size(240000, 2, 1, -1694, "2:1 ratio 2"); test_ifont_size(300000, 2, 1, -2117, "2:1 ratio 3"); /* test various combinations of 1:2 logical:himetric */ test_ifont_size(180000, 1, 2, -318, "1:2 ratio 1"); test_ifont_size(240000, 1, 2, -424, "1:2 ratio 2"); test_ifont_size(300000, 1, 2, -529, "1:2 ratio 3"); /* test various combinations of logical and himetric both set to 2 */ test_ifont_size(180000, 2, 2, -635, "2:2 ratio 1"); test_ifont_size(240000, 2, 2, -848, "2:2 ratio 2"); test_ifont_size(300000, 2, 2, -1058, "2:2 ratio 3"); } static void test_QueryInterface(void) { LPVOID pvObj = NULL; HRESULT hr; IFont* font = NULL; LONG ref; hr = pOleCreateFontIndirect(NULL, &IID_IFont, NULL); EXPECT_HR(hr, E_POINTER); hr = pOleCreateFontIndirect(NULL, &IID_IFont, &pvObj); font = pvObj; EXPECT_HR(hr, S_OK); ok(font != NULL,"OCFI (NULL,..) returns NULL, instead of !NULL\n"); pvObj = NULL; hr = IFont_QueryInterface( font, &IID_IFont, &pvObj); EXPECT_HR(hr, S_OK); /* Test if QueryInterface increments ref counter for IFONTs */ ref = IFont_AddRef(font); ok(ref == 3 || broken(ref == 1), /* win95 */ "IFont_QI expected ref value 3 but instead got %d\n", ref); IFont_Release(font); ok(pvObj != NULL,"IFont_QI does return NULL, instead of a ptr\n"); IFont_Release(font); IFont_Release(font); } static void test_type_info(void) { LPVOID pvObj = NULL; HRESULT hres; IFontDisp* fontdisp = NULL; ITypeInfo* pTInfo; WCHAR name_Name[] = {'N','a','m','e',0}; BSTR names[3]; UINT n; LCID en_us = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US), SORT_DEFAULT); DISPPARAMS dispparams; VARIANT varresult; pOleCreateFontIndirect(NULL, &IID_IFontDisp, &pvObj); fontdisp = pvObj; hres = IFontDisp_GetTypeInfo(fontdisp, 0, en_us, &pTInfo); ok(hres == S_OK, "GTI returned 0x%08x instead of S_OK.\n", hres); ok(pTInfo != NULL, "GTI returned NULL.\n"); hres = ITypeInfo_GetNames(pTInfo, DISPID_FONT_NAME, names, 3, &n); ok(hres == S_OK, "GetNames returned 0x%08x instead of S_OK.\n", hres); ok(n == 1, "GetNames returned %d names instead of 1.\n", n); ok(!lstrcmpiW(names[0],name_Name), "DISPID_FONT_NAME doesn't get 'Names'.\n"); SysFreeString(names[0]); ITypeInfo_Release(pTInfo); dispparams.cNamedArgs = 0; dispparams.rgdispidNamedArgs = NULL; dispparams.cArgs = 0; dispparams.rgvarg = NULL; VariantInit(&varresult); hres = IFontDisp_Invoke(fontdisp, DISPID_FONT_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult, NULL, NULL); ok(hres == S_OK, "IFontDisp_Invoke return 0x%08x instead of S_OK.\n", hres); VariantClear(&varresult); IFontDisp_Release(fontdisp); } static HRESULT WINAPI FontEventsDisp_QueryInterface(IFontEventsDisp *iface, REFIID riid, void **ppvObject) { if (IsEqualIID(riid, &IID_IFontEventsDisp) || IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDispatch)) { IFontEventsDisp_AddRef(iface); *ppvObject = iface; return S_OK; } else { *ppvObject = NULL; return E_NOINTERFACE; } } static ULONG WINAPI FontEventsDisp_AddRef( IFontEventsDisp *iface) { return 2; } static ULONG WINAPI FontEventsDisp_Release( IFontEventsDisp *iface) { return 1; } static HRESULT WINAPI FontEventsDisp_GetTypeInfoCount(IFontEventsDisp *iface, UINT *pctinfo) { ok(0, "unexpected call\n"); return E_NOTIMPL; } static HRESULT WINAPI FontEventsDisp_GetTypeInfo(IFontEventsDisp *iface, UINT itinfo, LCID lcid, ITypeInfo **pptinfo) { ok(0, "unexpected call\n"); return E_NOTIMPL; } static HRESULT WINAPI FontEventsDisp_GetIDsOfNames(IFontEventsDisp *iface, REFIID riid, LPOLESTR *names, UINT cNames, LCID lcid, DISPID *dispid) { ok(0, "unexpected call\n"); return E_NOTIMPL; } static int fonteventsdisp_invoke_called; static BSTR fonteventsdisp_invoke_arg0; static HRESULT WINAPI FontEventsDisp_Invoke( IFontEventsDisp *iface, DISPID dispid, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr) { VARIANTARG *arg0 = &pDispParams->rgvarg[0]; ok(dispid == DISPID_FONT_CHANGED, "expected DISPID_FONT_CHANGED instead of 0x%x\n", dispid); ok(IsEqualGUID(riid, &GUID_NULL), "got riid %s\n", wine_dbgstr_guid(riid)); ok(wFlags == INVOKE_FUNC, "expected INVOKE_FUNC instead of 0x%x\n", wFlags); ok(pDispParams->cArgs == 1, "expected arg count 1, got %d\n", pDispParams->cArgs); ok(V_VT(arg0) == VT_BSTR, "expected VT_BSTR, got %d\n", V_VT(arg0)); fonteventsdisp_invoke_arg0 = SysAllocString(V_BSTR(arg0)); fonteventsdisp_invoke_called++; return S_OK; } static IFontEventsDispVtbl FontEventsDisp_Vtbl = { FontEventsDisp_QueryInterface, FontEventsDisp_AddRef, FontEventsDisp_Release, FontEventsDisp_GetTypeInfoCount, FontEventsDisp_GetTypeInfo, FontEventsDisp_GetIDsOfNames, FontEventsDisp_Invoke }; static IFontEventsDisp FontEventsDisp = { &FontEventsDisp_Vtbl }; struct font_dispid { DISPID dispid; const WCHAR *name; }; static void test_font_events_disp(void) { static const WCHAR nameW[] = {'N','a','m','e',0}; static const WCHAR sizeW[] = {'S','i','z','e',0}; static const WCHAR boldW[] = {'B','o','l','d',0}; static const WCHAR italicW[] = {'I','t','a','l','i','c',0}; static const WCHAR underlineW[] = {'U','n','d','e','r','l','i','n','e',0}; static const WCHAR strikeW[] = {'S','t','r','i','k','e','t','h','r','o','u','g','h',0}; static const WCHAR weightW[] = {'W','e','i','g','h','t',0}; static const WCHAR charsetW[] = {'C','h','a','r','s','e','t',0}; static const struct font_dispid font_dispids[] = { { DISPID_FONT_NAME, nameW }, { DISPID_FONT_SIZE, sizeW }, { DISPID_FONT_BOLD, boldW }, { DISPID_FONT_ITALIC, italicW }, { DISPID_FONT_UNDER, underlineW }, { DISPID_FONT_STRIKE, strikeW }, { DISPID_FONT_WEIGHT, weightW }, { DISPID_FONT_CHARSET, charsetW } }; IFont *pFont; IFont *pFont2; IConnectionPointContainer *pCPC; IConnectionPoint *pCP; FONTDESC fontdesc; HRESULT hr; DWORD dwCookie; IFontDisp *pFontDisp; DISPPARAMS dispparams; VARIANTARG vararg; INT i; fontdesc.cbSizeofstruct = sizeof(fontdesc); fontdesc.lpstrName = MSSansSerif_font; fontdesc.cySize.int64 = 12 * 10000; /* 12 pt */ fontdesc.sWeight = FW_NORMAL; fontdesc.sCharset = 0; fontdesc.fItalic = FALSE; fontdesc.fUnderline = FALSE; fontdesc.fStrikethrough = FALSE; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&pFont); EXPECT_HR(hr, S_OK); hr = IFont_QueryInterface(pFont, &IID_IConnectionPointContainer, (void **)&pCPC); EXPECT_HR(hr, S_OK); hr = IConnectionPointContainer_FindConnectionPoint(pCPC, &IID_IFontEventsDisp, &pCP); EXPECT_HR(hr, S_OK); IConnectionPointContainer_Release(pCPC); hr = IConnectionPoint_Advise(pCP, (IUnknown *)&FontEventsDisp, &dwCookie); EXPECT_HR(hr, S_OK); IConnectionPoint_Release(pCP); fonteventsdisp_invoke_called = 0; fonteventsdisp_invoke_arg0 = NULL; hr = IFont_put_Bold(pFont, TRUE); EXPECT_HR(hr, S_OK); ok(fonteventsdisp_invoke_called == 1, "IFontEventDisp::Invoke wasn't called once\n"); SysFreeString(fonteventsdisp_invoke_arg0); hr = IFont_QueryInterface(pFont, &IID_IFontDisp, (void **)&pFontDisp); EXPECT_HR(hr, S_OK); for (i = 0; i < sizeof(font_dispids)/sizeof(font_dispids[0]); i++) { switch (font_dispids[i].dispid) { case DISPID_FONT_NAME: { static const WCHAR arialW[] = {'A','r','i','a','l',0}; V_VT(&vararg) = VT_BSTR; V_BSTR(&vararg) = SysAllocString(arialW); break; } case DISPID_FONT_SIZE: V_VT(&vararg) = VT_CY; S(V_CY(&vararg)).Lo = 25; S(V_CY(&vararg)).Hi = 0; break; case DISPID_FONT_BOLD: V_VT(&vararg) = VT_BOOL; V_BOOL(&vararg) = VARIANT_FALSE; break; case DISPID_FONT_ITALIC: case DISPID_FONT_UNDER: case DISPID_FONT_STRIKE: V_VT(&vararg) = VT_BOOL; V_BOOL(&vararg) = VARIANT_TRUE; break; case DISPID_FONT_WEIGHT: V_VT(&vararg) = VT_I2; V_I2(&vararg) = FW_BLACK; break; case DISPID_FONT_CHARSET: V_VT(&vararg) = VT_I2; V_I2(&vararg) = 1; break; default: ; } dispparams.cNamedArgs = 0; dispparams.rgdispidNamedArgs = NULL; dispparams.cArgs = 1; dispparams.rgvarg = &vararg; fonteventsdisp_invoke_called = 0; hr = IFontDisp_Invoke(pFontDisp, font_dispids[i].dispid, &IID_NULL, 0, DISPATCH_PROPERTYPUT, &dispparams, NULL, NULL, NULL); ok(hr == S_OK, "dispid=%d, got 0x%08x\n", font_dispids[i].dispid, hr); ok(fonteventsdisp_invoke_called == 1, "dispid=%d, DISPID_FONT_CHANGED not called, got %d\n", font_dispids[i].dispid, fonteventsdisp_invoke_called); if (hr == S_OK) { ok(!lstrcmpW(font_dispids[i].name, fonteventsdisp_invoke_arg0), "dispid=%d, got %s, expected %s\n", font_dispids[i].dispid, wine_dbgstr_w(fonteventsdisp_invoke_arg0), wine_dbgstr_w(font_dispids[i].name)); SysFreeString(fonteventsdisp_invoke_arg0); } VariantClear(&vararg); } IFontDisp_Release(pFontDisp); hr = IFont_Clone(pFont, &pFont2); EXPECT_HR(hr, S_OK); IFont_Release(pFont); /* this test shows that the notification routine isn't called again */ fonteventsdisp_invoke_called = 0; hr = IFont_put_Bold(pFont2, FALSE); EXPECT_HR(hr, S_OK); ok(fonteventsdisp_invoke_called == 0, "got %d\n", fonteventsdisp_invoke_called); IFont_Release(pFont2); } static void test_names_ids(WCHAR* w_name_1, const char* a_name_1, WCHAR* w_name_2, const char* a_name_2, LCID lcid, DISPID id_1, DISPID id_2, HRESULT hres_expect, int numnames) { LPVOID pvObj = NULL; IFontDisp *fontdisp = NULL; HRESULT hres; DISPID rgDispId[2] = {0xdeadbeef, 0xdeadbeef}; LPOLESTR names[2] = {w_name_1, w_name_2}; pOleCreateFontIndirect(NULL, &IID_IFontDisp, &pvObj); fontdisp = pvObj; hres = IFontDisp_GetIDsOfNames(fontdisp, &IID_NULL, names, numnames, lcid, rgDispId); /* test hres */ ok(hres == hres_expect, "GetIDsOfNames: \"%s\", \"%s\" returns 0x%08x, expected 0x%08x.\n", a_name_1, a_name_2, hres, hres_expect); /* test first DISPID */ ok(rgDispId[0]==id_1, "GetIDsOfNames: \"%s\" gets DISPID 0x%08x, expected 0x%08x.\n", a_name_1, rgDispId[0], id_1); /* test second DISPID is present */ if (numnames == 2) { ok(rgDispId[1]==id_2, "GetIDsOfNames: ..., \"%s\" gets DISPID 0x%08x, expected 0x%08x.\n", a_name_2, rgDispId[1], id_2); } IFontDisp_Release(fontdisp); } static void test_GetIDsOfNames(void) { WCHAR name_Name[] = {'N','a','m','e',0}; WCHAR name_Italic[] = {'I','t','a','l','i','c',0}; WCHAR name_Size[] = {'S','i','z','e',0}; WCHAR name_Bold[] = {'B','o','l','d',0}; WCHAR name_Underline[] = {'U','n','d','e','r','l','i','n','e',0}; WCHAR name_Strikethrough[] = {'S','t','r','i','k','e','t','h','r','o','u','g','h',0}; WCHAR name_Weight[] = {'W','e','i','g','h','t',0}; WCHAR name_Charset[] = {'C','h','a','r','s','e','t',0}; WCHAR name_Foo[] = {'F','o','o',0}; WCHAR name_nAmE[] = {'n','A','m','E',0}; WCHAR name_Nom[] = {'N','o','m',0}; LCID en_us = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US), SORT_DEFAULT); LCID fr_fr = MAKELCID(MAKELANGID(LANG_FRENCH,SUBLANG_FRENCH), SORT_DEFAULT); /* Test DISPID_FONTs for the various properties. */ test_names_ids(name_Name, "Name", NULL, "", en_us, DISPID_FONT_NAME, 0, S_OK,1); test_names_ids(name_Size, "Size", NULL, "", en_us, DISPID_FONT_SIZE, 0, S_OK,1); test_names_ids(name_Bold, "Bold", NULL, "", en_us, DISPID_FONT_BOLD, 0, S_OK,1); test_names_ids(name_Italic, "Italic", NULL, "", en_us, DISPID_FONT_ITALIC, 0, S_OK,1); test_names_ids(name_Underline, "Underline", NULL, "", en_us, DISPID_FONT_UNDER, 0, S_OK,1); test_names_ids(name_Strikethrough, "Strikethrough", NULL, "", en_us, DISPID_FONT_STRIKE, 0, S_OK,1); test_names_ids(name_Weight, "Weight", NULL, "", en_us, DISPID_FONT_WEIGHT, 0, S_OK,1); test_names_ids(name_Charset, "Charset", NULL, "", en_us, DISPID_FONT_CHARSET, 0, S_OK,1); /* Capitalization doesn't matter. */ test_names_ids(name_nAmE, "nAmE", NULL, "", en_us, DISPID_FONT_NAME, 0, S_OK,1); /* Unknown name. */ test_names_ids(name_Foo, "Foo", NULL, "", en_us, DISPID_UNKNOWN, 0, DISP_E_UNKNOWNNAME,1); /* Pass several names: first is processed, */ /* second gets DISPID_UNKNOWN and doesn't affect retval. */ test_names_ids(name_Italic, "Italic", name_Name, "Name", en_us, DISPID_FONT_ITALIC, DISPID_UNKNOWN, S_OK,2); test_names_ids(name_Italic, "Italic", name_Foo, "Foo", en_us, DISPID_FONT_ITALIC, DISPID_UNKNOWN, S_OK,2); /* Locale ID has no effect. */ test_names_ids(name_Name, "Name", NULL, "", fr_fr, DISPID_FONT_NAME, 0, S_OK,1); test_names_ids(name_Nom, "This is not a font", NULL, "", fr_fr, DISPID_UNKNOWN, 0, DISP_E_UNKNOWNNAME,1); /* One of the arguments are invalid */ test_names_ids(name_Name, "Name", NULL, "", en_us, 0xdeadbeef, 0xdeadbeef, E_INVALIDARG,0); test_names_ids(name_Italic, "Italic", NULL, "", en_us, 0xdeadbeef, 0xdeadbeef, E_INVALIDARG,0); test_names_ids(name_Foo, "Foo", NULL, "", en_us, 0xdeadbeef, 0xdeadbeef, E_INVALIDARG,0); /* Crazy locale ID? */ test_names_ids(name_Name, "Name", NULL, "", -1, DISPID_FONT_NAME, 0, S_OK,1); } static void test_Invoke(void) { IFontDisp *fontdisp; HRESULT hr; VARIANTARG vararg; DISPPARAMS dispparams; VARIANT varresult; hr = pOleCreateFontIndirect(NULL, &IID_IFontDisp, (void **)&fontdisp); EXPECT_HR(hr, S_OK); V_VT(&vararg) = VT_BOOL; V_BOOL(&vararg) = VARIANT_FALSE; dispparams.cNamedArgs = 0; dispparams.rgdispidNamedArgs = NULL; dispparams.cArgs = 1; dispparams.rgvarg = &vararg; hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_IFontDisp, 0, DISPATCH_PROPERTYPUT, &dispparams, NULL, NULL, NULL); EXPECT_HR(hr, DISP_E_UNKNOWNINTERFACE); dispparams.cArgs = 0; dispparams.rgvarg = NULL; hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_NULL, 0, DISPATCH_PROPERTYPUT, &dispparams, NULL, NULL, NULL); EXPECT_HR(hr, DISP_E_BADPARAMCOUNT); hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_NULL, 0, DISPATCH_PROPERTYPUT, NULL, NULL, NULL, NULL); EXPECT_HR(hr, DISP_E_PARAMNOTOPTIONAL); hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_NULL, 0, DISPATCH_PROPERTYGET, NULL, NULL, NULL, NULL); EXPECT_HR(hr, DISP_E_PARAMNOTOPTIONAL); hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_NULL, 0, DISPATCH_PROPERTYGET, NULL, &varresult, NULL, NULL); EXPECT_HR(hr, S_OK); hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_NULL, 0, DISPATCH_METHOD, NULL, &varresult, NULL, NULL); EXPECT_HR(hr, DISP_E_MEMBERNOTFOUND); hr = IFontDisp_Invoke(fontdisp, 0xdeadbeef, &IID_NULL, 0, DISPATCH_PROPERTYGET, NULL, &varresult, NULL, NULL); EXPECT_HR(hr, DISP_E_MEMBERNOTFOUND); dispparams.cArgs = 1; dispparams.rgvarg = &vararg; hr = IFontDisp_Invoke(fontdisp, DISPID_FONT_BOLD, &IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &varresult, NULL, NULL); EXPECT_HR(hr, S_OK); IFontDisp_Release(fontdisp); } static void test_IsEqual(void) { FONTDESC fd; IFont* ifnt = NULL; IFont* ifnt2 = NULL; HRESULT hres; /* Basic font description */ fd.cbSizeofstruct = sizeof(FONTDESC); fd.lpstrName = system_font; S(fd.cySize).Lo = 100; S(fd.cySize).Hi = 100; fd.sWeight = 0; fd.sCharset = 0; fd.fItalic = FALSE; fd.fUnderline = FALSE; fd.fStrikethrough = FALSE; /* Create font */ pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt); /* Test equal fonts */ pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_OK, "IFont_IsEqual: (EQUAL) Expected S_OK but got 0x%08x\n",hres); IFont_Release(ifnt2); /* Check for bad pointer */ hres = IFont_IsEqual(ifnt,NULL); ok(hres == E_POINTER, "IFont_IsEqual: (NULL) Expected 0x80004003 but got 0x%08x\n",hres); /* Test strName */ fd.lpstrName = arial_font; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (strName) Expected S_FALSE but got 0x%08x\n",hres); fd.lpstrName = system_font; IFont_Release(ifnt2); /* Test lo font size */ S(fd.cySize).Lo = 10000; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Lo font size) Expected S_FALSE but got 0x%08x\n",hres); S(fd.cySize).Lo = 100; IFont_Release(ifnt2); /* Test hi font size */ S(fd.cySize).Hi = 10000; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Hi font size) Expected S_FALSE but got 0x%08x\n",hres); S(fd.cySize).Hi = 100; IFont_Release(ifnt2); /* Test font weight */ fd.sWeight = 100; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Weight) Expected S_FALSE but got 0x%08x\n",hres); fd.sWeight = 0; IFont_Release(ifnt2); /* Test charset */ fd.sCharset = 1; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Charset) Expected S_FALSE but got 0x%08x\n",hres); fd.sCharset = 0; IFont_Release(ifnt2); /* Test italic setting */ fd.fItalic = TRUE; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Italic) Expected S_FALSE but got 0x%08x\n",hres); fd.fItalic = FALSE; IFont_Release(ifnt2); /* Test underline setting */ fd.fUnderline = TRUE; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Underline) Expected S_FALSE but got 0x%08x\n",hres); fd.fUnderline = FALSE; IFont_Release(ifnt2); /* Test strikethrough setting */ fd.fStrikethrough = TRUE; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); hres = IFont_IsEqual(ifnt,ifnt2); ok(hres == S_FALSE, "IFont_IsEqual: (Strikethrough) Expected S_FALSE but got 0x%08x\n",hres); fd.fStrikethrough = FALSE; IFont_Release(ifnt2); /* Free IFont. */ IFont_Release(ifnt); } static void test_ReleaseHfont(void) { FONTDESC fd; LPVOID pvObj1 = NULL; LPVOID pvObj2 = NULL; IFont* ifnt1 = NULL; IFont* ifnt2 = NULL; HFONT hfnt1 = 0; HFONT hfnt2 = 0; HRESULT hres; /* Basic font description */ fd.cbSizeofstruct = sizeof(FONTDESC); fd.lpstrName = system_font; S(fd.cySize).Lo = 100; S(fd.cySize).Hi = 100; fd.sWeight = 0; fd.sCharset = 0; fd.fItalic = FALSE; fd.fUnderline = FALSE; fd.fStrikethrough = FALSE; /* Create HFONTs and IFONTs */ pOleCreateFontIndirect(&fd, &IID_IFont, &pvObj1); ifnt1 = pvObj1; IFont_get_hFont(ifnt1,&hfnt1); fd.lpstrName = arial_font; pOleCreateFontIndirect(&fd, &IID_IFont, &pvObj2); ifnt2 = pvObj2; IFont_get_hFont(ifnt2,&hfnt2); /* Try invalid HFONT */ hres = IFont_ReleaseHfont(ifnt1,NULL); ok(hres == E_INVALIDARG, "IFont_ReleaseHfont: (Bad HFONT) Expected E_INVALIDARG but got 0x%08x\n", hres); /* Try to add a bad HFONT */ hres = IFont_ReleaseHfont(ifnt1,(HFONT)32); ok(hres == S_FALSE, "IFont_ReleaseHfont: (Bad HFONT) Expected S_FALSE but got 0x%08x\n", hres); /* Release all refs */ hres = IFont_ReleaseHfont(ifnt1,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); hres = IFont_ReleaseHfont(ifnt2,hfnt2); ok(hres == S_OK, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); /* Check that both lists are empty */ hres = IFont_ReleaseHfont(ifnt1,hfnt1); ok(hres == S_FALSE, "IFont_AddRefHfont: (Release ref) Expected S_FALSE but got 0x%08x\n", hres); /* The list should be empty */ hres = IFont_ReleaseHfont(ifnt2,hfnt2); ok(hres == S_FALSE, "IFont_AddRefHfont: (Release ref) Expected S_FALSE but got 0x%08x\n", hres); IFont_Release(ifnt1); IFont_Release(ifnt2); } static void test_AddRefHfont(void) { FONTDESC fd; IFont* ifnt1 = NULL; IFont* ifnt2 = NULL; IFont* ifnt3 = NULL; HFONT hfnt1 = 0; HFONT hfnt2 = 0; HFONT hfnt3 = 0; HRESULT hres; /* Basic font description */ fd.cbSizeofstruct = sizeof(FONTDESC); fd.lpstrName = system_font; S(fd.cySize).Lo = 100; S(fd.cySize).Hi = 100; fd.sWeight = 0; fd.sCharset = 0; fd.fItalic = FALSE; fd.fUnderline = FALSE; fd.fStrikethrough = FALSE; /* Create HFONTs and IFONTs */ pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt1); IFont_get_hFont(ifnt1,&hfnt1); fd.lpstrName = arial_font; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt2); IFont_get_hFont(ifnt2,&hfnt2); /* Try invalid HFONT */ hres = IFont_AddRefHfont(ifnt1,NULL); ok(hres == E_INVALIDARG, "IFont_AddRefHfont: (Bad HFONT) Expected E_INVALIDARG but got 0x%08x\n", hres); /* Try to add a bad HFONT */ hres = IFont_AddRefHfont(ifnt1,(HFONT)32); ok(hres == S_FALSE, "IFont_AddRefHfont: (Bad HFONT) Expected S_FALSE but got 0x%08x\n", hres); /* Add simple IFONT HFONT pair */ hres = IFont_AddRefHfont(ifnt1,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Add ref) Expected S_OK but got 0x%08x\n", hres); /* IFONT and HFONT do not have to be the same (always looks at HFONT) */ hres = IFont_AddRefHfont(ifnt2,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Add ref) Expected S_OK but got 0x%08x\n", hres); /* Release all hfnt1 refs */ hres = IFont_ReleaseHfont(ifnt1,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); hres = IFont_ReleaseHfont(ifnt1,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); hres = IFont_ReleaseHfont(ifnt1,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); /* Check if hfnt1 is empty */ hres = IFont_ReleaseHfont(ifnt1,hfnt1); ok(hres == S_FALSE, "IFont_AddRefHfont: (Release ref) Expected S_FALSE but got 0x%08x\n", hres); /* Release all hfnt2 refs */ hres = IFont_ReleaseHfont(ifnt2,hfnt2); ok(hres == S_OK, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); /* Check if hfnt2 is empty */ hres = IFont_ReleaseHfont(ifnt2,hfnt2); ok(hres == S_FALSE, "IFont_AddRefHfont: (Release ref) Expected S_FALSE but got 0x%08x\n", hres); /* Show that releasing an IFONT does not always release it from the HFONT cache. */ IFont_Release(ifnt1); /* Add a reference for destroyed hfnt1 */ hres = IFont_AddRefHfont(ifnt2,hfnt1); ok(hres == S_OK, "IFont_AddRefHfont: (Add ref) Expected S_OK but got 0x%08x\n", hres); /* Decrement reference for destroyed hfnt1 */ hres = IFont_ReleaseHfont(ifnt2,hfnt1); ok(hres == S_OK || hres == S_FALSE, /* <= win2k */ "IFont_AddRefHfont: (Release ref) Expected S_OK or S_FALSE but got 0x%08x\n", hres); /* Shows that releasing all IFONT's does clear the HFONT cache. */ IFont_Release(ifnt2); /* Need to make a new IFONT for testing */ fd.fUnderline = TRUE; pOleCreateFontIndirect(&fd, &IID_IFont, (void **)&ifnt3); IFont_get_hFont(ifnt3,&hfnt3); /* Add a reference for destroyed hfnt1 */ hres = IFont_AddRefHfont(ifnt3,hfnt1); ok(hres == S_FALSE, "IFont_AddRefHfont: (Add ref) Expected S_OK but got 0x%08x\n", hres); /* Decrement reference for destroyed hfnt1 */ hres = IFont_ReleaseHfont(ifnt3,hfnt1); ok(hres == S_FALSE, "IFont_AddRefHfont: (Release ref) Expected S_OK but got 0x%08x\n", hres); IFont_Release(ifnt3); } static void test_returns(void) { IFont *pFont; FONTDESC fontdesc; HRESULT hr; fontdesc.cbSizeofstruct = sizeof(fontdesc); fontdesc.lpstrName = MSSansSerif_font; fontdesc.cySize.int64 = 12 * 10000; /* 12 pt */ fontdesc.sWeight = FW_NORMAL; fontdesc.sCharset = 0; fontdesc.fItalic = FALSE; fontdesc.fUnderline = FALSE; fontdesc.fStrikethrough = FALSE; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&pFont); EXPECT_HR(hr, S_OK); hr = IFont_put_Name(pFont, NULL); EXPECT_HR(hr, CTL_E_INVALIDPROPERTYVALUE); hr = IFont_get_Name(pFont, NULL); EXPECT_HR(hr, E_POINTER); hr = IFont_get_Size(pFont, NULL); EXPECT_HR(hr, E_POINTER); hr = IFont_get_Bold(pFont, NULL); EXPECT_HR(hr, E_POINTER); IFont_Release(pFont); } static void test_hfont_lifetime(void) { IFont *font, *font2; FONTDESC fontdesc; HRESULT hr; HFONT hfont, first_hfont = NULL; CY size; DWORD obj_type; int i; fontdesc.cbSizeofstruct = sizeof(fontdesc); fontdesc.lpstrName = arial_font; fontdesc.cySize.int64 = 12 * 10000; /* 12 pt */ fontdesc.sWeight = FW_NORMAL; fontdesc.sCharset = ANSI_CHARSET; fontdesc.fItalic = FALSE; fontdesc.fUnderline = FALSE; fontdesc.fStrikethrough = FALSE; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&font); EXPECT_HR(hr, S_OK); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); /* show that if the font is updated the old hfont is deleted when the new font is realized */ for(i = 0; i < 100; i++) { HFONT last_hfont = hfont; size.int64 = (i + 10) * 20000; obj_type = GetObjectType(hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); hr = IFont_put_Size(font, size); EXPECT_HR(hr, S_OK); /* put_Size doesn't cause the new font to be realized */ obj_type = GetObjectType(last_hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); obj_type = GetObjectType(last_hfont); ok(obj_type == 0, "%d: got obj type %d\n", i, obj_type); } /* now show that if we take a reference on the hfont, it persists until the font object is released */ for(i = 0; i < 100; i++) { size.int64 = (i + 10) * 20000; obj_type = GetObjectType(hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); hr = IFont_put_Size(font, size); EXPECT_HR(hr, S_OK); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); hr = IFont_AddRefHfont(font, hfont); EXPECT_HR(hr, S_OK); if(i == 0) first_hfont = hfont; obj_type = GetObjectType(first_hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); } IFont_Release(font); obj_type = GetObjectType(first_hfont); ok(obj_type == 0, "got obj type %d\n", obj_type); /* An AddRefHfont followed by a ReleaseHfont means the font doesn't not persist through re-realization */ hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&font); EXPECT_HR(hr, S_OK); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); for(i = 0; i < 100; i++) { HFONT last_hfont = hfont; size.int64 = (i + 10) * 20000; obj_type = GetObjectType(hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); hr = IFont_put_Size(font, size); EXPECT_HR(hr, S_OK); /* put_Size doesn't cause the new font to be realized */ obj_type = GetObjectType(last_hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); hr = IFont_AddRefHfont(font, hfont); EXPECT_HR(hr, S_OK); hr = IFont_ReleaseHfont(font, hfont); EXPECT_HR(hr, S_OK); obj_type = GetObjectType(last_hfont); ok(obj_type == 0, "%d: got obj type %d\n", i, obj_type); } /* Interestingly if we release a nonexistent reference on the hfont, * it persists until the font object is released */ for(i = 0; i < 100; i++) { size.int64 = (i + 10) * 20000; obj_type = GetObjectType(hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); hr = IFont_put_Size(font, size); EXPECT_HR(hr, S_OK); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); hr = IFont_ReleaseHfont(font, hfont); EXPECT_HR(hr, S_OK); if(i == 0) first_hfont = hfont; obj_type = GetObjectType(first_hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); } IFont_Release(font); obj_type = GetObjectType(first_hfont); ok(obj_type == 0, "got obj type %d\n", obj_type); /* If we take two internal references on a hfont then we can release it twice. So it looks like there's a total reference count that includes internal and external references */ hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&font); EXPECT_HR(hr, S_OK); hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&font2); EXPECT_HR(hr, S_OK); hr = IFont_get_hFont(font, &hfont); EXPECT_HR(hr, S_OK); hr = IFont_get_hFont(font2, &first_hfont); EXPECT_HR(hr, S_OK); todo_wine ok(hfont == first_hfont, "fonts differ\n"); hr = IFont_ReleaseHfont(font, hfont); EXPECT_HR(hr, S_OK); hr = IFont_ReleaseHfont(font, hfont); todo_wine EXPECT_HR(hr, S_OK); hr = IFont_ReleaseHfont(font, hfont); EXPECT_HR(hr, S_FALSE); obj_type = GetObjectType(hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); IFont_Release(font); obj_type = GetObjectType(hfont); ok(obj_type == OBJ_FONT, "got obj type %d\n", obj_type); IFont_Release(font2); obj_type = GetObjectType(hfont); ok(obj_type == 0, "got obj type %d\n", obj_type); } static void test_realization(void) { IFont *font; FONTDESC fontdesc; HRESULT hr; BSTR name; SHORT cs; /* Try to create a symbol only font (marlett) with charset set to ANSI. This will result in another, ANSI, font being selected */ fontdesc.cbSizeofstruct = sizeof(fontdesc); fontdesc.lpstrName = marlett_font; fontdesc.cySize.int64 = 12 * 10000; /* 12 pt */ fontdesc.sWeight = FW_NORMAL; fontdesc.sCharset = ANSI_CHARSET; fontdesc.fItalic = FALSE; fontdesc.fUnderline = FALSE; fontdesc.fStrikethrough = FALSE; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&font); EXPECT_HR(hr, S_OK); hr = IFont_get_Charset(font, &cs); EXPECT_HR(hr, S_OK); ok(cs == ANSI_CHARSET, "got charset %d\n", cs); IFont_Release(font); /* Now create an ANSI font and change the name to marlett */ fontdesc.lpstrName = arial_font; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void **)&font); EXPECT_HR(hr, S_OK); hr = IFont_get_Charset(font, &cs); EXPECT_HR(hr, S_OK); ok(cs == ANSI_CHARSET, "got charset %d\n", cs); name = SysAllocString(marlett_font); hr = IFont_put_Name(font, name); EXPECT_HR(hr, S_OK); SysFreeString(name); hr = IFont_get_Name(font, &name); EXPECT_HR(hr, S_OK); ok(!lstrcmpiW(name, marlett_font), "got name %s\n", wine_dbgstr_w(name)); SysFreeString(name); hr = IFont_get_Charset(font, &cs); EXPECT_HR(hr, S_OK); ok(cs == SYMBOL_CHARSET, "got charset %d\n", cs); IFont_Release(font); } static void test_OleCreateFontIndirect(void) { FONTDESC fontdesc; IFont *font; HRESULT hr; fontdesc.cbSizeofstruct = sizeof(fontdesc); fontdesc.lpstrName = arial_font; fontdesc.cySize.int64 = 12 * 10000; /* 12 pt */ fontdesc.sWeight = FW_NORMAL; fontdesc.sCharset = ANSI_CHARSET; fontdesc.fItalic = FALSE; fontdesc.fUnderline = FALSE; fontdesc.fStrikethrough = FALSE; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void**)&font); EXPECT_HR(hr, S_OK); IFont_Release(font); /* play with cbSizeofstruct value */ fontdesc.cbSizeofstruct = sizeof(fontdesc)-1; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void**)&font); EXPECT_HR(hr, S_OK); IFont_Release(font); fontdesc.cbSizeofstruct = sizeof(fontdesc)+1; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void**)&font); EXPECT_HR(hr, S_OK); IFont_Release(font); fontdesc.cbSizeofstruct = 0; hr = pOleCreateFontIndirect(&fontdesc, &IID_IFont, (void**)&font); EXPECT_HR(hr, S_OK); IFont_Release(font); } START_TEST(olefont) { hOleaut32 = GetModuleHandleA("oleaut32.dll"); pOleCreateFontIndirect = (void*)GetProcAddress(hOleaut32, "OleCreateFontIndirect"); if (!pOleCreateFontIndirect) { win_skip("OleCreateFontIndirect not available\n"); return; } test_QueryInterface(); test_type_info(); test_ifont_sizes(); test_font_events_disp(); test_GetIDsOfNames(); test_Invoke(); test_IsEqual(); test_ReleaseHfont(); test_AddRefHfont(); test_returns(); test_hfont_lifetime(); test_realization(); test_OleCreateFontIndirect(); }