ole/olefont.c

   1 /*
   2  * OLE Font encapsulation implementation
   3  *
   4  * This file contains an implementation of the IFont
   5  * interface and the OleCreateFontIndirect API call.
   6  *
   7  * Copyright 1999 Francis Beaudet
   8  */
   9 #include <assert.h>
  10
  11 #include "windows.h"
  12 #include "winerror.h"
  13 #include "oleauto.h"
  14 #include "ocidl.h"
  15 #include "olectl.h"
  16 #include "debug.h"
  17
  18 /***********************************************************************
  19  * Declaration of the implemetation class for the IFont interface
  20  */
  21 typedef struct OLEFontImpl OLEFontImpl;
  22
  23 struct OLEFontImpl
  24 {
  25   /*
  26    * This class supports many interfaces. IUnknown, IFont,
  27    * IDispatch and IDispFont. The first two are supported by
  28    * the first vtablem the other two are supported by the second
  29    * table.
  30    */
  31   ICOM_VTABLE(IFont)*     lpvtbl1;
  32   ICOM_VTABLE(IDispatch)* lpvtbl2;
  33
  34   /*
  35    * Reference count for that instance of the class.
  36    */
  37   ULONG ref;
  38
  39   /*
  40    * This structure contains the description of the class.
  41    */
  42   FONTDESC description;
  43 };
  44
  45 /*
  46  * Here, I define utility macros to help with the casting of the
  47  * "this" parameter.
  48  * There is a version to accomodate the first vtable and a version to
  49  * accomodate the second one.
  50  */
  51 #define _ICOM_THIS(class,name) class* this = (class*)name;
  52 #define _ICOM_THIS_From_IDispatch(class, name) class* this = (class*)(((void*)name)-sizeof(void*));
  53
  54 /***********************************************************************
  55  * Prototypes for the implementation functions for the IFont
  56  * interface
  57  */
  58 static OLEFontImpl* OLEFontImpl_Construct(LPFONTDESC fontDesc);
  59 static void         OLEFontImpl_Destroy(OLEFontImpl* fontDesc);
  60 static HRESULT      WINAPI OLEFontImpl_QueryInterface(IFont* iface, REFIID riid, VOID** ppvoid);
  61 static ULONG        WINAPI OLEFontImpl_AddRef(IFont* iface);
  62 static ULONG        WINAPI OLEFontImpl_Release(IFont* iface);
  63 static HRESULT      WINAPI OLEFontImpl_get_Name(IFont* iface, BSTR* pname);
  64 static HRESULT      WINAPI OLEFontImpl_put_Name(IFont* iface, BSTR name);
  65 static HRESULT      WINAPI OLEFontImpl_get_Size(IFont* iface, CY* psize);
  66 static HRESULT      WINAPI OLEFontImpl_put_Size(IFont* iface, CY size);
  67 static HRESULT      WINAPI OLEFontImpl_get_Bold(IFont* iface, BOOL* pbold);
  68 static HRESULT      WINAPI OLEFontImpl_put_Bold(IFont* iface, BOOL bold);
  69 static HRESULT      WINAPI OLEFontImpl_get_Italic(IFont* iface, BOOL* pitalic);
  70 static HRESULT      WINAPI OLEFontImpl_put_Italic(IFont* iface, BOOL italic);
  71 static HRESULT      WINAPI OLEFontImpl_get_Underline(IFont* iface, BOOL* punderline);
  72 static HRESULT      WINAPI OLEFontImpl_put_Underline(IFont* iface, BOOL underline);
  73 static HRESULT      WINAPI OLEFontImpl_get_Strikethrough(IFont* iface, BOOL* pstrikethrough);
  74 static HRESULT      WINAPI OLEFontImpl_put_Strikethrough(IFont* iface, BOOL strikethrough);
  75 static HRESULT      WINAPI OLEFontImpl_get_Weight(IFont* iface, short* pweight);
  76 static HRESULT      WINAPI OLEFontImpl_put_Weight(IFont* iface, short weight);
  77 static HRESULT      WINAPI OLEFontImpl_get_Charset(IFont* iface, short* pcharset);
  78 static HRESULT      WINAPI OLEFontImpl_put_Charset(IFont* iface, short charset);
  79 static HRESULT      WINAPI OLEFontImpl_get_hFont(IFont* iface, HFONT* phfont);
  80 static HRESULT      WINAPI OLEFontImpl_put_hFont(IFont* iface, HFONT hfont);
  81 static HRESULT      WINAPI OLEFontImpl_Clone(IFont* iface, IFont** ppfont);
  82 static HRESULT      WINAPI OLEFontImpl_IsEqual(IFont* iface, IFont* pFontOther);
  83 static HRESULT      WINAPI OLEFontImpl_SetRatio(IFont* iface, long cyLogical, long cyHimetric);
  84 static HRESULT      WINAPI OLEFontImpl_QueryTextMetrics(IFont* iface, TEXTMETRICOLE* ptm);
  85 static HRESULT      WINAPI OLEFontImpl_AddRefHfont(IFont* iface, HFONT hfont);
  86 static HRESULT      WINAPI OLEFontImpl_ReleaseHfont(IFont* iface, HFONT hfont);
  87 static HRESULT      WINAPI OLEFontImpl_SetHdc(IFont* iface, HDC hdc);
  88
  89 /***********************************************************************
  90  * Prototypes for the implementation functions for the IDispatch
  91  * interface
  92  */
  93 static HRESULT WINAPI OLEFontImpl_IDispatch_QueryInterface(IDispatch* iface,
  94                                                     REFIID     riid,
  95                                                     VOID**     ppvoid);
  96 static ULONG   WINAPI OLEFontImpl_IDispatch_AddRef(IDispatch* iface);
  97 static ULONG   WINAPI OLEFontImpl_IDispatch_Release(IDispatch* iface);
  98 static HRESULT WINAPI OLEFontImpl_GetTypeInfoCount(IDispatch*    iface,
  99                                                    unsigned int* pctinfo);
 100 static HRESULT WINAPI OLEFontImpl_GetTypeInfo(IDispatch*  iface,
 101                                               UINT      iTInfo,
 102                                               LCID        lcid,
 103                                               ITypeInfo** ppTInfo);
 104 static HRESULT WINAPI OLEFontImpl_GetIDsOfNames(IDispatch*  iface,
 105                                                 REFIID      riid,
 106                                                 LPOLESTR* rgszNames,
 107                                                 UINT      cNames,
 108                                                 LCID        lcid,
 109                                                 DISPID*     rgDispId);
 110 static HRESULT WINAPI OLEFontImpl_Invoke(IDispatch*  iface,
 111                                          DISPID      dispIdMember,
 112                                          REFIID      riid,
 113                                          LCID        lcid,
 114                                          WORD        wFlags,
 115                                          DISPPARAMS* pDispParams,
 116                                          VARIANT*    pVarResult,
 117                                          EXCEPINFO*  pExepInfo,
 118                                          UINT*     puArgErr);
 119
 120 /*
 121  * Virtual function tables for the OLEFontImpl class.
 122  */
 123 static ICOM_VTABLE(IFont) OLEFontImpl_VTable =
 124 {
 125   OLEFontImpl_QueryInterface,
 126   OLEFontImpl_AddRef,
 127   OLEFontImpl_Release,
 128   OLEFontImpl_get_Name,
 129   OLEFontImpl_put_Name,
 130   OLEFontImpl_get_Size,
 131   OLEFontImpl_put_Size,
 132   OLEFontImpl_get_Bold,
 133   OLEFontImpl_put_Bold,
 134   OLEFontImpl_get_Italic,
 135   OLEFontImpl_put_Italic,
 136   OLEFontImpl_get_Underline,
 137   OLEFontImpl_put_Underline,
 138   OLEFontImpl_get_Strikethrough,
 139   OLEFontImpl_put_Strikethrough,
 140   OLEFontImpl_get_Weight,
 141   OLEFontImpl_put_Weight,
 142   OLEFontImpl_get_Charset,
 143   OLEFontImpl_put_Charset,
 144   OLEFontImpl_get_hFont,
 145   OLEFontImpl_put_hFont,
 146   OLEFontImpl_Clone,
 147   OLEFontImpl_IsEqual,
 148   OLEFontImpl_SetRatio,
 149   OLEFontImpl_QueryTextMetrics,
 150   OLEFontImpl_AddRefHfont,
 151   OLEFontImpl_ReleaseHfont,
 152   OLEFontImpl_SetHdc
 153 };
 154
 155 static ICOM_VTABLE(IDispatch) OLEFontImpl_IDispatch_VTable =
 156 {
 157   OLEFontImpl_IDispatch_QueryInterface,
 158   OLEFontImpl_IDispatch_AddRef,
 159   OLEFontImpl_IDispatch_Release,
 160   OLEFontImpl_GetTypeInfoCount,
 161   OLEFontImpl_GetTypeInfo,
 162   OLEFontImpl_GetIDsOfNames,
 163   OLEFontImpl_Invoke
 164 };
 165
 166
 167 /******************************************************************************
 168  *              OleCreateFontIndirect   [OLEAUT32.420]
 169  */
 170 WINOLECTLAPI OleCreateFontIndirect(
 171   LPFONTDESC lpFontDesc,
 172   REFIID     riid,
 173   VOID**     ppvObj)
 174 {
 175   OLEFontImpl* newFont = 0;
 176   HRESULT      hr      = S_OK;
 177
 178   /*
 179    * Sanity check
 180    */
 181   if (ppvObj==0)
 182     return E_POINTER;
 183
 184   *ppvObj = 0;
 185
 186   /*
 187    * Try to construct a new instance of the class.
 188    */
 189   newFont = OLEFontImpl_Construct(lpFontDesc);
 190
 191   if (newFont == 0)
 192     return E_OUTOFMEMORY;
 193
 194   /*
 195    * Make sure it supports the interface required by the caller.
 196    */
 197   hr = IFont_QueryInterface((IFont*)newFont, riid, ppvObj);
 198
 199   /*
 200    * Release the reference obtained in the constructor. If
 201    * the QueryInterface was unsuccessful, it will free the class.
 202    */
 203   IFont_Release((IFont*)newFont);
 204
 205   return hr;
 206 }
 207
 208
 209 /***********************************************************************
 210  * Implementation of the OLEFontImpl class.
 211  */
 212
 213 /************************************************************************
 214  * OLEFontImpl_Construct
 215  *
 216  * This method will construct a new instance of the OLEFontImpl
 217  * class.
 218  *
 219  * The caller of this method must release the object when it's
 220  * done with it.
 221  */
 222 static OLEFontImpl* OLEFontImpl_Construct(LPFONTDESC fontDesc)
 223 {
 224   OLEFontImpl* newObject = 0;
 225
 226   /*
 227    * Allocate space for the object.
 228    */
 229   newObject = HeapAlloc(GetProcessHeap(), 0, sizeof(OLEFontImpl));
 230
 231   if (newObject==0)
 232     return newObject;
 233
 234   /*
 235    * Initialize the virtual function table.
 236    */
 237   newObject->lpvtbl1 = &OLEFontImpl_VTable;
 238   newObject->lpvtbl2 = &OLEFontImpl_IDispatch_VTable;
 239
 240   /*
 241    * Start with one reference count. The caller of this function
 242    * must release the interface pointer when it is done.
 243    */
 244   newObject->ref = 1;
 245
 246   /*
 247    * Copy the description of the font in the object.
 248    */
 249   assert(fontDesc->cbSizeofstruct >= sizeof(FONTDESC));
 250
 251   newObject->description.cbSizeofstruct = sizeof(FONTDESC);
 252   newObject->description.lpstrName = HeapAlloc(GetProcessHeap(),
 253                                                0,
 254                                                (lstrlenW(fontDesc->lpstrName)+1) * sizeof(WCHAR));
 255   lstrcpyW(newObject->description.lpstrName, fontDesc->lpstrName);
 256   newObject->description.cySize         = fontDesc->cySize;
 257   newObject->description.sWeight        = fontDesc->sWeight;
 258   newObject->description.sCharset       = fontDesc->sCharset;
 259   newObject->description.fItalic        = fontDesc->fItalic;
 260   newObject->description.fUnderline     = fontDesc->fUnderline;
 261   newObject->description.fStrikeThrough = fontDesc->fStrikeThrough;
 262
 263   return newObject;
 264 }
 265
 266 /************************************************************************
 267  * OLEFontImpl_Construct
 268  *
 269  * This method is called by the Release method when the reference
 270  * count goes doen to 0. it will free all resources used by
 271  * this object.
 272  */
 273 static void OLEFontImpl_Destroy(OLEFontImpl* fontDesc)
 274 {
 275   if (fontDesc->description.lpstrName!=0)
 276     HeapFree(GetProcessHeap(), 0, fontDesc->description.lpstrName);
 277
 278   HeapFree(GetProcessHeap(), 0, fontDesc);
 279 }
 280
 281
 282 /************************************************************************
 283  * OLEFontImpl_QueryInterface (IUnknown)
 284  *
 285  * See Windows documentation for more details on IUnknown methods.
 286  */
 287 HRESULT WINAPI OLEFontImpl_QueryInterface(
 288   IFont*  iface,
 289   REFIID  riid,
 290   void**  ppvObject)
 291 {
 292   _ICOM_THIS(OLEFontImpl, iface);
 293
 294   /*
 295    * Perform a sanity check on the parameters.
 296    */
 297   if ( (this==0) || (ppvObject==0) )
 298     return E_INVALIDARG;
 299
 300   /*
 301    * Initialize the return parameter.
 302    */
 303   *ppvObject = 0;
 304
 305   /*
 306    * Compare the riid with the interface IDs implemented by this object.
 307    */
 308   if (memcmp(&IID_IUnknown, riid, sizeof(IID_IUnknown)) == 0)
 309   {
 310     *ppvObject = (IFont*)this;
 311   }
 312   else if (memcmp(&IID_IFont, riid, sizeof(IID_IFont)) == 0)
 313   {
 314     *ppvObject = (IFont*)this;
 315   }
 316   else if (memcmp(&IID_IDispatch, riid, sizeof(IID_IDispatch)) == 0)
 317   {
 318     *ppvObject = (IDispatch*)&(this->lpvtbl2);
 319   }
 320   else if (memcmp(&IID_IFontDisp, riid, sizeof(IID_IFontDisp)) == 0)
 321   {
 322     *ppvObject = (IDispatch*)&(this->lpvtbl2);
 323   }
 324
 325   /*
 326    * Check that we obtained an interface.
 327    */
 328   if ((*ppvObject)==0)
 329     return E_NOINTERFACE;
 330
 331   /*
 332    * Query Interface always increases the reference count by one when it is
 333    * successful
 334    */
 335   OLEFontImpl_AddRef((IFont*)this);
 336
 337   return S_OK;;
 338 }
 339
 340 /************************************************************************
 341  * OLEFontImpl_AddRef (IUnknown)
 342  *
 343  * See Windows documentation for more details on IUnknown methods.
 344  */
 345 ULONG WINAPI OLEFontImpl_AddRef(
 346   IFont* iface)
 347 {
 348   _ICOM_THIS(OLEFontImpl, iface);
 349
 350   this->ref++;
 351
 352   return this->ref;
 353 }
 354
 355 /************************************************************************
 356  * OLEFontImpl_Release (IUnknown)
 357  *
 358  * See Windows documentation for more details on IUnknown methods.
 359  */
 360 ULONG WINAPI OLEFontImpl_Release(
 361       IFont* iface)
 362 {
 363   _ICOM_THIS(OLEFontImpl, iface);
 364
 365   /*
 366    * Decrease the reference count on this object.
 367    */
 368   this->ref--;
 369
 370   /*
 371    * If the reference count goes down to 0, perform suicide.
 372    */
 373   if (this->ref==0)
 374   {
 375     OLEFontImpl_Destroy(this);
 376
 377     return 0;
 378   }
 379
 380   return this->ref;
 381 }
 382
 383 /************************************************************************
 384  * OLEFontImpl_get_Name (IFont)
 385  *
 386  * See Windows documentation for more details on IFont methods.
 387  */
 388 static HRESULT WINAPI OLEFontImpl_get_Name(
 389   IFont*  iface,
 390   BSTR* pname)
 391 {
 392   _ICOM_THIS(OLEFontImpl, iface);
 393
 394   /*
 395    * Sanity check.
 396    */
 397   if (pname==0)
 398     return E_POINTER;
 399
 400   if (this->description.lpstrName!=0)
 401     *pname = SysAllocString(this->description.lpstrName);
 402   else
 403     *pname = 0;
 404
 405   return S_OK;
 406 }
 407
 408 /************************************************************************
 409  * OLEFontImpl_put_Name (IFont)
 410  *
 411  * See Windows documentation for more details on IFont methods.
 412  */
 413 static HRESULT WINAPI OLEFontImpl_put_Name(
 414   IFont* iface,
 415   BSTR name)
 416 {
 417   _ICOM_THIS(OLEFontImpl, iface);
 418
 419   if (this->description.lpstrName==0)
 420   {
 421     this->description.lpstrName = HeapAlloc(GetProcessHeap(),
 422                                             0,
 423                                             (lstrlenW(name)+1) * sizeof(WCHAR));
 424   }
 425   else
 426   {
 427     this->description.lpstrName = HeapReAlloc(GetProcessHeap(),
 428                                               0,
 429                                               this->description.lpstrName,
 430                                               (lstrlenW(name)+1) * sizeof(WCHAR));
 431   }
 432
 433   if (this->description.lpstrName==0)
 434     return E_OUTOFMEMORY;
 435
 436   lstrcpyW(this->description.lpstrName, name);
 437
 438   return S_OK;
 439 }
 440
 441 /************************************************************************
 442  * OLEFontImpl_get_Size (IFont)
 443  *
 444  * See Windows documentation for more details on IFont methods.
 445  */
 446 static HRESULT WINAPI OLEFontImpl_get_Size(
 447   IFont* iface,
 448   CY*    psize)
 449 {
 450   _ICOM_THIS(OLEFontImpl, iface);
 451
 452   /*
 453    * Sanity check
 454    */
 455   if (psize==0)
 456     return E_POINTER;
 457
 458   *psize = this->description.cySize;
 459
 460   return S_OK;
 461 }
 462
 463 /************************************************************************
 464  * OLEFontImpl_put_Size (IFont)
 465  *
 466  * See Windows documentation for more details on IFont methods.
 467  */
 468 static HRESULT WINAPI OLEFontImpl_put_Size(
 469   IFont* iface,
 470   CY     size)
 471 {
 472   _ICOM_THIS(OLEFontImpl, iface);
 473
 474   this->description.cySize = size;
 475
 476   return S_OK;
 477 }
 478
 479 /************************************************************************
 480  * OLEFontImpl_get_Bold (IFont)
 481  *
 482  * See Windows documentation for more details on IFont methods.
 483  */
 484 static HRESULT WINAPI OLEFontImpl_get_Bold(
 485   IFont*  iface,
 486   BOOL* pbold)
 487 {
 488   FIXME(ole,"():Stub\n");
 489   return E_NOTIMPL;
 490 }
 491
 492 /************************************************************************
 493  * OLEFontImpl_put_Bold (IFont)
 494  *
 495  * See Windows documentation for more details on IFont methods.
 496  */
 497 static HRESULT WINAPI OLEFontImpl_put_Bold(
 498   IFont* iface,
 499   BOOL bold)
 500 {
 501   FIXME(ole,"():Stub\n");
 502   return E_NOTIMPL;
 503 }
 504
 505 /************************************************************************
 506  * OLEFontImpl_get_Italic (IFont)
 507  *
 508  * See Windows documentation for more details on IFont methods.
 509  */
 510 static HRESULT WINAPI OLEFontImpl_get_Italic(
 511   IFont*  iface,
 512   BOOL* pitalic)
 513 {
 514   _ICOM_THIS(OLEFontImpl, iface);
 515
 516   /*
 517    * Sanity check
 518    */
 519   if (pitalic==0)
 520     return E_POINTER;
 521
 522   *pitalic = this->description.fItalic;
 523
 524   return S_OK;
 525 }
 526
 527 /************************************************************************
 528  * OLEFontImpl_put_Italic (IFont)
 529  *
 530  * See Windows documentation for more details on IFont methods.
 531  */
 532 static HRESULT WINAPI OLEFontImpl_put_Italic(
 533   IFont* iface,
 534   BOOL italic)
 535 {
 536   _ICOM_THIS(OLEFontImpl, iface);
 537
 538   this->description.fItalic = italic;
 539
 540   return S_OK;
 541 }
 542
 543 /************************************************************************
 544  * OLEFontImpl_get_Underline (IFont)
 545  *
 546  * See Windows documentation for more details on IFont methods.
 547  */
 548 static HRESULT WINAPI OLEFontImpl_get_Underline(
 549   IFont*  iface,
 550   BOOL* punderline)
 551 {
 552   _ICOM_THIS(OLEFontImpl, iface);
 553
 554   /*
 555    * Sanity check
 556    */
 557   if (punderline==0)
 558     return E_POINTER;
 559
 560   *punderline = this->description.fUnderline;
 561
 562   return S_OK;
 563 }
 564
 565 /************************************************************************
 566  * OLEFontImpl_put_Underline (IFont)
 567  *
 568  * See Windows documentation for more details on IFont methods.
 569  */
 570 static HRESULT WINAPI OLEFontImpl_put_Underline(
 571   IFont* iface,
 572   BOOL underline)
 573 {
 574   _ICOM_THIS(OLEFontImpl, iface);
 575
 576   this->description.fUnderline = underline;
 577
 578   return S_OK;
 579 }
 580
 581 /************************************************************************
 582  * OLEFontImpl_get_Strikethrough (IFont)
 583  *
 584  * See Windows documentation for more details on IFont methods.
 585  */
 586 static HRESULT WINAPI OLEFontImpl_get_Strikethrough(
 587   IFont*  iface,
 588   BOOL* pstrikethrough)
 589 {
 590   _ICOM_THIS(OLEFontImpl, iface);
 591
 592   /*
 593    * Sanity check
 594    */
 595   if (pstrikethrough==0)
 596     return E_POINTER;
 597
 598   *pstrikethrough = this->description.fStrikeThrough;
 599
 600   return S_OK;
 601 }
 602
 603 /************************************************************************
 604  * OLEFontImpl_put_Strikethrough (IFont)
 605  *
 606  * See Windows documentation for more details on IFont methods.
 607  */
 608 static HRESULT WINAPI OLEFontImpl_put_Strikethrough(
 609  IFont* iface,
 610  BOOL strikethrough)
 611 {
 612   _ICOM_THIS(OLEFontImpl, iface);
 613
 614   this->description.fStrikeThrough = strikethrough;
 615
 616   return S_OK;
 617 }
 618
 619 /************************************************************************
 620  * OLEFontImpl_get_Weight (IFont)
 621  *
 622  * See Windows documentation for more details on IFont methods.
 623  */
 624 static HRESULT WINAPI OLEFontImpl_get_Weight(
 625   IFont* iface,
 626   short* pweight)
 627 {
 628   _ICOM_THIS(OLEFontImpl, iface);
 629
 630   /*
 631    * Sanity check
 632    */
 633   if (pweight==0)
 634     return E_POINTER;
 635
 636   *pweight = this->description.sWeight;
 637
 638   return S_OK;
 639 }
 640
 641 /************************************************************************
 642  * OLEFontImpl_put_Weight (IFont)
 643  *
 644  * See Windows documentation for more details on IFont methods.
 645  */
 646 static HRESULT WINAPI OLEFontImpl_put_Weight(
 647   IFont* iface,
 648   short  weight)
 649 {
 650   _ICOM_THIS(OLEFontImpl, iface);
 651
 652   this->description.sWeight = weight;
 653
 654   return S_OK;
 655 }
 656
 657 /************************************************************************
 658  * OLEFontImpl_get_Charset (IFont)
 659  *
 660  * See Windows documentation for more details on IFont methods.
 661  */
 662 static HRESULT WINAPI OLEFontImpl_get_Charset(
 663   IFont* iface,
 664   short* pcharset)
 665 {
 666   _ICOM_THIS(OLEFontImpl, iface);
 667
 668   /*
 669    * Sanity check
 670    */
 671   if (pcharset==0)
 672     return E_POINTER;
 673
 674   *pcharset = this->description.sCharset;
 675
 676   return S_OK;
 677 }
 678
 679 /************************************************************************
 680  * OLEFontImpl_put_Charset (IFont)
 681  *
 682  * See Windows documentation for more details on IFont methods.
 683  */
 684 static HRESULT WINAPI OLEFontImpl_put_Charset(
 685   IFont* iface,
 686   short charset)
 687 {
 688   _ICOM_THIS(OLEFontImpl, iface);
 689
 690   this->description.sCharset = charset;
 691
 692   return S_OK;
 693 }
 694
 695 /************************************************************************
 696  * OLEFontImpl_get_hFont (IFont)
 697  *
 698  * See Windows documentation for more details on IFont methods.
 699  */
 700 static HRESULT WINAPI OLEFontImpl_get_hFont(
 701   IFont*   iface,
 702   HFONT* phfont)
 703 {
 704   FIXME(ole,"():Stub\n");
 705   return E_NOTIMPL;
 706 }
 707
 708 /************************************************************************
 709  * OLEFontImpl_put_hFont (IFont)
 710  *
 711  * See Windows documentation for more details on IFont methods.
 712  */
 713 static HRESULT WINAPI OLEFontImpl_put_hFont(
 714   IFont*  iface,
 715   HFONT hfont)
 716 {
 717   FIXME(ole,"():Stub\n");
 718   return E_NOTIMPL;
 719 }
 720
 721 /************************************************************************
 722  * OLEFontImpl_Clone (IFont)
 723  *
 724  * See Windows documentation for more details on IFont methods.
 725  */
 726 static HRESULT WINAPI OLEFontImpl_Clone(
 727   IFont*  iface,
 728   IFont** ppfont)
 729 {
 730   FIXME(ole,"():Stub\n");
 731   return E_NOTIMPL;
 732 }
 733
 734 /************************************************************************
 735  * OLEFontImpl_IsEqual (IFont)
 736  *
 737  * See Windows documentation for more details on IFont methods.
 738  */
 739 static HRESULT WINAPI OLEFontImpl_IsEqual(
 740   IFont* iface,
 741   IFont* pFontOther)
 742 {
 743   FIXME(ole,"():Stub\n");
 744   return E_NOTIMPL;
 745 }
 746
 747 /************************************************************************
 748  * OLEFontImpl_SetRatio (IFont)
 749  *
 750  * See Windows documentation for more details on IFont methods.
 751  */
 752 static HRESULT WINAPI OLEFontImpl_SetRatio(
 753   IFont* iface,
 754   long   cyLogical,
 755   long   cyHimetric)
 756 {
 757   FIXME(ole,"():Stub\n");
 758   return E_NOTIMPL;
 759 }
 760
 761 /************************************************************************
 762  * OLEFontImpl_QueryTextMetrics (IFont)
 763  *
 764  * See Windows documentation for more details on IFont methods.
 765  */
 766 static HRESULT      WINAPI OLEFontImpl_QueryTextMetrics(
 767   IFont*         iface,
 768   TEXTMETRICOLE* ptm)
 769 {
 770   FIXME(ole,"():Stub\n");
 771   return E_NOTIMPL;
 772 }
 773
 774 /************************************************************************
 775  * OLEFontImpl_AddRefHfont (IFont)
 776  *
 777  * See Windows documentation for more details on IFont methods.
 778  */
 779 static HRESULT WINAPI OLEFontImpl_AddRefHfont(
 780   IFont*  iface,
 781   HFONT hfont)
 782 {
 783   FIXME(ole,"():Stub\n");
 784   return E_NOTIMPL;
 785 }
 786
 787 /************************************************************************
 788  * OLEFontImpl_ReleaseHfont (IFont)
 789  *
 790  * See Windows documentation for more details on IFont methods.
 791  */
 792 static HRESULT WINAPI OLEFontImpl_ReleaseHfont(
 793   IFont*  iface,
 794   HFONT hfont)
 795 {
 796   FIXME(ole,"():Stub\n");
 797   return E_NOTIMPL;
 798 }
 799
 800 /************************************************************************
 801  * OLEFontImpl_SetHdc (IFont)
 802  *
 803  * See Windows documentation for more details on IFont methods.
 804  */
 805 static HRESULT WINAPI OLEFontImpl_SetHdc(
 806   IFont* iface,
 807   HDC  hdc)
 808 {
 809   FIXME(ole,"():Stub\n");
 810   return E_NOTIMPL;
 811 }
 812
 813 /************************************************************************
 814  * OLEFontImpl_IDispatch_QueryInterface (IUnknown)
 815  *
 816  * See Windows documentation for more details on IUnknown methods.
 817  */
 818 static HRESULT WINAPI OLEFontImpl_IDispatch_QueryInterface(
 819   IDispatch* iface,
 820   REFIID     riid,
 821   VOID**     ppvoid)
 822 {
 823   _ICOM_THIS_From_IDispatch(IFont, iface);
 824
 825   return IFont_QueryInterface(this, riid, ppvoid);
 826 }
 827
 828 /************************************************************************
 829  * OLEFontImpl_IDispatch_Release (IUnknown)
 830  *
 831  * See Windows documentation for more details on IUnknown methods.
 832  */
 833 static ULONG WINAPI OLEFontImpl_IDispatch_Release(
 834   IDispatch* iface)
 835 {
 836   _ICOM_THIS_From_IDispatch(IFont, iface);
 837
 838   return IFont_Release(this);
 839 }
 840
 841 /************************************************************************
 842  * OLEFontImpl_IDispatch_AddRef (IUnknown)
 843  *
 844  * See Windows documentation for more details on IUnknown methods.
 845  */
 846 static ULONG WINAPI OLEFontImpl_IDispatch_AddRef(
 847   IDispatch* iface)
 848 {
 849   _ICOM_THIS_From_IDispatch(IFont, iface);
 850
 851   return IFont_AddRef(this);
 852 }
 853
 854 /************************************************************************
 855  * OLEFontImpl_GetTypeInfoCount (IDispatch)
 856  *
 857  * See Windows documentation for more details on IDispatch methods.
 858  */
 859 static HRESULT WINAPI OLEFontImpl_GetTypeInfoCount(
 860   IDispatch*    iface,
 861   unsigned int* pctinfo)
 862 {
 863   FIXME(ole,"():Stub\n");
 864
 865   return E_NOTIMPL;
 866 }
 867
 868 /************************************************************************
 869  * OLEFontImpl_GetTypeInfo (IDispatch)
 870  *
 871  * See Windows documentation for more details on IDispatch methods.
 872  */
 873 static HRESULT WINAPI OLEFontImpl_GetTypeInfo(
 874   IDispatch*  iface,
 875   UINT      iTInfo,
 876   LCID        lcid,
 877   ITypeInfo** ppTInfo)
 878 {
 879   FIXME(ole,"():Stub\n");
 880
 881   return E_NOTIMPL;
 882 }
 883
 884 /************************************************************************
 885  * OLEFontImpl_GetIDsOfNames (IDispatch)
 886  *
 887  * See Windows documentation for more details on IDispatch methods.
 888  */
 889 static HRESULT WINAPI OLEFontImpl_GetIDsOfNames(
 890   IDispatch*  iface,
 891   REFIID      riid,
 892   LPOLESTR* rgszNames,
 893   UINT      cNames,
 894   LCID        lcid,
 895   DISPID*     rgDispId)
 896 {
 897   FIXME(ole,"():Stub\n");
 898
 899   return E_NOTIMPL;
 900 }
 901
 902 /************************************************************************
 903  * OLEFontImpl_Invoke (IDispatch)
 904  *
 905  * See Windows documentation for more details on IDispatch methods.
 906  */
 907 static HRESULT WINAPI OLEFontImpl_Invoke(
 908   IDispatch*  iface,
 909   DISPID      dispIdMember,
 910   REFIID      riid,
 911   LCID        lcid,
 912   WORD        wFlags,
 913   DISPPARAMS* pDispParams,
 914   VARIANT*    pVarResult,
 915   EXCEPINFO*  pExepInfo,
 916   UINT*     puArgErr)
 917 {
 918   FIXME(ole,"():Stub\n");
 919
 920   return E_NOTIMPL;
 921 }
 922
 923