2 * OLE Font encapsulation implementation
4 * This file contains an implementation of the IFont
5 * interface and the OleCreateFontIndirect API call.
7 * Copyright 1999 Francis Beaudet
8 * Copyright 2006 (Google) Benjamin Arai
10 * This library is free software; you can redistribute it and/or
11 * modify it under the terms of the GNU Lesser General Public
12 * License as published by the Free Software Foundation; either
13 * version 2.1 of the License, or (at your option) any later version.
15 * This library is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 * Lesser General Public License for more details.
20 * You should have received a copy of the GNU Lesser General Public
21 * License along with this library; if not, write to the Free Software
22 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
29 #define NONAMELESSUNION
30 #define NONAMELESSSTRUCT
37 #include "wine/list.h"
38 #include "wine/unicode.h"
40 #include "oleauto.h" /* for SysAllocString(....) */
43 #include "wine/debug.h"
44 #include "connpt.h" /* for CreateConnectionPoint */
47 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
49 /***********************************************************************
50 * Declaration of constants used when serializing the font object.
52 #define FONTPERSIST_ITALIC 0x02
53 #define FONTPERSIST_UNDERLINE 0x04
54 #define FONTPERSIST_STRIKETHROUGH 0x08
56 static HDC olefont_hdc
;
58 /***********************************************************************
59 * List of the HFONTs it has given out, with each one having a separate
62 typedef struct _HFONTItem
66 /* Reference count of any IFont objects that own this hfont */
69 /* Total reference count of any refs held by the application obtained by AddRefHfont plus any internal refs */
72 /* The font associated with this object. */
75 } HFONTItem
, *PHFONTItem
;
77 static struct list OLEFontImpl_hFontList
= LIST_INIT(OLEFontImpl_hFontList
);
79 /* Counts how many fonts contain at least one lock */
80 static LONG ifont_cnt
= 0;
82 /***********************************************************************
83 * Critical section for OLEFontImpl_hFontList
85 static CRITICAL_SECTION OLEFontImpl_csHFONTLIST
;
86 static CRITICAL_SECTION_DEBUG OLEFontImpl_csHFONTLIST_debug
=
88 0, 0, &OLEFontImpl_csHFONTLIST
,
89 { &OLEFontImpl_csHFONTLIST_debug
.ProcessLocksList
,
90 &OLEFontImpl_csHFONTLIST_debug
.ProcessLocksList
},
91 0, 0, { (DWORD_PTR
)(__FILE__
": OLEFontImpl_csHFONTLIST") }
93 static CRITICAL_SECTION OLEFontImpl_csHFONTLIST
= { &OLEFontImpl_csHFONTLIST_debug
, -1, 0, 0, 0, 0 };
95 static HDC
get_dc(void)
98 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
100 olefont_hdc
= CreateCompatibleDC(NULL
);
102 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
106 static void delete_dc(void)
108 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
111 DeleteDC(olefont_hdc
);
114 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
117 static void HFONTItem_Delete(PHFONTItem item
)
119 DeleteObject(item
->gdiFont
);
120 list_remove(&item
->entry
);
121 HeapFree(GetProcessHeap(), 0, item
);
124 /* Find hfont item entry in the list. Should be called while holding the crit sect */
125 static HFONTItem
*find_hfontitem(HFONT hfont
)
129 LIST_FOR_EACH_ENTRY(item
, &OLEFontImpl_hFontList
, HFONTItem
, entry
)
131 if (item
->gdiFont
== hfont
)
137 /* Add an item to the list with one internal reference */
138 static HRESULT
add_hfontitem(HFONT hfont
)
140 HFONTItem
*new_item
= HeapAlloc(GetProcessHeap(), 0, sizeof(*new_item
));
142 if(!new_item
) return E_OUTOFMEMORY
;
144 new_item
->int_refs
= 1;
145 new_item
->total_refs
= 1;
146 new_item
->gdiFont
= hfont
;
147 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
148 list_add_tail(&OLEFontImpl_hFontList
,&new_item
->entry
);
149 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
153 static HRESULT
inc_int_ref(HFONT hfont
)
156 HRESULT hr
= S_FALSE
;
158 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
159 item
= find_hfontitem(hfont
);
167 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
172 /* decrements the internal ref of a hfont item. If both refs are zero it'll
173 remove the item from the list and delete the hfont */
174 static HRESULT
dec_int_ref(HFONT hfont
)
177 HRESULT hr
= S_FALSE
;
179 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
180 item
= find_hfontitem(hfont
);
186 if(item
->int_refs
== 0 && item
->total_refs
== 0)
187 HFONTItem_Delete(item
);
190 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
195 static HRESULT
inc_ext_ref(HFONT hfont
)
198 HRESULT hr
= S_FALSE
;
200 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
202 item
= find_hfontitem(hfont
);
208 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
213 static HRESULT
dec_ext_ref(HFONT hfont
)
216 HRESULT hr
= S_FALSE
;
218 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
220 item
= find_hfontitem(hfont
);
223 if(--item
->total_refs
>= 0) hr
= S_OK
;
225 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
230 static WCHAR
*strdupW(const WCHAR
* str
)
233 DWORD size
= (strlenW(str
) + 1) * sizeof(WCHAR
);
235 ret
= HeapAlloc(GetProcessHeap(), 0, size
);
237 memcpy(ret
, str
, size
);
241 /***********************************************************************
242 * Declaration of the implementation class for the IFont interface
244 typedef struct OLEFontImpl OLEFontImpl
;
249 * This class supports many interfaces. IUnknown, IFont,
250 * IDispatch, IDispFont IPersistStream and IConnectionPointContainer.
251 * The first two are supported by the first vtable, the next two are
252 * supported by the second table and the last two have their own.
255 IDispatch IDispatch_iface
;
256 IPersistStream IPersistStream_iface
;
257 IConnectionPointContainer IConnectionPointContainer_iface
;
258 IPersistPropertyBag IPersistPropertyBag_iface
;
259 IPersistStreamInit IPersistStreamInit_iface
;
261 * Reference count for that instance of the class.
266 * This structure contains the description of the class.
268 FONTDESC description
;
271 * Contain the font associated with this object.
282 * Stash realized height (pixels) from TEXTMETRIC - used in get_Size()
286 IConnectionPoint
*pPropertyNotifyCP
;
287 IConnectionPoint
*pFontEventsCP
;
290 static inline OLEFontImpl
*impl_from_IFont(IFont
*iface
)
292 return CONTAINING_RECORD(iface
, OLEFontImpl
, IFont_iface
);
295 static inline OLEFontImpl
*impl_from_IDispatch( IDispatch
*iface
)
297 return CONTAINING_RECORD(iface
, OLEFontImpl
, IDispatch_iface
);
300 static inline OLEFontImpl
*impl_from_IPersistStream( IPersistStream
*iface
)
302 return CONTAINING_RECORD(iface
, OLEFontImpl
, IPersistStream_iface
);
305 static inline OLEFontImpl
*impl_from_IConnectionPointContainer( IConnectionPointContainer
*iface
)
307 return CONTAINING_RECORD(iface
, OLEFontImpl
, IConnectionPointContainer_iface
);
310 static inline OLEFontImpl
*impl_from_IPersistPropertyBag( IPersistPropertyBag
*iface
)
312 return CONTAINING_RECORD(iface
, OLEFontImpl
, IPersistPropertyBag_iface
);
315 static inline OLEFontImpl
*impl_from_IPersistStreamInit( IPersistStreamInit
*iface
)
317 return CONTAINING_RECORD(iface
, OLEFontImpl
, IPersistStreamInit_iface
);
321 /***********************************************************************
322 * Prototypes for the implementation functions for the IFont
325 static OLEFontImpl
* OLEFontImpl_Construct(const FONTDESC
*fontDesc
);
326 static void OLEFontImpl_Destroy(OLEFontImpl
* fontDesc
);
327 static ULONG WINAPI
OLEFontImpl_AddRef(IFont
* iface
);
329 /******************************************************************************
330 * OleCreateFontIndirect [OLEAUT32.420]
332 HRESULT WINAPI
OleCreateFontIndirect(
333 LPFONTDESC lpFontDesc
,
337 OLEFontImpl
* newFont
;
341 TRACE("(%p, %s, %p)\n", lpFontDesc
, debugstr_guid(riid
), ppvObj
);
343 if (!ppvObj
) return E_POINTER
;
348 static WCHAR fname
[] = { 'S','y','s','t','e','m',0 };
350 fd
.cbSizeofstruct
= sizeof(fd
);
351 fd
.lpstrName
= fname
;
352 fd
.cySize
.s
.Lo
= 80000;
357 fd
.fUnderline
= FALSE
;
358 fd
.fStrikethrough
= FALSE
;
362 newFont
= OLEFontImpl_Construct(lpFontDesc
);
363 if (!newFont
) return E_OUTOFMEMORY
;
365 hr
= IFont_QueryInterface(&newFont
->IFont_iface
, riid
, ppvObj
);
366 IFont_Release(&newFont
->IFont_iface
);
372 /***********************************************************************
373 * Implementation of the OLEFontImpl class.
376 /***********************************************************************
377 * OLEFont_SendNotify (internal)
379 * Sends notification messages of changed properties to any interested
382 static void OLEFont_SendNotify(OLEFontImpl
* this, DISPID dispID
)
384 static const WCHAR wszName
[] = {'N','a','m','e',0};
385 static const WCHAR wszSize
[] = {'S','i','z','e',0};
386 static const WCHAR wszBold
[] = {'B','o','l','d',0};
387 static const WCHAR wszItalic
[] = {'I','t','a','l','i','c',0};
388 static const WCHAR wszUnder
[] = {'U','n','d','e','r','l','i','n','e',0};
389 static const WCHAR wszStrike
[] = {'S','t','r','i','k','e','t','h','r','o','u','g','h',0};
390 static const WCHAR wszWeight
[] = {'W','e','i','g','h','t',0};
391 static const WCHAR wszCharset
[] = {'C','h','a','r','s','e','t',0};
392 static const LPCWSTR dispid_mapping
[] =
405 IEnumConnections
*pEnum
;
411 hres
= IConnectionPoint_EnumConnections(this->pPropertyNotifyCP
, &pEnum
);
414 while(IEnumConnections_Next(pEnum
, 1, &CD
, NULL
) == S_OK
) {
415 IPropertyNotifySink
*sink
;
417 IUnknown_QueryInterface(CD
.pUnk
, &IID_IPropertyNotifySink
, (void**)&sink
);
418 IPropertyNotifySink_OnChanged(sink
, dispID
);
419 IPropertyNotifySink_Release(sink
);
420 IUnknown_Release(CD
.pUnk
);
422 IEnumConnections_Release(pEnum
);
425 hres
= IConnectionPoint_EnumConnections(this->pFontEventsCP
, &pEnum
);
428 DISPPARAMS dispparams
;
431 VariantInit(&vararg
);
432 V_VT(&vararg
) = VT_BSTR
;
433 V_BSTR(&vararg
) = SysAllocString(dispid_mapping
[dispID
]);
435 dispparams
.cArgs
= 1;
436 dispparams
.cNamedArgs
= 0;
437 dispparams
.rgdispidNamedArgs
= NULL
;
438 dispparams
.rgvarg
= &vararg
;
440 while(IEnumConnections_Next(pEnum
, 1, &CD
, NULL
) == S_OK
) {
441 IFontEventsDisp
*disp
;
443 IUnknown_QueryInterface(CD
.pUnk
, &IID_IFontEventsDisp
, (void**)&disp
);
444 IFontEventsDisp_Invoke(disp
, DISPID_FONT_CHANGED
, &IID_NULL
,
445 LOCALE_NEUTRAL
, INVOKE_FUNC
, &dispparams
, NULL
,
448 IFontEventsDisp_Release(disp
);
449 IUnknown_Release(CD
.pUnk
);
451 VariantClear(&vararg
);
452 IEnumConnections_Release(pEnum
);
456 /************************************************************************
457 * OLEFontImpl_QueryInterface (IUnknown)
459 * See Windows documentation for more details on IUnknown methods.
461 static HRESULT WINAPI
OLEFontImpl_QueryInterface(
466 OLEFontImpl
*this = impl_from_IFont(iface
);
468 TRACE("(%p)->(%s, %p)\n", this, debugstr_guid(riid
), ppvObject
);
472 if (IsEqualGUID(&IID_IUnknown
, riid
) ||
473 IsEqualGUID(&IID_IFont
, riid
))
477 else if (IsEqualGUID(&IID_IDispatch
, riid
) ||
478 IsEqualGUID(&IID_IFontDisp
, riid
))
480 *ppvObject
= &this->IDispatch_iface
;
482 else if (IsEqualGUID(&IID_IPersist
, riid
) ||
483 IsEqualGUID(&IID_IPersistStream
, riid
))
485 *ppvObject
= &this->IPersistStream_iface
;
487 else if (IsEqualGUID(&IID_IConnectionPointContainer
, riid
))
489 *ppvObject
= &this->IConnectionPointContainer_iface
;
491 else if (IsEqualGUID(&IID_IPersistPropertyBag
, riid
))
493 *ppvObject
= &this->IPersistPropertyBag_iface
;
495 else if (IsEqualGUID(&IID_IPersistStreamInit
, riid
))
497 *ppvObject
= &this->IPersistStreamInit_iface
;
502 FIXME("() : asking for unsupported interface %s\n", debugstr_guid(riid
));
503 return E_NOINTERFACE
;
511 /************************************************************************
512 * OLEFontImpl_AddRef (IUnknown)
514 static ULONG WINAPI
OLEFontImpl_AddRef(
517 OLEFontImpl
*this = impl_from_IFont(iface
);
518 TRACE("(%p)->(ref=%d)\n", this, this->ref
);
519 return InterlockedIncrement(&this->ref
);
522 /************************************************************************
523 * OLEFontImpl_Release (IUnknown)
525 static ULONG WINAPI
OLEFontImpl_Release(IFont
* iface
)
527 OLEFontImpl
*this = impl_from_IFont(iface
);
530 TRACE("(%p)->(ref=%d)\n", this, this->ref
);
532 ref
= InterlockedDecrement(&this->ref
);
536 ULONG fontlist_refs
= InterlockedDecrement(&ifont_cnt
);
538 /* Final IFont object so destroy font cache */
539 if (fontlist_refs
== 0)
541 HFONTItem
*item
, *cursor2
;
543 EnterCriticalSection(&OLEFontImpl_csHFONTLIST
);
544 LIST_FOR_EACH_ENTRY_SAFE(item
, cursor2
, &OLEFontImpl_hFontList
, HFONTItem
, entry
)
545 HFONTItem_Delete(item
);
546 LeaveCriticalSection(&OLEFontImpl_csHFONTLIST
);
551 dec_int_ref(this->gdiFont
);
553 OLEFontImpl_Destroy(this);
565 static int CALLBACK
font_enum_proc(const LOGFONTW
*elf
, const TEXTMETRICW
*ntm
, DWORD type
, LPARAM lp
)
567 enum_data
*data
= (enum_data
*)lp
;
569 if(elf
->lfCharSet
== data
->orig_cs
)
571 data
->avail_cs
= data
->orig_cs
;
574 if(data
->avail_cs
== -1) data
->avail_cs
= elf
->lfCharSet
;
578 static void realize_font(OLEFontImpl
*This
)
582 WCHAR text_face
[LF_FACESIZE
];
587 if (!This
->dirty
) return;
593 old_font
= SelectObject(hdc
, This
->gdiFont
);
594 GetTextFaceW(hdc
, ARRAY_SIZE(text_face
), text_face
);
595 SelectObject(hdc
, old_font
);
596 dec_int_ref(This
->gdiFont
);
600 memset(&logFont
, 0, sizeof(LOGFONTW
));
602 lstrcpynW(logFont
.lfFaceName
, This
->description
.lpstrName
, LF_FACESIZE
);
603 logFont
.lfCharSet
= This
->description
.sCharset
;
605 /* If the font name has been changed then enumerate all charsets
606 and pick one that'll result in the font specified being selected */
607 if(text_face
[0] && lstrcmpiW(text_face
, This
->description
.lpstrName
))
610 data
.orig_cs
= This
->description
.sCharset
;
612 logFont
.lfCharSet
= DEFAULT_CHARSET
;
613 EnumFontFamiliesExW(get_dc(), &logFont
, font_enum_proc
, (LPARAM
)&data
, 0);
614 if(data
.avail_cs
!= -1) logFont
.lfCharSet
= data
.avail_cs
;
618 * The height of the font returned by the get_Size property is the
619 * height of the font in points multiplied by 10000... Using some
620 * simple conversions and the ratio given by the application, it can
621 * be converted to a height in pixels.
623 * Standard ratio is 72 / 2540, or 18 / 635 in lowest terms.
624 * Ratio is applied here relative to the standard.
627 fontHeight
= MulDiv( This
->description
.cySize
.s
.Lo
, This
->cyLogical
*635, This
->cyHimetric
*18 );
629 logFont
.lfHeight
= ((fontHeight
%10000L)>5000L) ? (-fontHeight
/10000L) - 1 :
630 (-fontHeight
/10000L);
631 logFont
.lfItalic
= This
->description
.fItalic
;
632 logFont
.lfUnderline
= This
->description
.fUnderline
;
633 logFont
.lfStrikeOut
= This
->description
.fStrikethrough
;
634 logFont
.lfWeight
= This
->description
.sWeight
;
635 logFont
.lfOutPrecision
= OUT_CHARACTER_PRECIS
;
636 logFont
.lfClipPrecision
= CLIP_DEFAULT_PRECIS
;
637 logFont
.lfQuality
= DEFAULT_QUALITY
;
638 logFont
.lfPitchAndFamily
= DEFAULT_PITCH
;
640 This
->gdiFont
= CreateFontIndirectW(&logFont
);
643 add_hfontitem(This
->gdiFont
);
645 /* Fixup the name and charset properties so that they match the
647 old_font
= SelectObject(get_dc(), This
->gdiFont
);
648 GetTextFaceW(hdc
, ARRAY_SIZE(text_face
), text_face
);
649 if(lstrcmpiW(text_face
, This
->description
.lpstrName
))
651 HeapFree(GetProcessHeap(), 0, This
->description
.lpstrName
);
652 This
->description
.lpstrName
= strdupW(text_face
);
654 GetTextMetricsW(hdc
, &tm
);
655 This
->description
.sCharset
= tm
.tmCharSet
;
656 /* While we have it handy, stash the realized font height for use by get_Size() */
657 This
->nRealHeight
= tm
.tmHeight
- tm
.tmInternalLeading
; /* corresponds to LOGFONT lfHeight */
658 SelectObject(hdc
, old_font
);
661 /************************************************************************
662 * OLEFontImpl_get_Name (IFont)
664 * See Windows documentation for more details on IFont methods.
666 static HRESULT WINAPI
OLEFontImpl_get_Name(
670 OLEFontImpl
*this = impl_from_IFont(iface
);
671 TRACE("(%p)->(%p)\n", this, pname
);
678 if (this->description
.lpstrName
!=0)
679 *pname
= SysAllocString(this->description
.lpstrName
);
686 /************************************************************************
687 * OLEFontImpl_put_Name (IFont)
689 static HRESULT WINAPI
OLEFontImpl_put_Name(
693 OLEFontImpl
*This
= impl_from_IFont(iface
);
694 TRACE("(%p)->(%p)\n", This
, name
);
697 return CTL_E_INVALIDPROPERTYVALUE
;
699 HeapFree(GetProcessHeap(), 0, This
->description
.lpstrName
);
700 This
->description
.lpstrName
= strdupW(name
);
701 if (!This
->description
.lpstrName
) return E_OUTOFMEMORY
;
703 TRACE("new name %s\n", debugstr_w(This
->description
.lpstrName
));
704 OLEFont_SendNotify(This
, DISPID_FONT_NAME
);
708 /************************************************************************
709 * OLEFontImpl_get_Size (IFont)
711 static HRESULT WINAPI
OLEFontImpl_get_Size(
715 OLEFontImpl
*this = impl_from_IFont(iface
);
716 TRACE("(%p)->(%p)\n", this, psize
);
718 if (!psize
) return E_POINTER
;
723 * Convert realized font height in pixels to points descaled by current
724 * scaling ratio then scaled up by 10000.
726 psize
->s
.Lo
= MulDiv(this->nRealHeight
,
727 this->cyHimetric
* 72 * 10000,
728 this->cyLogical
* 2540);
734 /************************************************************************
735 * OLEFontImpl_put_Size (IFont)
737 static HRESULT WINAPI
OLEFontImpl_put_Size(
741 OLEFontImpl
*this = impl_from_IFont(iface
);
742 TRACE("(%p)->(%d)\n", this, size
.s
.Lo
);
743 this->description
.cySize
.s
.Hi
= 0;
744 this->description
.cySize
.s
.Lo
= size
.s
.Lo
;
745 OLEFont_SendNotify(this, DISPID_FONT_SIZE
);
750 /************************************************************************
751 * OLEFontImpl_get_Bold (IFont)
753 * See Windows documentation for more details on IFont methods.
755 static HRESULT WINAPI
OLEFontImpl_get_Bold(
759 OLEFontImpl
*this = impl_from_IFont(iface
);
760 TRACE("(%p)->(%p)\n", this, pbold
);
762 if (!pbold
) return E_POINTER
;
766 *pbold
= this->description
.sWeight
> 550;
771 /************************************************************************
772 * OLEFontImpl_put_Bold (IFont)
774 static HRESULT WINAPI
OLEFontImpl_put_Bold(
778 OLEFontImpl
*this = impl_from_IFont(iface
);
779 TRACE("(%p)->(%d)\n", this, bold
);
780 this->description
.sWeight
= bold
? FW_BOLD
: FW_NORMAL
;
781 OLEFont_SendNotify(this, DISPID_FONT_BOLD
);
786 /************************************************************************
787 * OLEFontImpl_get_Italic (IFont)
789 static HRESULT WINAPI
OLEFontImpl_get_Italic(
793 OLEFontImpl
*this = impl_from_IFont(iface
);
794 TRACE("(%p)->(%p)\n", this, pitalic
);
801 *pitalic
= this->description
.fItalic
;
806 /************************************************************************
807 * OLEFontImpl_put_Italic (IFont)
809 static HRESULT WINAPI
OLEFontImpl_put_Italic(
813 OLEFontImpl
*this = impl_from_IFont(iface
);
814 TRACE("(%p)->(%d)\n", this, italic
);
816 this->description
.fItalic
= italic
;
818 OLEFont_SendNotify(this, DISPID_FONT_ITALIC
);
822 /************************************************************************
823 * OLEFontImpl_get_Underline (IFont)
825 static HRESULT WINAPI
OLEFontImpl_get_Underline(
829 OLEFontImpl
*this = impl_from_IFont(iface
);
830 TRACE("(%p)->(%p)\n", this, punderline
);
837 *punderline
= this->description
.fUnderline
;
842 /************************************************************************
843 * OLEFontImpl_put_Underline (IFont)
845 static HRESULT WINAPI
OLEFontImpl_put_Underline(
849 OLEFontImpl
*this = impl_from_IFont(iface
);
850 TRACE("(%p)->(%d)\n", this, underline
);
852 this->description
.fUnderline
= underline
;
854 OLEFont_SendNotify(this, DISPID_FONT_UNDER
);
858 /************************************************************************
859 * OLEFontImpl_get_Strikethrough (IFont)
861 static HRESULT WINAPI
OLEFontImpl_get_Strikethrough(
863 BOOL
* pstrikethrough
)
865 OLEFontImpl
*this = impl_from_IFont(iface
);
866 TRACE("(%p)->(%p)\n", this, pstrikethrough
);
868 if (pstrikethrough
==0)
873 *pstrikethrough
= this->description
.fStrikethrough
;
878 /************************************************************************
879 * OLEFontImpl_put_Strikethrough (IFont)
881 static HRESULT WINAPI
OLEFontImpl_put_Strikethrough(
885 OLEFontImpl
*this = impl_from_IFont(iface
);
886 TRACE("(%p)->(%d)\n", this, strikethrough
);
888 this->description
.fStrikethrough
= strikethrough
;
889 OLEFont_SendNotify(this, DISPID_FONT_STRIKE
);
894 /************************************************************************
895 * OLEFontImpl_get_Weight (IFont)
897 static HRESULT WINAPI
OLEFontImpl_get_Weight(
901 OLEFontImpl
*this = impl_from_IFont(iface
);
902 TRACE("(%p)->(%p)\n", this, pweight
);
909 *pweight
= this->description
.sWeight
;
914 /************************************************************************
915 * OLEFontImpl_put_Weight (IFont)
917 static HRESULT WINAPI
OLEFontImpl_put_Weight(
921 OLEFontImpl
*this = impl_from_IFont(iface
);
922 TRACE("(%p)->(%d)\n", this, weight
);
924 this->description
.sWeight
= weight
;
926 OLEFont_SendNotify(this, DISPID_FONT_WEIGHT
);
930 /************************************************************************
931 * OLEFontImpl_get_Charset (IFont)
933 static HRESULT WINAPI
OLEFontImpl_get_Charset(
937 OLEFontImpl
*this = impl_from_IFont(iface
);
938 TRACE("(%p)->(%p)\n", this, pcharset
);
945 *pcharset
= this->description
.sCharset
;
950 /************************************************************************
951 * OLEFontImpl_put_Charset (IFont)
953 static HRESULT WINAPI
OLEFontImpl_put_Charset(
957 OLEFontImpl
*this = impl_from_IFont(iface
);
958 TRACE("(%p)->(%d)\n", this, charset
);
960 this->description
.sCharset
= charset
;
961 OLEFont_SendNotify(this, DISPID_FONT_CHARSET
);
966 /************************************************************************
967 * OLEFontImpl_get_hFont (IFont)
969 static HRESULT WINAPI
OLEFontImpl_get_hFont(
973 OLEFontImpl
*this = impl_from_IFont(iface
);
974 TRACE("(%p)->(%p)\n", this, phfont
);
980 *phfont
= this->gdiFont
;
981 TRACE("Returning %p\n", *phfont
);
985 /************************************************************************
986 * OLEFontImpl_Clone (IFont)
988 static HRESULT WINAPI
OLEFontImpl_Clone(
992 OLEFontImpl
*this = impl_from_IFont(iface
);
993 OLEFontImpl
* newObject
;
995 TRACE("(%p)->(%p)\n", this, ppfont
);
1002 newObject
= HeapAlloc(GetProcessHeap(), 0, sizeof(OLEFontImpl
));
1003 if (newObject
==NULL
)
1004 return E_OUTOFMEMORY
;
1007 /* allocate separate buffer */
1008 newObject
->description
.lpstrName
= strdupW(this->description
.lpstrName
);
1010 /* Increment internal ref in hfont item list */
1011 if(newObject
->gdiFont
) inc_int_ref(newObject
->gdiFont
);
1013 InterlockedIncrement(&ifont_cnt
);
1015 newObject
->pPropertyNotifyCP
= NULL
;
1016 newObject
->pFontEventsCP
= NULL
;
1017 CreateConnectionPoint((IUnknown
*)&newObject
->IFont_iface
, &IID_IPropertyNotifySink
,
1018 &newObject
->pPropertyNotifyCP
);
1019 CreateConnectionPoint((IUnknown
*)&newObject
->IFont_iface
, &IID_IFontEventsDisp
,
1020 &newObject
->pFontEventsCP
);
1022 if (!newObject
->pPropertyNotifyCP
|| !newObject
->pFontEventsCP
)
1024 OLEFontImpl_Destroy(newObject
);
1025 return E_OUTOFMEMORY
;
1028 /* The cloned object starts with a reference count of 1 */
1031 *ppfont
= &newObject
->IFont_iface
;
1036 /************************************************************************
1037 * OLEFontImpl_IsEqual (IFont)
1039 static HRESULT WINAPI
OLEFontImpl_IsEqual(
1043 OLEFontImpl
*left
= impl_from_IFont(iface
);
1044 OLEFontImpl
*right
= impl_from_IFont(pFontOther
);
1046 INT left_len
,right_len
;
1048 if(pFontOther
== NULL
)
1050 else if (left
->description
.cySize
.s
.Lo
!= right
->description
.cySize
.s
.Lo
)
1052 else if (left
->description
.cySize
.s
.Hi
!= right
->description
.cySize
.s
.Hi
)
1054 else if (left
->description
.sWeight
!= right
->description
.sWeight
)
1056 else if (left
->description
.sCharset
!= right
->description
.sCharset
)
1058 else if (left
->description
.fItalic
!= right
->description
.fItalic
)
1060 else if (left
->description
.fUnderline
!= right
->description
.fUnderline
)
1062 else if (left
->description
.fStrikethrough
!= right
->description
.fStrikethrough
)
1065 /* Check from string */
1066 left_len
= strlenW(left
->description
.lpstrName
);
1067 right_len
= strlenW(right
->description
.lpstrName
);
1068 ret
= CompareStringW(0,0,left
->description
.lpstrName
, left_len
,
1069 right
->description
.lpstrName
, right_len
);
1070 if (ret
!= CSTR_EQUAL
)
1076 /************************************************************************
1077 * OLEFontImpl_SetRatio (IFont)
1079 static HRESULT WINAPI
OLEFontImpl_SetRatio(
1084 OLEFontImpl
*this = impl_from_IFont(iface
);
1085 TRACE("(%p)->(%d, %d)\n", this, cyLogical
, cyHimetric
);
1087 if(cyLogical
== 0 || cyHimetric
== 0)
1090 /* cyLogical and cyHimetric both set to 1 is a special case that
1091 does not change the scaling but also does not fail */
1092 if(cyLogical
== 1 && cyHimetric
== 1)
1095 this->cyLogical
= cyLogical
;
1096 this->cyHimetric
= cyHimetric
;
1102 /************************************************************************
1103 * OLEFontImpl_QueryTextMetrics (IFont)
1105 static HRESULT WINAPI
OLEFontImpl_QueryTextMetrics(
1110 HFONT hOldFont
, hNewFont
;
1113 IFont_get_hFont(iface
, &hNewFont
);
1114 hOldFont
= SelectObject(hdcRef
, hNewFont
);
1115 GetTextMetricsW(hdcRef
, ptm
);
1116 SelectObject(hdcRef
, hOldFont
);
1117 ReleaseDC(0, hdcRef
);
1121 /************************************************************************
1122 * OLEFontImpl_AddRefHfont (IFont)
1124 static HRESULT WINAPI
OLEFontImpl_AddRefHfont(
1128 OLEFontImpl
*this = impl_from_IFont(iface
);
1130 TRACE("(%p)->(%p)\n", this, hfont
);
1132 if (!hfont
) return E_INVALIDARG
;
1134 return inc_ext_ref(hfont
);
1137 /************************************************************************
1138 * OLEFontImpl_ReleaseHfont (IFont)
1140 static HRESULT WINAPI
OLEFontImpl_ReleaseHfont(
1144 OLEFontImpl
*this = impl_from_IFont(iface
);
1146 TRACE("(%p)->(%p)\n", this, hfont
);
1148 if (!hfont
) return E_INVALIDARG
;
1150 return dec_ext_ref(hfont
);
1153 /************************************************************************
1154 * OLEFontImpl_SetHdc (IFont)
1156 static HRESULT WINAPI
OLEFontImpl_SetHdc(
1160 OLEFontImpl
*this = impl_from_IFont(iface
);
1161 FIXME("(%p)->(%p): Stub\n", this, hdc
);
1165 static const IFontVtbl OLEFontImpl_VTable
=
1167 OLEFontImpl_QueryInterface
,
1169 OLEFontImpl_Release
,
1170 OLEFontImpl_get_Name
,
1171 OLEFontImpl_put_Name
,
1172 OLEFontImpl_get_Size
,
1173 OLEFontImpl_put_Size
,
1174 OLEFontImpl_get_Bold
,
1175 OLEFontImpl_put_Bold
,
1176 OLEFontImpl_get_Italic
,
1177 OLEFontImpl_put_Italic
,
1178 OLEFontImpl_get_Underline
,
1179 OLEFontImpl_put_Underline
,
1180 OLEFontImpl_get_Strikethrough
,
1181 OLEFontImpl_put_Strikethrough
,
1182 OLEFontImpl_get_Weight
,
1183 OLEFontImpl_put_Weight
,
1184 OLEFontImpl_get_Charset
,
1185 OLEFontImpl_put_Charset
,
1186 OLEFontImpl_get_hFont
,
1188 OLEFontImpl_IsEqual
,
1189 OLEFontImpl_SetRatio
,
1190 OLEFontImpl_QueryTextMetrics
,
1191 OLEFontImpl_AddRefHfont
,
1192 OLEFontImpl_ReleaseHfont
,
1196 /************************************************************************
1197 * OLEFontImpl_IDispatch_QueryInterface (IUnknown)
1199 static HRESULT WINAPI
OLEFontImpl_IDispatch_QueryInterface(
1204 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1205 return IFont_QueryInterface(&this->IFont_iface
, riid
, ppvoid
);
1208 /************************************************************************
1209 * OLEFontImpl_IDispatch_Release (IUnknown)
1211 static ULONG WINAPI
OLEFontImpl_IDispatch_Release(
1214 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1215 return IFont_Release(&this->IFont_iface
);
1218 /************************************************************************
1219 * OLEFontImpl_IDispatch_AddRef (IUnknown)
1221 static ULONG WINAPI
OLEFontImpl_IDispatch_AddRef(
1224 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1225 return IFont_AddRef(&this->IFont_iface
);
1228 /************************************************************************
1229 * OLEFontImpl_GetTypeInfoCount (IDispatch)
1231 static HRESULT WINAPI
OLEFontImpl_GetTypeInfoCount(
1233 unsigned int* pctinfo
)
1235 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1236 TRACE("(%p)->(%p)\n", this, pctinfo
);
1242 /************************************************************************
1243 * OLEFontImpl_GetTypeInfo (IDispatch)
1245 static HRESULT WINAPI
OLEFontImpl_GetTypeInfo(
1249 ITypeInfo
** ppTInfo
)
1251 static const WCHAR stdole2tlb
[] = {'s','t','d','o','l','e','2','.','t','l','b',0};
1255 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1256 TRACE("(%p, iTInfo=%d, lcid=%04x, %p)\n", this, iTInfo
, (int)lcid
, ppTInfo
);
1259 hres
= LoadTypeLib(stdole2tlb
, &tl
);
1261 ERR("Could not load the stdole2.tlb?\n");
1264 hres
= ITypeLib_GetTypeInfoOfGuid(tl
, &IID_IFontDisp
, ppTInfo
);
1265 ITypeLib_Release(tl
);
1267 FIXME("Did not IDispatch typeinfo from typelib, hres %x\n",hres
);
1272 /************************************************************************
1273 * OLEFontImpl_GetIDsOfNames (IDispatch)
1275 static HRESULT WINAPI
OLEFontImpl_GetIDsOfNames(
1278 LPOLESTR
* rgszNames
,
1286 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1288 TRACE("(%p,%s,%p,cNames=%d,lcid=%04x,%p)\n", this, debugstr_guid(riid
),
1289 rgszNames
, cNames
, (int)lcid
, rgDispId
);
1291 if (cNames
== 0) return E_INVALIDARG
;
1293 hres
= IDispatch_GetTypeInfo(iface
, 0, lcid
, &pTInfo
);
1296 ERR("GetTypeInfo failed.\n");
1300 /* convert names to DISPIDs */
1301 hres
= DispGetIDsOfNames (pTInfo
, rgszNames
, cNames
, rgDispId
);
1302 ITypeInfo_Release(pTInfo
);
1307 /************************************************************************
1308 * OLEFontImpl_Invoke (IDispatch)
1311 static HRESULT WINAPI
OLEFontImpl_Invoke(
1313 DISPID dispIdMember
,
1317 DISPPARAMS
* pDispParams
,
1318 VARIANT
* pVarResult
,
1319 EXCEPINFO
* pExepInfo
,
1322 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1325 TRACE("%p->(%d,%s,0x%x,0x%x,%p,%p,%p,%p)\n", this, dispIdMember
,
1326 debugstr_guid(riid
), lcid
, wFlags
, pDispParams
, pVarResult
, pExepInfo
,
1329 /* validate parameters */
1331 if (!IsEqualIID(riid
, &IID_NULL
))
1333 ERR("riid was %s instead of IID_NULL\n", debugstr_guid(riid
));
1334 return DISP_E_UNKNOWNINTERFACE
;
1337 if (wFlags
& DISPATCH_PROPERTYGET
)
1341 ERR("null pVarResult not allowed when DISPATCH_PROPERTYGET specified\n");
1342 return DISP_E_PARAMNOTOPTIONAL
;
1345 else if (wFlags
& DISPATCH_PROPERTYPUT
)
1349 ERR("null pDispParams not allowed when DISPATCH_PROPERTYPUT specified\n");
1350 return DISP_E_PARAMNOTOPTIONAL
;
1352 if (pDispParams
->cArgs
!= 1)
1354 ERR("param count for DISPATCH_PROPERTYPUT was %d instead of 1\n", pDispParams
->cArgs
);
1355 return DISP_E_BADPARAMCOUNT
;
1360 ERR("one of DISPATCH_PROPERTYGET or DISPATCH_PROPERTYPUT must be specified\n");
1361 return DISP_E_MEMBERNOTFOUND
;
1364 switch (dispIdMember
) {
1365 case DISPID_FONT_NAME
:
1366 if (wFlags
& DISPATCH_PROPERTYGET
) {
1367 V_VT(pVarResult
) = VT_BSTR
;
1368 return IFont_get_Name(&this->IFont_iface
, &V_BSTR(pVarResult
));
1372 VariantInit(&vararg
);
1373 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BSTR
);
1377 hr
= IFont_put_Name(&this->IFont_iface
, V_BSTR(&vararg
));
1379 VariantClear(&vararg
);
1383 case DISPID_FONT_BOLD
:
1384 if (wFlags
& DISPATCH_PROPERTYGET
) {
1386 hr
= IFont_get_Bold(&this->IFont_iface
, &value
);
1387 V_VT(pVarResult
) = VT_BOOL
;
1388 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1393 VariantInit(&vararg
);
1394 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1398 hr
= IFont_put_Bold(&this->IFont_iface
, V_BOOL(&vararg
));
1400 VariantClear(&vararg
);
1404 case DISPID_FONT_ITALIC
:
1405 if (wFlags
& DISPATCH_PROPERTYGET
) {
1407 hr
= IFont_get_Italic(&this->IFont_iface
, &value
);
1408 V_VT(pVarResult
) = VT_BOOL
;
1409 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1414 VariantInit(&vararg
);
1415 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1419 hr
= IFont_put_Italic(&this->IFont_iface
, V_BOOL(&vararg
));
1421 VariantClear(&vararg
);
1425 case DISPID_FONT_UNDER
:
1426 if (wFlags
& DISPATCH_PROPERTYGET
) {
1428 hr
= IFont_get_Underline(&this->IFont_iface
, &value
);
1429 V_VT(pVarResult
) = VT_BOOL
;
1430 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1435 VariantInit(&vararg
);
1436 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1440 hr
= IFont_put_Underline(&this->IFont_iface
, V_BOOL(&vararg
));
1442 VariantClear(&vararg
);
1446 case DISPID_FONT_STRIKE
:
1447 if (wFlags
& DISPATCH_PROPERTYGET
) {
1449 hr
= IFont_get_Strikethrough(&this->IFont_iface
, &value
);
1450 V_VT(pVarResult
) = VT_BOOL
;
1451 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1456 VariantInit(&vararg
);
1457 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1461 hr
= IFont_put_Strikethrough(&this->IFont_iface
, V_BOOL(&vararg
));
1463 VariantClear(&vararg
);
1467 case DISPID_FONT_SIZE
:
1468 if (wFlags
& DISPATCH_PROPERTYGET
) {
1469 V_VT(pVarResult
) = VT_CY
;
1470 return IFont_get_Size(&this->IFont_iface
, &V_CY(pVarResult
));
1474 VariantInit(&vararg
);
1475 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_CY
);
1479 hr
= IFont_put_Size(&this->IFont_iface
, V_CY(&vararg
));
1481 VariantClear(&vararg
);
1485 case DISPID_FONT_WEIGHT
:
1486 if (wFlags
& DISPATCH_PROPERTYGET
) {
1487 V_VT(pVarResult
) = VT_I2
;
1488 return IFont_get_Weight(&this->IFont_iface
, &V_I2(pVarResult
));
1492 VariantInit(&vararg
);
1493 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_I2
);
1497 hr
= IFont_put_Weight(&this->IFont_iface
, V_I2(&vararg
));
1499 VariantClear(&vararg
);
1503 case DISPID_FONT_CHARSET
:
1504 if (wFlags
& DISPATCH_PROPERTYGET
) {
1505 V_VT(pVarResult
) = VT_I2
;
1506 return OLEFontImpl_get_Charset(&this->IFont_iface
, &V_I2(pVarResult
));
1510 VariantInit(&vararg
);
1511 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_I2
);
1515 hr
= IFont_put_Charset(&this->IFont_iface
, V_I2(&vararg
));
1517 VariantClear(&vararg
);
1522 ERR("member not found for dispid 0x%x\n", dispIdMember
);
1523 return DISP_E_MEMBERNOTFOUND
;
1527 static const IDispatchVtbl OLEFontImpl_IDispatch_VTable
=
1529 OLEFontImpl_IDispatch_QueryInterface
,
1530 OLEFontImpl_IDispatch_AddRef
,
1531 OLEFontImpl_IDispatch_Release
,
1532 OLEFontImpl_GetTypeInfoCount
,
1533 OLEFontImpl_GetTypeInfo
,
1534 OLEFontImpl_GetIDsOfNames
,
1538 /************************************************************************
1539 * OLEFontImpl_IPersistStream_QueryInterface (IUnknown)
1541 static HRESULT WINAPI
OLEFontImpl_IPersistStream_QueryInterface(
1542 IPersistStream
* iface
,
1546 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1548 return IFont_QueryInterface(&this->IFont_iface
, riid
, ppvoid
);
1551 /************************************************************************
1552 * OLEFontImpl_IPersistStream_Release (IUnknown)
1554 static ULONG WINAPI
OLEFontImpl_IPersistStream_Release(
1555 IPersistStream
* iface
)
1557 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1559 return IFont_Release(&this->IFont_iface
);
1562 /************************************************************************
1563 * OLEFontImpl_IPersistStream_AddRef (IUnknown)
1565 static ULONG WINAPI
OLEFontImpl_IPersistStream_AddRef(
1566 IPersistStream
* iface
)
1568 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1570 return IFont_AddRef(&this->IFont_iface
);
1573 /************************************************************************
1574 * OLEFontImpl_GetClassID (IPersistStream)
1576 static HRESULT WINAPI
OLEFontImpl_GetClassID(
1577 IPersistStream
* iface
,
1580 TRACE("(%p,%p)\n",iface
,pClassID
);
1584 *pClassID
= CLSID_StdFont
;
1589 /************************************************************************
1590 * OLEFontImpl_IsDirty (IPersistStream)
1592 * See Windows documentation for more details on IPersistStream methods.
1594 static HRESULT WINAPI
OLEFontImpl_IsDirty(
1595 IPersistStream
* iface
)
1597 TRACE("(%p)\n",iface
);
1601 /************************************************************************
1602 * OLEFontImpl_Load (IPersistStream)
1604 * See Windows documentation for more details on IPersistStream methods.
1606 * This is the format of the standard font serialization as far as I
1609 * Offset Type Value Comment
1610 * 0x0000 Byte Unknown Probably a version number, contains 0x01
1611 * 0x0001 Short Charset Charset value from the FONTDESC structure
1612 * 0x0003 Byte Attributes Flags defined as follows:
1614 * 00000100 - Underline
1615 * 00001000 - Strikethrough
1616 * 0x0004 Short Weight Weight value from FONTDESC structure
1617 * 0x0006 DWORD size "Low" portion of the cySize member of the FONTDESC
1619 * 0x000A Byte name length Length of the font name string (no null character)
1620 * 0x000B String name Name of the font (ASCII, no nul character)
1622 static HRESULT WINAPI
OLEFontImpl_Load(
1623 IPersistStream
* iface
,
1624 IStream
* pLoadStream
)
1626 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1627 BYTE version
, attributes
, string_size
;
1628 char readBuffer
[0x100];
1633 IStream_Read(pLoadStream
, &version
, sizeof(BYTE
), &cbRead
);
1634 if ((cbRead
!= sizeof(BYTE
)) || (version
!= 0x01)) return E_FAIL
;
1637 IStream_Read(pLoadStream
, &this->description
.sCharset
, sizeof(WORD
), &cbRead
);
1638 if (cbRead
!= sizeof(WORD
)) return E_FAIL
;
1641 IStream_Read(pLoadStream
, &attributes
, sizeof(BYTE
), &cbRead
);
1642 if (cbRead
!= sizeof(BYTE
)) return E_FAIL
;
1644 this->description
.fItalic
= (attributes
& FONTPERSIST_ITALIC
) != 0;
1645 this->description
.fStrikethrough
= (attributes
& FONTPERSIST_STRIKETHROUGH
) != 0;
1646 this->description
.fUnderline
= (attributes
& FONTPERSIST_UNDERLINE
) != 0;
1649 IStream_Read(pLoadStream
, &this->description
.sWeight
, sizeof(WORD
), &cbRead
);
1650 if (cbRead
!= sizeof(WORD
)) return E_FAIL
;
1653 IStream_Read(pLoadStream
, &this->description
.cySize
.s
.Lo
, sizeof(DWORD
), &cbRead
);
1654 if (cbRead
!= sizeof(DWORD
)) return E_FAIL
;
1656 this->description
.cySize
.s
.Hi
= 0;
1659 IStream_Read(pLoadStream
, &string_size
, sizeof(BYTE
), &cbRead
);
1660 if (cbRead
!= sizeof(BYTE
)) return E_FAIL
;
1662 IStream_Read(pLoadStream
, readBuffer
, string_size
, &cbRead
);
1663 if (cbRead
!= string_size
) return E_FAIL
;
1665 HeapFree(GetProcessHeap(), 0, this->description
.lpstrName
);
1667 len
= MultiByteToWideChar( CP_ACP
, 0, readBuffer
, string_size
, NULL
, 0 );
1668 this->description
.lpstrName
= HeapAlloc( GetProcessHeap(), 0, (len
+1) * sizeof(WCHAR
) );
1669 MultiByteToWideChar( CP_ACP
, 0, readBuffer
, string_size
, this->description
.lpstrName
, len
);
1670 this->description
.lpstrName
[len
] = 0;
1672 /* Ensure use of this font causes a new one to be created */
1673 dec_int_ref(this->gdiFont
);
1680 /************************************************************************
1681 * OLEFontImpl_Save (IPersistStream)
1683 static HRESULT WINAPI
OLEFontImpl_Save(
1684 IPersistStream
* iface
,
1685 IStream
* pOutStream
,
1688 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1689 BYTE attributes
, string_size
;
1690 const BYTE version
= 0x01;
1691 char* writeBuffer
= NULL
;
1694 TRACE("(%p)->(%p %d)\n", this, pOutStream
, fClearDirty
);
1697 IStream_Write(pOutStream
, &version
, sizeof(BYTE
), &written
);
1698 if (written
!= sizeof(BYTE
)) return E_FAIL
;
1701 IStream_Write(pOutStream
, &this->description
.sCharset
, sizeof(WORD
), &written
);
1702 if (written
!= sizeof(WORD
)) return E_FAIL
;
1707 if (this->description
.fItalic
)
1708 attributes
|= FONTPERSIST_ITALIC
;
1710 if (this->description
.fStrikethrough
)
1711 attributes
|= FONTPERSIST_STRIKETHROUGH
;
1713 if (this->description
.fUnderline
)
1714 attributes
|= FONTPERSIST_UNDERLINE
;
1716 IStream_Write(pOutStream
, &attributes
, sizeof(BYTE
), &written
);
1717 if (written
!= sizeof(BYTE
)) return E_FAIL
;
1720 IStream_Write(pOutStream
, &this->description
.sWeight
, sizeof(WORD
), &written
);
1721 if (written
!= sizeof(WORD
)) return E_FAIL
;
1724 IStream_Write(pOutStream
, &this->description
.cySize
.s
.Lo
, sizeof(DWORD
), &written
);
1725 if (written
!= sizeof(DWORD
)) return E_FAIL
;
1728 if (this->description
.lpstrName
)
1729 string_size
= WideCharToMultiByte( CP_ACP
, 0, this->description
.lpstrName
,
1730 strlenW(this->description
.lpstrName
), NULL
, 0, NULL
, NULL
);
1734 IStream_Write(pOutStream
, &string_size
, sizeof(BYTE
), &written
);
1735 if (written
!= sizeof(BYTE
)) return E_FAIL
;
1739 if (!(writeBuffer
= HeapAlloc( GetProcessHeap(), 0, string_size
))) return E_OUTOFMEMORY
;
1740 WideCharToMultiByte( CP_ACP
, 0, this->description
.lpstrName
,
1741 strlenW(this->description
.lpstrName
),
1742 writeBuffer
, string_size
, NULL
, NULL
);
1744 IStream_Write(pOutStream
, writeBuffer
, string_size
, &written
);
1745 HeapFree(GetProcessHeap(), 0, writeBuffer
);
1747 if (written
!= string_size
) return E_FAIL
;
1753 /************************************************************************
1754 * OLEFontImpl_GetSizeMax (IPersistStream)
1756 static HRESULT WINAPI
OLEFontImpl_GetSizeMax(
1757 IPersistStream
* iface
,
1758 ULARGE_INTEGER
* pcbSize
)
1760 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1765 pcbSize
->u
.HighPart
= 0;
1766 pcbSize
->u
.LowPart
= 0;
1768 pcbSize
->u
.LowPart
+= sizeof(BYTE
); /* Version */
1769 pcbSize
->u
.LowPart
+= sizeof(WORD
); /* Lang code */
1770 pcbSize
->u
.LowPart
+= sizeof(BYTE
); /* Flags */
1771 pcbSize
->u
.LowPart
+= sizeof(WORD
); /* Weight */
1772 pcbSize
->u
.LowPart
+= sizeof(DWORD
); /* Size */
1773 pcbSize
->u
.LowPart
+= sizeof(BYTE
); /* StrLength */
1775 if (this->description
.lpstrName
!=0)
1776 pcbSize
->u
.LowPart
+= WideCharToMultiByte( CP_ACP
, 0, this->description
.lpstrName
,
1777 strlenW(this->description
.lpstrName
),
1778 NULL
, 0, NULL
, NULL
);
1783 static const IPersistStreamVtbl OLEFontImpl_IPersistStream_VTable
=
1785 OLEFontImpl_IPersistStream_QueryInterface
,
1786 OLEFontImpl_IPersistStream_AddRef
,
1787 OLEFontImpl_IPersistStream_Release
,
1788 OLEFontImpl_GetClassID
,
1789 OLEFontImpl_IsDirty
,
1792 OLEFontImpl_GetSizeMax
1795 /************************************************************************
1796 * OLEFontImpl_IConnectionPointContainer_QueryInterface (IUnknown)
1798 static HRESULT WINAPI
OLEFontImpl_IConnectionPointContainer_QueryInterface(
1799 IConnectionPointContainer
* iface
,
1803 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1805 return IFont_QueryInterface(&this->IFont_iface
, riid
, ppvoid
);
1808 /************************************************************************
1809 * OLEFontImpl_IConnectionPointContainer_Release (IUnknown)
1811 static ULONG WINAPI
OLEFontImpl_IConnectionPointContainer_Release(
1812 IConnectionPointContainer
* iface
)
1814 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1816 return IFont_Release(&this->IFont_iface
);
1819 /************************************************************************
1820 * OLEFontImpl_IConnectionPointContainer_AddRef (IUnknown)
1822 static ULONG WINAPI
OLEFontImpl_IConnectionPointContainer_AddRef(
1823 IConnectionPointContainer
* iface
)
1825 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1827 return IFont_AddRef(&this->IFont_iface
);
1830 /************************************************************************
1831 * OLEFontImpl_EnumConnectionPoints (IConnectionPointContainer)
1833 static HRESULT WINAPI
OLEFontImpl_EnumConnectionPoints(
1834 IConnectionPointContainer
* iface
,
1835 IEnumConnectionPoints
**ppEnum
)
1837 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1839 FIXME("(%p)->(%p): stub\n", this, ppEnum
);
1843 /************************************************************************
1844 * OLEFontImpl_FindConnectionPoint (IConnectionPointContainer)
1846 static HRESULT WINAPI
OLEFontImpl_FindConnectionPoint(
1847 IConnectionPointContainer
* iface
,
1849 IConnectionPoint
**ppCp
)
1851 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1852 TRACE("(%p)->(%s, %p)\n", this, debugstr_guid(riid
), ppCp
);
1854 if(IsEqualIID(riid
, &IID_IPropertyNotifySink
)) {
1855 return IConnectionPoint_QueryInterface(this->pPropertyNotifyCP
, &IID_IConnectionPoint
,
1857 } else if(IsEqualIID(riid
, &IID_IFontEventsDisp
)) {
1858 return IConnectionPoint_QueryInterface(this->pFontEventsCP
, &IID_IConnectionPoint
,
1861 FIXME("no connection point for %s\n", debugstr_guid(riid
));
1862 return CONNECT_E_NOCONNECTION
;
1866 static const IConnectionPointContainerVtbl
1867 OLEFontImpl_IConnectionPointContainer_VTable
=
1869 OLEFontImpl_IConnectionPointContainer_QueryInterface
,
1870 OLEFontImpl_IConnectionPointContainer_AddRef
,
1871 OLEFontImpl_IConnectionPointContainer_Release
,
1872 OLEFontImpl_EnumConnectionPoints
,
1873 OLEFontImpl_FindConnectionPoint
1876 /************************************************************************
1877 * OLEFontImpl implementation of IPersistPropertyBag.
1879 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_QueryInterface(
1880 IPersistPropertyBag
*iface
, REFIID riid
, LPVOID
*ppvObj
1882 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1883 return IFont_QueryInterface(&this->IFont_iface
,riid
,ppvObj
);
1886 static ULONG WINAPI
OLEFontImpl_IPersistPropertyBag_AddRef(
1887 IPersistPropertyBag
*iface
1889 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1890 return IFont_AddRef(&this->IFont_iface
);
1893 static ULONG WINAPI
OLEFontImpl_IPersistPropertyBag_Release(
1894 IPersistPropertyBag
*iface
1896 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1897 return IFont_Release(&this->IFont_iface
);
1900 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_GetClassID(
1901 IPersistPropertyBag
*iface
, CLSID
*classid
1903 FIXME("(%p,%p), stub!\n", iface
, classid
);
1907 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_InitNew(
1908 IPersistPropertyBag
*iface
1910 FIXME("(%p), stub!\n", iface
);
1914 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_Load(
1915 IPersistPropertyBag
*iface
, IPropertyBag
* pPropBag
, IErrorLog
* pErrorLog
1917 /* (from Visual Basic 6 property bag)
1918 Name = "MS Sans Serif"
1922 Underline = 0 'False
1924 Strikethrough = 0 'False
1926 static const WCHAR sAttrName
[] = {'N','a','m','e',0};
1927 static const WCHAR sAttrSize
[] = {'S','i','z','e',0};
1928 static const WCHAR sAttrCharset
[] = {'C','h','a','r','s','e','t',0};
1929 static const WCHAR sAttrWeight
[] = {'W','e','i','g','h','t',0};
1930 static const WCHAR sAttrUnderline
[] = {'U','n','d','e','r','l','i','n','e',0};
1931 static const WCHAR sAttrItalic
[] = {'I','t','a','l','i','c',0};
1932 static const WCHAR sAttrStrikethrough
[] = {'S','t','r','i','k','e','t','h','r','o','u','g','h',0};
1933 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1937 VariantInit(&value
);
1939 iRes
= IPropertyBag_Read(pPropBag
, sAttrName
, &value
, pErrorLog
);
1942 iRes
= VariantChangeType(&value
, &value
, 0, VT_BSTR
);
1944 iRes
= IFont_put_Name(&this->IFont_iface
, V_BSTR(&value
));
1946 else if (iRes
== E_INVALIDARG
)
1949 VariantClear(&value
);
1952 iRes
= IPropertyBag_Read(pPropBag
, sAttrSize
, &value
, pErrorLog
);
1955 iRes
= VariantChangeType(&value
, &value
, 0, VT_CY
);
1957 iRes
= IFont_put_Size(&this->IFont_iface
, V_CY(&value
));
1959 else if (iRes
== E_INVALIDARG
)
1962 VariantClear(&value
);
1966 iRes
= IPropertyBag_Read(pPropBag
, sAttrCharset
, &value
, pErrorLog
);
1969 iRes
= VariantChangeType(&value
, &value
, 0, VT_I2
);
1971 iRes
= IFont_put_Charset(&this->IFont_iface
, V_I2(&value
));
1973 else if (iRes
== E_INVALIDARG
)
1976 VariantClear(&value
);
1980 iRes
= IPropertyBag_Read(pPropBag
, sAttrWeight
, &value
, pErrorLog
);
1983 iRes
= VariantChangeType(&value
, &value
, 0, VT_I2
);
1985 iRes
= IFont_put_Weight(&this->IFont_iface
, V_I2(&value
));
1987 else if (iRes
== E_INVALIDARG
)
1990 VariantClear(&value
);
1994 iRes
= IPropertyBag_Read(pPropBag
, sAttrUnderline
, &value
, pErrorLog
);
1997 iRes
= VariantChangeType(&value
, &value
, 0, VT_BOOL
);
1999 iRes
= IFont_put_Underline(&this->IFont_iface
, V_BOOL(&value
));
2001 else if (iRes
== E_INVALIDARG
)
2004 VariantClear(&value
);
2008 iRes
= IPropertyBag_Read(pPropBag
, sAttrItalic
, &value
, pErrorLog
);
2011 iRes
= VariantChangeType(&value
, &value
, 0, VT_BOOL
);
2013 iRes
= IFont_put_Italic(&this->IFont_iface
, V_BOOL(&value
));
2015 else if (iRes
== E_INVALIDARG
)
2018 VariantClear(&value
);
2022 iRes
= IPropertyBag_Read(pPropBag
, sAttrStrikethrough
, &value
, pErrorLog
);
2025 iRes
= VariantChangeType(&value
, &value
, 0, VT_BOOL
);
2027 IFont_put_Strikethrough(&this->IFont_iface
, V_BOOL(&value
));
2029 else if (iRes
== E_INVALIDARG
)
2032 VariantClear(&value
);
2036 WARN("-- 0x%08x\n", iRes
);
2040 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_Save(
2041 IPersistPropertyBag
*iface
, IPropertyBag
* pPropBag
, BOOL fClearDirty
,
2042 BOOL fSaveAllProperties
2044 FIXME("(%p,%p,%d,%d), stub!\n", iface
, pPropBag
, fClearDirty
, fSaveAllProperties
);
2048 static const IPersistPropertyBagVtbl OLEFontImpl_IPersistPropertyBag_VTable
=
2050 OLEFontImpl_IPersistPropertyBag_QueryInterface
,
2051 OLEFontImpl_IPersistPropertyBag_AddRef
,
2052 OLEFontImpl_IPersistPropertyBag_Release
,
2054 OLEFontImpl_IPersistPropertyBag_GetClassID
,
2055 OLEFontImpl_IPersistPropertyBag_InitNew
,
2056 OLEFontImpl_IPersistPropertyBag_Load
,
2057 OLEFontImpl_IPersistPropertyBag_Save
2060 /************************************************************************
2061 * OLEFontImpl implementation of IPersistStreamInit.
2063 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_QueryInterface(
2064 IPersistStreamInit
*iface
, REFIID riid
, LPVOID
*ppvObj
2066 OLEFontImpl
*this = impl_from_IPersistStreamInit(iface
);
2067 return IFont_QueryInterface(&this->IFont_iface
,riid
,ppvObj
);
2070 static ULONG WINAPI
OLEFontImpl_IPersistStreamInit_AddRef(
2071 IPersistStreamInit
*iface
2073 OLEFontImpl
*this = impl_from_IPersistStreamInit(iface
);
2074 return IFont_AddRef(&this->IFont_iface
);
2077 static ULONG WINAPI
OLEFontImpl_IPersistStreamInit_Release(
2078 IPersistStreamInit
*iface
2080 OLEFontImpl
*this = impl_from_IPersistStreamInit(iface
);
2081 return IFont_Release(&this->IFont_iface
);
2084 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_GetClassID(
2085 IPersistStreamInit
*iface
, CLSID
*classid
2087 FIXME("(%p,%p), stub!\n", iface
, classid
);
2091 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_IsDirty(
2092 IPersistStreamInit
*iface
2094 FIXME("(%p), stub!\n", iface
);
2098 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_Load(
2099 IPersistStreamInit
*iface
, LPSTREAM pStm
2101 FIXME("(%p,%p), stub!\n", iface
, pStm
);
2105 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_Save(
2106 IPersistStreamInit
*iface
, LPSTREAM pStm
, BOOL fClearDirty
2108 FIXME("(%p,%p,%d), stub!\n", iface
, pStm
, fClearDirty
);
2112 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_GetSizeMax(
2113 IPersistStreamInit
*iface
, ULARGE_INTEGER
*pcbSize
2115 FIXME("(%p,%p), stub!\n", iface
, pcbSize
);
2119 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_InitNew(
2120 IPersistStreamInit
*iface
2122 FIXME("(%p), stub!\n", iface
);
2126 static const IPersistStreamInitVtbl OLEFontImpl_IPersistStreamInit_VTable
=
2128 OLEFontImpl_IPersistStreamInit_QueryInterface
,
2129 OLEFontImpl_IPersistStreamInit_AddRef
,
2130 OLEFontImpl_IPersistStreamInit_Release
,
2132 OLEFontImpl_IPersistStreamInit_GetClassID
,
2133 OLEFontImpl_IPersistStreamInit_IsDirty
,
2134 OLEFontImpl_IPersistStreamInit_Load
,
2135 OLEFontImpl_IPersistStreamInit_Save
,
2136 OLEFontImpl_IPersistStreamInit_GetSizeMax
,
2137 OLEFontImpl_IPersistStreamInit_InitNew
2140 /************************************************************************
2141 * OLEFontImpl_Construct
2143 * This method will construct a new instance of the OLEFontImpl
2146 * The caller of this method must release the object when it's
2149 static OLEFontImpl
* OLEFontImpl_Construct(const FONTDESC
*fontDesc
)
2151 OLEFontImpl
* newObject
;
2153 newObject
= HeapAlloc(GetProcessHeap(), 0, sizeof(OLEFontImpl
));
2158 newObject
->IFont_iface
.lpVtbl
= &OLEFontImpl_VTable
;
2159 newObject
->IDispatch_iface
.lpVtbl
= &OLEFontImpl_IDispatch_VTable
;
2160 newObject
->IPersistStream_iface
.lpVtbl
= &OLEFontImpl_IPersistStream_VTable
;
2161 newObject
->IConnectionPointContainer_iface
.lpVtbl
= &OLEFontImpl_IConnectionPointContainer_VTable
;
2162 newObject
->IPersistPropertyBag_iface
.lpVtbl
= &OLEFontImpl_IPersistPropertyBag_VTable
;
2163 newObject
->IPersistStreamInit_iface
.lpVtbl
= &OLEFontImpl_IPersistStreamInit_VTable
;
2167 newObject
->description
.cbSizeofstruct
= sizeof(FONTDESC
);
2168 newObject
->description
.lpstrName
= strdupW(fontDesc
->lpstrName
);
2169 newObject
->description
.cySize
= fontDesc
->cySize
;
2170 newObject
->description
.sWeight
= fontDesc
->sWeight
;
2171 newObject
->description
.sCharset
= fontDesc
->sCharset
;
2172 newObject
->description
.fItalic
= fontDesc
->fItalic
;
2173 newObject
->description
.fUnderline
= fontDesc
->fUnderline
;
2174 newObject
->description
.fStrikethrough
= fontDesc
->fStrikethrough
;
2176 newObject
->gdiFont
= 0;
2177 newObject
->dirty
= TRUE
;
2178 newObject
->cyLogical
= GetDeviceCaps(get_dc(), LOGPIXELSY
);
2179 newObject
->cyHimetric
= 2540L;
2180 newObject
->pPropertyNotifyCP
= NULL
;
2181 newObject
->pFontEventsCP
= NULL
;
2183 CreateConnectionPoint((IUnknown
*)&newObject
->IFont_iface
, &IID_IPropertyNotifySink
, &newObject
->pPropertyNotifyCP
);
2184 CreateConnectionPoint((IUnknown
*)&newObject
->IFont_iface
, &IID_IFontEventsDisp
, &newObject
->pFontEventsCP
);
2186 if (!newObject
->pPropertyNotifyCP
|| !newObject
->pFontEventsCP
)
2188 OLEFontImpl_Destroy(newObject
);
2192 InterlockedIncrement(&ifont_cnt
);
2194 TRACE("returning %p\n", newObject
);
2198 /************************************************************************
2199 * OLEFontImpl_Destroy
2201 * This method is called by the Release method when the reference
2202 * count goes down to 0. It will free all resources used by
2205 static void OLEFontImpl_Destroy(OLEFontImpl
* fontDesc
)
2207 TRACE("(%p)\n", fontDesc
);
2209 HeapFree(GetProcessHeap(), 0, fontDesc
->description
.lpstrName
);
2211 if (fontDesc
->pPropertyNotifyCP
)
2212 IConnectionPoint_Release(fontDesc
->pPropertyNotifyCP
);
2213 if (fontDesc
->pFontEventsCP
)
2214 IConnectionPoint_Release(fontDesc
->pFontEventsCP
);
2216 HeapFree(GetProcessHeap(), 0, fontDesc
);
2219 /*******************************************************************************
2220 * StdFont ClassFactory
2224 /* IUnknown fields */
2225 IClassFactory IClassFactory_iface
;
2227 } IClassFactoryImpl
;
2229 static inline IClassFactoryImpl
*impl_from_IClassFactory(IClassFactory
*iface
)
2231 return CONTAINING_RECORD(iface
, IClassFactoryImpl
, IClassFactory_iface
);
2234 static HRESULT WINAPI
SFCF_QueryInterface(IClassFactory
*iface
, REFIID riid
, void **obj
)
2236 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2238 TRACE("(%p)->(%s, %p)\n", This
, debugstr_guid(riid
), obj
);
2242 if (IsEqualIID(&IID_IClassFactory
, riid
) || IsEqualIID(&IID_IUnknown
, riid
))
2245 IClassFactory_AddRef(iface
);
2249 return E_NOINTERFACE
;
2253 SFCF_AddRef(LPCLASSFACTORY iface
) {
2254 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2255 return InterlockedIncrement(&This
->ref
);
2258 static ULONG WINAPI
SFCF_Release(LPCLASSFACTORY iface
) {
2259 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2260 /* static class, won't be freed */
2261 return InterlockedDecrement(&This
->ref
);
2264 static HRESULT WINAPI
SFCF_CreateInstance(
2265 LPCLASSFACTORY iface
,LPUNKNOWN pOuter
,REFIID riid
,LPVOID
*ppobj
2267 return OleCreateFontIndirect(NULL
,riid
,ppobj
);
2271 static HRESULT WINAPI
SFCF_LockServer(LPCLASSFACTORY iface
,BOOL dolock
) {
2272 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2273 FIXME("(%p)->(%d),stub!\n",This
,dolock
);
2277 static const IClassFactoryVtbl SFCF_Vtbl
= {
2278 SFCF_QueryInterface
,
2281 SFCF_CreateInstance
,
2284 static IClassFactoryImpl STDFONT_CF
= {{&SFCF_Vtbl
}, 1 };
2286 void _get_STDFONT_CF(LPVOID
*ppv
) { *ppv
= &STDFONT_CF
; }