olefont.c File Reference

#include <assert.h>
#include <stdarg.h>
#include <string.h>
#include "winerror.h"
#include "windef.h"
#include "winbase.h"
#include "wingdi.h"
#include "winuser.h"
#include "wine/list.h"
#include "objbase.h"
#include "oleauto.h"
#include "ole2.h"
#include "olectl.h"
#include "wine/debug.h"
#include "connpt.h"
#include "oaidl.h"

Include dependency graph for olefont.c:

Go to the source code of this file.

Classes
struct	_HFONTItem
struct	OLEFontImpl
struct	enum_data
struct	IClassFactoryImpl

Macros
#define	COBJMACROS
#define	FONTPERSIST_ITALIC   0x02
#define	FONTPERSIST_UNDERLINE   0x04
#define	FONTPERSIST_STRIKETHROUGH   0x08

Typedefs
typedef struct _HFONTItem	HFONTItem
typedef struct _HFONTItem *	PHFONTItem
typedef struct OLEFontImpl	OLEFontImpl

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (ole)
static HDC	get_dc (void)
static void	delete_dc (void)
static void	HFONTItem_Delete (PHFONTItem item)
static HFONTItem *	find_hfontitem (HFONT hfont)
static HRESULT	add_hfontitem (HFONT hfont)
static HRESULT	inc_int_ref (HFONT hfont)
static HRESULT	dec_int_ref (HFONT hfont)
static HRESULT	inc_ext_ref (HFONT hfont)
static HRESULT	dec_ext_ref (HFONT hfont)
static OLEFontImpl *	impl_from_IFont (IFont *iface)
static OLEFontImpl *	impl_from_IDispatch (IDispatch *iface)
static OLEFontImpl *	impl_from_IPersistStream (IPersistStream *iface)
static OLEFontImpl *	impl_from_IConnectionPointContainer (IConnectionPointContainer *iface)
static OLEFontImpl *	impl_from_IPersistPropertyBag (IPersistPropertyBag *iface)
static OLEFontImpl *	OLEFontImpl_Construct (const FONTDESC *fontDesc)
static void	OLEFontImpl_Destroy (OLEFontImpl *fontDesc)
static ULONG WINAPI	OLEFontImpl_AddRef (IFont *iface)
HRESULT WINAPI	OleCreateFontIndirect (LPFONTDESC lpFontDesc, REFIID riid, LPVOID *ppvObj)
static void	OLEFont_SendNotify (OLEFontImpl *this, DISPID dispID)
static HRESULT WINAPI	OLEFontImpl_QueryInterface (IFont *iface, REFIID riid, void **ppvObject)
static ULONG WINAPI	OLEFontImpl_Release (IFont *iface)
static int CALLBACK	font_enum_proc (const LOGFONTW *elf, const TEXTMETRICW *ntm, DWORD type, LPARAM lp)
static void	realize_font (OLEFontImpl *This)
static HRESULT WINAPI	OLEFontImpl_get_Name (IFont *iface, BSTR *pname)
static HRESULT WINAPI	OLEFontImpl_put_Name (IFont *iface, BSTR name)
static HRESULT WINAPI	OLEFontImpl_get_Size (IFont *iface, CY *psize)
static HRESULT WINAPI	OLEFontImpl_put_Size (IFont *iface, CY size)
static HRESULT WINAPI	OLEFontImpl_get_Bold (IFont *iface, BOOL *pbold)
static HRESULT WINAPI	OLEFontImpl_put_Bold (IFont *iface, BOOL bold)
static HRESULT WINAPI	OLEFontImpl_get_Italic (IFont *iface, BOOL *pitalic)
static HRESULT WINAPI	OLEFontImpl_put_Italic (IFont *iface, BOOL italic)
static HRESULT WINAPI	OLEFontImpl_get_Underline (IFont *iface, BOOL *punderline)
static HRESULT WINAPI	OLEFontImpl_put_Underline (IFont *iface, BOOL underline)
static HRESULT WINAPI	OLEFontImpl_get_Strikethrough (IFont *iface, BOOL *pstrikethrough)
static HRESULT WINAPI	OLEFontImpl_put_Strikethrough (IFont *iface, BOOL strikethrough)
static HRESULT WINAPI	OLEFontImpl_get_Weight (IFont *iface, short *pweight)
static HRESULT WINAPI	OLEFontImpl_put_Weight (IFont *iface, short weight)
static HRESULT WINAPI	OLEFontImpl_get_Charset (IFont *iface, short *pcharset)
static HRESULT WINAPI	OLEFontImpl_put_Charset (IFont *iface, short charset)
static HRESULT WINAPI	OLEFontImpl_get_hFont (IFont *iface, HFONT *phfont)
static HRESULT WINAPI	OLEFontImpl_Clone (IFont *iface, IFont **ppfont)
static HRESULT WINAPI	OLEFontImpl_IsEqual (IFont *iface, IFont *pFontOther)
static HRESULT WINAPI	OLEFontImpl_SetRatio (IFont *iface, LONG cyLogical, LONG cyHimetric)
static HRESULT WINAPI	OLEFontImpl_QueryTextMetrics (IFont *iface, TEXTMETRICOLE *ptm)
static HRESULT WINAPI	OLEFontImpl_AddRefHfont (IFont *iface, HFONT hfont)
static HRESULT WINAPI	OLEFontImpl_ReleaseHfont (IFont *iface, HFONT hfont)
static HRESULT WINAPI	OLEFontImpl_SetHdc (IFont *iface, HDC hdc)
static HRESULT WINAPI	OLEFontImpl_IDispatch_QueryInterface (IDispatch *iface, REFIID riid, VOID **ppvoid)
static ULONG WINAPI	OLEFontImpl_IDispatch_Release (IDispatch *iface)
static ULONG WINAPI	OLEFontImpl_IDispatch_AddRef (IDispatch *iface)
static HRESULT WINAPI	OLEFontImpl_GetTypeInfoCount (IDispatch *iface, unsigned int *pctinfo)
static HRESULT WINAPI	OLEFontImpl_GetTypeInfo (IDispatch *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
static HRESULT WINAPI	OLEFontImpl_GetIDsOfNames (IDispatch *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
static HRESULT WINAPI	OLEFontImpl_Invoke (IDispatch *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExepInfo, UINT *puArgErr)
static HRESULT WINAPI	OLEFontImpl_IPersistStream_QueryInterface (IPersistStream *iface, REFIID riid, VOID **ppvoid)
static ULONG WINAPI	OLEFontImpl_IPersistStream_Release (IPersistStream *iface)
static ULONG WINAPI	OLEFontImpl_IPersistStream_AddRef (IPersistStream *iface)
static HRESULT WINAPI	OLEFontImpl_GetClassID (IPersistStream *iface, CLSID *pClassID)
static HRESULT WINAPI	OLEFontImpl_IsDirty (IPersistStream *iface)
static HRESULT WINAPI	OLEFontImpl_Load (IPersistStream *iface, IStream *pLoadStream)
static HRESULT WINAPI	OLEFontImpl_Save (IPersistStream *iface, IStream *pOutStream, BOOL fClearDirty)
static HRESULT WINAPI	OLEFontImpl_GetSizeMax (IPersistStream *iface, ULARGE_INTEGER *pcbSize)
static HRESULT WINAPI	OLEFontImpl_IConnectionPointContainer_QueryInterface (IConnectionPointContainer *iface, REFIID riid, VOID **ppvoid)
static ULONG WINAPI	OLEFontImpl_IConnectionPointContainer_Release (IConnectionPointContainer *iface)
static ULONG WINAPI	OLEFontImpl_IConnectionPointContainer_AddRef (IConnectionPointContainer *iface)
static HRESULT WINAPI	OLEFontImpl_EnumConnectionPoints (IConnectionPointContainer *iface, IEnumConnectionPoints **ppEnum)
static HRESULT WINAPI	OLEFontImpl_FindConnectionPoint (IConnectionPointContainer *iface, REFIID riid, IConnectionPoint **ppCp)
static HRESULT WINAPI	OLEFontImpl_IPersistPropertyBag_QueryInterface (IPersistPropertyBag *iface, REFIID riid, LPVOID *ppvObj)
static ULONG WINAPI	OLEFontImpl_IPersistPropertyBag_AddRef (IPersistPropertyBag *iface)
static ULONG WINAPI	OLEFontImpl_IPersistPropertyBag_Release (IPersistPropertyBag *iface)
static HRESULT WINAPI	OLEFontImpl_IPersistPropertyBag_GetClassID (IPersistPropertyBag *iface, CLSID *classid)
static HRESULT WINAPI	OLEFontImpl_IPersistPropertyBag_InitNew (IPersistPropertyBag *iface)
static HRESULT WINAPI	OLEFontImpl_IPersistPropertyBag_Load (IPersistPropertyBag *iface, IPropertyBag *pPropBag, IErrorLog *pErrorLog)
static HRESULT WINAPI	OLEFontImpl_IPersistPropertyBag_Save (IPersistPropertyBag *iface, IPropertyBag *pPropBag, BOOL fClearDirty, BOOL fSaveAllProperties)
static IClassFactoryImpl *	impl_from_IClassFactory (IClassFactory *iface)
static HRESULT WINAPI	SFCF_QueryInterface (IClassFactory *iface, REFIID riid, void **obj)
static ULONG WINAPI	SFCF_AddRef (LPCLASSFACTORY iface)
static ULONG WINAPI	SFCF_Release (LPCLASSFACTORY iface)
static HRESULT WINAPI	SFCF_CreateInstance (LPCLASSFACTORY iface, LPUNKNOWN pOuter, REFIID riid, LPVOID *ppobj)
static HRESULT WINAPI	SFCF_LockServer (LPCLASSFACTORY iface, BOOL dolock)
void	_get_STDFONT_CF (LPVOID *ppv)

Variables
static HDC	olefont_hdc
static struct list	OLEFontImpl_hFontList = LIST_INIT(OLEFontImpl_hFontList)
static LONG	ifont_cnt = 0
static CRITICAL_SECTION	OLEFontImpl_csHFONTLIST = { &OLEFontImpl_csHFONTLIST_debug, -1, 0, 0, 0, 0 }
static CRITICAL_SECTION_DEBUG	OLEFontImpl_csHFONTLIST_debug
static const IFontVtbl	OLEFontImpl_VTable
static const IDispatchVtbl	OLEFontImpl_IDispatch_VTable
static const IPersistStreamVtbl	OLEFontImpl_IPersistStream_VTable
static const IConnectionPointContainerVtbl	OLEFontImpl_IConnectionPointContainer_VTable
static const IPersistPropertyBagVtbl	OLEFontImpl_IPersistPropertyBag_VTable
static const IClassFactoryVtbl	SFCF_Vtbl
static IClassFactoryImpl	STDFONT_CF = {{&SFCF_Vtbl}, 1 }

Macro Definition Documentation

COBJMACROS

#define COBJMACROS

Definition at line 28 of file olefont.c.

FONTPERSIST_ITALIC

#define FONTPERSIST_ITALIC   0x02

Definition at line 48 of file olefont.c.

FONTPERSIST_STRIKETHROUGH

#define FONTPERSIST_STRIKETHROUGH   0x08

Definition at line 50 of file olefont.c.

FONTPERSIST_UNDERLINE

#define FONTPERSIST_UNDERLINE   0x04

Definition at line 49 of file olefont.c.

Typedef Documentation

HFONTItem

typedef struct _HFONTItem HFONTItem

OLEFontImpl

typedef struct OLEFontImpl OLEFontImpl

Definition at line 229 of file olefont.c.

PHFONTItem

typedef struct _HFONTItem * PHFONTItem

Function Documentation

_get_STDFONT_CF()

void _get_STDFONT_CF

(

LPVOID *

ppv

)

Definition at line 2138 of file olefont.c.

{ *ppv = &STDFONT_CF; }

Referenced by DllGetClassObject().

add_hfontitem()

static HRESULT add_hfontitem ( HFONT  hfont )

static

Definition at line 134 of file olefont.c.

{
    HFONTItem *new_item = malloc(sizeof(*new_item));
 
    if(!new_item) return E_OUTOFMEMORY;
 
    new_item->int_refs = 1;
    new_item->total_refs = 1;
    new_item->gdiFont = hfont;
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
    list_add_tail(&OLEFontImpl_hFontList,&new_item->entry);
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
    return S_OK;
}

Referenced by realize_font().

dec_ext_ref()

static HRESULT dec_ext_ref ( HFONT  hfont )

static

Definition at line 209 of file olefont.c.

{
    HFONTItem *item;
    HRESULT hr = S_FALSE;
 
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
 
    item = find_hfontitem(hfont);
    if(item)
    {
        if(--item->total_refs >= 0) hr = S_OK;
    }
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
 
    return hr;
}

Referenced by OLEFontImpl_ReleaseHfont().

dec_int_ref()

static HRESULT dec_int_ref ( HFONT  hfont )

static

Definition at line 170 of file olefont.c.

{
    HFONTItem *item;
    HRESULT hr = S_FALSE;
 
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
    item = find_hfontitem(hfont);
 
    if(item)
    {
        item->int_refs--;
        item->total_refs--;
        if(item->int_refs == 0 && item->total_refs == 0)
            HFONTItem_Delete(item);
        hr = S_OK;
    }
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
 
    return hr;
}

Referenced by OLEFontImpl_Load(), OLEFontImpl_Release(), and realize_font().

delete_dc()

static void delete_dc ( void  )

static

Definition at line 102 of file olefont.c.

{
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
    if(olefont_hdc)
    {
        DeleteDC(olefont_hdc);
        olefont_hdc = NULL;
    }
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
}

Referenced by OLEFontImpl_Release().

find_hfontitem()

static HFONTItem * find_hfontitem ( HFONT  hfont )

static

Definition at line 121 of file olefont.c.

{
    HFONTItem *item;
 
    LIST_FOR_EACH_ENTRY(item, &OLEFontImpl_hFontList, HFONTItem, entry)
    {
        if (item->gdiFont == hfont)
            return item;
    }
    return NULL;
}

Referenced by dec_ext_ref(), dec_int_ref(), inc_ext_ref(), and inc_int_ref().

font_enum_proc()

static int CALLBACK font_enum_proc ( const LOGFONTW *  elf, const TEXTMETRICW *  ntm, DWORD  type, LPARAM  lp  )

static

Definition at line 526 of file olefont.c.

{
    enum_data *data = (enum_data*)lp;
 
    if(elf->lfCharSet == data->orig_cs)
    {
        data->avail_cs = data->orig_cs;
        return 0;
    }
    if(data->avail_cs == -1) data->avail_cs = elf->lfCharSet;
    return 1;
}

Referenced by realize_font().

get_dc()

static HDC get_dc ( void  )

static

Definition at line 91 of file olefont.c.

{
    HDC hdc;
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
    if(!olefont_hdc)
        olefont_hdc = CreateCompatibleDC(NULL);
    hdc = olefont_hdc;
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
    return hdc;
}

Referenced by OLEFontImpl_Construct(), and realize_font().

HFONTItem_Delete()

static void HFONTItem_Delete ( PHFONTItem  item )

static

Definition at line 113 of file olefont.c.

{
  DeleteObject(item->gdiFont);
  list_remove(&item->entry);
  free(item);
}

Referenced by dec_int_ref(), and OLEFontImpl_Release().

impl_from_IClassFactory()

static IClassFactoryImpl * impl_from_IClassFactory ( IClassFactory *  iface )

inlinestatic

Definition at line 2081 of file olefont.c.

{
        return CONTAINING_RECORD(iface, IClassFactoryImpl, IClassFactory_iface);
}

Referenced by SFCF_AddRef(), SFCF_LockServer(), SFCF_QueryInterface(), and SFCF_Release().

impl_from_IConnectionPointContainer()

static OLEFontImpl * impl_from_IConnectionPointContainer ( IConnectionPointContainer *  iface )

inlinestatic

Definition at line 289 of file olefont.c.

{
    return CONTAINING_RECORD(iface, OLEFontImpl, IConnectionPointContainer_iface);
}

Referenced by OLEFontImpl_EnumConnectionPoints(), OLEFontImpl_FindConnectionPoint(), OLEFontImpl_IConnectionPointContainer_AddRef(), OLEFontImpl_IConnectionPointContainer_QueryInterface(), and OLEFontImpl_IConnectionPointContainer_Release().

impl_from_IDispatch()

static OLEFontImpl * impl_from_IDispatch ( IDispatch *  iface )

inlinestatic

Definition at line 279 of file olefont.c.

{
    return CONTAINING_RECORD(iface, OLEFontImpl, IDispatch_iface);
}

Referenced by OLEFontImpl_GetIDsOfNames(), OLEFontImpl_GetTypeInfo(), OLEFontImpl_GetTypeInfoCount(), OLEFontImpl_IDispatch_AddRef(), OLEFontImpl_IDispatch_QueryInterface(), OLEFontImpl_IDispatch_Release(), and OLEFontImpl_Invoke().

impl_from_IFont()

static OLEFontImpl * impl_from_IFont ( IFont *  iface )

inlinestatic

Definition at line 274 of file olefont.c.

{
    return CONTAINING_RECORD(iface, OLEFontImpl, IFont_iface);
}

Referenced by OLEFontImpl_AddRef(), OLEFontImpl_AddRefHfont(), OLEFontImpl_Clone(), OLEFontImpl_get_Bold(), OLEFontImpl_get_Charset(), OLEFontImpl_get_hFont(), OLEFontImpl_get_Italic(), OLEFontImpl_get_Name(), OLEFontImpl_get_Size(), OLEFontImpl_get_Strikethrough(), OLEFontImpl_get_Underline(), OLEFontImpl_get_Weight(), OLEFontImpl_IsEqual(), OLEFontImpl_put_Bold(), OLEFontImpl_put_Charset(), OLEFontImpl_put_Italic(), OLEFontImpl_put_Name(), OLEFontImpl_put_Size(), OLEFontImpl_put_Strikethrough(), OLEFontImpl_put_Underline(), OLEFontImpl_put_Weight(), OLEFontImpl_QueryInterface(), OLEFontImpl_Release(), OLEFontImpl_ReleaseHfont(), OLEFontImpl_SetHdc(), and OLEFontImpl_SetRatio().

impl_from_IPersistPropertyBag()

static OLEFontImpl * impl_from_IPersistPropertyBag ( IPersistPropertyBag *  iface )

inlinestatic

Definition at line 294 of file olefont.c.

{
    return CONTAINING_RECORD(iface, OLEFontImpl, IPersistPropertyBag_iface);
}

Referenced by OLEFontImpl_IPersistPropertyBag_AddRef(), OLEFontImpl_IPersistPropertyBag_Load(), OLEFontImpl_IPersistPropertyBag_QueryInterface(), and OLEFontImpl_IPersistPropertyBag_Release().

impl_from_IPersistStream()

static OLEFontImpl * impl_from_IPersistStream ( IPersistStream *  iface )

inlinestatic

Definition at line 284 of file olefont.c.

{
    return CONTAINING_RECORD(iface, OLEFontImpl, IPersistStream_iface);
}

Referenced by OLEFontImpl_GetSizeMax(), OLEFontImpl_IPersistStream_AddRef(), OLEFontImpl_IPersistStream_QueryInterface(), OLEFontImpl_IPersistStream_Release(), OLEFontImpl_Load(), and OLEFontImpl_Save().

inc_ext_ref()

static HRESULT inc_ext_ref ( HFONT  hfont )

static

Definition at line 191 of file olefont.c.

{
    HFONTItem *item;
    HRESULT hr = S_FALSE;
 
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
 
    item = find_hfontitem(hfont);
    if(item)
    {
        item->total_refs++;
        hr = S_OK;
    }
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
 
    return hr;
}

Referenced by OLEFontImpl_AddRefHfont().

inc_int_ref()

static HRESULT inc_int_ref ( HFONT  hfont )

static

Definition at line 149 of file olefont.c.

{
    HFONTItem *item;
    HRESULT hr = S_FALSE;
 
    EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
    item = find_hfontitem(hfont);
 
    if(item)
    {
        item->int_refs++;
        item->total_refs++;
        hr = S_OK;
    }
    LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
 
    return hr;
}

Referenced by OLEFontImpl_Clone().

OleCreateFontIndirect()

HRESULT WINAPI OleCreateFontIndirect	(	LPFONTDESC	lpFontDesc,
		REFIID	riid,
		LPVOID *	ppvObj
	)

Definition at line 311 of file olefont.c.

{
  OLEFontImpl* newFont;
  HRESULT      hr;
  FONTDESC     fd;
 
  TRACE("(%p, %s, %p)\n", lpFontDesc, debugstr_guid(riid), ppvObj);
 
  if (!ppvObj) return E_POINTER;
 
  *ppvObj = 0;
 
  if (!lpFontDesc) {
    static WCHAR fname[] = L"System";
 
    fd.cbSizeofstruct = sizeof(fd);
    fd.lpstrName      = fname;
    fd.cySize.Lo      = 80000;
    fd.cySize.Hi      = 0;
    fd.sWeight        = 0;
    fd.sCharset       = 0;
    fd.fItalic        = FALSE;
    fd.fUnderline     = FALSE;
    fd.fStrikethrough = FALSE;
    lpFontDesc = &fd;
  }
  else if (!lpFontDesc->lpstrName)
    return CTL_E_INVALIDPROPERTYVALUE;
 
  newFont = OLEFontImpl_Construct(lpFontDesc);
  if (!newFont) return E_OUTOFMEMORY;
 
  hr = IFont_QueryInterface(&newFont->IFont_iface, riid, ppvObj);
  IFont_Release(&newFont->IFont_iface);
 
  return hr;
}

Referenced by SFCF_CreateInstance().

OLEFont_SendNotify()

static void OLEFont_SendNotify ( OLEFontImpl *  this, DISPID  dispID  )

static

Definition at line 363 of file olefont.c.

{
  static const LPCWSTR dispid_mapping[] =
  {
      L"Name",
      NULL,
      L"Size",
      L"Bold",
      L"Italic",
      L"Underline",
      L"Strikethrough",
      L"Weight",
      L"Charset"
  };
 
  IEnumConnections *pEnum;
  CONNECTDATA CD;
  HRESULT hres;
 
  this->dirty = TRUE;
 
  hres = IConnectionPoint_EnumConnections(this->pPropertyNotifyCP, &pEnum);
  if (SUCCEEDED(hres))
  {
    while(IEnumConnections_Next(pEnum, 1, &CD, NULL) == S_OK) {
      IPropertyNotifySink *sink;
 
      IUnknown_QueryInterface(CD.pUnk, &IID_IPropertyNotifySink, (void**)&sink);
      IPropertyNotifySink_OnChanged(sink, dispID);
      IPropertyNotifySink_Release(sink);
      IUnknown_Release(CD.pUnk);
    }
    IEnumConnections_Release(pEnum);
  }
 
  hres = IConnectionPoint_EnumConnections(this->pFontEventsCP, &pEnum);
  if (SUCCEEDED(hres))
  {
    DISPPARAMS dispparams;
    VARIANTARG vararg;
 
    VariantInit(&vararg);
    V_VT(&vararg) = VT_BSTR;
    V_BSTR(&vararg) = SysAllocString(dispid_mapping[dispID]);
 
    dispparams.cArgs = 1;
    dispparams.cNamedArgs = 0;
    dispparams.rgdispidNamedArgs = NULL;
    dispparams.rgvarg = &vararg;
 
    while(IEnumConnections_Next(pEnum, 1, &CD, NULL) == S_OK) {
        IFontEventsDisp *disp;
 
        IUnknown_QueryInterface(CD.pUnk, &IID_IFontEventsDisp, (void**)&disp);
        IFontEventsDisp_Invoke(disp, DISPID_FONT_CHANGED, &IID_NULL,
                               LOCALE_NEUTRAL, INVOKE_FUNC, &dispparams, NULL,
                               NULL, NULL);
 
        IFontEventsDisp_Release(disp);
        IUnknown_Release(CD.pUnk);
    }
    VariantClear(&vararg);
    IEnumConnections_Release(pEnum);
  }
}

Referenced by OLEFontImpl_put_Bold(), OLEFontImpl_put_Charset(), OLEFontImpl_put_Italic(), OLEFontImpl_put_Name(), OLEFontImpl_put_Size(), OLEFontImpl_put_Strikethrough(), OLEFontImpl_put_Underline(), and OLEFontImpl_put_Weight().

OLEFontImpl_AddRef()

static ULONG WINAPI OLEFontImpl_AddRef ( IFont *  iface )

static

Definition at line 480 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  ULONG ref = InterlockedIncrement(&this->ref);
  TRACE("%p, refcount %lu.\n", iface, ref);
  return ref;
}

OLEFontImpl_AddRefHfont()

static HRESULT WINAPI OLEFontImpl_AddRefHfont ( IFont *  iface, HFONT  hfont  )

static

Definition at line 1069 of file olefont.c.

{
    OLEFontImpl *this = impl_from_IFont(iface);
 
    TRACE("(%p)->(%p)\n", this, hfont);
 
    if (!hfont) return E_INVALIDARG;
 
    return inc_ext_ref(hfont);
}

OLEFontImpl_Clone()

static HRESULT WINAPI OLEFontImpl_Clone ( IFont *  iface, IFont **  ppfont  )

static

Definition at line 932 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  OLEFontImpl* newObject;
 
  TRACE("(%p)->(%p)\n", this, ppfont);
 
  if (ppfont == NULL)
    return E_POINTER;
 
  *ppfont = NULL;
 
  newObject = malloc(sizeof(OLEFontImpl));
  if (newObject==NULL)
    return E_OUTOFMEMORY;
 
  *newObject = *this;
  /* allocate separate buffer */
  newObject->description.lpstrName = wcsdup(this->description.lpstrName);
 
  /* Increment internal ref in hfont item list */
  if(newObject->gdiFont) inc_int_ref(newObject->gdiFont);
 
  InterlockedIncrement(&ifont_cnt);
 
  newObject->pPropertyNotifyCP = NULL;
  newObject->pFontEventsCP = NULL;
  CreateConnectionPoint((IUnknown*)&newObject->IFont_iface, &IID_IPropertyNotifySink,
                         &newObject->pPropertyNotifyCP);
  CreateConnectionPoint((IUnknown*)&newObject->IFont_iface, &IID_IFontEventsDisp,
                         &newObject->pFontEventsCP);
 
  if (!newObject->pPropertyNotifyCP || !newObject->pFontEventsCP)
  {
    OLEFontImpl_Destroy(newObject);
    return E_OUTOFMEMORY;
  }
 
  /* The cloned object starts with a reference count of 1 */
  newObject->ref = 1;
 
  *ppfont = &newObject->IFont_iface;
 
  return S_OK;
}

