source: trunk/dll/fonts.c@ 1890

Last change on this file since 1890 was 1880, checked in by Gregg Young, 10 years ago

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