| 1 |
|
|---|
| 2 | /***********************************************************************
|
|---|
| 3 |
|
|---|
| 4 | $Id: fonts.c 1626 2011-08-26 21:46:56Z gyoung $
|
|---|
| 5 |
|
|---|
| 6 | Font support
|
|---|
| 7 |
|
|---|
| 8 | Copyright (c) 1993-98 M. Kimes
|
|---|
| 9 | Copyright (c) 2008, 2009 Steven H. Levine
|
|---|
| 10 |
|
|---|
| 11 | 05 Jan 08 SHL Sync
|
|---|
| 12 | 29 Nov 08 GKY Remove or replace with a mutex semaphore DosEnterCriSec where appropriate.
|
|---|
| 13 | 10 Jan 09 GKY Removed rotating strings for font samples as part of StringTable conversion
|
|---|
| 14 |
|
|---|
| 15 | ***********************************************************************/
|
|---|
| 16 |
|
|---|
| 17 | #include <string.h>
|
|---|
| 18 |
|
|---|
| 19 | #define INCL_DOS
|
|---|
| 20 | #define INCL_WIN
|
|---|
| 21 | #define INCL_GPI
|
|---|
| 22 | #define INCL_LONGLONG // dircnrs.h
|
|---|
| 23 |
|
|---|
| 24 | #include "fm3str.h"
|
|---|
| 25 | #include "errutil.h" // Dos_Error...
|
|---|
| 26 | #include "strutil.h" // GetPString
|
|---|
| 27 | #include "fonts.h"
|
|---|
| 28 | #include "fm3dll.h"
|
|---|
| 29 | #include "init.h" // Global semaphore
|
|---|
| 30 |
|
|---|
| 31 | //static VOID SetFont(HWND hwnd);
|
|---|
| 32 |
|
|---|
| 33 | #pragma data_seg(DATA1)
|
|---|
| 34 |
|
|---|
| 35 |
|
|---|
| 36 | /*
|
|---|
| 37 | * Convert vector font size using point size and fAttrs structure and
|
|---|
| 38 | * return it in that structure.
|
|---|
| 39 | */
|
|---|
| 40 |
|
|---|
| 41 | VOID ConvertVectorFontSize(FIXED fxPointSize, PFATTRS pfattrs)
|
|---|
| 42 | {
|
|---|
| 43 |
|
|---|
| 44 | HPS hps;
|
|---|
| 45 | HDC hDC;
|
|---|
| 46 | LONG lxFontResolution;
|
|---|
| 47 | LONG lyFontResolution;
|
|---|
| 48 | SIZEF sizef;
|
|---|
| 49 |
|
|---|
| 50 | hps = WinGetScreenPS(HWND_DESKTOP); /* Screen presentation space */
|
|---|
| 51 |
|
|---|
| 52 | /*
|
|---|
| 53 | * Query device context for the screen and then query
|
|---|
| 54 | * the resolution of the device for the device context.
|
|---|
| 55 | */
|
|---|
| 56 |
|
|---|
| 57 | hDC = GpiQueryDevice(hps);
|
|---|
| 58 | DevQueryCaps(hDC, CAPS_HORIZONTAL_FONT_RES, (LONG) 1, &lxFontResolution);
|
|---|
| 59 | DevQueryCaps(hDC, CAPS_VERTICAL_FONT_RES, (LONG) 1, &lyFontResolution);
|
|---|
| 60 |
|
|---|
| 61 | /*
|
|---|
| 62 | * Calculate the size of the character box, based on the
|
|---|
| 63 | * point size selected and the resolution of the device.
|
|---|
| 64 | * The size parameters are of type FIXED, NOT int.
|
|---|
| 65 | * NOTE: 1 point == 1/72 of an inch.
|
|---|
| 66 | */
|
|---|
| 67 |
|
|---|
| 68 | sizef.cx = (FIXED) (((fxPointSize) / 72) * lxFontResolution);
|
|---|
| 69 | sizef.cy = (FIXED) (((fxPointSize) / 72) * lyFontResolution);
|
|---|
| 70 |
|
|---|
| 71 | pfattrs->lMaxBaselineExt = MAKELONG(HIUSHORT(sizef.cy), 0);
|
|---|
| 72 | pfattrs->lAveCharWidth = MAKELONG(HIUSHORT(sizef.cx), 0);
|
|---|
| 73 | WinReleasePS(hps);
|
|---|
| 74 |
|
|---|
| 75 | } /* end ConvertVectorPointSize() */
|
|---|
| 76 |
|
|---|
| 77 | VOID SetPresParamFromFattrs(HWND hwnd, FATTRS * fattrs,
|
|---|
| 78 | SHORT sNominalPointSize, FIXED fxPointSize)
|
|---|
| 79 | {
|
|---|
| 80 |
|
|---|
| 81 | CHAR s[CCHMAXPATH * 2];
|
|---|
| 82 |
|
|---|
| 83 | if (fattrs->fsFontUse != FATTR_FONTUSE_OUTLINE)
|
|---|
| 84 | sprintf(s, "%hd.", sNominalPointSize / 10);
|
|---|
| 85 | else {
|
|---|
| 86 | sprintf(s, "%hd.", FIXEDINT(fxPointSize));
|
|---|
| 87 | if ((((USHORT) FIXEDFRAC(fxPointSize) * 100) / 65536) > 0)
|
|---|
| 88 | sprintf(&s[strlen(s)], "%hd.",
|
|---|
| 89 | ((USHORT) FIXEDFRAC(fxPointSize) * 100) / 65536);
|
|---|
| 90 | }
|
|---|
| 91 | strcat(s, fattrs->szFacename);
|
|---|
| 92 | if (fattrs->fsSelection & FATTR_SEL_ITALIC) {
|
|---|
| 93 | strcat(s, ".");
|
|---|
| 94 | strcat(s, GetPString(IDS_ITALICTEXT));
|
|---|
| 95 | }
|
|---|
| 96 | if (fattrs->fsSelection & FATTR_SEL_OUTLINE) {
|
|---|
| 97 | strcat(s, ".");
|
|---|
| 98 | strcat(s, GetPString(IDS_OUTLINETEXT));
|
|---|
| 99 | }
|
|---|
| 100 | if (fattrs->fsSelection & FATTR_SEL_BOLD) {
|
|---|
| 101 | strcat(s, ".");
|
|---|
| 102 | strcat(s, GetPString(IDS_BOLDTEXT));
|
|---|
| 103 | }
|
|---|
| 104 | if (fattrs->fsSelection & FATTR_SEL_UNDERSCORE) {
|
|---|
| 105 | strcat(s, ".");
|
|---|
| 106 | strcat(s, GetPString(IDS_UNDERSCORETEXT));
|
|---|
| 107 | }
|
|---|
| 108 | if (fattrs->fsSelection & FATTR_SEL_STRIKEOUT) {
|
|---|
| 109 | strcat(s, ".");
|
|---|
| 110 | strcat(s, GetPString(IDS_STRIKEOUTTEXT));
|
|---|
| 111 | }
|
|---|
| 112 | WinSetPresParam(hwnd, PP_FONTNAMESIZE, strlen(s) + 1, s);
|
|---|
| 113 | }
|
|---|
| 114 |
|
|---|
| 115 | #if 0 // JBS 11 Sep 08
|
|---|
| 116 | VOID SetFont(HWND hwnd)
|
|---|
| 117 | {
|
|---|
| 118 |
|
|---|
| 119 | FONTDLG fontdlg;
|
|---|
| 120 | HPS hps;
|
|---|
| 121 | FONTMETRICS fm;
|
|---|
| 122 | CHAR szFamily[CCHMAXPATH],
|
|---|
| 123 | *szTitle = GetPString(IDS_SETFONTTITLETEXT), *szPreview;
|
|---|
| 124 |
|
|---|
| 125 | //DosEnterCritSec(); //GKY 11-30-08
|
|---|
| 126 | DosRequestMutexSem(hmtxFM2Globals, SEM_INDEFINITE_WAIT);
|
|---|
| 127 | szPreview = GetPString(IDS_BLURB1TEXT + counter++);
|
|---|
| 128 | if (strcmp(szPreview, "0") == 0) {
|
|---|
| 129 | counter = 0;
|
|---|
| 130 | szPreview = GetPString(IDS_BLURB1TEXT + counter++);
|
|---|
| 131 | }
|
|---|
| 132 | DosReleaseMutexSem(hmtxFM2Globals);
|
|---|
| 133 | //DosExitCritSec();
|
|---|
| 134 | memset(&fontdlg, 0, sizeof(fontdlg)); /* initialize all fields */
|
|---|
| 135 | hps = WinGetPS(hwnd);
|
|---|
| 136 | GpiQueryFontMetrics(hps, sizeof(FONTMETRICS), &fm);
|
|---|
| 137 | WinReleasePS(hps);
|
|---|
| 138 | fontdlg.cbSize = sizeof(FONTDLG);
|
|---|
| 139 | fontdlg.hpsScreen = WinGetScreenPS(HWND_DESKTOP);
|
|---|
| 140 | fontdlg.hpsPrinter = NULLHANDLE;
|
|---|
| 141 | fontdlg.pszTitle = szTitle;
|
|---|
| 142 | fontdlg.pszPreview = szPreview;
|
|---|
| 143 | fontdlg.pfnDlgProc = NULL;
|
|---|
| 144 | strcpy(szFamily, fm.szFamilyname);
|
|---|
| 145 | fontdlg.pszFamilyname = szFamily;
|
|---|
| 146 | fontdlg.usFamilyBufLen = sizeof(szFamily);
|
|---|
| 147 | fontdlg.fxPointSize = MAKEFIXED(fm.sNominalPointSize / 10, 0);
|
|---|
| 148 | fontdlg.fl = FNTS_CENTER | FNTS_INITFROMFATTRS;
|
|---|
| 149 | fontdlg.sNominalPointSize = fm.sNominalPointSize;
|
|---|
| 150 | fontdlg.flType = (LONG) fm.fsType;
|
|---|
| 151 | fontdlg.clrFore = CLR_NEUTRAL;
|
|---|
| 152 | fontdlg.clrBack = CLR_BACKGROUND;
|
|---|
| 153 | fontdlg.usWeight = fm.usWeightClass;
|
|---|
| 154 | fontdlg.usWidth = fm.usWidthClass;
|
|---|
| 155 | if (!WinFontDlg(HWND_DESKTOP, hwnd, &fontdlg) || fontdlg.lReturn != DID_OK) {
|
|---|
| 156 | WinReleasePS(fontdlg.hpsScreen);
|
|---|
| 157 | return;
|
|---|
| 158 | }
|
|---|
| 159 | if (fontdlg.fAttrs.fsFontUse == FATTR_FONTUSE_OUTLINE)
|
|---|
| 160 | ConvertVectorFontSize(fontdlg.fxPointSize, &fontdlg.fAttrs);
|
|---|
| 161 | WinReleasePS(fontdlg.hpsScreen);
|
|---|
| 162 | SetPresParamFromFattrs(hwnd, &fontdlg.fAttrs, fontdlg.sNominalPointSize,
|
|---|
| 163 | fontdlg.fxPointSize);
|
|---|
| 164 | }
|
|---|
| 165 | #endif
|
|---|
| 166 |
|
|---|
| 167 | FATTRS *SetMLEFont(HWND hwndMLE, FATTRS * fattrs, ULONG flags)
|
|---|
| 168 | {
|
|---|
| 169 |
|
|---|
| 170 | /* Flags:
|
|---|
| 171 | *
|
|---|
| 172 | * 1 = Don't assume MLE (no MLM_* messages, use fattrs only
|
|---|
| 173 | * 2 = Fixed width fonts only
|
|---|
| 174 | * 4 = No synthesized fonts
|
|---|
| 175 | * 8 = No vector fonts
|
|---|
| 176 | * 16 = No bitmapped fonts
|
|---|
| 177 | *
|
|---|
| 178 | */
|
|---|
| 179 |
|
|---|
| 180 | FONTDLG fontDlg;
|
|---|
| 181 | HPS hps;
|
|---|
| 182 | FONTMETRICS fontMetrics;
|
|---|
| 183 | CHAR szFamily[CCHMAXPATH];
|
|---|
| 184 | PCSZ pcszPreview;
|
|---|
| 185 | static FIXED fxPointSize = 0; /* keep track of this for vector fonts */
|
|---|
| 186 |
|
|---|
| 187 | if ((flags & 1) && !fattrs)
|
|---|
| 188 | return fattrs;
|
|---|
| 189 | //DosEnterCritSec(); //GKY 11-30-08
|
|---|
| 190 | DosRequestMutexSem(hmtxFM2Globals, SEM_INDEFINITE_WAIT);
|
|---|
| 191 | // 12 Jan 09 SHL fixme to do multiple previews or rename to IDS_BLURBTEXT
|
|---|
| 192 | pcszPreview = GetPString(IDS_BLURB1TEXT);
|
|---|
| 193 | DosReleaseMutexSem(hmtxFM2Globals);
|
|---|
| 194 | memset(&fontDlg, 0, sizeof(fontDlg)); /* initialize all fields */
|
|---|
| 195 | /*
|
|---|
| 196 | * Get the current font attributes
|
|---|
| 197 | */
|
|---|
| 198 | hps = WinGetPS(hwndMLE);
|
|---|
| 199 | if (!(flags & 1))
|
|---|
| 200 | WinSendMsg(hwndMLE, MLM_QUERYFONT,
|
|---|
| 201 | MPFROMP((PFATTRS) & (fontDlg.fAttrs)), NULL);
|
|---|
| 202 | else
|
|---|
| 203 | memcpy(&fontDlg.fAttrs, fattrs, sizeof(FATTRS));
|
|---|
| 204 |
|
|---|
| 205 | /* create system default font */
|
|---|
| 206 |
|
|---|
| 207 | GpiCreateLogFont(hps, (PSTR8) fontDlg.fAttrs.szFacename, 1,
|
|---|
| 208 | &(fontDlg.fAttrs));
|
|---|
| 209 | GpiSetCharSet(hps, 1);
|
|---|
| 210 | GpiQueryFontMetrics(hps, sizeof(FONTMETRICS), &fontMetrics);
|
|---|
| 211 | GpiSetCharSet(hps, LCID_DEFAULT);
|
|---|
| 212 | GpiDeleteSetId(hps, 1);
|
|---|
| 213 | WinReleasePS(hps);
|
|---|
| 214 |
|
|---|
| 215 | /*
|
|---|
| 216 | * Initialize the FONTDLG structure with the current font
|
|---|
| 217 | */
|
|---|
| 218 | fontDlg.cbSize = sizeof(FONTDLG); /* sizeof(FONTDLG) */
|
|---|
| 219 | fontDlg.hpsScreen = WinGetScreenPS(HWND_DESKTOP); /* Screen presentation space */
|
|---|
| 220 | fontDlg.hpsPrinter = NULLHANDLE; /* Printer presentation space */
|
|---|
| 221 |
|
|---|
| 222 | fontDlg.pszTitle = (PSZ)GetPString(IDS_SETVIEWERFONTTITLETEXT);
|
|---|
| 223 | fontDlg.pszPreview = (PSZ)pcszPreview;
|
|---|
| 224 | fontDlg.pszPtSizeList = NULL; /* Application provided size list */
|
|---|
| 225 | fontDlg.pfnDlgProc = NULL; /* Dialog subclass procedure */
|
|---|
| 226 | strcpy(szFamily, fontMetrics.szFamilyname); /* Family name of font */
|
|---|
| 227 | fontDlg.pszFamilyname = szFamily; /* point to Family name of font */
|
|---|
| 228 | fontDlg.fxPointSize = fxPointSize; /* Point size the user selected */
|
|---|
| 229 | fontDlg.fl = FNTS_CENTER | /* FNTS_* flags - dialog styles */
|
|---|
| 230 | FNTS_INITFROMFATTRS;
|
|---|
| 231 | if (flags & 2)
|
|---|
| 232 | fontDlg.fl |= FNTS_FIXEDWIDTHONLY;
|
|---|
| 233 | if (flags & 4)
|
|---|
| 234 | fontDlg.fl |= FNTS_NOSYNTHESIZEDFONTS;
|
|---|
| 235 | if (flags & 8)
|
|---|
| 236 | fontDlg.fl |= FNTS_BITMAPONLY;
|
|---|
| 237 | else if (flags & 16)
|
|---|
| 238 | fontDlg.fl |= FNTS_VECTORONLY;
|
|---|
| 239 | fontDlg.flFlags = 0; /* FNTF_* state flags */
|
|---|
| 240 | /* Font type option bits */
|
|---|
| 241 | fontDlg.flType = (LONG) fontMetrics.fsType;
|
|---|
| 242 | fontDlg.flTypeMask = 0; /* Mask of which font types to use */
|
|---|
| 243 | fontDlg.flStyle = 0; /* The selected style bits */
|
|---|
| 244 | fontDlg.flStyleMask = 0; /* Mask of which style bits to use */
|
|---|
| 245 | fontDlg.clrFore = CLR_NEUTRAL; /* Selected foreground color */
|
|---|
| 246 | fontDlg.clrBack = CLR_BACKGROUND; /* Selected background color */
|
|---|
| 247 | fontDlg.ulUser = 0; /* Blank field for application */
|
|---|
| 248 | fontDlg.lReturn = 0; /* Return Value of the Dialog */
|
|---|
| 249 | fontDlg.lEmHeight = 0; /* Em height of the current font */
|
|---|
| 250 | fontDlg.lXHeight = 0; /* X height of the current font */
|
|---|
| 251 | fontDlg.lExternalLeading = 0; /* External Leading of font */
|
|---|
| 252 | /* Nominal Point Size of font */
|
|---|
| 253 | fontDlg.sNominalPointSize = fontMetrics.sNominalPointSize;
|
|---|
| 254 | fontDlg.usWeight = fontMetrics.usWeightClass; /* The boldness of the font */
|
|---|
| 255 | fontDlg.usWidth = fontMetrics.usWidthClass; /* The width of the font */
|
|---|
| 256 | fontDlg.x = 0; /* X coordinate of the dialog */
|
|---|
| 257 | fontDlg.y = 0; /* Y coordinate of the dialog */
|
|---|
| 258 | // fontDlg.usDlgId = IDD_FONT; /* ID of a custom dialog template */
|
|---|
| 259 | fontDlg.usFamilyBufLen = sizeof(szFamily); /*Length of family name buffer */
|
|---|
| 260 |
|
|---|
| 261 | /*
|
|---|
| 262 | * Bring up the standard Font Dialog
|
|---|
| 263 | */
|
|---|
| 264 |
|
|---|
| 265 | if (!WinFontDlg(HWND_DESKTOP, hwndMLE, &fontDlg)
|
|---|
| 266 | || fontDlg.lReturn != DID_OK) {
|
|---|
| 267 | WinReleasePS(fontDlg.hpsScreen);
|
|---|
| 268 | return NULL;
|
|---|
| 269 | }
|
|---|
| 270 | fxPointSize = fontDlg.fxPointSize; /* save point size for next dialog */
|
|---|
| 271 |
|
|---|
| 272 | /*
|
|---|
| 273 | * If outline font, calculate the maxbaselineext and
|
|---|
| 274 | * avecharwidth for the point size selected
|
|---|
| 275 | */
|
|---|
| 276 |
|
|---|
| 277 | if (fontDlg.fAttrs.fsFontUse == FATTR_FONTUSE_OUTLINE)
|
|---|
| 278 | ConvertVectorFontSize(fontDlg.fxPointSize, &fontDlg.fAttrs);
|
|---|
| 279 |
|
|---|
| 280 | WinReleasePS(fontDlg.hpsScreen);
|
|---|
| 281 | if (!(flags & 1))
|
|---|
| 282 | WinSendMsg(hwndMLE, MLM_SETFONT, MPFROMP(&(fontDlg.fAttrs)), MPVOID);
|
|---|
| 283 | if (fattrs)
|
|---|
| 284 | memcpy(fattrs, &fontDlg.fAttrs, sizeof(FATTRS));
|
|---|
| 285 | return fattrs;
|
|---|
| 286 |
|
|---|
| 287 | } /* End of SetMLEFont() */
|
|---|
| 288 |
|
|---|
| 289 | #pragma alloc_text(FONTS,ConvertVectorFontSize,SetFont,SetMLEFont)
|
|---|
| 290 | #pragma alloc_text(FONTS,SetPresParamFromFattrs)
|
|---|