OLEFontImpl_Construct()

static OLEFontImpl * OLEFontImpl_Construct ( const FONTDESC *  fontDesc )

static

Definition at line 2002 of file olefont.c.

{
  OLEFontImpl* newObject;
 
  newObject = malloc(sizeof(OLEFontImpl));
 
  if (newObject==0)
    return newObject;
 
  newObject->IFont_iface.lpVtbl = &OLEFontImpl_VTable;
  newObject->IDispatch_iface.lpVtbl = &OLEFontImpl_IDispatch_VTable;
  newObject->IPersistStream_iface.lpVtbl = &OLEFontImpl_IPersistStream_VTable;
  newObject->IConnectionPointContainer_iface.lpVtbl = &OLEFontImpl_IConnectionPointContainer_VTable;
  newObject->IPersistPropertyBag_iface.lpVtbl = &OLEFontImpl_IPersistPropertyBag_VTable;
 
  newObject->ref = 1;
 
  newObject->description.cbSizeofstruct = sizeof(FONTDESC);
  newObject->description.lpstrName      = wcsdup(fontDesc->lpstrName);
  newObject->description.cySize         = fontDesc->cySize;
  newObject->description.sWeight        = fontDesc->sWeight;
  newObject->description.sCharset       = fontDesc->sCharset;
  newObject->description.fItalic        = fontDesc->fItalic;
  newObject->description.fUnderline     = fontDesc->fUnderline;
  newObject->description.fStrikethrough = fontDesc->fStrikethrough;
 
  newObject->gdiFont  = 0;
  newObject->dirty = TRUE;
  newObject->cyLogical  = GetDeviceCaps(get_dc(), LOGPIXELSY);
  newObject->cyHimetric = 2540L;
  newObject->pPropertyNotifyCP = NULL;
  newObject->pFontEventsCP = NULL;
 
  CreateConnectionPoint((IUnknown*)&newObject->IFont_iface, &IID_IPropertyNotifySink, &newObject->pPropertyNotifyCP);
  CreateConnectionPoint((IUnknown*)&newObject->IFont_iface, &IID_IFontEventsDisp, &newObject->pFontEventsCP);
 
  if (!newObject->pPropertyNotifyCP || !newObject->pFontEventsCP)
  {
    OLEFontImpl_Destroy(newObject);
    return NULL;
  }
 
  InterlockedIncrement(&ifont_cnt);
 
  TRACE("returning %p\n", newObject);
  return newObject;
}

