2 * Copyright (C) 2007 Google (Evan Stade)
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
26 #include "wine/debug.h"
27 #include "wine/unicode.h"
29 WINE_DEFAULT_DEBUG_CHANNEL (gdiplus);
34 #include "gdiplus_private.h"
36 static const REAL mm_per_inch = 25.4;
37 static const REAL inch_per_point = 1.0/72.0;
39 static GpFontCollection installedFontCollection = {0};
41 static inline REAL get_dpi (void)
46 GdipCreateFromHDC (hdc, &graphics);
47 GdipGetDpiX(graphics, &dpi);
48 GdipDeleteGraphics(graphics);
54 static inline REAL point_to_pixel (REAL point)
56 return point * get_dpi() * inch_per_point;
59 static inline REAL inch_to_pixel (REAL inch)
61 return inch * get_dpi();
64 static inline REAL document_to_pixel (REAL doc)
66 return doc * (get_dpi() / 300.0); /* Per MSDN */
69 static inline REAL mm_to_pixel (REAL mm)
71 return mm * (get_dpi() / mm_per_inch);
74 /*******************************************************************************
75 * GdipCreateFont [GDIPLUS.@]
77 * Create a new font based off of a FontFamily
80 * *fontFamily [I] Family to base the font off of
81 * emSize [I] Size of the font
82 * style [I] Bitwise OR of FontStyle enumeration
83 * unit [I] Unit emSize is measured in
84 * **font [I] the resulting Font object
88 * FAILURE: InvalidParameter if fontfamily or font is NULL.
89 * FAILURE: FontFamilyNotFound if an invalid FontFamily is given
92 * UnitDisplay is unsupported.
93 * emSize is stored separately from lfHeight, to hold the fraction.
95 GpStatus WINGDIPAPI GdipCreateFont(GDIPCONST GpFontFamily *fontFamily,
96 REAL emSize, INT style, Unit unit, GpFont **font)
98 WCHAR facename[LF_FACESIZE];
100 const OUTLINETEXTMETRICW *otm;
103 if (!fontFamily || !font)
104 return InvalidParameter;
106 TRACE("%p (%s), %f, %d, %d, %p\n", fontFamily,
107 debugstr_w(fontFamily->FamilyName), emSize, style, unit, font);
109 stat = GdipGetFamilyName (fontFamily, facename, 0);
110 if (stat != Ok) return stat;
111 *font = GdipAlloc(sizeof(GpFont));
113 otm = &fontFamily->otm;
114 lfw = &((*font)->lfw);
115 ZeroMemory(&(*lfw), sizeof(*lfw));
117 lfw->lfWeight = otm->otmTextMetrics.tmWeight;
118 lfw->lfItalic = otm->otmTextMetrics.tmItalic;
119 lfw->lfUnderline = otm->otmTextMetrics.tmUnderlined;
120 lfw->lfStrikeOut = otm->otmTextMetrics.tmStruckOut;
121 lfw->lfCharSet = otm->otmTextMetrics.tmCharSet;
122 lfw->lfPitchAndFamily = otm->otmTextMetrics.tmPitchAndFamily;
123 lstrcpynW(lfw->lfFaceName, facename, LF_FACESIZE);
128 /* FIXME: Figure out when World != Pixel */
129 (*font)->pixel_size = emSize; break;
131 FIXME("Unknown behavior for UnitDisplay! Please report!\n");
132 /* FIXME: Figure out how this works...
133 * MSDN says that if "DISPLAY" is a monitor, then pixel should be
134 * used. That's not what I got. Tests on Windows revealed no output,
135 * and the tests in tests/font crash windows */
136 (*font)->pixel_size = 0; break;
138 (*font)->pixel_size = emSize; break;
140 (*font)->pixel_size = point_to_pixel(emSize); break;
142 (*font)->pixel_size = inch_to_pixel(emSize); break;
144 (*font)->pixel_size = document_to_pixel(emSize); break;
146 (*font)->pixel_size = mm_to_pixel(emSize); break;
149 lfw->lfHeight = (*font)->pixel_size * -1;
151 lfw->lfWeight = style & FontStyleBold ? FW_BOLD : FW_REGULAR;
152 lfw->lfItalic = style & FontStyleItalic;
153 lfw->lfUnderline = style & FontStyleUnderline;
154 lfw->lfStrikeOut = style & FontStyleStrikeout;
156 (*font)->unit = unit;
157 (*font)->emSize = emSize;
158 (*font)->height = otm->otmEMSquare;
159 (*font)->line_spacing = otm->otmTextMetrics.tmAscent + otm->otmTextMetrics.tmDescent + otm->otmTextMetrics.tmExternalLeading;
161 TRACE("<-- %p\n", *font);
166 /*******************************************************************************
167 * GdipCreateFontFromLogfontW [GDIPLUS.@]
169 GpStatus WINGDIPAPI GdipCreateFontFromLogfontW(HDC hdc,
170 GDIPCONST LOGFONTW *logfont, GpFont **font)
172 HFONT hfont, oldfont;
175 TRACE("(%p, %p, %p)\n", hdc, logfont, font);
177 if(!logfont || !font)
178 return InvalidParameter;
180 if (logfont->lfFaceName[0] == 0)
181 return NotTrueTypeFont;
183 *font = GdipAlloc(sizeof(GpFont));
184 if(!*font) return OutOfMemory;
186 memcpy((*font)->lfw.lfFaceName, logfont->lfFaceName, LF_FACESIZE *
188 (*font)->lfw.lfHeight = logfont->lfHeight;
189 (*font)->lfw.lfItalic = logfont->lfItalic;
190 (*font)->lfw.lfUnderline = logfont->lfUnderline;
191 (*font)->lfw.lfStrikeOut = logfont->lfStrikeOut;
193 hfont = CreateFontIndirectW(&(*font)->lfw);
194 oldfont = SelectObject(hdc, hfont);
195 GetTextMetricsW(hdc, &textmet);
197 (*font)->lfw.lfHeight = -(textmet.tmHeight-textmet.tmInternalLeading);
198 (*font)->lfw.lfWeight = textmet.tmWeight;
199 (*font)->lfw.lfCharSet = textmet.tmCharSet;
201 (*font)->pixel_size = (*font)->emSize = textmet.tmHeight;
202 (*font)->unit = UnitPixel;
203 (*font)->height = 1; /* FIXME: need NEWTEXTMETRIC.ntmSizeEM here */
204 (*font)->line_spacing = textmet.tmAscent + textmet.tmDescent + textmet.tmExternalLeading;
206 SelectObject(hdc, oldfont);
209 TRACE("<-- %p\n", *font);
214 /*******************************************************************************
215 * GdipCreateFontFromLogfontA [GDIPLUS.@]
217 GpStatus WINGDIPAPI GdipCreateFontFromLogfontA(HDC hdc,
218 GDIPCONST LOGFONTA *lfa, GpFont **font)
222 TRACE("(%p, %p, %p)\n", hdc, lfa, font);
225 return InvalidParameter;
227 memcpy(&lfw, lfa, FIELD_OFFSET(LOGFONTA,lfFaceName) );
229 if(!MultiByteToWideChar(CP_ACP, 0, lfa->lfFaceName, -1, lfw.lfFaceName, LF_FACESIZE))
232 return GdipCreateFontFromLogfontW(hdc, &lfw, font);
235 /*******************************************************************************
236 * GdipDeleteFont [GDIPLUS.@]
238 GpStatus WINGDIPAPI GdipDeleteFont(GpFont* font)
240 TRACE("(%p)\n", font);
243 return InvalidParameter;
250 /*******************************************************************************
251 * GdipCreateFontFromDC [GDIPLUS.@]
253 GpStatus WINGDIPAPI GdipCreateFontFromDC(HDC hdc, GpFont **font)
258 TRACE("(%p, %p)\n", hdc, font);
261 return InvalidParameter;
263 hfont = GetCurrentObject(hdc, OBJ_FONT);
267 if(!GetObjectW(hfont, sizeof(LOGFONTW), &lfw))
270 return GdipCreateFontFromLogfontW(hdc, &lfw, font);
273 /*******************************************************************************
274 * GdipGetFamily [GDIPLUS.@]
276 * Returns the FontFamily for the specified Font
279 * font [I] Font to request from
280 * family [O] Resulting FontFamily object
284 * FAILURE: An element of GpStatus
286 GpStatus WINGDIPAPI GdipGetFamily(GpFont *font, GpFontFamily **family)
288 TRACE("%p %p\n", font, family);
290 if (!(font && family))
291 return InvalidParameter;
293 return GdipCreateFontFamilyFromName(font->lfw.lfFaceName, NULL, family);
296 /******************************************************************************
297 * GdipGetFontSize [GDIPLUS.@]
299 * Returns the size of the font in Units
302 * *font [I] The font to retrieve size from
303 * *size [O] Pointer to hold retrieved value
307 * FAILURE: InvalidParameter (font or size was NULL)
310 * Size returned is actually emSize -- not internal size used for drawing.
312 GpStatus WINGDIPAPI GdipGetFontSize(GpFont *font, REAL *size)
314 TRACE("(%p, %p)\n", font, size);
316 if (!(font && size)) return InvalidParameter;
318 *size = font->emSize;
323 /*******************************************************************************
324 * GdipGetFontStyle [GDIPLUS.@]
326 * Gets the font's style, returned in bitwise OR of FontStyle enumeration
329 * font [I] font to request from
330 * style [O] resulting pointer to a FontStyle enumeration
334 * FAILURE: InvalidParameter
336 GpStatus WINGDIPAPI GdipGetFontStyle(GpFont *font, INT *style)
338 TRACE("%p %p\n", font, style);
340 if (!(font && style))
341 return InvalidParameter;
343 if (font->lfw.lfWeight > FW_REGULAR)
344 *style = FontStyleBold;
346 *style = FontStyleRegular;
347 if (font->lfw.lfItalic)
348 *style |= FontStyleItalic;
349 if (font->lfw.lfUnderline)
350 *style |= FontStyleUnderline;
351 if (font->lfw.lfStrikeOut)
352 *style |= FontStyleStrikeout;
357 /*******************************************************************************
358 * GdipGetFontUnit [GDIPLUS.@]
361 * font [I] Font to retrieve from
362 * unit [O] Return value
365 * FAILURE: font or unit was NULL
368 GpStatus WINGDIPAPI GdipGetFontUnit(GpFont *font, Unit *unit)
370 TRACE("(%p, %p)\n", font, unit);
372 if (!(font && unit)) return InvalidParameter;
379 /*******************************************************************************
380 * GdipGetLogFontA [GDIPLUS.@]
382 GpStatus WINGDIPAPI GdipGetLogFontA(GpFont *font, GpGraphics *graphics,
388 TRACE("(%p, %p, %p)\n", font, graphics, lfa);
390 status = GdipGetLogFontW(font, graphics, &lfw);
394 memcpy(lfa, &lfw, FIELD_OFFSET(LOGFONTA,lfFaceName) );
396 if(!WideCharToMultiByte(CP_ACP, 0, lfw.lfFaceName, -1, lfa->lfFaceName, LF_FACESIZE, NULL, NULL))
402 /*******************************************************************************
403 * GdipGetLogFontW [GDIPLUS.@]
405 GpStatus WINGDIPAPI GdipGetLogFontW(GpFont *font, GpGraphics *graphics,
408 TRACE("(%p, %p, %p)\n", font, graphics, lfw);
410 /* FIXME: use graphics */
411 if(!font || !graphics || !lfw)
412 return InvalidParameter;
419 /*******************************************************************************
420 * GdipCloneFont [GDIPLUS.@]
422 GpStatus WINGDIPAPI GdipCloneFont(GpFont *font, GpFont **cloneFont)
424 TRACE("(%p, %p)\n", font, cloneFont);
426 if(!font || !cloneFont)
427 return InvalidParameter;
429 *cloneFont = GdipAlloc(sizeof(GpFont));
430 if(!*cloneFont) return OutOfMemory;
437 /*******************************************************************************
438 * GdipGetFontHeight [GDIPLUS.@]
440 * font [I] Font to retrieve height from
441 * graphics [I] The current graphics context
442 * height [O] Resulting height
445 * FAILURE: Another element of GpStatus
448 * Forwards to GdipGetFontHeightGivenDPI
450 GpStatus WINGDIPAPI GdipGetFontHeight(GDIPCONST GpFont *font,
451 GDIPCONST GpGraphics *graphics, REAL *height)
456 TRACE("%p %p %p\n", font, graphics, height);
458 stat = GdipGetDpiY((GpGraphics*)graphics, &dpi);
461 stat = GdipGetFontHeightGivenDPI(font, dpi, height);
466 /*******************************************************************************
467 * GdipGetFontHeightGivenDPI [GDIPLUS.@]
469 * font [I] Font to retrieve DPI from
470 * dpi [I] DPI to assume
471 * height [O] Return value
475 * FAILURE: InvalidParameter if font or height is NULL
478 * According to MSDN, the result is (lineSpacing)*(fontSize / emHeight)*dpi
479 * (for anything other than unit Pixel)
481 GpStatus WINGDIPAPI GdipGetFontHeightGivenDPI(GDIPCONST GpFont *font, REAL dpi, REAL *height)
485 TRACE("%p (%s), %f, %p\n", font,
486 debugstr_w(font->lfw.lfFaceName), dpi, height);
488 if (!(font && height)) return InvalidParameter;
490 font_height = font->line_spacing * (font->emSize / font->height);
496 *height = font_height;
499 *height = font_height * dpi * inch_per_point;
502 *height = font_height * dpi;
505 *height = font_height * (dpi / 300.0);
508 *height = font_height * (dpi / mm_per_inch);
511 FIXME("Unhandled unit type: %d\n", font->unit);
512 return NotImplemented;
518 /***********************************************************************
519 * Borrowed from GDI32:
521 * Elf is really an ENUMLOGFONTEXW, and ntm is a NEWTEXTMETRICEXW.
522 * We have to use other types because of the FONTENUMPROCW definition.
524 static INT CALLBACK is_font_installed_proc(const LOGFONTW *elf,
525 const TEXTMETRICW *ntm, DWORD type, LPARAM lParam)
527 if (!ntm || type == RASTER_FONTTYPE)
532 *(LOGFONTW *)lParam = *elf;
537 static BOOL find_installed_font(const WCHAR *name, OUTLINETEXTMETRICW *otm)
540 HDC hdc = CreateCompatibleDC(0);
543 if(!EnumFontFamiliesW(hdc, name, is_font_installed_proc, (LPARAM)&lf))
548 hfont = CreateFontIndirectW(&lf);
549 hfont = SelectObject(hdc, hfont);
551 otm->otmSize = sizeof(*otm);
552 if (GetOutlineTextMetricsW(hdc, otm->otmSize, otm))
555 DeleteObject(SelectObject(hdc, hfont));
562 /*******************************************************************************
563 * GdipCreateFontFamilyFromName [GDIPLUS.@]
565 * Creates a font family object based on a supplied name
568 * name [I] Name of the font
569 * fontCollection [I] What font collection (if any) the font belongs to (may be NULL)
570 * FontFamily [O] Pointer to the resulting FontFamily object
574 * FAILURE: FamilyNotFound if the requested FontFamily does not exist on the system
575 * FAILURE: Invalid parameter if FontFamily or name is NULL
578 * If fontCollection is NULL then the object is not part of any collection
582 GpStatus WINGDIPAPI GdipCreateFontFamilyFromName(GDIPCONST WCHAR *name,
583 GpFontCollection *fontCollection,
584 GpFontFamily **FontFamily)
586 GpFontFamily* ffamily;
587 OUTLINETEXTMETRICW otm;
589 TRACE("%s, %p %p\n", debugstr_w(name), fontCollection, FontFamily);
591 if (!(name && FontFamily))
592 return InvalidParameter;
594 FIXME("No support for FontCollections yet!\n");
596 if (!find_installed_font(name, &otm))
597 return FontFamilyNotFound;
599 ffamily = GdipAlloc(sizeof (GpFontFamily));
600 if (!ffamily) return OutOfMemory;
603 lstrcpynW(ffamily->FamilyName, name, LF_FACESIZE);
605 *FontFamily = ffamily;
607 TRACE("<-- %p\n", ffamily);
612 /*******************************************************************************
613 * GdipCloneFontFamily [GDIPLUS.@]
615 * Creates a deep copy of a Font Family object
618 * FontFamily [I] Font to clone
619 * clonedFontFamily [O] The resulting cloned font
624 GpStatus WINGDIPAPI GdipCloneFontFamily(GpFontFamily* FontFamily, GpFontFamily** clonedFontFamily)
626 if (!(FontFamily && clonedFontFamily)) return InvalidParameter;
628 TRACE("stub: %p (%s), %p\n", FontFamily,
629 debugstr_w(FontFamily->FamilyName), clonedFontFamily);
631 *clonedFontFamily = GdipAlloc(sizeof(GpFontFamily));
632 if (!*clonedFontFamily) return OutOfMemory;
634 (*clonedFontFamily)->otm = FontFamily->otm;
635 lstrcpyW((*clonedFontFamily)->FamilyName, FontFamily->FamilyName);
637 TRACE("<-- %p\n", *clonedFontFamily);
642 /*******************************************************************************
643 * GdipGetFamilyName [GDIPLUS.@]
645 * Returns the family name into name
648 * *family [I] Family to retrieve from
649 * *name [O] WCHARS of the family name
654 * FAILURE: InvalidParameter if family is NULL
657 * If name is a NULL ptr, then both XP and Vista will crash (so we do as well)
659 GpStatus WINGDIPAPI GdipGetFamilyName (GDIPCONST GpFontFamily *family,
660 WCHAR *name, LANGID language)
662 static int lang_fixme;
665 return InvalidParameter;
667 TRACE("%p, %p, %d\n", family, name, language);
669 if (language != LANG_NEUTRAL && !lang_fixme++)
670 FIXME("No support for handling of multiple languages!\n");
672 lstrcpynW (name, family->FamilyName, LF_FACESIZE);
678 /*****************************************************************************
679 * GdipDeleteFontFamily [GDIPLUS.@]
681 * Removes the specified FontFamily
684 * *FontFamily [I] The family to delete
688 * FAILURE: InvalidParameter if FontFamily is NULL.
691 GpStatus WINGDIPAPI GdipDeleteFontFamily(GpFontFamily *FontFamily)
694 return InvalidParameter;
695 TRACE("Deleting %p (%s)\n", FontFamily, debugstr_w(FontFamily->FamilyName));
697 GdipFree (FontFamily);
702 GpStatus WINGDIPAPI GdipGetCellAscent(GDIPCONST GpFontFamily *family,
703 INT style, UINT16* CellAscent)
705 if (!(family && CellAscent)) return InvalidParameter;
707 *CellAscent = family->otm.otmTextMetrics.tmAscent;
712 GpStatus WINGDIPAPI GdipGetCellDescent(GDIPCONST GpFontFamily *family,
713 INT style, UINT16* CellDescent)
715 TRACE("(%p, %d, %p)\n", family, style, CellDescent);
717 if (!(family && CellDescent)) return InvalidParameter;
719 *CellDescent = family->otm.otmTextMetrics.tmDescent;
724 /*******************************************************************************
725 * GdipGetEmHeight [GDIPLUS.@]
727 * Gets the height of the specified family in EmHeights
730 * family [I] Family to retrieve from
731 * style [I] (optional) style
732 * EmHeight [O] return value
736 * FAILURE: InvalidParameter
738 GpStatus WINGDIPAPI GdipGetEmHeight(GDIPCONST GpFontFamily *family, INT style, UINT16* EmHeight)
740 if (!(family && EmHeight)) return InvalidParameter;
742 TRACE("%p (%s), %d, %p\n", family, debugstr_w(family->FamilyName), style, EmHeight);
744 *EmHeight = family->otm.otmEMSquare;
750 /*******************************************************************************
751 * GdipGetLineSpacing [GDIPLUS.@]
753 * Returns the line spacing in design units
756 * family [I] Family to retrieve from
757 * style [I] (Optional) font style
758 * LineSpacing [O] Return value
762 * FAILURE: InvalidParameter (family or LineSpacing was NULL)
764 GpStatus WINGDIPAPI GdipGetLineSpacing(GDIPCONST GpFontFamily *family,
765 INT style, UINT16* LineSpacing)
767 TRACE("%p, %d, %p\n", family, style, LineSpacing);
769 if (!(family && LineSpacing))
770 return InvalidParameter;
772 if (style) FIXME("ignoring style\n");
774 *LineSpacing = family->otm.otmTextMetrics.tmAscent + family->otm.otmTextMetrics.tmDescent + family->otm.otmTextMetrics.tmExternalLeading;
779 static INT CALLBACK font_has_style_proc(const LOGFONTW *elf,
780 const TEXTMETRICW *ntm, DWORD type, LPARAM lParam)
782 INT fontstyle = FontStyleRegular;
786 if (ntm->tmWeight >= FW_BOLD) fontstyle |= FontStyleBold;
787 if (ntm->tmItalic) fontstyle |= FontStyleItalic;
788 if (ntm->tmUnderlined) fontstyle |= FontStyleUnderline;
789 if (ntm->tmStruckOut) fontstyle |= FontStyleStrikeout;
791 return (INT)lParam != fontstyle;
794 GpStatus WINGDIPAPI GdipIsStyleAvailable(GDIPCONST GpFontFamily* family,
795 INT style, BOOL* IsStyleAvailable)
799 TRACE("%p %d %p\n", family, style, IsStyleAvailable);
801 if (!(family && IsStyleAvailable))
802 return InvalidParameter;
804 *IsStyleAvailable = FALSE;
808 if(!EnumFontFamiliesW(hdc, family->FamilyName, font_has_style_proc, (LPARAM)style))
809 *IsStyleAvailable = TRUE;
816 /*****************************************************************************
817 * GdipGetGenericFontFamilyMonospace [GDIPLUS.@]
819 * Obtains a serif family (Courier New on Windows)
822 * **nativeFamily [I] Where the font will be stored
825 * InvalidParameter if nativeFamily is NULL.
828 GpStatus WINGDIPAPI GdipGetGenericFontFamilyMonospace(GpFontFamily **nativeFamily)
830 static const WCHAR CourierNew[] = {'C','o','u','r','i','e','r',' ','N','e','w','\0'};
831 static const WCHAR LiberationMono[] = {'L','i','b','e','r','a','t','i','o','n',' ','M','o','n','o','\0'};
834 if (nativeFamily == NULL) return InvalidParameter;
836 stat = GdipCreateFontFamilyFromName(CourierNew, NULL, nativeFamily);
838 if (stat == FontFamilyNotFound)
839 stat = GdipCreateFontFamilyFromName(LiberationMono, NULL, nativeFamily);
841 if (stat == FontFamilyNotFound)
842 ERR("Missing 'Courier New' font\n");
847 /*****************************************************************************
848 * GdipGetGenericFontFamilySerif [GDIPLUS.@]
850 * Obtains a serif family (Times New Roman on Windows)
853 * **nativeFamily [I] Where the font will be stored
856 * InvalidParameter if nativeFamily is NULL.
859 GpStatus WINGDIPAPI GdipGetGenericFontFamilySerif(GpFontFamily **nativeFamily)
861 static const WCHAR TimesNewRoman[] = {'T','i','m','e','s',' ','N','e','w',' ','R','o','m','a','n','\0'};
862 static const WCHAR LiberationSerif[] = {'L','i','b','e','r','a','t','i','o','n',' ','S','e','r','i','f','\0'};
865 TRACE("(%p)\n", nativeFamily);
867 if (nativeFamily == NULL) return InvalidParameter;
869 stat = GdipCreateFontFamilyFromName(TimesNewRoman, NULL, nativeFamily);
871 if (stat == FontFamilyNotFound)
872 stat = GdipCreateFontFamilyFromName(LiberationSerif, NULL, nativeFamily);
874 if (stat == FontFamilyNotFound)
875 ERR("Missing 'Times New Roman' font\n");
880 /*****************************************************************************
881 * GdipGetGenericFontFamilySansSerif [GDIPLUS.@]
883 * Obtains a serif family (Microsoft Sans Serif on Windows)
886 * **nativeFamily [I] Where the font will be stored
889 * InvalidParameter if nativeFamily is NULL.
892 GpStatus WINGDIPAPI GdipGetGenericFontFamilySansSerif(GpFontFamily **nativeFamily)
895 static const WCHAR MicrosoftSansSerif[] = {'M','i','c','r','o','s','o','f','t',' ','S','a','n','s',' ','S','e','r','i','f','\0'};
896 static const WCHAR Tahoma[] = {'T','a','h','o','m','a','\0'};
898 TRACE("(%p)\n", nativeFamily);
900 if (nativeFamily == NULL) return InvalidParameter;
902 stat = GdipCreateFontFamilyFromName(MicrosoftSansSerif, NULL, nativeFamily);
904 if (stat == FontFamilyNotFound)
905 /* FIXME: Microsoft Sans Serif is not installed on Wine. */
906 stat = GdipCreateFontFamilyFromName(Tahoma, NULL, nativeFamily);
911 /*****************************************************************************
912 * GdipGetGenericFontFamilySansSerif [GDIPLUS.@]
914 GpStatus WINGDIPAPI GdipNewPrivateFontCollection(GpFontCollection** fontCollection)
916 TRACE("%p\n", fontCollection);
919 return InvalidParameter;
921 *fontCollection = GdipAlloc(sizeof(GpFontCollection));
922 if (!*fontCollection) return OutOfMemory;
924 (*fontCollection)->FontFamilies = NULL;
925 (*fontCollection)->count = 0;
926 (*fontCollection)->allocated = 0;
928 TRACE("<-- %p\n", *fontCollection);
933 /*****************************************************************************
934 * GdipDeletePrivateFontCollection [GDIPLUS.@]
936 GpStatus WINGDIPAPI GdipDeletePrivateFontCollection(GpFontCollection **fontCollection)
940 TRACE("%p\n", fontCollection);
943 return InvalidParameter;
945 for (i = 0; i < (*fontCollection)->count; i++) GdipFree((*fontCollection)->FontFamilies[i]);
946 GdipFree(*fontCollection);
951 /*****************************************************************************
952 * GdipPrivateAddFontFile [GDIPLUS.@]
954 GpStatus WINGDIPAPI GdipPrivateAddFontFile(GpFontCollection* fontCollection,
955 GDIPCONST WCHAR* filename)
957 FIXME("stub: %p, %s\n", fontCollection, debugstr_w(filename));
959 if (!(fontCollection && filename))
960 return InvalidParameter;
962 return NotImplemented;
965 /* Copied from msi/font.c */
967 typedef struct _tagTT_OFFSET_TABLE {
968 USHORT uMajorVersion;
969 USHORT uMinorVersion;
972 USHORT uEntrySelector;
976 typedef struct _tagTT_TABLE_DIRECTORY {
977 char szTag[4]; /* table name */
978 ULONG uCheckSum; /* Check sum */
979 ULONG uOffset; /* Offset from beginning of file */
980 ULONG uLength; /* length of the table in bytes */
981 } TT_TABLE_DIRECTORY;
983 typedef struct _tagTT_NAME_TABLE_HEADER {
984 USHORT uFSelector; /* format selector. Always 0 */
985 USHORT uNRCount; /* Name Records count */
986 USHORT uStorageOffset; /* Offset for strings storage,
987 * from start of the table */
988 } TT_NAME_TABLE_HEADER;
990 #define NAME_ID_FULL_FONT_NAME 4
991 #define NAME_ID_VERSION 5
993 typedef struct _tagTT_NAME_RECORD {
998 USHORT uStringLength;
999 USHORT uStringOffset; /* from start of storage area */
1002 #define SWAPWORD(x) MAKEWORD(HIBYTE(x), LOBYTE(x))
1003 #define SWAPLONG(x) MAKELONG(SWAPWORD(HIWORD(x)), SWAPWORD(LOWORD(x)))
1006 * Code based off of code located here
1007 * http://www.codeproject.com/gdi/fontnamefromfile.asp
1009 static WCHAR *load_ttf_name_id( const char *mem, DWORD_PTR size, DWORD id, WCHAR *ret, DWORD len )
1011 const TT_TABLE_DIRECTORY *tblDir;
1012 TT_OFFSET_TABLE ttOffsetTable;
1013 TT_NAME_TABLE_HEADER ttNTHeader;
1014 TT_NAME_RECORD ttRecord;
1018 if (sizeof(TT_OFFSET_TABLE) > size)
1020 ttOffsetTable = *(TT_OFFSET_TABLE*)mem;
1021 ttOffsetTable.uNumOfTables = SWAPWORD(ttOffsetTable.uNumOfTables);
1022 ttOffsetTable.uMajorVersion = SWAPWORD(ttOffsetTable.uMajorVersion);
1023 ttOffsetTable.uMinorVersion = SWAPWORD(ttOffsetTable.uMinorVersion);
1025 if (ttOffsetTable.uMajorVersion != 1 || ttOffsetTable.uMinorVersion != 0)
1028 pos = sizeof(ttOffsetTable);
1029 for (i = 0; i < ttOffsetTable.uNumOfTables; i++)
1031 tblDir = (const TT_TABLE_DIRECTORY*)&mem[pos];
1032 pos += sizeof(*tblDir);
1033 if (memcmp(tblDir->szTag,"name",4)==0)
1035 ofs = SWAPLONG(tblDir->uOffset);
1039 if (i >= ttOffsetTable.uNumOfTables)
1042 pos = ofs + sizeof(ttNTHeader);
1045 ttNTHeader = *(TT_NAME_TABLE_HEADER*)&mem[ofs];
1046 ttNTHeader.uNRCount = SWAPWORD(ttNTHeader.uNRCount);
1047 ttNTHeader.uStorageOffset = SWAPWORD(ttNTHeader.uStorageOffset);
1048 for(i=0; i<ttNTHeader.uNRCount; i++)
1050 ttRecord = *(TT_NAME_RECORD*)&mem[pos];
1051 pos += sizeof(ttRecord);
1055 ttRecord.uNameID = SWAPWORD(ttRecord.uNameID);
1056 if (ttRecord.uNameID == id)
1060 ttRecord.uStringLength = SWAPWORD(ttRecord.uStringLength);
1061 ttRecord.uStringOffset = SWAPWORD(ttRecord.uStringOffset);
1062 if (ofs + ttRecord.uStringOffset + ttNTHeader.uStorageOffset + ttRecord.uStringLength > size)
1064 buf = mem + ofs + ttRecord.uStringOffset + ttNTHeader.uStorageOffset;
1065 len = MultiByteToWideChar(CP_ACP, 0, buf, ttRecord.uStringLength, ret, len-1);
1073 static INT CALLBACK add_font_proc(const LOGFONTW *lfw, const TEXTMETRICW *ntm, DWORD type, LPARAM lParam);
1075 /*****************************************************************************
1076 * GdipPrivateAddMemoryFont [GDIPLUS.@]
1078 GpStatus WINGDIPAPI GdipPrivateAddMemoryFont(GpFontCollection* fontCollection,
1079 GDIPCONST void* memory, INT length)
1081 WCHAR buf[32], *name;
1084 TRACE("%p, %p, %d\n", fontCollection, memory, length);
1086 if (!fontCollection || !memory || !length)
1087 return InvalidParameter;
1089 name = load_ttf_name_id(memory, length, NAME_ID_FULL_FONT_NAME, buf, sizeof(buf)/sizeof(*buf));
1093 font = AddFontMemResourceEx((void*)memory, length, NULL, &count);
1094 TRACE("%s: %p/%u\n", debugstr_w(name), font, count);
1095 if (!font || !count)
1096 return InvalidParameter;
1105 lfw.lfCharSet = DEFAULT_CHARSET;
1106 lstrcpyW(lfw.lfFaceName, name);
1107 lfw.lfPitchAndFamily = 0;
1109 if (!EnumFontFamiliesExW(hdc, &lfw, add_font_proc, (LPARAM)fontCollection, 0))
1120 /*****************************************************************************
1121 * GdipGetFontCollectionFamilyCount [GDIPLUS.@]
1123 GpStatus WINGDIPAPI GdipGetFontCollectionFamilyCount(
1124 GpFontCollection* fontCollection, INT* numFound)
1126 TRACE("%p, %p\n", fontCollection, numFound);
1128 if (!(fontCollection && numFound))
1129 return InvalidParameter;
1131 *numFound = fontCollection->count;
1135 /*****************************************************************************
1136 * GdipGetFontCollectionFamilyList [GDIPLUS.@]
1138 GpStatus WINGDIPAPI GdipGetFontCollectionFamilyList(
1139 GpFontCollection* fontCollection, INT numSought,
1140 GpFontFamily* gpfamilies[], INT* numFound)
1145 TRACE("%p, %d, %p, %p\n", fontCollection, numSought, gpfamilies, numFound);
1147 if (!(fontCollection && gpfamilies && numFound))
1148 return InvalidParameter;
1150 memset(gpfamilies, 0, sizeof(*gpfamilies) * numSought);
1152 for (i = 0; i < numSought && i < fontCollection->count && stat == Ok; i++)
1154 stat = GdipCloneFontFamily(fontCollection->FontFamilies[i], &gpfamilies[i]);
1162 for (i=0; i<numToFree; i++)
1164 GdipDeleteFontFamily(gpfamilies[i]);
1165 gpfamilies[i] = NULL;
1172 void free_installed_fonts(void)
1174 while (installedFontCollection.count)
1175 GdipDeleteFontFamily(installedFontCollection.FontFamilies[--installedFontCollection.count]);
1176 HeapFree(GetProcessHeap(), 0, installedFontCollection.FontFamilies);
1177 installedFontCollection.FontFamilies = NULL;
1178 installedFontCollection.allocated = 0;
1181 static INT CALLBACK add_font_proc(const LOGFONTW *lfw, const TEXTMETRICW *ntm,
1182 DWORD type, LPARAM lParam)
1184 GpFontCollection* fonts = (GpFontCollection*)lParam;
1187 if (type == RASTER_FONTTYPE)
1190 /* skip duplicates */
1191 for (i=0; i<fonts->count; i++)
1192 if (strcmpiW(lfw->lfFaceName, fonts->FontFamilies[i]->FamilyName) == 0)
1195 if (fonts->allocated == fonts->count)
1197 INT new_alloc_count = fonts->allocated+50;
1198 GpFontFamily** new_family_list = HeapAlloc(GetProcessHeap(), 0, new_alloc_count*sizeof(void*));
1200 if (!new_family_list)
1203 memcpy(new_family_list, fonts->FontFamilies, fonts->count*sizeof(void*));
1204 HeapFree(GetProcessHeap(), 0, fonts->FontFamilies);
1205 fonts->FontFamilies = new_family_list;
1206 fonts->allocated = new_alloc_count;
1209 if (GdipCreateFontFamilyFromName(lfw->lfFaceName, NULL, &fonts->FontFamilies[fonts->count]) == Ok)
1217 GpStatus WINGDIPAPI GdipNewInstalledFontCollection(
1218 GpFontCollection** fontCollection)
1220 TRACE("(%p)\n",fontCollection);
1222 if (!fontCollection)
1223 return InvalidParameter;
1225 if (installedFontCollection.count == 0)
1232 lfw.lfCharSet = DEFAULT_CHARSET;
1233 lfw.lfFaceName[0] = 0;
1234 lfw.lfPitchAndFamily = 0;
1236 if (!EnumFontFamiliesExW(hdc, &lfw, add_font_proc, (LPARAM)&installedFontCollection, 0))
1238 free_installed_fonts();
1246 *fontCollection = &installedFontCollection;