git.oblomov.eu Git - wine/blob - 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 /*****************************************************************************
 224  * GdipDeleteFontFamily [GDIPLUS.@]
 225  *
 226  * Removes the specified FontFamily
 227  *
 228  * PARAMS
 229  *  *FontFamily         [I] The family to delete
 230  *
 231  * RETURNS
 232  *  SUCCESS: Ok
 233  *  FAILURE: InvalidParameter if FontFamily is NULL.
 234  *
 235  */
 236 GpStatus WINGDIPAPI GdipDeleteFontFamily(GpFontFamily *FontFamily)
 237 {
 238     if (!FontFamily)
 239         return InvalidParameter;
 240     TRACE("Deleting %p (%s)\n", FontFamily, debugstr_w(FontFamily->FamilyName));
 241
 242     if (FontFamily->FamilyName) GdipFree (FontFamily->FamilyName);
 243     if (FontFamily->tmw) GdipFree (FontFamily->tmw);
 244     GdipFree (FontFamily);
 245
 246     return Ok;
 247 }