source: trunk/dll/fonts.c@ 1330

Last change on this file since 1330 was 1305, checked in by Gregg Young, 17 years ago

Add missing include for added semaphore
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 9.7 KB
Line 
1
2/***********************************************************************
3
4 $Id: fonts.c 1305 2008-11-30 14:44:48Z gyoung $
5
6 Font support
7
8 Copyright (c) 1993-98 M. Kimes
9 Copyright (c) 2008 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
14***********************************************************************/
15
16#include <string.h>
17
18#define INCL_DOS
19#define INCL_WIN
20#define INCL_GPI
21#define INCL_LONGLONG // dircnrs.h
22
23#include "fm3str.h"
24#include "errutil.h" // Dos_Error...
25#include "strutil.h" // GetPString
26#include "fonts.h"
27#include "fm3dll.h"
28#include "init.h" // Global semaphore
29
30//static VOID SetFont(HWND hwnd);
31
32#pragma data_seg(DATA1)
33
34static INT counter = 0;
35
36/*
37 * Convert vector font size using point size and fAttrs structure and
38 * return it in that structure.
39 */
40
41VOID 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
77VOID 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
116VOID 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")) {
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
167FATTRS *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], *szPreview;
184 static FIXED fxPointSize = 0; /* keep track of this for vector fonts */
185
186 if ((flags & 1) && !fattrs)
187 return fattrs;
188 //DosEnterCritSec(); //GKY 11-30-08
189 DosRequestMutexSem(hmtxFM2Globals, SEM_INDEFINITE_WAIT);
190 szPreview = GetPString(IDS_BLURB1TEXT + counter++);
191 if (strcmp(szPreview, "0")) {
192 counter = 0;
193 szPreview = GetPString(IDS_BLURB1TEXT + counter++);
194 }
195 DosReleaseMutexSem(hmtxFM2Globals);
196 //DosExitCritSec();
197 memset(&fontDlg, 0, sizeof(fontDlg)); /* initialize all fields */
198 /*
199 * Get the current font attributes
200 */
201 hps = WinGetPS(hwndMLE);
202 if (!(flags & 1))
203 WinSendMsg(hwndMLE, MLM_QUERYFONT,
204 MPFROMP((PFATTRS) & (fontDlg.fAttrs)), NULL);
205 else
206 memcpy(&fontDlg.fAttrs, fattrs, sizeof(FATTRS));
207
208 /* create system default font */
209
210 GpiCreateLogFont(hps, (PSTR8) fontDlg.fAttrs.szFacename, 1,
211 &(fontDlg.fAttrs));
212 GpiSetCharSet(hps, 1);
213 GpiQueryFontMetrics(hps, sizeof(FONTMETRICS), &fontMetrics);
214 GpiSetCharSet(hps, LCID_DEFAULT);
215 GpiDeleteSetId(hps, 1);
216 WinReleasePS(hps);
217
218 /*
219 * Initialize the FONTDLG structure with the current font
220 */
221 fontDlg.cbSize = sizeof(FONTDLG); /* sizeof(FONTDLG) */
222 fontDlg.hpsScreen = WinGetScreenPS(HWND_DESKTOP); /* Screen presentation space */
223 fontDlg.hpsPrinter = NULLHANDLE; /* Printer presentation space */
224
225 fontDlg.pszTitle = GetPString(IDS_SETVIEWERFONTTITLETEXT);
226 fontDlg.pszPreview = szPreview;
227 fontDlg.pszPtSizeList = NULL; /* Application provided size list */
228 fontDlg.pfnDlgProc = NULL; /* Dialog subclass procedure */
229 strcpy(szFamily, fontMetrics.szFamilyname); /* Family name of font */
230 fontDlg.pszFamilyname = szFamily; /* point to Family name of font */
231 fontDlg.fxPointSize = fxPointSize; /* Point size the user selected */
232 fontDlg.fl = FNTS_CENTER | /* FNTS_* flags - dialog styles */
233 FNTS_INITFROMFATTRS;
234 if (flags & 2)
235 fontDlg.fl |= FNTS_FIXEDWIDTHONLY;
236 if (flags & 4)
237 fontDlg.fl |= FNTS_NOSYNTHESIZEDFONTS;
238 if (flags & 8)
239 fontDlg.fl |= FNTS_BITMAPONLY;
240 else if (flags & 16)
241 fontDlg.fl |= FNTS_VECTORONLY;
242 fontDlg.flFlags = 0; /* FNTF_* state flags */
243 /* Font type option bits */
244 fontDlg.flType = (LONG) fontMetrics.fsType;
245 fontDlg.flTypeMask = 0; /* Mask of which font types to use */
246 fontDlg.flStyle = 0; /* The selected style bits */
247 fontDlg.flStyleMask = 0; /* Mask of which style bits to use */
248 fontDlg.clrFore = CLR_NEUTRAL; /* Selected foreground color */
249 fontDlg.clrBack = CLR_BACKGROUND; /* Selected background color */
250 fontDlg.ulUser = 0; /* Blank field for application */
251 fontDlg.lReturn = 0; /* Return Value of the Dialog */
252 fontDlg.lEmHeight = 0; /* Em height of the current font */
253 fontDlg.lXHeight = 0; /* X height of the current font */
254 fontDlg.lExternalLeading = 0; /* External Leading of font */
255 /* Nominal Point Size of font */
256 fontDlg.sNominalPointSize = fontMetrics.sNominalPointSize;
257 fontDlg.usWeight = fontMetrics.usWeightClass; /* The boldness of the font */
258 fontDlg.usWidth = fontMetrics.usWidthClass; /* The width of the font */
259 fontDlg.x = 0; /* X coordinate of the dialog */
260 fontDlg.y = 0; /* Y coordinate of the dialog */
261// fontDlg.usDlgId = IDD_FONT; /* ID of a custom dialog template */
262 fontDlg.usFamilyBufLen = sizeof(szFamily); /*Length of family name buffer */
263
264 /*
265 * Bring up the standard Font Dialog
266 */
267
268 if (!WinFontDlg(HWND_DESKTOP, hwndMLE, &fontDlg)
269 || fontDlg.lReturn != DID_OK) {
270 WinReleasePS(fontDlg.hpsScreen);
271 return NULL;
272 }
273 fxPointSize = fontDlg.fxPointSize; /* save point size for next dialog */
274
275 /*
276 * If outline font, calculate the maxbaselineext and
277 * avecharwidth for the point size selected
278 */
279
280 if (fontDlg.fAttrs.fsFontUse == FATTR_FONTUSE_OUTLINE)
281 ConvertVectorFontSize(fontDlg.fxPointSize, &fontDlg.fAttrs);
282
283 WinReleasePS(fontDlg.hpsScreen);
284 if (!(flags & 1))
285 WinSendMsg(hwndMLE, MLM_SETFONT, MPFROMP(&(fontDlg.fAttrs)), MPVOID);
286 if (fattrs)
287 memcpy(fattrs, &fontDlg.fAttrs, sizeof(FATTRS));
288 return fattrs;
289
290} /* End of SetMLEFont() */
291
292#pragma alloc_text(FONTS,ConvertVectorFontSize,SetFont,SetMLEFont)
293#pragma alloc_text(FONTS,SetPresParamFromFattrs)
Note: See TracBrowser for help on using the repository browser.