Referenced by OleCreateFontIndirect().

OLEFontImpl_Destroy()

static void OLEFontImpl_Destroy ( OLEFontImpl *  fontDesc )

static

Definition at line 2057 of file olefont.c.

{
  TRACE("(%p)\n", fontDesc);
 
  free(fontDesc->description.lpstrName);
 
  if (fontDesc->pPropertyNotifyCP)
      IConnectionPoint_Release(fontDesc->pPropertyNotifyCP);
  if (fontDesc->pFontEventsCP)
      IConnectionPoint_Release(fontDesc->pFontEventsCP);
 
  free(fontDesc);
}

Referenced by OLEFontImpl_Clone(), OLEFontImpl_Construct(), and OLEFontImpl_Release().

OLEFontImpl_EnumConnectionPoints()

static HRESULT WINAPI OLEFontImpl_EnumConnectionPoints ( IConnectionPointContainer *  iface, IEnumConnectionPoints **  ppEnum  )

static

Definition at line 1773 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IConnectionPointContainer(iface);
 
  FIXME("(%p)->(%p): stub\n", this, ppEnum);
  return E_NOTIMPL;
}

OLEFontImpl_FindConnectionPoint()

static HRESULT WINAPI OLEFontImpl_FindConnectionPoint ( IConnectionPointContainer *  iface, REFIID  riid, IConnectionPoint **  ppCp  )

