dlls/gdiplus/font.c

   1 /*
   2  * Copyright (C) 2007 Google (Evan Stade)
   3  *
   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.
   8  *
   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.
  13  *
  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
  17  */
  18
  19 #include <stdarg.h>
  20
  21 #include "windef.h"
  22 #include "winbase.h"
  23 #include "wingdi.h"
  24 #include "winnls.h"
  25 #include "wine/debug.h"
  26 #include "wine/unicode.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL (gdiplus);
  29
  30 #include "objbase.h"
  31
  32 #include "gdiplus.h"
  33 #include "gdiplus_private.h"
  34
  35 GpStatus WINGDIPAPI GdipCreateFontFromLogfontW(HDC hdc,
  36     GDIPCONST LOGFONTW *logfont, GpFont **font)
  37 {
  38     HFONT hfont, oldfont;
  39     TEXTMETRICW textmet;
  40
  41     if(!logfont || !font)
  42         return InvalidParameter;
  43
  44     *font = GdipAlloc(sizeof(GpFont));
  45     if(!*font)  return OutOfMemory;
  46
  47     memcpy(&(*font)->lfw.lfFaceName, logfont->lfFaceName, LF_FACESIZE *
  48            sizeof(WCHAR));
  49     (*font)->lfw.lfHeight = logfont->lfHeight;
  50     (*font)->lfw.lfItalic = logfont->lfItalic;
  51     (*font)->lfw.lfUnderline = logfont->lfUnderline;
  52     (*font)->lfw.lfStrikeOut = logfont->lfStrikeOut;
  53
  54     hfont = CreateFontIndirectW(&(*font)->lfw);
  55     oldfont = SelectObject(hdc, hfont);
  56     GetTextMetricsW(hdc, &textmet);
  57
  58     (*font)->lfw.lfHeight = -textmet.tmHeight;
  59     (*font)->lfw.lfWeight = textmet.tmWeight;
  60
  61     SelectObject(hdc, oldfont);
  62     DeleteObject(hfont);
  63
  64     return Ok;
  65 }
  66
  67 GpStatus WINGDIPAPI GdipCreateFontFromLogfontA(HDC hdc,
  68     GDIPCONST LOGFONTA *lfa, GpFont **font)
  69 {
  70     LOGFONTW lfw;
  71
  72     if(!lfa || !font)
  73         return InvalidParameter;
  74
  75     memcpy(&lfw, lfa, FIELD_OFFSET(LOGFONTA,lfFaceName) );
  76
  77     if(!MultiByteToWideChar(CP_ACP, 0, lfa->lfFaceName, -1, lfw.lfFaceName, LF_FACESIZE))
  78         return GenericError;
  79
  80     GdipCreateFontFromLogfontW(hdc, &lfw, font);
  81
  82     return Ok;
  83 }
  84
  85 GpStatus WINGDIPAPI GdipDeleteFont(GpFont* font)
  86 {
  87     if(!font)
  88         return InvalidParameter;
  89
  90     GdipFree(font);
  91
  92     return Ok;
  93 }
  94
  95 GpStatus WINGDIPAPI GdipCreateFontFromDC(HDC hdc, GpFont **font)
  96 {
  97     HFONT hfont;
  98     LOGFONTW lfw;
  99
 100     if(!font)
 101         return InvalidParameter;
 102
 103     hfont = (HFONT)GetCurrentObject(hdc, OBJ_FONT);
 104     if(!hfont)
 105         return GenericError;
 106
 107     if(!GetObjectW(hfont, sizeof(LOGFONTW), &lfw))
 108         return GenericError;
 109
 110     return GdipCreateFontFromLogfontW(hdc, &lfw, font);
 111 }
 112
 113 /* FIXME: use graphics */
 114 GpStatus WINGDIPAPI GdipGetLogFontW(GpFont *font, GpGraphics *graphics,
 115     LOGFONTW *lfw)
 116 {
 117     if(!font || !graphics || !lfw)
 118         return InvalidParameter;
 119
 120     *lfw = font->lfw;
 121
 122     return Ok;
 123 }
 124
 125 GpStatus WINGDIPAPI GdipCloneFont(GpFont *font, GpFont **cloneFont)
 126 {
 127     if(!font || !cloneFont)
 128         return InvalidParameter;
 129
 130     *cloneFont = GdipAlloc(sizeof(GpFont));
 131     if(!*cloneFont)    return OutOfMemory;
 132
 133     **cloneFont = *font;
 134
 135     return Ok;
 136 }
 137
 138 /* Borrowed from GDI32 */
 139 static INT CALLBACK is_font_installed_proc(const LOGFONTW *elf,
 140                             const TEXTMETRICW *ntm, DWORD type, LPARAM lParam)
 141 {
 142     return 0;
 143 }
 144
 145 static BOOL is_font_installed(const WCHAR *name)
 146 {
 147     HDC hdc = GetDC(0);
 148     BOOL ret = FALSE;
 149
 150     if(!EnumFontFamiliesW(hdc, name, is_font_installed_proc, 0))
 151         ret = TRUE;
 152
 153     ReleaseDC(0, hdc);
 154     return ret;
 155 }
 156
 157 /*******************************************************************************
 158  * GdipCreateFontFamilyFromName [GDIPLUS.@]
 159  *
 160  * Creates a font family object based on a supplied name
 161  *
 162  * PARAMS
 163  *  name               [I] Name of the font
 164  *  fontCollection     [I] What font collection (if any) the font belongs to (may be NULL)
 165  *  FontFamily         [O] Pointer to the resulting FontFamily object
 166  *
 167  * RETURNS
 168  *  SUCCESS: Ok
 169  *  FAILURE: FamilyNotFound if the requested FontFamily does not exist on the system
 170  *  FAILURE: Invalid parameter if FontFamily or name is NULL
 171  *
 172  * NOTES
 173  *   If fontCollection is NULL then the object is not part of any collection
 174  *
 175  */
 176
 177 GpStatus WINGDIPAPI GdipCreateFontFamilyFromName(GDIPCONST WCHAR *name,
 178                                         GpFontCollection *fontCollection,
 179                                         GpFontFamily **FontFamily)
 180 {
 181     GpFontFamily* ffamily;
 182     HDC hdc;
 183     HFONT hFont;
 184     LOGFONTW lfw;
 185
 186     TRACE("%s, %p %p\n", debugstr_w(name), fontCollection, FontFamily);
 187
 188     if (!(name && FontFamily))
 189         return InvalidParameter;
 190     if (fontCollection)
 191         FIXME("No support for FontCollections yet!\n");
 192     if (!is_font_installed(name))
 193         return FontFamilyNotFound;
 194
 195     ffamily = GdipAlloc(sizeof (GpFontFamily));
 196     if (!ffamily) return OutOfMemory;
 197     ffamily->tmw = GdipAlloc(sizeof (TEXTMETRICW));
 198     if (!ffamily->tmw) {GdipFree (ffamily); return OutOfMemory;}
 199
 200     hdc = GetDC(0);
 201     lstrcpynW(lfw.lfFaceName, name, sizeof(WCHAR) * LF_FACESIZE);
 202     hFont = CreateFontIndirectW (&lfw);
 203     SelectObject(hdc, hFont);
 204
 205     GetTextMetricsW(hdc, ffamily->tmw);
 206
 207     ffamily->FamilyName = GdipAlloc(LF_FACESIZE * sizeof (WCHAR));
 208     if (!ffamily->FamilyName)
 209     {
 210         GdipFree(ffamily);
 211         return OutOfMemory;
 212     }
 213
 214     lstrcpynW(ffamily->FamilyName, name, sizeof(WCHAR) * LF_FACESIZE);
 215
 216     *FontFamily = ffamily;
 217     ReleaseDC(0, hdc);
 218
 219     return Ok;
 220 }
 221
 222 /*******************************************************************************
 223  * GdipGetFamilyName [GDIPLUS.@]
 224  *
 225  * Returns the family name into name
 226  *
 227  * PARAMS
 228  *  *family     [I] Family to retrieve from
 229  *  *name       [O] WCHARS of the family name
 230  *  LANGID      [I] charset
 231  *
 232  * RETURNS
 233  *  SUCCESS: Ok
 234  *  FAILURE: InvalidParameter if family is NULL
 235  *
 236  * NOTES
 237  *   If name is a NULL ptr, then both XP and Vista will crash (so we do as well)
 238  */
 239 GpStatus WINGDIPAPI GdipGetFamilyName (GDIPCONST GpFontFamily *family,
 240                                        WCHAR *name, LANGID language)
 241 {
 242     if (family == NULL)
 243          return InvalidParameter;
 244
 245     TRACE("%p, %p, %d\n", family, name, language);
 246
 247     if (language != LANG_NEUTRAL)
 248         FIXME("No support for handling of multiple languages!\n");
 249
 250     lstrcpynW (name, family->FamilyName, LF_FACESIZE);
 251
 252     return Ok;
 253 }
 254
 255
 256 /*****************************************************************************
 257  * GdipDeleteFontFamily [GDIPLUS.@]
 258  *
 259  * Removes the specified FontFamily
 260  *
 261  * PARAMS
 262  *  *FontFamily         [I] The family to delete
 263  *
 264  * RETURNS
 265  *  SUCCESS: Ok
 266  *  FAILURE: InvalidParameter if FontFamily is NULL.
 267  *
 268  */
 269 GpStatus WINGDIPAPI GdipDeleteFontFamily(GpFontFamily *FontFamily)
 270 {
 271     if (!FontFamily)
 272         return InvalidParameter;
 273     TRACE("Deleting %p (%s)\n", FontFamily, debugstr_w(FontFamily->FamilyName));
 274
 275     if (FontFamily->FamilyName) GdipFree (FontFamily->FamilyName);
 276     if (FontFamily->tmw) GdipFree (FontFamily->tmw);
 277     GdipFree (FontFamily);
 278
 279     return Ok;
 280 }
 281
 282 /*****************************************************************************
 283  * GdipGetGenericFontFamilyMonospace [GDIPLUS.@]
 284  *
 285  * Obtains a serif family (Courier New on Windows)
 286  *
 287  * PARAMS
 288  *  **nativeFamily         [I] Where the font will be stored
 289  *
 290  * RETURNS
 291  *  InvalidParameter if nativeFamily is NULL.
 292  *  Ok otherwise.
 293  */
 294 GpStatus WINGDIPAPI GdipGetGenericFontFamilyMonospace(GpFontFamily **nativeFamily)
 295 {
 296     static const WCHAR CourierNew[] = {'C','o','u','r','i','e','r',' ','N','e','w','\0'};
 297
 298     if (nativeFamily == NULL) return InvalidParameter;
 299
 300     return GdipCreateFontFamilyFromName(CourierNew, NULL, nativeFamily);
 301 }
 302
 303 /*****************************************************************************
 304  * GdipGetGenericFontFamilySerif [GDIPLUS.@]
 305  *
 306  * Obtains a serif family (Times New Roman on Windows)
 307  *
 308  * PARAMS
 309  *  **nativeFamily         [I] Where the font will be stored
 310  *
 311  * RETURNS
 312  *  InvalidParameter if nativeFamily is NULL.
 313  *  Ok otherwise.
 314  */
 315 GpStatus WINGDIPAPI GdipGetGenericFontFamilySerif(GpFontFamily **nativeFamily)
 316 {
 317     static const WCHAR TimesNewRoman[] = {'T','i','m','e','s',' ','N','e','w',' ','R','o','m','a','n','\0'};
 318
 319     if (nativeFamily == NULL) return InvalidParameter;
 320
 321     return GdipCreateFontFamilyFromName(TimesNewRoman, NULL, nativeFamily);
 322 }
 323
 324 /*****************************************************************************
 325  * GdipGetGenericFontFamilySansSerif [GDIPLUS.@]
 326  *
 327  * Obtains a serif family (Microsoft Sans Serif on Windows)
 328  *
 329  * PARAMS
 330  *  **nativeFamily         [I] Where the font will be stored
 331  *
 332  * RETURNS
 333  *  InvalidParameter if nativeFamily is NULL.
 334  *  Ok otherwise.
 335  */
 336 GpStatus WINGDIPAPI GdipGetGenericFontFamilySansSerif(GpFontFamily **nativeFamily)
 337 {
 338     /* FIXME: On Windows this is called Microsoft Sans Serif, this shouldn't
 339      * affect anything */
 340     static const WCHAR MSSansSerif[] = {'M','S',' ','S','a','n','s',' ','S','e','r','i','f','\0'};
 341
 342     if (nativeFamily == NULL) return InvalidParameter;
 343
 344     return GdipCreateFontFamilyFromName(MSSansSerif, NULL, nativeFamily);
 345 }