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;
358 fd
.fStrikethrough
= 0;
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','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
, (LPVOID
)&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
, (LPVOID
)&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
, sizeof(text_face
) / sizeof(text_face
[0]), 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
, sizeof(text_face
) / sizeof(text_face
[0]), 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
, &IID_IPropertyNotifySink
, &newObject
->pPropertyNotifyCP
);
1018 CreateConnectionPoint((IUnknown
*)newObject
, &IID_IFontEventsDisp
, &newObject
->pFontEventsCP
);
1020 if (!newObject
->pPropertyNotifyCP
|| !newObject
->pFontEventsCP
)
1022 OLEFontImpl_Destroy(newObject
);
1023 return E_OUTOFMEMORY
;
1026 /* The cloned object starts with a reference count of 1 */
1029 *ppfont
= &newObject
->IFont_iface
;
1034 /************************************************************************
1035 * OLEFontImpl_IsEqual (IFont)
1037 static HRESULT WINAPI
OLEFontImpl_IsEqual(
1041 OLEFontImpl
*left
= impl_from_IFont(iface
);
1042 OLEFontImpl
*right
= impl_from_IFont(pFontOther
);
1044 INT left_len
,right_len
;
1046 if(pFontOther
== NULL
)
1048 else if (left
->description
.cySize
.s
.Lo
!= right
->description
.cySize
.s
.Lo
)
1050 else if (left
->description
.cySize
.s
.Hi
!= right
->description
.cySize
.s
.Hi
)
1052 else if (left
->description
.sWeight
!= right
->description
.sWeight
)
1054 else if (left
->description
.sCharset
!= right
->description
.sCharset
)
1056 else if (left
->description
.fItalic
!= right
->description
.fItalic
)
1058 else if (left
->description
.fUnderline
!= right
->description
.fUnderline
)
1060 else if (left
->description
.fStrikethrough
!= right
->description
.fStrikethrough
)
1063 /* Check from string */
1064 left_len
= strlenW(left
->description
.lpstrName
);
1065 right_len
= strlenW(right
->description
.lpstrName
);
1066 ret
= CompareStringW(0,0,left
->description
.lpstrName
, left_len
,
1067 right
->description
.lpstrName
, right_len
);
1068 if (ret
!= CSTR_EQUAL
)
1074 /************************************************************************
1075 * OLEFontImpl_SetRatio (IFont)
1077 static HRESULT WINAPI
OLEFontImpl_SetRatio(
1082 OLEFontImpl
*this = impl_from_IFont(iface
);
1083 TRACE("(%p)->(%d, %d)\n", this, cyLogical
, cyHimetric
);
1085 if(cyLogical
== 0 || cyHimetric
== 0)
1086 return E_INVALIDARG
;
1088 this->cyLogical
= cyLogical
;
1089 this->cyHimetric
= cyHimetric
;
1095 /************************************************************************
1096 * OLEFontImpl_QueryTextMetrics (IFont)
1098 static HRESULT WINAPI
OLEFontImpl_QueryTextMetrics(
1103 HFONT hOldFont
, hNewFont
;
1106 IFont_get_hFont(iface
, &hNewFont
);
1107 hOldFont
= SelectObject(hdcRef
, hNewFont
);
1108 GetTextMetricsW(hdcRef
, ptm
);
1109 SelectObject(hdcRef
, hOldFont
);
1110 ReleaseDC(0, hdcRef
);
1114 /************************************************************************
1115 * OLEFontImpl_AddRefHfont (IFont)
1117 static HRESULT WINAPI
OLEFontImpl_AddRefHfont(
1121 OLEFontImpl
*this = impl_from_IFont(iface
);
1123 TRACE("(%p)->(%p)\n", this, hfont
);
1125 if (!hfont
) return E_INVALIDARG
;
1127 return inc_ext_ref(hfont
);
1130 /************************************************************************
1131 * OLEFontImpl_ReleaseHfont (IFont)
1133 static HRESULT WINAPI
OLEFontImpl_ReleaseHfont(
1137 OLEFontImpl
*this = impl_from_IFont(iface
);
1139 TRACE("(%p)->(%p)\n", this, hfont
);
1141 if (!hfont
) return E_INVALIDARG
;
1143 return dec_ext_ref(hfont
);
1146 /************************************************************************
1147 * OLEFontImpl_SetHdc (IFont)
1149 static HRESULT WINAPI
OLEFontImpl_SetHdc(
1153 OLEFontImpl
*this = impl_from_IFont(iface
);
1154 FIXME("(%p)->(%p): Stub\n", this, hdc
);
1158 static const IFontVtbl OLEFontImpl_VTable
=
1160 OLEFontImpl_QueryInterface
,
1162 OLEFontImpl_Release
,
1163 OLEFontImpl_get_Name
,
1164 OLEFontImpl_put_Name
,
1165 OLEFontImpl_get_Size
,
1166 OLEFontImpl_put_Size
,
1167 OLEFontImpl_get_Bold
,
1168 OLEFontImpl_put_Bold
,
1169 OLEFontImpl_get_Italic
,
1170 OLEFontImpl_put_Italic
,
1171 OLEFontImpl_get_Underline
,
1172 OLEFontImpl_put_Underline
,
1173 OLEFontImpl_get_Strikethrough
,
1174 OLEFontImpl_put_Strikethrough
,
1175 OLEFontImpl_get_Weight
,
1176 OLEFontImpl_put_Weight
,
1177 OLEFontImpl_get_Charset
,
1178 OLEFontImpl_put_Charset
,
1179 OLEFontImpl_get_hFont
,
1181 OLEFontImpl_IsEqual
,
1182 OLEFontImpl_SetRatio
,
1183 OLEFontImpl_QueryTextMetrics
,
1184 OLEFontImpl_AddRefHfont
,
1185 OLEFontImpl_ReleaseHfont
,
1189 /************************************************************************
1190 * OLEFontImpl_IDispatch_QueryInterface (IUnknown)
1192 static HRESULT WINAPI
OLEFontImpl_IDispatch_QueryInterface(
1197 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1198 return IFont_QueryInterface(&this->IFont_iface
, riid
, ppvoid
);
1201 /************************************************************************
1202 * OLEFontImpl_IDispatch_Release (IUnknown)
1204 static ULONG WINAPI
OLEFontImpl_IDispatch_Release(
1207 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1208 return IFont_Release(&this->IFont_iface
);
1211 /************************************************************************
1212 * OLEFontImpl_IDispatch_AddRef (IUnknown)
1214 static ULONG WINAPI
OLEFontImpl_IDispatch_AddRef(
1217 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1218 return IFont_AddRef(&this->IFont_iface
);
1221 /************************************************************************
1222 * OLEFontImpl_GetTypeInfoCount (IDispatch)
1224 static HRESULT WINAPI
OLEFontImpl_GetTypeInfoCount(
1226 unsigned int* pctinfo
)
1228 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1229 TRACE("(%p)->(%p)\n", this, pctinfo
);
1235 /************************************************************************
1236 * OLEFontImpl_GetTypeInfo (IDispatch)
1238 static HRESULT WINAPI
OLEFontImpl_GetTypeInfo(
1242 ITypeInfo
** ppTInfo
)
1244 static const WCHAR stdole2tlb
[] = {'s','t','d','o','l','e','2','.','t','l','b',0};
1248 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1249 TRACE("(%p, iTInfo=%d, lcid=%04x, %p)\n", this, iTInfo
, (int)lcid
, ppTInfo
);
1252 hres
= LoadTypeLib(stdole2tlb
, &tl
);
1254 ERR("Could not load the stdole2.tlb?\n");
1257 hres
= ITypeLib_GetTypeInfoOfGuid(tl
, &IID_IFontDisp
, ppTInfo
);
1258 ITypeLib_Release(tl
);
1260 FIXME("Did not IDispatch typeinfo from typelib, hres %x\n",hres
);
1265 /************************************************************************
1266 * OLEFontImpl_GetIDsOfNames (IDispatch)
1268 static HRESULT WINAPI
OLEFontImpl_GetIDsOfNames(
1271 LPOLESTR
* rgszNames
,
1279 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1281 TRACE("(%p,%s,%p,cNames=%d,lcid=%04x,%p)\n", this, debugstr_guid(riid
),
1282 rgszNames
, cNames
, (int)lcid
, rgDispId
);
1284 if (cNames
== 0) return E_INVALIDARG
;
1286 hres
= IDispatch_GetTypeInfo(iface
, 0, lcid
, &pTInfo
);
1289 ERR("GetTypeInfo failed.\n");
1293 /* convert names to DISPIDs */
1294 hres
= DispGetIDsOfNames (pTInfo
, rgszNames
, cNames
, rgDispId
);
1295 ITypeInfo_Release(pTInfo
);
1300 /************************************************************************
1301 * OLEFontImpl_Invoke (IDispatch)
1303 * Note: Do not call _put_Xxx methods, since setting things here
1304 * should not call notify functions as I found out debugging the generic
1307 static HRESULT WINAPI
OLEFontImpl_Invoke(
1309 DISPID dispIdMember
,
1313 DISPPARAMS
* pDispParams
,
1314 VARIANT
* pVarResult
,
1315 EXCEPINFO
* pExepInfo
,
1318 OLEFontImpl
*this = impl_from_IDispatch(iface
);
1321 TRACE("%p->(%d,%s,0x%x,0x%x,%p,%p,%p,%p)\n", this, dispIdMember
,
1322 debugstr_guid(riid
), lcid
, wFlags
, pDispParams
, pVarResult
, pExepInfo
,
1325 /* validate parameters */
1327 if (!IsEqualIID(riid
, &IID_NULL
))
1329 ERR("riid was %s instead of IID_NULL\n", debugstr_guid(riid
));
1330 return DISP_E_UNKNOWNINTERFACE
;
1333 if (wFlags
& DISPATCH_PROPERTYGET
)
1337 ERR("null pVarResult not allowed when DISPATCH_PROPERTYGET specified\n");
1338 return DISP_E_PARAMNOTOPTIONAL
;
1341 else if (wFlags
& DISPATCH_PROPERTYPUT
)
1345 ERR("null pDispParams not allowed when DISPATCH_PROPERTYPUT specified\n");
1346 return DISP_E_PARAMNOTOPTIONAL
;
1348 if (pDispParams
->cArgs
!= 1)
1350 ERR("param count for DISPATCH_PROPERTYPUT was %d instead of 1\n", pDispParams
->cArgs
);
1351 return DISP_E_BADPARAMCOUNT
;
1356 ERR("one of DISPATCH_PROPERTYGET or DISPATCH_PROPERTYPUT must be specified\n");
1357 return DISP_E_MEMBERNOTFOUND
;
1360 switch (dispIdMember
) {
1361 case DISPID_FONT_NAME
:
1362 if (wFlags
& DISPATCH_PROPERTYGET
) {
1363 V_VT(pVarResult
) = VT_BSTR
;
1364 return IFont_get_Name(&this->IFont_iface
, &V_BSTR(pVarResult
));
1368 VariantInit(&vararg
);
1369 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BSTR
);
1373 hr
= IFont_put_Name(&this->IFont_iface
, V_BSTR(&vararg
));
1375 VariantClear(&vararg
);
1379 case DISPID_FONT_BOLD
:
1380 if (wFlags
& DISPATCH_PROPERTYGET
) {
1382 hr
= IFont_get_Bold(&this->IFont_iface
, &value
);
1383 V_VT(pVarResult
) = VT_BOOL
;
1384 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1389 VariantInit(&vararg
);
1390 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1394 hr
= IFont_put_Bold(&this->IFont_iface
, V_BOOL(&vararg
));
1396 VariantClear(&vararg
);
1400 case DISPID_FONT_ITALIC
:
1401 if (wFlags
& DISPATCH_PROPERTYGET
) {
1403 hr
= IFont_get_Italic(&this->IFont_iface
, &value
);
1404 V_VT(pVarResult
) = VT_BOOL
;
1405 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1410 VariantInit(&vararg
);
1411 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1415 hr
= IFont_put_Italic(&this->IFont_iface
, V_BOOL(&vararg
));
1417 VariantClear(&vararg
);
1421 case DISPID_FONT_UNDER
:
1422 if (wFlags
& DISPATCH_PROPERTYGET
) {
1424 hr
= IFont_get_Underline(&this->IFont_iface
, &value
);
1425 V_VT(pVarResult
) = VT_BOOL
;
1426 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1431 VariantInit(&vararg
);
1432 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1436 hr
= IFont_put_Underline(&this->IFont_iface
, V_BOOL(&vararg
));
1438 VariantClear(&vararg
);
1442 case DISPID_FONT_STRIKE
:
1443 if (wFlags
& DISPATCH_PROPERTYGET
) {
1445 hr
= IFont_get_Strikethrough(&this->IFont_iface
, &value
);
1446 V_VT(pVarResult
) = VT_BOOL
;
1447 V_BOOL(pVarResult
) = value
? VARIANT_TRUE
: VARIANT_FALSE
;
1452 VariantInit(&vararg
);
1453 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_BOOL
);
1457 hr
= IFont_put_Strikethrough(&this->IFont_iface
, V_BOOL(&vararg
));
1459 VariantClear(&vararg
);
1463 case DISPID_FONT_SIZE
:
1464 if (wFlags
& DISPATCH_PROPERTYGET
) {
1465 V_VT(pVarResult
) = VT_CY
;
1466 return IFont_get_Size(&this->IFont_iface
, &V_CY(pVarResult
));
1470 VariantInit(&vararg
);
1471 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_CY
);
1475 hr
= IFont_put_Size(&this->IFont_iface
, V_CY(&vararg
));
1477 VariantClear(&vararg
);
1481 case DISPID_FONT_WEIGHT
:
1482 if (wFlags
& DISPATCH_PROPERTYGET
) {
1483 V_VT(pVarResult
) = VT_I2
;
1484 return IFont_get_Weight(&this->IFont_iface
, &V_I2(pVarResult
));
1488 VariantInit(&vararg
);
1489 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_I2
);
1493 hr
= IFont_put_Weight(&this->IFont_iface
, V_I2(&vararg
));
1495 VariantClear(&vararg
);
1499 case DISPID_FONT_CHARSET
:
1500 if (wFlags
& DISPATCH_PROPERTYGET
) {
1501 V_VT(pVarResult
) = VT_I2
;
1502 return OLEFontImpl_get_Charset(&this->IFont_iface
, &V_I2(pVarResult
));
1506 VariantInit(&vararg
);
1507 hr
= VariantChangeTypeEx(&vararg
, &pDispParams
->rgvarg
[0], lcid
, 0, VT_I2
);
1511 hr
= IFont_put_Charset(&this->IFont_iface
, V_I2(&vararg
));
1513 VariantClear(&vararg
);
1518 ERR("member not found for dispid 0x%x\n", dispIdMember
);
1519 return DISP_E_MEMBERNOTFOUND
;
1523 static const IDispatchVtbl OLEFontImpl_IDispatch_VTable
=
1525 OLEFontImpl_IDispatch_QueryInterface
,
1526 OLEFontImpl_IDispatch_AddRef
,
1527 OLEFontImpl_IDispatch_Release
,
1528 OLEFontImpl_GetTypeInfoCount
,
1529 OLEFontImpl_GetTypeInfo
,
1530 OLEFontImpl_GetIDsOfNames
,
1534 /************************************************************************
1535 * OLEFontImpl_IPersistStream_QueryInterface (IUnknown)
1537 static HRESULT WINAPI
OLEFontImpl_IPersistStream_QueryInterface(
1538 IPersistStream
* iface
,
1542 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1544 return IFont_QueryInterface(&this->IFont_iface
, riid
, ppvoid
);
1547 /************************************************************************
1548 * OLEFontImpl_IPersistStream_Release (IUnknown)
1550 static ULONG WINAPI
OLEFontImpl_IPersistStream_Release(
1551 IPersistStream
* iface
)
1553 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1555 return IFont_Release(&this->IFont_iface
);
1558 /************************************************************************
1559 * OLEFontImpl_IPersistStream_AddRef (IUnknown)
1561 static ULONG WINAPI
OLEFontImpl_IPersistStream_AddRef(
1562 IPersistStream
* iface
)
1564 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1566 return IFont_AddRef(&this->IFont_iface
);
1569 /************************************************************************
1570 * OLEFontImpl_GetClassID (IPersistStream)
1572 static HRESULT WINAPI
OLEFontImpl_GetClassID(
1573 IPersistStream
* iface
,
1576 TRACE("(%p,%p)\n",iface
,pClassID
);
1580 *pClassID
= CLSID_StdFont
;
1585 /************************************************************************
1586 * OLEFontImpl_IsDirty (IPersistStream)
1588 * See Windows documentation for more details on IPersistStream methods.
1590 static HRESULT WINAPI
OLEFontImpl_IsDirty(
1591 IPersistStream
* iface
)
1593 TRACE("(%p)\n",iface
);
1597 /************************************************************************
1598 * OLEFontImpl_Load (IPersistStream)
1600 * See Windows documentation for more details on IPersistStream methods.
1602 * This is the format of the standard font serialization as far as I
1605 * Offset Type Value Comment
1606 * 0x0000 Byte Unknown Probably a version number, contains 0x01
1607 * 0x0001 Short Charset Charset value from the FONTDESC structure
1608 * 0x0003 Byte Attributes Flags defined as follows:
1610 * 00000100 - Underline
1611 * 00001000 - Strikethrough
1612 * 0x0004 Short Weight Weight value from FONTDESC structure
1613 * 0x0006 DWORD size "Low" portion of the cySize member of the FONTDESC
1615 * 0x000A Byte name length Length of the font name string (no null character)
1616 * 0x000B String name Name of the font (ASCII, no nul character)
1618 static HRESULT WINAPI
OLEFontImpl_Load(
1619 IPersistStream
* iface
,
1620 IStream
* pLoadStream
)
1622 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1623 BYTE version
, attributes
, string_size
;
1624 char readBuffer
[0x100];
1629 IStream_Read(pLoadStream
, &version
, sizeof(BYTE
), &cbRead
);
1630 if ((cbRead
!= sizeof(BYTE
)) || (version
!= 0x01)) return E_FAIL
;
1633 IStream_Read(pLoadStream
, &this->description
.sCharset
, sizeof(WORD
), &cbRead
);
1634 if (cbRead
!= sizeof(WORD
)) return E_FAIL
;
1637 IStream_Read(pLoadStream
, &attributes
, sizeof(BYTE
), &cbRead
);
1638 if (cbRead
!= sizeof(BYTE
)) return E_FAIL
;
1640 this->description
.fItalic
= (attributes
& FONTPERSIST_ITALIC
) != 0;
1641 this->description
.fStrikethrough
= (attributes
& FONTPERSIST_STRIKETHROUGH
) != 0;
1642 this->description
.fUnderline
= (attributes
& FONTPERSIST_UNDERLINE
) != 0;
1645 IStream_Read(pLoadStream
, &this->description
.sWeight
, sizeof(WORD
), &cbRead
);
1646 if (cbRead
!= sizeof(WORD
)) return E_FAIL
;
1649 IStream_Read(pLoadStream
, &this->description
.cySize
.s
.Lo
, sizeof(DWORD
), &cbRead
);
1650 if (cbRead
!= sizeof(DWORD
)) return E_FAIL
;
1652 this->description
.cySize
.s
.Hi
= 0;
1655 IStream_Read(pLoadStream
, &string_size
, sizeof(BYTE
), &cbRead
);
1656 if (cbRead
!= sizeof(BYTE
)) return E_FAIL
;
1658 IStream_Read(pLoadStream
, readBuffer
, string_size
, &cbRead
);
1659 if (cbRead
!= string_size
) return E_FAIL
;
1661 HeapFree(GetProcessHeap(), 0, this->description
.lpstrName
);
1663 len
= MultiByteToWideChar( CP_ACP
, 0, readBuffer
, string_size
, NULL
, 0 );
1664 this->description
.lpstrName
= HeapAlloc( GetProcessHeap(), 0, (len
+1) * sizeof(WCHAR
) );
1665 MultiByteToWideChar( CP_ACP
, 0, readBuffer
, string_size
, this->description
.lpstrName
, len
);
1666 this->description
.lpstrName
[len
] = 0;
1668 /* Ensure use of this font causes a new one to be created */
1669 dec_int_ref(this->gdiFont
);
1676 /************************************************************************
1677 * OLEFontImpl_Save (IPersistStream)
1679 static HRESULT WINAPI
OLEFontImpl_Save(
1680 IPersistStream
* iface
,
1681 IStream
* pOutStream
,
1684 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1685 BYTE attributes
, string_size
;
1686 const BYTE version
= 0x01;
1687 char* writeBuffer
= NULL
;
1690 TRACE("(%p)->(%p %d)\n", this, pOutStream
, fClearDirty
);
1693 IStream_Write(pOutStream
, &version
, sizeof(BYTE
), &written
);
1694 if (written
!= sizeof(BYTE
)) return E_FAIL
;
1697 IStream_Write(pOutStream
, &this->description
.sCharset
, sizeof(WORD
), &written
);
1698 if (written
!= sizeof(WORD
)) return E_FAIL
;
1703 if (this->description
.fItalic
)
1704 attributes
|= FONTPERSIST_ITALIC
;
1706 if (this->description
.fStrikethrough
)
1707 attributes
|= FONTPERSIST_STRIKETHROUGH
;
1709 if (this->description
.fUnderline
)
1710 attributes
|= FONTPERSIST_UNDERLINE
;
1712 IStream_Write(pOutStream
, &attributes
, sizeof(BYTE
), &written
);
1713 if (written
!= sizeof(BYTE
)) return E_FAIL
;
1716 IStream_Write(pOutStream
, &this->description
.sWeight
, sizeof(WORD
), &written
);
1717 if (written
!= sizeof(WORD
)) return E_FAIL
;
1720 IStream_Write(pOutStream
, &this->description
.cySize
.s
.Lo
, sizeof(DWORD
), &written
);
1721 if (written
!= sizeof(DWORD
)) return E_FAIL
;
1724 if (this->description
.lpstrName
)
1725 string_size
= WideCharToMultiByte( CP_ACP
, 0, this->description
.lpstrName
,
1726 strlenW(this->description
.lpstrName
), NULL
, 0, NULL
, NULL
);
1730 IStream_Write(pOutStream
, &string_size
, sizeof(BYTE
), &written
);
1731 if (written
!= sizeof(BYTE
)) return E_FAIL
;
1735 if (!(writeBuffer
= HeapAlloc( GetProcessHeap(), 0, string_size
))) return E_OUTOFMEMORY
;
1736 WideCharToMultiByte( CP_ACP
, 0, this->description
.lpstrName
,
1737 strlenW(this->description
.lpstrName
),
1738 writeBuffer
, string_size
, NULL
, NULL
);
1740 IStream_Write(pOutStream
, writeBuffer
, string_size
, &written
);
1741 HeapFree(GetProcessHeap(), 0, writeBuffer
);
1743 if (written
!= string_size
) return E_FAIL
;
1749 /************************************************************************
1750 * OLEFontImpl_GetSizeMax (IPersistStream)
1752 static HRESULT WINAPI
OLEFontImpl_GetSizeMax(
1753 IPersistStream
* iface
,
1754 ULARGE_INTEGER
* pcbSize
)
1756 OLEFontImpl
*this = impl_from_IPersistStream(iface
);
1761 pcbSize
->u
.HighPart
= 0;
1762 pcbSize
->u
.LowPart
= 0;
1764 pcbSize
->u
.LowPart
+= sizeof(BYTE
); /* Version */
1765 pcbSize
->u
.LowPart
+= sizeof(WORD
); /* Lang code */
1766 pcbSize
->u
.LowPart
+= sizeof(BYTE
); /* Flags */
1767 pcbSize
->u
.LowPart
+= sizeof(WORD
); /* Weight */
1768 pcbSize
->u
.LowPart
+= sizeof(DWORD
); /* Size */
1769 pcbSize
->u
.LowPart
+= sizeof(BYTE
); /* StrLength */
1771 if (this->description
.lpstrName
!=0)
1772 pcbSize
->u
.LowPart
+= WideCharToMultiByte( CP_ACP
, 0, this->description
.lpstrName
,
1773 strlenW(this->description
.lpstrName
),
1774 NULL
, 0, NULL
, NULL
);
1779 static const IPersistStreamVtbl OLEFontImpl_IPersistStream_VTable
=
1781 OLEFontImpl_IPersistStream_QueryInterface
,
1782 OLEFontImpl_IPersistStream_AddRef
,
1783 OLEFontImpl_IPersistStream_Release
,
1784 OLEFontImpl_GetClassID
,
1785 OLEFontImpl_IsDirty
,
1788 OLEFontImpl_GetSizeMax
1791 /************************************************************************
1792 * OLEFontImpl_IConnectionPointContainer_QueryInterface (IUnknown)
1794 static HRESULT WINAPI
OLEFontImpl_IConnectionPointContainer_QueryInterface(
1795 IConnectionPointContainer
* iface
,
1799 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1801 return IFont_QueryInterface(&this->IFont_iface
, riid
, ppvoid
);
1804 /************************************************************************
1805 * OLEFontImpl_IConnectionPointContainer_Release (IUnknown)
1807 static ULONG WINAPI
OLEFontImpl_IConnectionPointContainer_Release(
1808 IConnectionPointContainer
* iface
)
1810 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1812 return IFont_Release(&this->IFont_iface
);
1815 /************************************************************************
1816 * OLEFontImpl_IConnectionPointContainer_AddRef (IUnknown)
1818 static ULONG WINAPI
OLEFontImpl_IConnectionPointContainer_AddRef(
1819 IConnectionPointContainer
* iface
)
1821 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1823 return IFont_AddRef(&this->IFont_iface
);
1826 /************************************************************************
1827 * OLEFontImpl_EnumConnectionPoints (IConnectionPointContainer)
1829 static HRESULT WINAPI
OLEFontImpl_EnumConnectionPoints(
1830 IConnectionPointContainer
* iface
,
1831 IEnumConnectionPoints
**ppEnum
)
1833 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1835 FIXME("(%p)->(%p): stub\n", this, ppEnum
);
1839 /************************************************************************
1840 * OLEFontImpl_FindConnectionPoint (IConnectionPointContainer)
1842 static HRESULT WINAPI
OLEFontImpl_FindConnectionPoint(
1843 IConnectionPointContainer
* iface
,
1845 IConnectionPoint
**ppCp
)
1847 OLEFontImpl
*this = impl_from_IConnectionPointContainer(iface
);
1848 TRACE("(%p)->(%s, %p)\n", this, debugstr_guid(riid
), ppCp
);
1850 if(IsEqualIID(riid
, &IID_IPropertyNotifySink
)) {
1851 return IConnectionPoint_QueryInterface(this->pPropertyNotifyCP
,
1852 &IID_IConnectionPoint
,
1854 } else if(IsEqualIID(riid
, &IID_IFontEventsDisp
)) {
1855 return IConnectionPoint_QueryInterface(this->pFontEventsCP
,
1856 &IID_IConnectionPoint
,
1859 FIXME("no connection point for %s\n", debugstr_guid(riid
));
1860 return CONNECT_E_NOCONNECTION
;
1864 static const IConnectionPointContainerVtbl
1865 OLEFontImpl_IConnectionPointContainer_VTable
=
1867 OLEFontImpl_IConnectionPointContainer_QueryInterface
,
1868 OLEFontImpl_IConnectionPointContainer_AddRef
,
1869 OLEFontImpl_IConnectionPointContainer_Release
,
1870 OLEFontImpl_EnumConnectionPoints
,
1871 OLEFontImpl_FindConnectionPoint
1874 /************************************************************************
1875 * OLEFontImpl implementation of IPersistPropertyBag.
1877 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_QueryInterface(
1878 IPersistPropertyBag
*iface
, REFIID riid
, LPVOID
*ppvObj
1880 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1881 return IFont_QueryInterface(&this->IFont_iface
,riid
,ppvObj
);
1884 static ULONG WINAPI
OLEFontImpl_IPersistPropertyBag_AddRef(
1885 IPersistPropertyBag
*iface
1887 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1888 return IFont_AddRef(&this->IFont_iface
);
1891 static ULONG WINAPI
OLEFontImpl_IPersistPropertyBag_Release(
1892 IPersistPropertyBag
*iface
1894 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1895 return IFont_Release(&this->IFont_iface
);
1898 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_GetClassID(
1899 IPersistPropertyBag
*iface
, CLSID
*classid
1901 FIXME("(%p,%p), stub!\n", iface
, classid
);
1905 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_InitNew(
1906 IPersistPropertyBag
*iface
1908 FIXME("(%p), stub!\n", iface
);
1912 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_Load(
1913 IPersistPropertyBag
*iface
, IPropertyBag
* pPropBag
, IErrorLog
* pErrorLog
1915 /* (from Visual Basic 6 property bag)
1916 Name = "MS Sans Serif"
1920 Underline = 0 'False
1922 Strikethrough = 0 'False
1924 static const WCHAR sAttrName
[] = {'N','a','m','e',0};
1925 static const WCHAR sAttrSize
[] = {'S','i','z','e',0};
1926 static const WCHAR sAttrCharset
[] = {'C','h','a','r','s','e','t',0};
1927 static const WCHAR sAttrWeight
[] = {'W','e','i','g','h','t',0};
1928 static const WCHAR sAttrUnderline
[] = {'U','n','d','e','r','l','i','n','e',0};
1929 static const WCHAR sAttrItalic
[] = {'I','t','a','l','i','c',0};
1930 static const WCHAR sAttrStrikethrough
[] = {'S','t','r','i','k','e','t','h','r','o','u','g','h',0};
1931 OLEFontImpl
*this = impl_from_IPersistPropertyBag(iface
);
1935 VariantInit(&value
);
1937 iRes
= IPropertyBag_Read(pPropBag
, sAttrName
, &value
, pErrorLog
);
1940 iRes
= VariantChangeType(&value
, &value
, 0, VT_BSTR
);
1942 iRes
= IFont_put_Name(&this->IFont_iface
, V_BSTR(&value
));
1944 else if (iRes
== E_INVALIDARG
)
1947 VariantClear(&value
);
1950 iRes
= IPropertyBag_Read(pPropBag
, sAttrSize
, &value
, pErrorLog
);
1953 iRes
= VariantChangeType(&value
, &value
, 0, VT_CY
);
1955 iRes
= IFont_put_Size(&this->IFont_iface
, V_CY(&value
));
1957 else if (iRes
== E_INVALIDARG
)
1960 VariantClear(&value
);
1964 iRes
= IPropertyBag_Read(pPropBag
, sAttrCharset
, &value
, pErrorLog
);
1967 iRes
= VariantChangeType(&value
, &value
, 0, VT_I2
);
1969 iRes
= IFont_put_Charset(&this->IFont_iface
, V_I2(&value
));
1971 else if (iRes
== E_INVALIDARG
)
1974 VariantClear(&value
);
1978 iRes
= IPropertyBag_Read(pPropBag
, sAttrWeight
, &value
, pErrorLog
);
1981 iRes
= VariantChangeType(&value
, &value
, 0, VT_I2
);
1983 iRes
= IFont_put_Weight(&this->IFont_iface
, V_I2(&value
));
1985 else if (iRes
== E_INVALIDARG
)
1988 VariantClear(&value
);
1992 iRes
= IPropertyBag_Read(pPropBag
, sAttrUnderline
, &value
, pErrorLog
);
1995 iRes
= VariantChangeType(&value
, &value
, 0, VT_BOOL
);
1997 iRes
= IFont_put_Underline(&this->IFont_iface
, V_BOOL(&value
));
1999 else if (iRes
== E_INVALIDARG
)
2002 VariantClear(&value
);
2006 iRes
= IPropertyBag_Read(pPropBag
, sAttrItalic
, &value
, pErrorLog
);
2009 iRes
= VariantChangeType(&value
, &value
, 0, VT_BOOL
);
2011 iRes
= IFont_put_Italic(&this->IFont_iface
, V_BOOL(&value
));
2013 else if (iRes
== E_INVALIDARG
)
2016 VariantClear(&value
);
2020 iRes
= IPropertyBag_Read(pPropBag
, sAttrStrikethrough
, &value
, pErrorLog
);
2023 iRes
= VariantChangeType(&value
, &value
, 0, VT_BOOL
);
2025 IFont_put_Strikethrough(&this->IFont_iface
, V_BOOL(&value
));
2027 else if (iRes
== E_INVALIDARG
)
2030 VariantClear(&value
);
2034 WARN("-- 0x%08x\n", iRes
);
2038 static HRESULT WINAPI
OLEFontImpl_IPersistPropertyBag_Save(
2039 IPersistPropertyBag
*iface
, IPropertyBag
* pPropBag
, BOOL fClearDirty
,
2040 BOOL fSaveAllProperties
2042 FIXME("(%p,%p,%d,%d), stub!\n", iface
, pPropBag
, fClearDirty
, fSaveAllProperties
);
2046 static const IPersistPropertyBagVtbl OLEFontImpl_IPersistPropertyBag_VTable
=
2048 OLEFontImpl_IPersistPropertyBag_QueryInterface
,
2049 OLEFontImpl_IPersistPropertyBag_AddRef
,
2050 OLEFontImpl_IPersistPropertyBag_Release
,
2052 OLEFontImpl_IPersistPropertyBag_GetClassID
,
2053 OLEFontImpl_IPersistPropertyBag_InitNew
,
2054 OLEFontImpl_IPersistPropertyBag_Load
,
2055 OLEFontImpl_IPersistPropertyBag_Save
2058 /************************************************************************
2059 * OLEFontImpl implementation of IPersistStreamInit.
2061 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_QueryInterface(
2062 IPersistStreamInit
*iface
, REFIID riid
, LPVOID
*ppvObj
2064 OLEFontImpl
*this = impl_from_IPersistStreamInit(iface
);
2065 return IFont_QueryInterface(&this->IFont_iface
,riid
,ppvObj
);
2068 static ULONG WINAPI
OLEFontImpl_IPersistStreamInit_AddRef(
2069 IPersistStreamInit
*iface
2071 OLEFontImpl
*this = impl_from_IPersistStreamInit(iface
);
2072 return IFont_AddRef(&this->IFont_iface
);
2075 static ULONG WINAPI
OLEFontImpl_IPersistStreamInit_Release(
2076 IPersistStreamInit
*iface
2078 OLEFontImpl
*this = impl_from_IPersistStreamInit(iface
);
2079 return IFont_Release(&this->IFont_iface
);
2082 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_GetClassID(
2083 IPersistStreamInit
*iface
, CLSID
*classid
2085 FIXME("(%p,%p), stub!\n", iface
, classid
);
2089 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_IsDirty(
2090 IPersistStreamInit
*iface
2092 FIXME("(%p), stub!\n", iface
);
2096 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_Load(
2097 IPersistStreamInit
*iface
, LPSTREAM pStm
2099 FIXME("(%p,%p), stub!\n", iface
, pStm
);
2103 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_Save(
2104 IPersistStreamInit
*iface
, LPSTREAM pStm
, BOOL fClearDirty
2106 FIXME("(%p,%p,%d), stub!\n", iface
, pStm
, fClearDirty
);
2110 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_GetSizeMax(
2111 IPersistStreamInit
*iface
, ULARGE_INTEGER
*pcbSize
2113 FIXME("(%p,%p), stub!\n", iface
, pcbSize
);
2117 static HRESULT WINAPI
OLEFontImpl_IPersistStreamInit_InitNew(
2118 IPersistStreamInit
*iface
2120 FIXME("(%p), stub!\n", iface
);
2124 static const IPersistStreamInitVtbl OLEFontImpl_IPersistStreamInit_VTable
=
2126 OLEFontImpl_IPersistStreamInit_QueryInterface
,
2127 OLEFontImpl_IPersistStreamInit_AddRef
,
2128 OLEFontImpl_IPersistStreamInit_Release
,
2130 OLEFontImpl_IPersistStreamInit_GetClassID
,
2131 OLEFontImpl_IPersistStreamInit_IsDirty
,
2132 OLEFontImpl_IPersistStreamInit_Load
,
2133 OLEFontImpl_IPersistStreamInit_Save
,
2134 OLEFontImpl_IPersistStreamInit_GetSizeMax
,
2135 OLEFontImpl_IPersistStreamInit_InitNew
2138 /************************************************************************
2139 * OLEFontImpl_Construct
2141 * This method will construct a new instance of the OLEFontImpl
2144 * The caller of this method must release the object when it's
2147 static OLEFontImpl
* OLEFontImpl_Construct(const FONTDESC
*fontDesc
)
2149 OLEFontImpl
* newObject
;
2151 newObject
= HeapAlloc(GetProcessHeap(), 0, sizeof(OLEFontImpl
));
2156 newObject
->IFont_iface
.lpVtbl
= &OLEFontImpl_VTable
;
2157 newObject
->IDispatch_iface
.lpVtbl
= &OLEFontImpl_IDispatch_VTable
;
2158 newObject
->IPersistStream_iface
.lpVtbl
= &OLEFontImpl_IPersistStream_VTable
;
2159 newObject
->IConnectionPointContainer_iface
.lpVtbl
= &OLEFontImpl_IConnectionPointContainer_VTable
;
2160 newObject
->IPersistPropertyBag_iface
.lpVtbl
= &OLEFontImpl_IPersistPropertyBag_VTable
;
2161 newObject
->IPersistStreamInit_iface
.lpVtbl
= &OLEFontImpl_IPersistStreamInit_VTable
;
2165 newObject
->description
.cbSizeofstruct
= sizeof(FONTDESC
);
2166 newObject
->description
.lpstrName
= strdupW(fontDesc
->lpstrName
);
2167 newObject
->description
.cySize
= fontDesc
->cySize
;
2168 newObject
->description
.sWeight
= fontDesc
->sWeight
;
2169 newObject
->description
.sCharset
= fontDesc
->sCharset
;
2170 newObject
->description
.fItalic
= fontDesc
->fItalic
;
2171 newObject
->description
.fUnderline
= fontDesc
->fUnderline
;
2172 newObject
->description
.fStrikethrough
= fontDesc
->fStrikethrough
;
2174 newObject
->gdiFont
= 0;
2175 newObject
->dirty
= TRUE
;
2176 newObject
->cyLogical
= GetDeviceCaps(get_dc(), LOGPIXELSY
);
2177 newObject
->cyHimetric
= 2540L;
2178 newObject
->pPropertyNotifyCP
= NULL
;
2179 newObject
->pFontEventsCP
= NULL
;
2181 CreateConnectionPoint((IUnknown
*)&newObject
->IFont_iface
, &IID_IPropertyNotifySink
, &newObject
->pPropertyNotifyCP
);
2182 CreateConnectionPoint((IUnknown
*)&newObject
->IFont_iface
, &IID_IFontEventsDisp
, &newObject
->pFontEventsCP
);
2184 if (!newObject
->pPropertyNotifyCP
|| !newObject
->pFontEventsCP
)
2186 OLEFontImpl_Destroy(newObject
);
2190 InterlockedIncrement(&ifont_cnt
);
2192 TRACE("returning %p\n", newObject
);
2196 /************************************************************************
2197 * OLEFontImpl_Destroy
2199 * This method is called by the Release method when the reference
2200 * count goes down to 0. It will free all resources used by
2203 static void OLEFontImpl_Destroy(OLEFontImpl
* fontDesc
)
2205 TRACE("(%p)\n", fontDesc
);
2207 HeapFree(GetProcessHeap(), 0, fontDesc
->description
.lpstrName
);
2209 if (fontDesc
->pPropertyNotifyCP
)
2210 IConnectionPoint_Release(fontDesc
->pPropertyNotifyCP
);
2211 if (fontDesc
->pFontEventsCP
)
2212 IConnectionPoint_Release(fontDesc
->pFontEventsCP
);
2214 HeapFree(GetProcessHeap(), 0, fontDesc
);
2217 /*******************************************************************************
2218 * StdFont ClassFactory
2222 /* IUnknown fields */
2223 IClassFactory IClassFactory_iface
;
2225 } IClassFactoryImpl
;
2227 static inline IClassFactoryImpl
*impl_from_IClassFactory(IClassFactory
*iface
)
2229 return CONTAINING_RECORD(iface
, IClassFactoryImpl
, IClassFactory_iface
);
2232 static HRESULT WINAPI
2233 SFCF_QueryInterface(LPCLASSFACTORY iface
,REFIID riid
,LPVOID
*ppobj
) {
2234 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2236 FIXME("(%p)->(%s,%p),stub!\n",This
,debugstr_guid(riid
),ppobj
);
2237 return E_NOINTERFACE
;
2241 SFCF_AddRef(LPCLASSFACTORY iface
) {
2242 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2243 return InterlockedIncrement(&This
->ref
);
2246 static ULONG WINAPI
SFCF_Release(LPCLASSFACTORY iface
) {
2247 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2248 /* static class, won't be freed */
2249 return InterlockedDecrement(&This
->ref
);
2252 static HRESULT WINAPI
SFCF_CreateInstance(
2253 LPCLASSFACTORY iface
,LPUNKNOWN pOuter
,REFIID riid
,LPVOID
*ppobj
2255 return OleCreateFontIndirect(NULL
,riid
,ppobj
);
2259 static HRESULT WINAPI
SFCF_LockServer(LPCLASSFACTORY iface
,BOOL dolock
) {
2260 IClassFactoryImpl
*This
= impl_from_IClassFactory(iface
);
2261 FIXME("(%p)->(%d),stub!\n",This
,dolock
);
2265 static const IClassFactoryVtbl SFCF_Vtbl
= {
2266 SFCF_QueryInterface
,
2269 SFCF_CreateInstance
,
2272 static IClassFactoryImpl STDFONT_CF
= {{&SFCF_Vtbl
}, 1 };
2274 void _get_STDFONT_CF(LPVOID
*ppv
) { *ppv
= &STDFONT_CF
; }