static

Definition at line 1786 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IConnectionPointContainer(iface);
  TRACE("(%p)->(%s, %p)\n", this, debugstr_guid(riid), ppCp);
 
  if(IsEqualIID(riid, &IID_IPropertyNotifySink)) {
    return IConnectionPoint_QueryInterface(this->pPropertyNotifyCP, &IID_IConnectionPoint,
                                           (void**)ppCp);
  } else if(IsEqualIID(riid, &IID_IFontEventsDisp)) {
    return IConnectionPoint_QueryInterface(this->pFontEventsCP, &IID_IConnectionPoint,
                                           (void**)ppCp);
  } else {
    FIXME("no connection point for %s\n", debugstr_guid(riid));
    return CONNECT_E_NOCONNECTION;
  }
}

OLEFontImpl_get_Bold()

static HRESULT WINAPI OLEFontImpl_get_Bold ( IFont *  iface, BOOL *  pbold  )

static

Definition at line 701 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, pbold);
 
  if (!pbold) return E_POINTER;
 
  realize_font(this);
 
  *pbold = this->description.sWeight > 550;
 
  return S_OK;
}

OLEFontImpl_get_Charset()

static HRESULT WINAPI OLEFontImpl_get_Charset ( IFont *  iface, short *  pcharset  )

static

Definition at line 877 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, pcharset);
 
  if (pcharset==0)
    return E_POINTER;
 
  realize_font(this);
 
  *pcharset = this->description.sCharset;
 
  return S_OK;
}

Referenced by OLEFontImpl_Invoke().

OLEFontImpl_get_hFont()

static HRESULT WINAPI OLEFontImpl_get_hFont ( IFont *  iface, HFONT *  phfont  )

static

Definition at line 913 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, phfont);
  if (phfont==NULL)
    return E_POINTER;
 
  realize_font(this);
 
  *phfont = this->gdiFont;
  TRACE("Returning %p\n", *phfont);
  return S_OK;
}

OLEFontImpl_get_Italic()

static HRESULT WINAPI OLEFontImpl_get_Italic ( IFont *  iface, BOOL *  pitalic  )

static

Definition at line 733 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, pitalic);
 
  if (pitalic==0)
    return E_POINTER;
 
  realize_font(this);
 
  *pitalic = this->description.fItalic;
 
  return S_OK;
}

OLEFontImpl_get_Name()

static HRESULT WINAPI OLEFontImpl_get_Name ( IFont *  iface, BSTR *  pname  )

static

Definition at line 627 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, pname);
 
  if (pname==0)
    return E_POINTER;
 
  realize_font(this);
 
  *pname = SysAllocString(this->description.lpstrName);
 
  return S_OK;
}

OLEFontImpl_get_Size()

static HRESULT WINAPI OLEFontImpl_get_Size ( IFont *  iface, CY *  psize  )

static

Definition at line 669 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, psize);
 
  if (!psize) return E_POINTER;
 
  realize_font(this);
 
  /*
   * Convert realized font height in pixels to points descaled by current
   * scaling ratio then scaled up by 10000.
   */
  psize->Lo = MulDiv(this->nRealHeight, this->cyHimetric * 72 * 10000, this->cyLogical * 2540);
  psize->Hi = 0;
 
  return S_OK;
}

OLEFontImpl_get_Strikethrough()

static HRESULT WINAPI OLEFontImpl_get_Strikethrough ( IFont *  iface, BOOL *  pstrikethrough  )

static

Definition at line 805 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, pstrikethrough);
 
  if (pstrikethrough==0)
    return E_POINTER;
 
  realize_font(this);
 
  *pstrikethrough = this->description.fStrikethrough;
 
  return S_OK;
}

OLEFontImpl_get_Underline()

static HRESULT WINAPI OLEFontImpl_get_Underline ( IFont *  iface, BOOL *  punderline  )

static

Definition at line 769 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, punderline);
 
  if (punderline==0)
    return E_POINTER;
 
  realize_font(this);
 
  *punderline = this->description.fUnderline;
 
  return S_OK;
}

OLEFontImpl_get_Weight()

static HRESULT WINAPI OLEFontImpl_get_Weight ( IFont *  iface, short *  pweight  )

static

Definition at line 841 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", this, pweight);
 
  if (pweight==0)
    return E_POINTER;
 
  realize_font(this);
 
  *pweight = this->description.sWeight;
 
  return S_OK;
}

OLEFontImpl_GetClassID()

static HRESULT WINAPI OLEFontImpl_GetClassID ( IPersistStream *  iface, CLSID *  pClassID  )

static

Definition at line 1520 of file olefont.c.

{
  TRACE("(%p,%p)\n",iface,pClassID);
  if (pClassID==0)
    return E_POINTER;
 
  *pClassID = CLSID_StdFont;
 
  return S_OK;
}

OLEFontImpl_GetIDsOfNames()

static HRESULT WINAPI OLEFontImpl_GetIDsOfNames ( IDispatch *  iface, REFIID  riid, LPOLESTR *  rgszNames, UINT  cNames, LCID  lcid, DISPID *  rgDispId  )

static

Definition at line 1219 of file olefont.c.

{
  ITypeInfo * pTInfo;
  HRESULT hres;
 
  OLEFontImpl *this = impl_from_IDispatch(iface);
 
  TRACE("(%p,%s,%p,cNames=%d,lcid=%04x,%p)\n", this, debugstr_guid(riid),
        rgszNames, cNames, (int)lcid, rgDispId);
 
  if (cNames == 0) return E_INVALIDARG;
 
  hres = IDispatch_GetTypeInfo(iface, 0, lcid, &pTInfo);
  if (FAILED(hres))
  {
    ERR("GetTypeInfo failed.\n");
    return hres;
  }
 
  /* convert names to DISPIDs */
  hres = DispGetIDsOfNames (pTInfo, rgszNames, cNames, rgDispId);
  ITypeInfo_Release(pTInfo);
 
  return hres;
}

OLEFontImpl_GetSizeMax()

static HRESULT WINAPI OLEFontImpl_GetSizeMax ( IPersistStream *  iface, ULARGE_INTEGER *  pcbSize  )

static

Definition at line 1697 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IPersistStream(iface);
 
  if (pcbSize==NULL)
    return E_POINTER;
 
  pcbSize->u.HighPart = 0;
  pcbSize->u.LowPart = 0;
 
  pcbSize->u.LowPart += sizeof(BYTE);  /* Version */
  pcbSize->u.LowPart += sizeof(WORD);  /* Lang code */
  pcbSize->u.LowPart += sizeof(BYTE);  /* Flags */
  pcbSize->u.LowPart += sizeof(WORD);  /* Weight */
  pcbSize->u.LowPart += sizeof(DWORD); /* Size */
  pcbSize->u.LowPart += sizeof(BYTE);  /* StrLength */
 
  pcbSize->u.LowPart += WideCharToMultiByte( CP_ACP, 0, this->description.lpstrName,
                                             lstrlenW(this->description.lpstrName),
                                             NULL, 0, NULL, NULL );
 
  return S_OK;
}

OLEFontImpl_GetTypeInfo()

static HRESULT WINAPI OLEFontImpl_GetTypeInfo ( IDispatch *  iface, UINT  iTInfo, LCID  lcid, ITypeInfo **  ppTInfo  )

static

Definition at line 1190 of file olefont.c.

{
  ITypeLib *tl;
  HRESULT hres;
 
  OLEFontImpl *this = impl_from_IDispatch(iface);
  TRACE("(%p, iTInfo=%d, lcid=%04x, %p)\n", this, iTInfo, (int)lcid, ppTInfo);
  if (iTInfo != 0)
    return E_FAIL;
  hres = LoadTypeLib(L"stdole2.tlb", &tl);
  if (FAILED(hres)) {
    ERR("Could not load the stdole2.tlb?\n");
    return hres;
  }
  hres = ITypeLib_GetTypeInfoOfGuid(tl, &IID_IFontDisp, ppTInfo);
  ITypeLib_Release(tl);
  if (FAILED(hres))
    FIXME("Did not IDispatch typeinfo from typelib, hres %#lx.\n", hres);
 
  return hres;
}

OLEFontImpl_GetTypeInfoCount()

static HRESULT WINAPI OLEFontImpl_GetTypeInfoCount ( IDispatch *  iface, unsigned int *  pctinfo  )

static

Definition at line 1176 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IDispatch(iface);
  TRACE("(%p)->(%p)\n", this, pctinfo);
  *pctinfo = 1;
 
  return S_OK;
}

OLEFontImpl_IConnectionPointContainer_AddRef()

static ULONG WINAPI OLEFontImpl_IConnectionPointContainer_AddRef ( IConnectionPointContainer *  iface )

static

Definition at line 1762 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IConnectionPointContainer(iface);
 
  return IFont_AddRef(&this->IFont_iface);
}

OLEFontImpl_IConnectionPointContainer_QueryInterface()

static HRESULT WINAPI OLEFontImpl_IConnectionPointContainer_QueryInterface ( IConnectionPointContainer *  iface, REFIID  riid, VOID **  ppvoid  )

static

Definition at line 1738 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IConnectionPointContainer(iface);
 
  return IFont_QueryInterface(&this->IFont_iface, riid, ppvoid);
}

OLEFontImpl_IConnectionPointContainer_Release()

static ULONG WINAPI OLEFontImpl_IConnectionPointContainer_Release ( IConnectionPointContainer *  iface )

static

Definition at line 1751 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IConnectionPointContainer(iface);
 
  return IFont_Release(&this->IFont_iface);
}

OLEFontImpl_IDispatch_AddRef()

static ULONG WINAPI OLEFontImpl_IDispatch_AddRef ( IDispatch *  iface )

static

Definition at line 1166 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IDispatch(iface);
  return IFont_AddRef(&this->IFont_iface);
}

OLEFontImpl_IDispatch_QueryInterface()

static HRESULT WINAPI OLEFontImpl_IDispatch_QueryInterface ( IDispatch *  iface, REFIID  riid, VOID **  ppvoid  )

static

Definition at line 1144 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IDispatch(iface);
  return IFont_QueryInterface(&this->IFont_iface, riid, ppvoid);
}

OLEFontImpl_IDispatch_Release()

static ULONG WINAPI OLEFontImpl_IDispatch_Release ( IDispatch *  iface )

static

Definition at line 1156 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IDispatch(iface);
  return IFont_Release(&this->IFont_iface);
}

OLEFontImpl_Invoke()

static HRESULT WINAPI OLEFontImpl_Invoke ( IDispatch *  iface, DISPID  dispIdMember, REFIID  riid, LCID  lcid, WORD  wFlags, DISPPARAMS *  pDispParams, VARIANT *  pVarResult, EXCEPINFO *  pExepInfo, UINT *  puArgErr  )

static

Definition at line 1255 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IDispatch(iface);
  HRESULT hr;
 
  TRACE("%p, %ld, %s, %#lx, %#x, %p, %p, %p, %p.\n", iface, dispIdMember,
    debugstr_guid(riid), lcid, wFlags, pDispParams, pVarResult, pExepInfo,
    puArgErr);
 
  /* validate parameters */
 
  if (!IsEqualIID(riid, &IID_NULL))
  {
    ERR("riid was %s instead of IID_NULL\n", debugstr_guid(riid));
    return DISP_E_UNKNOWNINTERFACE;
  }
 
  if (wFlags & DISPATCH_PROPERTYGET)
  {
    if (!pVarResult)
    {
      ERR("null pVarResult not allowed when DISPATCH_PROPERTYGET specified\n");
      return DISP_E_PARAMNOTOPTIONAL;
    }
  }
  else if (wFlags & DISPATCH_PROPERTYPUT)
  {
    if (!pDispParams)
    {
      ERR("null pDispParams not allowed when DISPATCH_PROPERTYPUT specified\n");
      return DISP_E_PARAMNOTOPTIONAL;
    }
    if (pDispParams->cArgs != 1)
    {
      ERR("param count for DISPATCH_PROPERTYPUT was %d instead of 1\n", pDispParams->cArgs);
      return DISP_E_BADPARAMCOUNT;
    }
  }
  else
  {
    ERR("one of DISPATCH_PROPERTYGET or DISPATCH_PROPERTYPUT must be specified\n");
    return DISP_E_MEMBERNOTFOUND;
  }
 
  switch (dispIdMember) {
  case DISPID_FONT_NAME:
    if (wFlags & DISPATCH_PROPERTYGET) {
      V_VT(pVarResult) = VT_BSTR;
      return IFont_get_Name(&this->IFont_iface, &V_BSTR(pVarResult));
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_BSTR);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Name(&this->IFont_iface, V_BSTR(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_BOLD:
    if (wFlags & DISPATCH_PROPERTYGET) {
      BOOL value;
      hr = IFont_get_Bold(&this->IFont_iface, &value);
      V_VT(pVarResult) = VT_BOOL;
      V_BOOL(pVarResult) = value ? VARIANT_TRUE : VARIANT_FALSE;
      return hr;
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_BOOL);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Bold(&this->IFont_iface, V_BOOL(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_ITALIC:
    if (wFlags & DISPATCH_PROPERTYGET) {
      BOOL value;
      hr = IFont_get_Italic(&this->IFont_iface, &value);
      V_VT(pVarResult) = VT_BOOL;
      V_BOOL(pVarResult) = value ? VARIANT_TRUE : VARIANT_FALSE;
      return hr;
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_BOOL);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Italic(&this->IFont_iface, V_BOOL(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_UNDER:
    if (wFlags & DISPATCH_PROPERTYGET) {
      BOOL value;
      hr = IFont_get_Underline(&this->IFont_iface, &value);
      V_VT(pVarResult) = VT_BOOL;
      V_BOOL(pVarResult) = value ? VARIANT_TRUE : VARIANT_FALSE;
      return hr;
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_BOOL);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Underline(&this->IFont_iface, V_BOOL(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_STRIKE:
    if (wFlags & DISPATCH_PROPERTYGET) {
      BOOL value;
      hr = IFont_get_Strikethrough(&this->IFont_iface, &value);
      V_VT(pVarResult) = VT_BOOL;
      V_BOOL(pVarResult) = value ? VARIANT_TRUE : VARIANT_FALSE;
      return hr;
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_BOOL);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Strikethrough(&this->IFont_iface, V_BOOL(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_SIZE:
    if (wFlags & DISPATCH_PROPERTYGET) {
      V_VT(pVarResult) = VT_CY;
      return IFont_get_Size(&this->IFont_iface, &V_CY(pVarResult));
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_CY);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Size(&this->IFont_iface, V_CY(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_WEIGHT:
    if (wFlags & DISPATCH_PROPERTYGET) {
      V_VT(pVarResult) = VT_I2;
      return IFont_get_Weight(&this->IFont_iface, &V_I2(pVarResult));
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_I2);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Weight(&this->IFont_iface, V_I2(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  case DISPID_FONT_CHARSET:
    if (wFlags & DISPATCH_PROPERTYGET) {
      V_VT(pVarResult) = VT_I2;
      return OLEFontImpl_get_Charset(&this->IFont_iface, &V_I2(pVarResult));
    } else {
      VARIANTARG vararg;
 
      VariantInit(&vararg);
      hr = VariantChangeTypeEx(&vararg, &pDispParams->rgvarg[0], lcid, 0, VT_I2);
      if (FAILED(hr))
        return hr;
 
      hr = IFont_put_Charset(&this->IFont_iface, V_I2(&vararg));
 
      VariantClear(&vararg);
      return hr;
    }
    break;
  default:
    ERR("member not found for dispid %#lx.\n", dispIdMember);
    return DISP_E_MEMBERNOTFOUND;
  }
}

OLEFontImpl_IPersistPropertyBag_AddRef()

static ULONG WINAPI OLEFontImpl_IPersistPropertyBag_AddRef ( IPersistPropertyBag *  iface )

static

Definition at line 1826 of file olefont.c.

  {
  OLEFontImpl *this = impl_from_IPersistPropertyBag(iface);
  return IFont_AddRef(&this->IFont_iface);
}

OLEFontImpl_IPersistPropertyBag_GetClassID()

static HRESULT WINAPI OLEFontImpl_IPersistPropertyBag_GetClassID ( IPersistPropertyBag *  iface, CLSID *  classid  )

static

Definition at line 1840 of file olefont.c.

  {
  FIXME("(%p,%p), stub!\n", iface, classid);
  return E_FAIL;
}

OLEFontImpl_IPersistPropertyBag_InitNew()

static HRESULT WINAPI OLEFontImpl_IPersistPropertyBag_InitNew ( IPersistPropertyBag *  iface )

static

Definition at line 1847 of file olefont.c.

  {
  FIXME("(%p), stub!\n", iface);
  return S_OK;
}

OLEFontImpl_IPersistPropertyBag_Load()

static HRESULT WINAPI OLEFontImpl_IPersistPropertyBag_Load ( IPersistPropertyBag *  iface, IPropertyBag *  pPropBag, IErrorLog *  pErrorLog  )

static

Definition at line 1854 of file olefont.c.

  {
/* (from Visual Basic 6 property bag)
         Name            =   "MS Sans Serif"
         Size            =   13.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
*/
    OLEFontImpl *this = impl_from_IPersistPropertyBag(iface);
    VARIANT value;
    HRESULT iRes;
 
    VariantInit(&value);
 
    iRes = IPropertyBag_Read(pPropBag, L"Name", &value, pErrorLog);
    if (iRes == S_OK)
    {
        iRes = VariantChangeType(&value, &value, 0, VT_BSTR);
        if (iRes == S_OK)
            iRes = IFont_put_Name(&this->IFont_iface, V_BSTR(&value));
    }
    else if (iRes == E_INVALIDARG)
        iRes = S_OK;
 
    VariantClear(&value);
 
    if (iRes == S_OK) {
        iRes = IPropertyBag_Read(pPropBag, L"Size", &value, pErrorLog);
        if (iRes == S_OK)
        {
            iRes = VariantChangeType(&value, &value, 0, VT_CY);
            if (iRes == S_OK)
                iRes = IFont_put_Size(&this->IFont_iface, V_CY(&value));
        }
        else if (iRes == E_INVALIDARG)
            iRes = S_OK;
 
        VariantClear(&value);
    }
 
    if (iRes == S_OK) {
        iRes = IPropertyBag_Read(pPropBag, L"Charset", &value, pErrorLog);
        if (iRes == S_OK)
        {
            iRes = VariantChangeType(&value, &value, 0, VT_I2);
            if (iRes == S_OK)
                iRes = IFont_put_Charset(&this->IFont_iface, V_I2(&value));
        }
        else if (iRes == E_INVALIDARG)
            iRes = S_OK;
 
        VariantClear(&value);
    }
 
    if (iRes == S_OK) {
        iRes = IPropertyBag_Read(pPropBag, L"Weight", &value, pErrorLog);
        if (iRes == S_OK)
        {
            iRes = VariantChangeType(&value, &value, 0, VT_I2);
            if (iRes == S_OK)
                iRes = IFont_put_Weight(&this->IFont_iface, V_I2(&value));
        }
        else if (iRes == E_INVALIDARG)
            iRes = S_OK;
 
        VariantClear(&value);
    }
 
    if (iRes == S_OK) {
        iRes = IPropertyBag_Read(pPropBag, L"Underline", &value, pErrorLog);
        if (iRes == S_OK)
        {
            iRes = VariantChangeType(&value, &value, 0, VT_BOOL);
            if (iRes == S_OK)
                iRes = IFont_put_Underline(&this->IFont_iface, V_BOOL(&value));
        }
        else if (iRes == E_INVALIDARG)
            iRes = S_OK;
 
        VariantClear(&value);
    }
 
    if (iRes == S_OK) {
        iRes = IPropertyBag_Read(pPropBag, L"Italic", &value, pErrorLog);
        if (iRes == S_OK)
        {
            iRes = VariantChangeType(&value, &value, 0, VT_BOOL);
            if (iRes == S_OK)
                iRes = IFont_put_Italic(&this->IFont_iface, V_BOOL(&value));
        }
        else if (iRes == E_INVALIDARG)
            iRes = S_OK;
 
        VariantClear(&value);
    }
 
    if (iRes == S_OK) {
        iRes = IPropertyBag_Read(pPropBag, L"Strikethrough", &value, pErrorLog);
        if (iRes == S_OK)
        {
            iRes = VariantChangeType(&value, &value, 0, VT_BOOL);
            if (iRes == S_OK)
                IFont_put_Strikethrough(&this->IFont_iface, V_BOOL(&value));
        }
        else if (iRes == E_INVALIDARG)
            iRes = S_OK;
 
        VariantClear(&value);
    }
 
    if (FAILED(iRes))
        WARN("-- %#lx.\n", iRes);
    return iRes;
}

OLEFontImpl_IPersistPropertyBag_QueryInterface()

static HRESULT WINAPI OLEFontImpl_IPersistPropertyBag_QueryInterface ( IPersistPropertyBag *  iface, REFIID  riid, LPVOID *  ppvObj  )

static

Definition at line 1819 of file olefont.c.

  {
  OLEFontImpl *this = impl_from_IPersistPropertyBag(iface);
  return IFont_QueryInterface(&this->IFont_iface,riid,ppvObj);
}

OLEFontImpl_IPersistPropertyBag_Release()

static ULONG WINAPI OLEFontImpl_IPersistPropertyBag_Release ( IPersistPropertyBag *  iface )

static

Definition at line 1833 of file olefont.c.

  {
  OLEFontImpl *this = impl_from_IPersistPropertyBag(iface);
  return IFont_Release(&this->IFont_iface);
}

OLEFontImpl_IPersistPropertyBag_Save()

static HRESULT WINAPI OLEFontImpl_IPersistPropertyBag_Save ( IPersistPropertyBag *  iface, IPropertyBag *  pPropBag, BOOL  fClearDirty, BOOL  fSaveAllProperties  )

static

Definition at line 1973 of file olefont.c.

  {
  FIXME("(%p,%p,%d,%d), stub!\n", iface, pPropBag, fClearDirty, fSaveAllProperties);
  return E_FAIL;
}

OLEFontImpl_IPersistStream_AddRef()

static ULONG WINAPI OLEFontImpl_IPersistStream_AddRef ( IPersistStream *  iface )

static

Definition at line 1509 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IPersistStream(iface);
 
  return IFont_AddRef(&this->IFont_iface);
}

OLEFontImpl_IPersistStream_QueryInterface()

static HRESULT WINAPI OLEFontImpl_IPersistStream_QueryInterface ( IPersistStream *  iface, REFIID  riid, VOID **  ppvoid  )

static

Definition at line 1485 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IPersistStream(iface);
 
  return IFont_QueryInterface(&this->IFont_iface, riid, ppvoid);
}

OLEFontImpl_IPersistStream_Release()

static ULONG WINAPI OLEFontImpl_IPersistStream_Release ( IPersistStream *  iface )

static

Definition at line 1498 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IPersistStream(iface);
 
  return IFont_Release(&this->IFont_iface);
}

OLEFontImpl_IsDirty()

static HRESULT WINAPI OLEFontImpl_IsDirty ( IPersistStream *  iface )

static

Definition at line 1538 of file olefont.c.

{
  TRACE("(%p)\n",iface);
  return S_OK;
}

OLEFontImpl_IsEqual()

static HRESULT WINAPI OLEFontImpl_IsEqual ( IFont *  iface, IFont *  pFontOther  )

static

Definition at line 983 of file olefont.c.

{
  OLEFontImpl *left = impl_from_IFont(iface);
  OLEFontImpl *right = impl_from_IFont(pFontOther);
  INT ret;
  INT left_len,right_len;
 
  if(pFontOther == NULL)
    return E_POINTER;
  else if (left->description.cySize.Lo != right->description.cySize.Lo)
    return S_FALSE;
  else if (left->description.cySize.Hi != right->description.cySize.Hi)
    return S_FALSE;
  else if (left->description.sWeight != right->description.sWeight)
    return S_FALSE;
  else if (left->description.sCharset != right->description.sCharset)
    return S_FALSE;
  else if (left->description.fItalic != right->description.fItalic)
    return S_FALSE;
  else if (left->description.fUnderline != right->description.fUnderline)
    return S_FALSE;
  else if (left->description.fStrikethrough != right->description.fStrikethrough)
    return S_FALSE;
 
  /* Check from string */
  left_len = lstrlenW(left->description.lpstrName);
  right_len = lstrlenW(right->description.lpstrName);
  ret = CompareStringW(0,0,left->description.lpstrName, left_len,
    right->description.lpstrName, right_len);
  if (ret != CSTR_EQUAL)
    return S_FALSE;
 
  return S_OK;
}

OLEFontImpl_Load()

static HRESULT WINAPI OLEFontImpl_Load ( IPersistStream *  iface, IStream *  pLoadStream  )

static

Definition at line 1566 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IPersistStream(iface);
  BYTE  version, attributes, string_size;
  char readBuffer[0x100];
  ULONG cbRead;
  INT len;
 
  /* Version */
  IStream_Read(pLoadStream, &version, sizeof(BYTE), &cbRead);
  if ((cbRead != sizeof(BYTE)) || (version != 0x01)) return E_FAIL;
 
  /* Charset */
  IStream_Read(pLoadStream, &this->description.sCharset, sizeof(WORD), &cbRead);
  if (cbRead != sizeof(WORD)) return E_FAIL;
 
  /* Attributes */
  IStream_Read(pLoadStream, &attributes, sizeof(BYTE), &cbRead);
  if (cbRead != sizeof(BYTE)) return E_FAIL;
 
  this->description.fItalic        = (attributes & FONTPERSIST_ITALIC) != 0;
  this->description.fStrikethrough = (attributes & FONTPERSIST_STRIKETHROUGH) != 0;
  this->description.fUnderline     = (attributes & FONTPERSIST_UNDERLINE) != 0;
 
  /* Weight */
  IStream_Read(pLoadStream, &this->description.sWeight, sizeof(WORD), &cbRead);
  if (cbRead != sizeof(WORD)) return E_FAIL;
 
  /* Size */
  IStream_Read(pLoadStream, &this->description.cySize.Lo, sizeof(DWORD), &cbRead);
  if (cbRead != sizeof(DWORD)) return E_FAIL;
 
  this->description.cySize.Hi = 0;
 
  /* Name */
  IStream_Read(pLoadStream, &string_size, sizeof(BYTE), &cbRead);
  if (cbRead != sizeof(BYTE)) return E_FAIL;
 
  IStream_Read(pLoadStream, readBuffer, string_size, &cbRead);
  if (cbRead != string_size) return E_FAIL;
 
  free(this->description.lpstrName);
 
  len = MultiByteToWideChar( CP_ACP, 0, readBuffer, string_size, NULL, 0 );
  this->description.lpstrName = malloc((len + 1) * sizeof(WCHAR));
  MultiByteToWideChar( CP_ACP, 0, readBuffer, string_size, this->description.lpstrName, len );
  this->description.lpstrName[len] = 0;
 
  /* Ensure use of this font causes a new one to be created */
  dec_int_ref(this->gdiFont);
  this->gdiFont = 0;
  this->dirty = TRUE;
 
  return S_OK;
}

OLEFontImpl_put_Bold()

static HRESULT WINAPI OLEFontImpl_put_Bold ( IFont *  iface, BOOL  bold  )

static

Definition at line 718 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%d)\n", this, bold);
  this->description.sWeight = bold ? FW_BOLD : FW_NORMAL;
  OLEFont_SendNotify(this, DISPID_FONT_BOLD);
 
  return S_OK;
}

OLEFontImpl_put_Charset()

static HRESULT WINAPI OLEFontImpl_put_Charset ( IFont *  iface, short  charset  )

static

Definition at line 897 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%d)\n", this, charset);
 
  this->description.sCharset = charset;
  OLEFont_SendNotify(this, DISPID_FONT_CHARSET);
 
  return S_OK;
}

OLEFontImpl_put_Italic()

static HRESULT WINAPI OLEFontImpl_put_Italic ( IFont *  iface, BOOL  italic  )

static

Definition at line 753 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%d)\n", this, italic);
 
  this->description.fItalic = italic;
 
  OLEFont_SendNotify(this, DISPID_FONT_ITALIC);
  return S_OK;
}

OLEFontImpl_put_Name()

static HRESULT WINAPI OLEFontImpl_put_Name ( IFont *  iface, BSTR  name  )

static

Definition at line 647 of file olefont.c.

{
  OLEFontImpl *This = impl_from_IFont(iface);
  TRACE("(%p)->(%p)\n", This, name);
 
  if (!name)
    return CTL_E_INVALIDPROPERTYVALUE;
 
  free(This->description.lpstrName);
  This->description.lpstrName = wcsdup(name);
  if (!This->description.lpstrName) return E_OUTOFMEMORY;
 
  TRACE("new name %s\n", debugstr_w(This->description.lpstrName));
  OLEFont_SendNotify(This, DISPID_FONT_NAME);
  return S_OK;
}

OLEFontImpl_put_Size()

static HRESULT WINAPI OLEFontImpl_put_Size ( IFont *  iface, CY  size  )

static

Definition at line 690 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("%p, %ld.\n", iface, size.Lo);
  this->description.cySize.Hi = 0;
  this->description.cySize.Lo = size.Lo;
  OLEFont_SendNotify(this, DISPID_FONT_SIZE);
 
  return S_OK;
}

OLEFontImpl_put_Strikethrough()

static HRESULT WINAPI OLEFontImpl_put_Strikethrough ( IFont *  iface, BOOL  strikethrough  )

static

Definition at line 825 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%d)\n", this, strikethrough);
 
  this->description.fStrikethrough = strikethrough;
  OLEFont_SendNotify(this, DISPID_FONT_STRIKE);
 
  return S_OK;
}

OLEFontImpl_put_Underline()

static HRESULT WINAPI OLEFontImpl_put_Underline ( IFont *  iface, BOOL  underline  )

static

Definition at line 789 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%d)\n", this, underline);
 
  this->description.fUnderline = underline;
 
  OLEFont_SendNotify(this, DISPID_FONT_UNDER);
  return S_OK;
}

OLEFontImpl_put_Weight()

static HRESULT WINAPI OLEFontImpl_put_Weight ( IFont *  iface, short  weight  )

static

Definition at line 861 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  TRACE("(%p)->(%d)\n", this, weight);
 
  this->description.sWeight = weight;
 
  OLEFont_SendNotify(this, DISPID_FONT_WEIGHT);
  return S_OK;
}

OLEFontImpl_QueryInterface()

static HRESULT WINAPI OLEFontImpl_QueryInterface ( IFont *  iface, REFIID  riid, void **  ppvObject  )

static

Definition at line 434 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
 
  TRACE("(%p)->(%s, %p)\n", this, debugstr_guid(riid), ppvObject);
 
  *ppvObject = 0;
 
  if (IsEqualGUID(&IID_IUnknown, riid) ||
      IsEqualGUID(&IID_IFont, riid))
  {
    *ppvObject = this;
  }
  else if (IsEqualGUID(&IID_IDispatch, riid) ||
           IsEqualGUID(&IID_IFontDisp, riid))
  {
    *ppvObject = &this->IDispatch_iface;
  }
  else if (IsEqualGUID(&IID_IPersist, riid) ||
           IsEqualGUID(&IID_IPersistStream, riid))
  {
    *ppvObject = &this->IPersistStream_iface;
  }
  else if (IsEqualGUID(&IID_IConnectionPointContainer, riid))
  {
    *ppvObject = &this->IConnectionPointContainer_iface;
  }
  else if (IsEqualGUID(&IID_IPersistPropertyBag, riid))
  {
    *ppvObject = &this->IPersistPropertyBag_iface;
  }
 
  if (!*ppvObject)
  {
    FIXME("() : asking for unsupported interface %s\n", debugstr_guid(riid));
    return E_NOINTERFACE;
  }
 
  IFont_AddRef(iface);
 
  return S_OK;
}

OLEFontImpl_QueryTextMetrics()

static HRESULT WINAPI OLEFontImpl_QueryTextMetrics ( IFont *  iface, TEXTMETRICOLE *  ptm  )

static

Definition at line 1050 of file olefont.c.

{
  HDC hdcRef;
  HFONT hOldFont, hNewFont;
 
  hdcRef = GetDC(0);
  IFont_get_hFont(iface, &hNewFont);
  hOldFont = SelectObject(hdcRef, hNewFont);
  GetTextMetricsW(hdcRef, ptm);
  SelectObject(hdcRef, hOldFont);
  ReleaseDC(0, hdcRef);
  return S_OK;
}

OLEFontImpl_Release()

static ULONG WINAPI OLEFontImpl_Release ( IFont *  iface )

static

Definition at line 488 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  ULONG ref = InterlockedDecrement(&this->ref);
 
  TRACE("%p, refcount %lu.\n", iface, ref);
 
  if (ref == 0)
  {
    ULONG fontlist_refs = InterlockedDecrement(&ifont_cnt);
 
    /* Final IFont object so destroy font cache */
    if (fontlist_refs == 0)
    {
      HFONTItem *item, *cursor2;
 
      EnterCriticalSection(&OLEFontImpl_csHFONTLIST);
      LIST_FOR_EACH_ENTRY_SAFE(item, cursor2, &OLEFontImpl_hFontList, HFONTItem, entry)
        HFONTItem_Delete(item);
      LeaveCriticalSection(&OLEFontImpl_csHFONTLIST);
      delete_dc();
    }
    else
    {
      dec_int_ref(this->gdiFont);
    }
    OLEFontImpl_Destroy(this);
  }
 
  return ref;
}

OLEFontImpl_ReleaseHfont()

static HRESULT WINAPI OLEFontImpl_ReleaseHfont ( IFont *  iface, HFONT  hfont  )

static

Definition at line 1085 of file olefont.c.

{
    OLEFontImpl *this = impl_from_IFont(iface);
 
    TRACE("(%p)->(%p)\n", this, hfont);
 
    if (!hfont) return E_INVALIDARG;
 
    return dec_ext_ref(hfont);
}

OLEFontImpl_Save()

static HRESULT WINAPI OLEFontImpl_Save ( IPersistStream *  iface, IStream *  pOutStream, BOOL  fClearDirty  )

static

Definition at line 1627 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IPersistStream(iface);
  BYTE  attributes, string_size;
  const BYTE version = 0x01;
  char* writeBuffer = NULL;
  ULONG written;
 
  TRACE("(%p)->(%p %d)\n", this, pOutStream, fClearDirty);
 
  /* Version */
  IStream_Write(pOutStream, &version, sizeof(BYTE), &written);
  if (written != sizeof(BYTE)) return E_FAIL;
 
  /* Charset */
  IStream_Write(pOutStream, &this->description.sCharset, sizeof(WORD), &written);
  if (written != sizeof(WORD)) return E_FAIL;
 
  /* Attributes */
  attributes = 0;
 
  if (this->description.fItalic)
    attributes |= FONTPERSIST_ITALIC;
 
  if (this->description.fStrikethrough)
    attributes |= FONTPERSIST_STRIKETHROUGH;
 
  if (this->description.fUnderline)
    attributes |= FONTPERSIST_UNDERLINE;
 
  IStream_Write(pOutStream, &attributes, sizeof(BYTE), &written);
  if (written != sizeof(BYTE)) return E_FAIL;
 
  /* Weight */
  IStream_Write(pOutStream, &this->description.sWeight, sizeof(WORD), &written);
  if (written != sizeof(WORD)) return E_FAIL;
 
  /* Size */
  IStream_Write(pOutStream, &this->description.cySize.Lo, sizeof(DWORD), &written);
  if (written != sizeof(DWORD)) return E_FAIL;
 
  /* FontName */
  string_size = WideCharToMultiByte( CP_ACP, 0, this->description.lpstrName,
                                     lstrlenW(this->description.lpstrName), NULL, 0, NULL, NULL );
 
  IStream_Write(pOutStream, &string_size, sizeof(BYTE), &written);
  if (written != sizeof(BYTE)) return E_FAIL;
 
  if (string_size)
  {
      if (!(writeBuffer = malloc(string_size))) return E_OUTOFMEMORY;
      WideCharToMultiByte( CP_ACP, 0, this->description.lpstrName,
                           lstrlenW(this->description.lpstrName),
                           writeBuffer, string_size, NULL, NULL );
 
      IStream_Write(pOutStream, writeBuffer, string_size, &written);
      free(writeBuffer);
 
      if (written != string_size) return E_FAIL;
  }
 
  return S_OK;
}

OLEFontImpl_SetHdc()

static HRESULT WINAPI OLEFontImpl_SetHdc ( IFont *  iface, HDC  hdc  )

static

Definition at line 1101 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
  FIXME("(%p)->(%p): Stub\n", this, hdc);
  return E_NOTIMPL;
}

OLEFontImpl_SetRatio()

static HRESULT WINAPI OLEFontImpl_SetRatio ( IFont *  iface, LONG  cyLogical, LONG  cyHimetric  )

static

Definition at line 1023 of file olefont.c.

{
  OLEFontImpl *this = impl_from_IFont(iface);
 
  TRACE("%p, %ld, %ld.\n", iface, cyLogical, cyHimetric);
 
  if(cyLogical == 0 || cyHimetric == 0)
    return E_FAIL;
 
  /* cyLogical and cyHimetric both set to 1 is a special case that
     does not change the scaling but also does not fail */
  if(cyLogical == 1 && cyHimetric == 1)
    return S_OK;
 
  this->cyLogical  = cyLogical;
  this->cyHimetric = cyHimetric;
  this->dirty = TRUE;
 
  return S_OK;
}

realize_font()

static void realize_font ( OLEFontImpl *  This )

static

Definition at line 539 of file olefont.c.

{
    LOGFONTW logFont;
    INT fontHeight;
    WCHAR text_face[LF_FACESIZE];
    HDC hdc = get_dc();
    HFONT old_font;
    TEXTMETRICW tm;
 
    if (!This->dirty) return;
 
    text_face[0] = 0;
 
    if(This->gdiFont)
    {
        old_font = SelectObject(hdc, This->gdiFont);
        GetTextFaceW(hdc, ARRAY_SIZE(text_face), text_face);
        SelectObject(hdc, old_font);
        dec_int_ref(This->gdiFont);
        This->gdiFont = 0;
    }
 
    memset(&logFont, 0, sizeof(LOGFONTW));
 
    lstrcpynW(logFont.lfFaceName, This->description.lpstrName, LF_FACESIZE);
    logFont.lfCharSet = This->description.sCharset;
 
    /* If the font name has been changed then enumerate all charsets
       and pick one that'll result in the font specified being selected */
    if(text_face[0] && lstrcmpiW(text_face, This->description.lpstrName))
    {
        enum_data data;
        data.orig_cs = This->description.sCharset;
        data.avail_cs = -1;
        logFont.lfCharSet = DEFAULT_CHARSET;
        EnumFontFamiliesExW(get_dc(), &logFont, font_enum_proc, (LPARAM)&data, 0);
        if(data.avail_cs != -1) logFont.lfCharSet = data.avail_cs;
    }
 
    /*
     * The height of the font returned by the get_Size property is the
     * height of the font in points multiplied by 10000... Using some
     * simple conversions and the ratio given by the application, it can
     * be converted to a height in pixels.
     *
     * Standard ratio is 72 / 2540, or 18 / 635 in lowest terms.
     * Ratio is applied here relative to the standard.
     */
 
    fontHeight = MulDiv( This->description.cySize.Lo, This->cyLogical*635, This->cyHimetric*18 );
 
    logFont.lfHeight          = ((fontHeight%10000L)>5000L) ? (-fontHeight/10000L) - 1 :
                                                                  (-fontHeight/10000L);
    logFont.lfItalic          = This->description.fItalic;
    logFont.lfUnderline       = This->description.fUnderline;
    logFont.lfStrikeOut       = This->description.fStrikethrough;
    logFont.lfWeight          = This->description.sWeight;
    logFont.lfOutPrecision    = OUT_CHARACTER_PRECIS;
    logFont.lfClipPrecision   = CLIP_DEFAULT_PRECIS;
    logFont.lfQuality         = DEFAULT_QUALITY;
    logFont.lfPitchAndFamily  = DEFAULT_PITCH;
 
    This->gdiFont = CreateFontIndirectW(&logFont);
    This->dirty = FALSE;
 
    add_hfontitem(This->gdiFont);
 
    /* Fixup the name and charset properties so that they match the
       selected font */
    old_font = SelectObject(get_dc(), This->gdiFont);
    GetTextFaceW(hdc, ARRAY_SIZE(text_face), text_face);
    if(lstrcmpiW(text_face, This->description.lpstrName))
    {
        free(This->description.lpstrName);
        This->description.lpstrName = wcsdup(text_face);
    }
    GetTextMetricsW(hdc, &tm);
    This->description.sCharset = tm.tmCharSet;
    /* While we have it handy, stash the realized font height for use by get_Size() */
    This->nRealHeight = tm.tmHeight - tm.tmInternalLeading; /* corresponds to LOGFONT lfHeight */
    SelectObject(hdc, old_font);
}

Referenced by OLEFontImpl_get_Bold(), OLEFontImpl_get_Charset(), OLEFontImpl_get_hFont(), OLEFontImpl_get_Italic(), OLEFontImpl_get_Name(), OLEFontImpl_get_Size(), OLEFontImpl_get_Strikethrough(), OLEFontImpl_get_Underline(), and OLEFontImpl_get_Weight().

SFCF_AddRef()

static ULONG WINAPI SFCF_AddRef ( LPCLASSFACTORY  iface )

static

Definition at line 2105 of file olefont.c.

                                  {
    IClassFactoryImpl *This = impl_from_IClassFactory(iface);
    return InterlockedIncrement(&This->ref);
}

SFCF_CreateInstance()

static HRESULT WINAPI SFCF_CreateInstance ( LPCLASSFACTORY  iface, LPUNKNOWN  pOuter, REFIID  riid, LPVOID *  ppobj  )

static

Definition at line 2116 of file olefont.c.

  {
    return OleCreateFontIndirect(NULL,riid,ppobj);
 
}

SFCF_LockServer()

static HRESULT WINAPI SFCF_LockServer ( LPCLASSFACTORY  iface, BOOL  dolock  )

static

Definition at line 2123 of file olefont.c.

                                                                        {
    IClassFactoryImpl *This = impl_from_IClassFactory(iface);
    FIXME("(%p)->(%d),stub!\n",This,dolock);
    return S_OK;
}

SFCF_QueryInterface()

static HRESULT WINAPI SFCF_QueryInterface ( IClassFactory *  iface, REFIID  riid, void **  obj  )

static

Definition at line 2086 of file olefont.c.

{
    IClassFactoryImpl *This = impl_from_IClassFactory(iface);
 
    TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), obj);
 
    *obj = NULL;
 
    if (IsEqualIID(&IID_IClassFactory, riid) || IsEqualIID(&IID_IUnknown, riid))
    {
        *obj = iface;
        IClassFactory_AddRef(iface);
        return S_OK;
    }
 
    return E_NOINTERFACE;
}

SFCF_Release()

static ULONG WINAPI SFCF_Release ( LPCLASSFACTORY  iface )

static

Definition at line 2110 of file olefont.c.

                                                       {
    IClassFactoryImpl *This = impl_from_IClassFactory(iface);
    /* static class, won't be  freed */
    return InterlockedDecrement(&This->ref);
}

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

ole

)

Variable Documentation

ifont_cnt

LONG ifont_cnt = 0

static

Definition at line 76 of file olefont.c.

Referenced by OLEFontImpl_Clone(), OLEFontImpl_Construct(), and OLEFontImpl_Release().

olefont_hdc

HDC olefont_hdc

static

Definition at line 52 of file olefont.c.

Referenced by delete_dc(), and get_dc().

OLEFontImpl_csHFONTLIST

static CRITICAL_SECTION OLEFontImpl_csHFONTLIST = { &OLEFontImpl_csHFONTLIST_debug, -1, 0, 0, 0, 0 }

static

Definition at line 81 of file olefont.c.

Referenced by add_hfontitem(), dec_ext_ref(), dec_int_ref(), delete_dc(), get_dc(), inc_ext_ref(), inc_int_ref(), and OLEFontImpl_Release().

OLEFontImpl_csHFONTLIST_debug

CRITICAL_SECTION_DEBUG OLEFontImpl_csHFONTLIST_debug

static

Initial value:

=
{
  0, 0, &OLEFontImpl_csHFONTLIST,
  { &OLEFontImpl_csHFONTLIST_debug.ProcessLocksList,
    &OLEFontImpl_csHFONTLIST_debug.ProcessLocksList },
    0, 0, { (DWORD_PTR)(__FILE__ ": OLEFontImpl_csHFONTLIST") }
}

Definition at line 82 of file olefont.c.

OLEFontImpl_hFontList

struct list OLEFontImpl_hFontList = LIST_INIT(OLEFontImpl_hFontList)

static

Definition at line 73 of file olefont.c.

Referenced by add_hfontitem(), find_hfontitem(), and OLEFontImpl_Release().

OLEFontImpl_IConnectionPointContainer_VTable

const IConnectionPointContainerVtbl OLEFontImpl_IConnectionPointContainer_VTable

static

Initial value:

=
{
  OLEFontImpl_IConnectionPointContainer_QueryInterface,
  OLEFontImpl_IConnectionPointContainer_AddRef,
  OLEFontImpl_IConnectionPointContainer_Release,
  OLEFontImpl_EnumConnectionPoints,
  OLEFontImpl_FindConnectionPoint
}

Definition at line 1807 of file olefont.c.

Referenced by OLEFontImpl_Construct().

OLEFontImpl_IDispatch_VTable

const IDispatchVtbl OLEFontImpl_IDispatch_VTable

static

Initial value:

=
{
  OLEFontImpl_IDispatch_QueryInterface,
  OLEFontImpl_IDispatch_AddRef,
  OLEFontImpl_IDispatch_Release,
  OLEFontImpl_GetTypeInfoCount,
  OLEFontImpl_GetTypeInfo,
  OLEFontImpl_GetIDsOfNames,
  OLEFontImpl_Invoke
}

Definition at line 1471 of file olefont.c.

Referenced by OLEFontImpl_Construct().

OLEFontImpl_IPersistPropertyBag_VTable

const IPersistPropertyBagVtbl OLEFontImpl_IPersistPropertyBag_VTable

static

Initial value:

= 
{
  OLEFontImpl_IPersistPropertyBag_QueryInterface,
  OLEFontImpl_IPersistPropertyBag_AddRef,
  OLEFontImpl_IPersistPropertyBag_Release,
 
  OLEFontImpl_IPersistPropertyBag_GetClassID,
  OLEFontImpl_IPersistPropertyBag_InitNew,
  OLEFontImpl_IPersistPropertyBag_Load,
  OLEFontImpl_IPersistPropertyBag_Save
}

Definition at line 1981 of file olefont.c.

Referenced by OLEFontImpl_Construct().

OLEFontImpl_IPersistStream_VTable

const IPersistStreamVtbl OLEFontImpl_IPersistStream_VTable

static

Initial value:

=
{
  OLEFontImpl_IPersistStream_QueryInterface,
  OLEFontImpl_IPersistStream_AddRef,
  OLEFontImpl_IPersistStream_Release,
  OLEFontImpl_GetClassID,
  OLEFontImpl_IsDirty,
  OLEFontImpl_Load,
  OLEFontImpl_Save,
  OLEFontImpl_GetSizeMax
}

Definition at line 1723 of file olefont.c.

Referenced by OLEFontImpl_Construct().

OLEFontImpl_VTable

const IFontVtbl OLEFontImpl_VTable

static

Initial value:

=
{
  OLEFontImpl_QueryInterface,
  OLEFontImpl_AddRef,
  OLEFontImpl_Release,
  OLEFontImpl_get_Name,
  OLEFontImpl_put_Name,
  OLEFontImpl_get_Size,
  OLEFontImpl_put_Size,
  OLEFontImpl_get_Bold,
  OLEFontImpl_put_Bold,
  OLEFontImpl_get_Italic,
  OLEFontImpl_put_Italic,
  OLEFontImpl_get_Underline,
  OLEFontImpl_put_Underline,
  OLEFontImpl_get_Strikethrough,
  OLEFontImpl_put_Strikethrough,
  OLEFontImpl_get_Weight,
  OLEFontImpl_put_Weight,
  OLEFontImpl_get_Charset,
  OLEFontImpl_put_Charset,
  OLEFontImpl_get_hFont,
  OLEFontImpl_Clone,
  OLEFontImpl_IsEqual,
  OLEFontImpl_SetRatio,
  OLEFontImpl_QueryTextMetrics,
  OLEFontImpl_AddRefHfont,
  OLEFontImpl_ReleaseHfont,
  OLEFontImpl_SetHdc
}

Definition at line 1110 of file olefont.c.

Referenced by OLEFontImpl_Construct().

SFCF_Vtbl

const IClassFactoryVtbl SFCF_Vtbl

static

Initial value:

= {
    SFCF_QueryInterface,
    SFCF_AddRef,
    SFCF_Release,
    SFCF_CreateInstance,
    SFCF_LockServer
}

Definition at line 2129 of file olefont.c.

STDFONT_CF

IClassFactoryImpl STDFONT_CF = {{&SFCF_Vtbl}, 1 }

static

Definition at line 2136 of file olefont.c.

Referenced by _get_STDFONT_CF().