Windows2000/private/shell/shell32/piffnt.c
2020-09-30 17:12:32 +02:00

3034 lines
90 KiB
C

/*
* Microsoft Confidential
* Copyright (C) Microsoft Corporation 1991
* All Rights Reserved.
* PIFFNT.C
* User interface dialogs for GROUP_FNT
* History:
* Created 04-Jan-1993 1:10pm by Jeff Parsons
* Changed 05-May-1993 5:10pm by Raymond Chen -- New Chicago-look preview
* Changed 12-Aug-1993 4:14pm by Raymond Chen -- Remove font inc and dec
* All font dialog code taken from font*.c in vmdosapp, 01-Apr-93
*/
#include "shellprv.h"
#pragma hdrstop
#ifndef WINNT
#include <frosting.h>
#endif
#define REGSTR_MSDOSEMU_DISPLAYPARAMS TEXT("DisplayParams")
#ifdef WINNT
#define REGSTR_PATH_MSDOSEMU "Software\\Microsoft\\Windows\\CurrentVersion\\MS-DOS Emulation"
#endif
const TCHAR szEmulationKey[] = TEXT(REGSTR_PATH_MSDOSEMU);
const TCHAR szDisplayParams[] = REGSTR_MSDOSEMU_DISPLAYPARAMS;
TCHAR szWndPreviewClass[] = TEXT("WOAWinPreview");
TCHAR szFontPreviewClass[] = TEXT("WOAFontPreview");
// The preview strings are loaded from resources, so they must
// remain writeable.
TCHAR szPreviewText[300] =
TEXT("C:\\WINNT40> dir\n")
TEXT("Directory of C:\\WINNT40\n")
TEXT("SYSTEM32 <DIR> 03-01-95 6:00a\n")
TEXT("EXPLORER EXE 393,926 03-01-95 6:00a\n")
TEXT("PIFMGR DLL 46,080 03-26-69 5:25p\n")
TEXT("NOTEPAD EXE 40,144 03-01-95 6:00a\n")
TEXT("WINMINE EXE 46,080 03-01-95 6:00a\n")
TEXT("WIN INI 7,005 03-01-95 6:00a\n");
// The preview strings for bilingual dosbox.
// We'll load this from our resource that will be properly
// localized. We'll give up if it fails and use above sample
// instead.
TCHAR szPreviewTextDBCS[300];
UINT cxScreen, cyScreen, dyChar, dyItem;
// Macro definitions that handle codepages
#define OEMCharsetFromCP(cp) \
((cp)==CP_JPN? SHIFTJIS_CHARSET : ((cp)==CP_WANSUNG? HANGEUL_CHARSET : OEM_CHARSET))
/*
* Font cache information. Note that this cache, being in PIFMGR,
* is now global, which will make support for per-VM font files/faces
* more problematic, if we even decide that's an interesting feature.
*/
DWORD bpfdiStart[2] = { 0 }; /* strage for the offset to cache */
UINT cfdiCache[2]; /* # used entries in fdi cache */
UINT cfdiCacheActual[2]; /* Total # entries in fdi cache */
LPVOID lpCache = NULL;
/*
* Owner-draw list box information.
*/
HBITMAP hbmFont; /* Handle to "TrueType" logo */
DWORD dwTimeCheck;
COLORREF clrChecksum;
HCURSOR hcursorWait;
#define MAXDIMENSTRING 80
// Make sure the numbers are space-padded so that sorting works properly
// The "multiplication symbol" must be a lowercase `x' (even though that
// is the wrong glyph; consult your local UNICODE manual), because the
// multiplication symbol (215 in the ANSI character set) does not exist
// in the Russian code page. "No problem, I'll put it in a resource."
// Nice try. The PanEuro version of Win95 doesn't change any resource
// strings. They just take the US version and whack new code pages in.
// (Strange but true.)
const TCHAR szDimension[] = TEXT("\t%2d\tx\t%2d");
/*
* rgwInitialTtHeights -- Initial font heights for TT fonts
* This is read from an INI file, so it must remain writeable.
* We don't try generating TT fonts below 12pt by default because
* they just look crappy. Frosting setup will put a different
* table into place because Lucida Console looks good down to 4pt.
* On NT, Lucida Console is installed be default, though.
* The Frosting table is
* 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 20, 22
*/
#ifdef WINNT
WORD rgwInitialTtHeights[] =
{ 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 20, 22 };
#else
WORD rgwInitialTtHeights[] =
{ 0, 0, 0, 0, 0, 0, 0, 0, 12, 13, 14, 15, 16, 18, 20, 22 };
#endif
/*
* rgpnlPenalties -- Initialize penalty array to default values
*/
INT rgpnlPenalties[] =
{ 5000, 1000, 0, 1000, 5000, 1000, 0, 1000, 1 };
POINT ptNonAspectMin = { -1, -1 };
// Context-sensitive help ids
const static DWORD rgdwHelp[] = {
IDC_FONTGRP, IDH_COMM_GROUPBOX,
IDC_RASTERFONTS, IDH_DOS_AVAIL_FONTS,
IDC_TTFONTS, IDH_DOS_AVAIL_FONTS,
IDC_BOTHFONTS, IDH_DOS_AVAIL_FONTS,
IDC_FONTSIZELBL, IDH_DOS_FONT_SIZE,
IDC_FONTSIZE, IDH_DOS_FONT_SIZE,
IDC_WNDPREVIEWLBL, IDH_DOS_FONT_WINDOW_PREVIEW,
IDC_FONTPREVIEWLBL, IDH_DOS_FONT_FONT_PREVIEW,
IDC_WNDPREVIEW, IDH_DOS_FONT_WINDOW_PREVIEW,
IDC_FONTPREVIEW, IDH_DOS_FONT_FONT_PREVIEW,
IDC_REALMODEDISABLE, IDH_DOS_REALMODEPROPS,
0, 0
};
BOOL_PTR CALLBACK DlgFntProc(HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
PFNTINFO pfi;
FunctionName(DlgFntProc);
pfi = (PFNTINFO)GetWindowLongPtr(hDlg, DWLP_USER);
switch (uMsg) {
case WM_INITDIALOG:
// allocate dialog instance data
if (NULL != (pfi = (PFNTINFO)LocalAlloc(LPTR, SIZEOF(FNTINFO)))) {
pfi->ppl = (PPROPLINK)((LPPROPSHEETPAGE)lParam)->lParam;
SetWindowLongPtr(hDlg, DWLP_USER, (LPARAM)pfi);
InitFntDlg(hDlg, pfi);
break;
} else {
EndDialog(hDlg, FALSE); // fail the dialog create
}
break;
case WM_DESTROY:
// free any allocations/resources inside the pfi first!
if (pfi) {
if (pfi->hFontPreview)
{
DeleteObject(pfi->hFontPreview);
pfi->hFontPreview = NULL;
}
// ok, NOW we can free the pfi
EVAL(LocalFree(pfi) == NULL);
SetWindowLongPtr(hDlg, DWLP_USER, 0);
}
break;
HELP_CASES(rgdwHelp) // Handle help messages
case WM_COMMAND:
if (LOWORD(lParam) == 0)
break; // message not from a control
switch (LOWORD(wParam))
{
case IDC_RASTERFONTS:
case IDC_TTFONTS:
case IDC_BOTHFONTS:
/*
* Rebuild the font list based on the user's selection of
* which fonts to include/exclude.
*/
pfi->fntProposed.flFnt &= ~FNT_BOTHFONTS;
pfi->fntProposed.flFnt |= FNTFLAGSFROMID(wParam);
CreateFontList(GetDlgItem(hDlg, IDC_FONTSIZE), TRUE, &pfi->fntProposed);
PreviewUpdate(GetDlgItem(hDlg, IDC_FONTSIZE), pfi);
// BUGBUG: should all the code above be part of BN_CLICKED,
// or is BN_CLICKED the only notification we get anyway, in which
// case the check is pointless? -JTP
if (HIWORD(wParam) == BN_CLICKED)
SendMessage(GetParent(hDlg), PSM_CHANGED, (WPARAM)hDlg, 0L);
return FALSE;
case IDC_FONTSIZE:
// BUGBUG: how do we get this notification if our list-box
// doesn't have the LBS_NOTIFY style? Is the documentation for
// LBN_SELCHANGE incorrect, or do we somehow end up with that style
// anyway? -JTP
if (HIWORD(wParam) == LBN_SELCHANGE)
{
PreviewUpdate(GetDlgItem(hDlg, IDC_FONTSIZE), pfi);
SendMessage(GetParent(hDlg), PSM_CHANGED, (WPARAM)hDlg, 0L);
return TRUE;
}
if (HIWORD(wParam) == LBN_DBLCLK)
ApplyFntDlg(hDlg, pfi);
return FALSE;
}
break;
case WM_NOTIFY:
switch (((NMHDR *)lParam)->code) {
case PSN_SETACTIVE:
AdjustRealModeControls(pfi->ppl, hDlg);
break;
case PSN_KILLACTIVE:
// This gives the current page a chance to validate itself
// SetWindowLong(hDlg, DWL_MSGRESULT, ValidFntDlg(hDlg, pfi));
break;
case PSN_APPLY:
// This happens on OK....
ApplyFntDlg(hDlg, pfi);
break;
case PSN_RESET:
// This happens on Cancel....
break;
}
break;
/*
* For WM_MEASUREITEM and WM_DRAWITEM, since there is only one
* owner-draw list box in the entire dialog box, we don't have
* to do a GetDlgItem to figure out who he is.
*/
case WM_MEASUREITEM:
// measure the owner draw listbox
MeasureItemFontList((LPMEASUREITEMSTRUCT)lParam);
break;
case WM_DRAWITEM:
DrawItemFontList(TRUE, (LPDRAWITEMSTRUCT)lParam);
break;
case WM_SYSCOLORCHANGE:
UpdateTTBitmap();
break;
default:
return FALSE; // return 0 when not processing
}
return TRUE;
}
/** InitFntDlg
* Create the list of appropriate fonts.
* This routine is broken out of FontDlgProc because it chew
* up lots of stack for the message buffer, and we don't want to
* eat that much stack on every entry to FontDlgProc.
* Note that we must defer CreateFontList until WM_INITDIALOG
* time because it is not until then that we have a list box that
* we can shove the data into.
*/
void InitFntDlg(HWND hDlg, register PFNTINFO pfi)
{
HWND hwndList; /* The listbox of fonts */
PPROPLINK ppl = pfi->ppl;
WINDOWPLACEMENT wp;
FunctionName(InitFntDlg);
ASSERTTRUE(ppl->iSig == PROP_SIG);
if (!PifMgr_GetProperties(ppl, MAKELP(0,GROUP_FNT),
&pfi->fntProposed, SIZEOF(pfi->fntProposed), GETPROPS_NONE)
||
!PifMgr_GetProperties(ppl, MAKELP(0,GROUP_WIN),
&pfi->winOriginal, SIZEOF(pfi->winOriginal), GETPROPS_NONE)) {
Warning(hDlg, IDS_QUERY_ERROR, MB_ICONEXCLAMATION | MB_OK);
return;
}
/*
* Set up instance variables for the window preview window.
*/
/* Show preview maximized if window is maximized or restores to max'd.
* Also if it is open restored and has no scrollbars.
* (Determined by comparing the client window size against the cell
* size and font size.)
*/
pfi->fMax = FALSE;
/*
* Preload winOriginal with up-to-the-minute goodies, if we have
* them.
*/
#define HasScrollbars(z) \
(pfi->winOriginal.c##z##Cells * pfi->fntProposed.c##z##FontActual > \
pfi->winOriginal.c##z##Client)
if (ppl->hwndTty) {
wp.length = SIZEOF(WINDOWPLACEMENT);
VERIFYTRUE(GetWindowPlacement(ppl->hwndTty, &wp));
// Convert/Copy to 16-bit structure
pfi->winOriginal.wLength = (WORD)wp.length;
pfi->winOriginal.wShowFlags = (WORD)wp.flags;
pfi->winOriginal.wShowCmd = (WORD)wp.showCmd;
pfi->winOriginal.xMinimize = (WORD)wp.ptMinPosition.x;
pfi->winOriginal.yMinimize = (WORD)wp.ptMinPosition.y;
pfi->winOriginal.xMaximize = (WORD)wp.ptMaxPosition.x;
pfi->winOriginal.yMaximize = (WORD)wp.ptMaxPosition.y;
pfi->winOriginal.rcNormal.left = (WORD)wp.rcNormalPosition.left;
pfi->winOriginal.rcNormal.top = (WORD)wp.rcNormalPosition.top;
pfi->winOriginal.rcNormal.right = (WORD)wp.rcNormalPosition.right;
pfi->winOriginal.rcNormal.bottom = (WORD)wp.rcNormalPosition.bottom;
if (!IsIconic(ppl->hwndTty) &&
!HasScrollbars(x) && !HasScrollbars(y)) {
pfi->fMax = TRUE;
}
}
if ((pfi->winOriginal.wShowCmd == SW_SHOWMAXIMIZED) ||
(pfi->winOriginal.wShowFlags & WPF_RESTORETOMAXIMIZED)) {
pfi->fMax = TRUE;
}
if (pfi->winOriginal.wShowCmd == SW_SHOWMAXIMIZED) {
pfi->ptCorner.x = (LONG)pfi->winOriginal.xMaximize;
pfi->ptCorner.y = (LONG)pfi->winOriginal.yMaximize;
} else {
if (pfi->winOriginal.rcNormal.left==0)
{
pfi->ptCorner.x = -1;
}
else
{
pfi->ptCorner.x = (LONG)pfi->winOriginal.rcNormal.left;
}
pfi->ptCorner.y = (LONG)pfi->winOriginal.rcNormal.top;
}
/*
* First, check which fonts the user wants to see.
*/
CheckDlgButton(hDlg, IDFROMFNTFLAGS(pfi->fntProposed.flFnt), TRUE);
hwndList = GetDlgItem(hDlg, IDC_FONTSIZE);
// SendMessage(hwndList, WM_SETFONT, (WPARAM)GetStockObject(SYSTEM_FIXED_FONT), FALSE);
if (CreateFontList(hwndList, TRUE, &pfi->fntProposed) == LB_ERR) {
MemoryWarning(hDlg);
EndDialog(hDlg, PtrToLong(BPFDI_CANCEL)); /* Get out of the dialog */
return;
}
/* Initialize the preview windows */
PreviewInit(hDlg, pfi);
PreviewUpdate(GetDlgItem(hDlg, IDC_FONTSIZE), pfi);
}
void ApplyFntDlg(HWND hDlg, register PFNTINFO pfi)
{
PPROPLINK ppl = pfi->ppl;
FunctionName(ApplyFntDlg);
ASSERTTRUE(ppl->iSig == PROP_SIG);
if (!PifMgr_SetProperties(ppl, MAKELP(0,GROUP_FNT),
&pfi->fntProposed, SIZEOF(pfi->fntProposed), SETPROPS_NONE))
Warning(hDlg, IDS_UPDATE_ERROR, MB_ICONEXCLAMATION | MB_OK);
else
if (ppl->hwndNotify) {
ppl->flProp |= PROP_NOTIFY;
PostMessage(ppl->hwndNotify, ppl->uMsgNotify, SIZEOF(pfi->fntProposed), (LPARAM)MAKELP(0,GROUP_FNT));
}
}
#ifdef WINNT
/*
* (These routines stolen from frosting.dll on Win95,
* but are now part of Shell32.dll on NT) -RickTu
*/
/** GetDosBoxTtFontsHk
* Retrieves the name of the font to use for true-type DOS box
* in a window given a registry tree root.
* Entry:
* hkRoot -> registry tree root to search
* pszFaceSbcs -> LF_FACESIZE buffer for SBCS font
* pszFaceDbcs -> LF_FACESIZE buffer for DBCS font (may be null)
* Exit:
* Buffers filled with new font names, or left unchanged if nothing
* found in registry.
*/
#define REGSTR_MSDOSEMU_FONT "Font"
#define REGSTR_MSDOSEMU_FONTDBCS "FontDBCS"
void GetDosBoxTtFontsHkA( HKEY hkRoot, LPSTR pszFaceSbcs, LPSTR pszFaceDbcs )
{
static CHAR const szMsdosemu[] = REGSTR_PATH_MSDOSEMU;
HKEY hk;
DWORD cb;
if (RegOpenKeyExA(hkRoot, szMsdosemu, 0, KEY_READ, &hk) == ERROR_SUCCESS)
{
static CHAR const szFont[] = REGSTR_MSDOSEMU_FONT;
cb = LF_FACESIZE;
RegQueryValueExA( hk, szFont, 0, 0, (LPBYTE)pszFaceSbcs, &cb );
if (pszFaceDbcs)
{
static CHAR const szDbcsFont[] = REGSTR_MSDOSEMU_FONTDBCS;
cb = LF_FACESIZE;
RegQueryValueExA( hk, szDbcsFont, 0, 0, (LPBYTE)pszFaceDbcs, &cb );
}
RegCloseKey(hk);
}
}
/** CoolGetDosBoxTtFontsA
* Retrieves the name of the font to use for true-type DOS box
* in a window.
* This routine consults the appropriate registry keys.
* The DOS box font comes first from HKLM, to establish a
* machine-wide default, but can in turn be overridden by
* HKCU for each user to override.
* Entry:
* pszFaceSbcs -> LF_FACESIZE buffer for SBCS font
* pszFaceDbcs -> LF_FACESIZE buffer for DBCS font (may be null)
* Exit:
* Buffers filled with new font names, or left unchange if nothing
* found in registry.
*/
void CoolGetDosBoxTtFontsA( LPSTR pszFaceSbcs, LPSTR pszFaceDbcs )
{
GetDosBoxTtFontsHkA(HKEY_LOCAL_MACHINE, pszFaceSbcs, pszFaceDbcs );
GetDosBoxTtFontsHkA(HKEY_CURRENT_USER, pszFaceSbcs, pszFaceDbcs );
}
#endif
/** BroadcastFontChange
* HACK! for MS PowerPoint 4.0. These wallys, for some reason, will go
* off and suck down reams of CPU time if they receive a WM_FONTCHANGE
* message that was *posted*. But if the message is *sent*, they do
* the right thing. The puzzling thing is that they never call
* InSendMessage(), so how do they know? What's more, why do they care?
* This was true in 3.1 also. What's their problem?
* The problem is that sending a broadcast risks deadlock city; see the
* various hacks in winoldap for places where DDE broadcasting is bypassed.
* In addition, since BroadcastFontChange is also called during the WEP,
* multi-threaded apps will deadlock if we SendMessage back to a window
* on a different thread in the app, because Kernel takes a process
* critical section during DLL unload.
* So if PowerPig is running, we just don't tell anybody that we dorked
* with the fonts.
* Returns:
* None.
*/
void BroadcastFontChange(void)
{
if (!GetModuleHandle(szPP4)) {
PostMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0L);
}
}
/** LoadGlobalFontData
* Get the name of the DOS box raster font and load it.
* Get the name of the TT font. (CheckDisplayParameters needs this.)
* Check the display parameters.
* Initialize the fdi cache. The cache remains in GlobalLock'd
* memory throughout its lifetime. This is not a problem because
* we are guaranteed to be in protected mode.
* We also load things necessary for the font combo/list boxes.
* And compute the height of the owner-draw list box item.
* Returns:
* TRUE on success. In which case the FDI cache and hbmFont
* are ready to use.
* FALSE on failure. In which case there is insufficient memory
* to complete the operation.
*/
typedef void (WINAPI *LPFNGDBTF)(LPTSTR, LPTSTR); /* GetDosBoxTtFonts */
BOOL LoadGlobalFontData(void)
{
HDC hDC;
TEXTMETRIC tm;
#ifndef WINNT
HINSTANCE hinstFrosting;
#endif
TCHAR szBuffer[MAXPATHNAME];
FunctionName(LoadGlobalFontData);
cxScreen = GetSystemMetrics(SM_CXSCREEN);
cyScreen = GetSystemMetrics(SM_CYSCREEN);
/*
* Get the system char size and save it away for later use.
*/
hDC = GetDC(NULL);
#ifdef WINNT
SelectObject(hDC, GetStockObject(SYSTEM_FONT));
#else
SelectObject(hDC, GetStockObject(DEFAULT_GUI_FONT));
#endif
GetTextMetrics(hDC, &tm);
ReleaseDC(NULL, hDC);
dyChar = tm.tmHeight + tm.tmExternalLeading;
dyItem = max(tm.tmHeight, DY_TTBITMAP);
/*
* Chicago's AddFontResource looks in the FONTS directory first, which
* is great because it saves us the trouble of doing goofy disk access
* optimizations.
*/
GetPrivateProfileString(sz386EnhSection, szWOAFontKey, c_szNULL, szBuffer, ARRAYSIZE(szBuffer), szSystemINI);
if (szBuffer[0] && AddFontResource(szBuffer)) {
BroadcastFontChange();
}
/*
* Add DBCS native font if it is present.
*/
GetPrivateProfileString(sz386EnhSection, szWOADBCSFontKey, c_szNULL, szBuffer, ARRAYSIZE(szBuffer), szSystemINI);
if (szBuffer[0] && AddFontResource(szBuffer)) {
BroadcastFontChange();
}
/*
* Load default TT font name(s) and TT cache section names from resource
*/
LoadStringA(g_hinst, IDS_TTFACENAME_SBCS, szTTFaceName[0], ARRAYSIZE(szTTFaceName[0]));
LoadString(g_hinst,IDS_TTCACHESEC_SBCS, szTTCacheSection[0], ARRAYSIZE(szTTCacheSection[0]));
if (IsBilingualCP(g_uCodePage))
{
LoadStringA(g_hinst, IDS_TTFACENAME_DBCS, szTTFaceName[1], ARRAYSIZE(szTTFaceName[1]));
LoadString(g_hinst, IDS_TTCACHESEC_DBCS, szTTCacheSection[1], ARRAYSIZE(szTTCacheSection[1]));
}
/*
* Get the TT font name(s) if Frosting is installed. Otherwise,
* leave them at the defaults. Fake the frosting on NT.
*/
#ifndef WINNT // this is dead code on win95
hinstFrosting =
(HINSTANCE)SystemParametersInfo(SPI_GETWINDOWSEXTENSION, 1, 0, 0);
if (hinstFrosting == 1)
// Support ILoveBunny32 since frosting doesn't have a real install
// app yet and we still need to test antialiased fonts and dfw.
hinstFrosting = 0;
if (hinstFrosting) {
LPFNGDBTF lpfnGdbtf = (LPFNGDBTF)GetProcAddress(hinstFrosting,
MAKEINTRESOURCE(ordCoolGetDosBoxTtFonts));
if (lpfnGdbtf) {
#ifndef BILINGUAL
lpfnGdbtf(szTTFaceName, 0);
#else
#ifdef KOREA
lpfnGdbtf( szTTFaceName[1], szTTFaceName[0] );
#else // KOREA
lpfnGdbtf(szTTFaceName[0], szTTFaceName[1]);
#endif // KOREA
#endif
}
}
#else // WINNT
CoolGetDosBoxTtFontsA(szTTFaceName[0], szTTFaceName[1]);
#endif
CheckDisplayParameters();
// alloc needed # of cache
lpCache = (LPVOID)LocalAlloc(LPTR,
FDI_TABLE_START * SIZEOF(FONTDIMENINFO) * (IsBilingualCP(g_uCodePage)? 2:1) );
if (!lpCache)
return FALSE;
hcursorWait = LoadCursor(NULL, IDC_WAIT);
UpdateTTBitmap();
if (!hbmFont)
goto E0;
// set initial value of # of cache entries which depends on whether we have
// two codepage to handle
cfdiCacheActual[0] = FDI_TABLE_START;
if (IsBilingualCP(g_uCodePage))
{
cfdiCacheActual[1] = FDI_TABLE_START;
bpfdiStart[1] += FDI_TABLE_START;
}
FontSelInit();
return TRUE;
E0:
EVAL(LocalFree(lpCache) == NULL);
return FALSE;
}
void FreeGlobalFontData()
{
TCHAR szBuffer[MAXPATHNAME];
FunctionName(FreeGlobalFontData);
if (hbmFont)
DeleteObject(hbmFont);
EVAL(LocalFree(lpCache) == NULL);
GetPrivateProfileString(sz386EnhSection, szWOAFontKey, c_szNULL, szBuffer, ARRAYSIZE(szBuffer), szSystemINI);
if (*szBuffer) {
if (RemoveFontResource(szBuffer)) {
BroadcastFontChange();
}
}
GetPrivateProfileString(sz386EnhSection, szWOADBCSFontKey, c_szNULL, szBuffer, ARRAYSIZE(szBuffer), szSystemINI);
if (*szBuffer) {
if (RemoveFontResource(szBuffer)) {
BroadcastFontChange();
}
}
}
BOOL LoadGlobalFontEditData()
{
WNDCLASS wc;
FunctionName(LoadGlobalFontEditData);
// Set up the window preview class for piffnt.c
wc.style = 0L;
wc.lpfnWndProc = (WNDPROC)WndPreviewWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = SIZEOF(PFNTINFO);
wc.hInstance = g_hinst;
wc.hIcon = NULL;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_BACKGROUND + 1);
wc.lpszMenuName = NULL;
wc.lpszClassName = szWndPreviewClass;
// Don't go through RegisterClassD because we manually unregister
// this class ourselves.
if (!RealRegisterClass(&wc))
return FALSE;
// Set up the font preview class for piffnt.c
wc.style = 0L;
wc.lpfnWndProc = (WNDPROC)FontPreviewWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = SIZEOF(PFNTINFO);
wc.hInstance = g_hinst;
wc.hIcon = NULL;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = GetStockObject(BLACK_BRUSH);
wc.lpszMenuName = NULL;
wc.lpszClassName = szFontPreviewClass;
// Don't go through RegisterClassD because we manually unregister
// this class ourselves.
if (!RealRegisterClass(&wc))
return FALSE;
return TRUE;
}
void FreeGlobalFontEditData()
{
FunctionName(FreeGlobalFontEditData);
UnregisterClass(szWndPreviewClass, g_hinst);
UnregisterClass(szFontPreviewClass, g_hinst);
}
/** CheckDisplayParameters
* Make sure that the display parameters have not changed, including
* the name of the TT font(s).
* If they have, we BLAST OUR CACHE since it is no longer any good.
* Entry:
* szTTFaceName contains the name of the TrueType font to use.
* Returns:
* None.
*/
void CheckDisplayParameters(void)
{
HDC hIC;
HKEY hk;
DISPLAYPARAMETERS dpTrue, dpStored;
FunctionName(CheckDisplayParameters);
hIC = CreateIC(szDisplay, 0, 0, 0);
if (!hIC) {
/*
* If things are really screwy, stay conservative and assume
* that all is well.
*/
return;
}
dpTrue.dpHorzSize = GetDeviceCaps(hIC, HORZSIZE);
dpTrue.dpVertSize = GetDeviceCaps(hIC, VERTSIZE);
dpTrue.dpHorzRes = GetDeviceCaps(hIC, HORZRES);
dpTrue.dpVertRes = GetDeviceCaps(hIC, VERTRES);
dpTrue.dpLogPixelsX = GetDeviceCaps(hIC, LOGPIXELSX);
dpTrue.dpLogPixelsY = GetDeviceCaps(hIC, LOGPIXELSY);
dpTrue.dpAspectX = GetDeviceCaps(hIC, ASPECTX);
dpTrue.dpAspectY = GetDeviceCaps(hIC, ASPECTY);
dpTrue.dpBitsPerPixel = GetDeviceCaps(hIC, BITSPIXEL);
DeleteDC(hIC);
/*
* Since szTTFaceName is pre-initialized to "Courier New" padded
* with nulls, we can rely on the garbage after the end of the
* string always to be the same, so that a pure memory comparison
* will work.
*/
#ifdef UNICODE
MultiByteToWideChar( CP_ACP, 0, szTTFaceName[0], -1, dpTrue.szTTFace[0], ARRAYSIZE(dpTrue.szTTFace[0]) );
if (IsBilingualCP(g_uCodePage))
MultiByteToWideChar( CP_ACP, 0, szTTFaceName[1], -1, dpTrue.szTTFace[1], ARRAYSIZE(dpTrue.szTTFace[1]) );
#else
hmemcpy(dpTrue.szTTFace, szTTFaceName, SIZEOF(szTTFaceName));
#endif
/*
* We must store the dimension information in the registry because
* the install program for Omar Sharif Bridge will ERASE! your
* SYSTEM.INI if it contains a line greater than 78 characters.
* (I am not making this up. How could I?)
*/
if (RegCreateKey(HKEY_LOCAL_MACHINE, szEmulationKey, &hk) == 0) {
DWORD cb = SIZEOF(DISPLAYPARAMETERS);
if (SHQueryValueEx(hk, szDisplayParams, 0, 0, (LPVOID)&dpStored, &cb) != 0 || cb != SIZEOF(DISPLAYPARAMETERS) || IsBufferDifferent(&dpTrue, &dpStored, SIZEOF(DISPLAYPARAMETERS))) {
/*
* Not much we can do if the write fails, so don't check.
*/
VERIFYTRUE(RegSetValueEx(hk, szDisplayParams, 0, REG_BINARY, (LPVOID)&dpTrue, cb) == 0);
/* Blast the font dimension cache */
WritePrivateProfileString(szTTCacheSection[1], NULL, NULL, szSystemINI);
if (IsBilingualCP(g_uCodePage))
WritePrivateProfileString(szTTCacheSection[0], NULL, NULL, szSystemINI);
}
VERIFYTRUE(RegCloseKey(hk) == 0);
} else {
/*
* Couldn't access registry. Oh well.
*/
}
}
/** PreviewInit
* When the dialog box is created, we create the Window
* Preview child window, as well as the Font Preview window.
* The creation is deferred until the actual dialog box creation
* because the size and shape of the Window Preview window depends
* on the current video driver.
*/
void PreviewInit(HWND hDlg, PFNTINFO pfi)
{
HWND hwnd;
RECT rectLabel, rcPreview;
FunctionName(PreviewInit);
LoadString(g_hinst, IDS_PREVIEWTEXT, szPreviewText, ARRAYSIZE(szPreviewText));
if (IsBilingualCP(pfi->fntProposed.wCurrentCP))
{
// load a sample for their native codepage
LoadString(g_hinst, IDS_PREVIEWTEXT_BILNG,
szPreviewTextDBCS, ARRAYSIZE(szPreviewTextDBCS));
}
/*
* Compute the size of our preview window.
* The top is aligned with the top of IDC_WNDPREVIEWLBL,
* minus a top margin of 3/2 dyChar.
* The left edge is aligned with the left edge of IDC_WNDPREVIEWLBL.
* The maximum width is the width of IDC_WNDPREVIEWLBL.
* The bottom edge can go as far down as the bottom of the dialog,
* minus a bottom margin of 3/2 dyChar.
* And the shape of the preview window is determined by the screen
* dimensions.
* We make the preview window as large as possible, given these
* constraints.
*/
GetWindowRect(GetDlgItem(hDlg, IDC_WNDPREVIEWLBL), &rectLabel);
ScreenToClient(hDlg, (LPPOINT)&rectLabel);
ScreenToClient(hDlg, (LPPOINT)&rectLabel.right);
/*
* This GetWindowRect/ScreenToClient sets rcPreview.top.
*/
GetWindowRect(GetDlgItem(hDlg, IDC_WNDPREVIEWLBL), &rcPreview);
ScreenToClient(hDlg, (LPPOINT)&rcPreview);
/*
* Compute height based on width.
*/
rcPreview.top += 3 * dyChar / 2;
rcPreview.left = rectLabel.left;
rcPreview.right = rectLabel.right - rectLabel.left;
rcPreview.bottom = AspectScale(cyScreen, cxScreen, rcPreview.right);
#ifdef LATER
{
RECT rectGroup;
/*
* Check if we made the window too tall. If so, then we have to
* compute the width based on the height.
*/
GetWindowRect(GetDlgItem(hDlg, IDC_GROUP), &rectGroup);
rectGroup.bottom -= rectGroup.top;
ScreenToClient(hDlg, (LPPOINT)&rectGroup);
if (rcPreview.bottom + rcPreview.top > rectGroup.top - dyChar)
{
rcPreview.bottom = rectGroup.top - rcPreview.top - 3 * dyChar / 2;
rcPreview.right = AspectScale(cxScreen, cyScreen, rcPreview.bottom);
}
}
#endif
/*
* Phew. Now we can create the preview window.
*/
hwnd = CreateWindowEx(
WS_EX_CLIENTEDGE,
szWndPreviewClass, NULL,
WS_CHILD | WS_VISIBLE,
rcPreview.left, rcPreview.top,
rcPreview.right, rcPreview.bottom,
hDlg, (HMENU)IDC_WNDPREVIEW, g_hinst, NULL);
if (hwnd)
SetWindowLongPtr(hwnd, 0, (LONG_PTR)pfi);
/*
* Compute the size of the font preview. This is easier.
*/
GetWindowRect(GetDlgItem(hDlg, IDC_FONTPREVIEWLBL), &rectLabel);
ScreenToClient(hDlg, (LPPOINT)&rectLabel.left);
ScreenToClient(hDlg, (LPPOINT)&rectLabel.right);
hwnd = CreateWindowEx(
WS_EX_CLIENTEDGE,
szFontPreviewClass, NULL,
WS_CHILD | WS_VISIBLE,
rectLabel.left,
rectLabel.top + 3 * dyChar / 2,
rectLabel.right - rectLabel.left,
rcPreview.bottom,
hDlg, (HMENU)IDC_FONTPREVIEW, g_hinst, NULL);
if (hwnd)
SetWindowLongPtr(hwnd, 0, (LONG_PTR)pfi);
}
/* PreviewUpdate
* Does the preview of the selected font.
*/
void PreviewUpdate(HWND hwndList, PFNTINFO pfi)
{
HWND hDlg;
BPFDI bpfdi;
FunctionName(PreviewUpdate);
/* Delete the old font if necessary */
if (pfi->hFontPreview)
{
DeleteObject(pfi->hFontPreview);
pfi->hFontPreview = NULL;
}
/* When we select a font, we do the font preview by setting it
* into the appropriate list box
*/
bpfdi = (BPFDI)GetFont(hwndList, TRUE, pfi);
if (IsSpecialBpfdi(bpfdi))
return;
/* Update our internal font structure so that preview window
* will actually change
*/
pfi->bpfdi = bpfdi;
SetFont(&pfi->fntProposed, bpfdi);
/* Make the new font */
pfi->hFontPreview = CreateFontFromBpfdi(bpfdi, pfi);
/* Force the preview windows to repaint */
hDlg = GetParent(hwndList);
InvalidateRect(GetDlgItem(hDlg, IDC_WNDPREVIEW), NULL, TRUE);
InvalidateRect(GetDlgItem(hDlg, IDC_FONTPREVIEW), NULL, TRUE);
}
/* WndPreviewWndProc
* Handles the window preview window.
*/
LRESULT WndPreviewWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
FunctionName(WndPreviewWndProc);
switch (uMsg)
{
case WM_PAINT:
WndPreviewPaint(GetParent(hwnd), hwnd);
break;
case WM_HELP: // Handles title bar help button message
WinHelp(hwnd, NULL, HELP_CONTEXTPOPUP, IDH_DOS_FONT_WINDOW_PREVIEW);
break;
case WM_RBUTTONUP:
case WM_NCRBUTTONUP: // Equivalent of WM_CONTEXTMENU
OnWmContextMenu((WPARAM)hwnd, &rgdwHelp[0]);
break;
default:
return DefWindowProc(hwnd, uMsg, wParam, lParam);
}
return 0;
}
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
/* _DrawFrame
* Swiped from Control Panel / Metrics.
* Draws the frame *and* modifies the rectangle to contain the
* shrunk coordinates.
*/
void _DrawFrame(HDC hdc, int clr, LPRECT lprc, int cx, int cy)
{
HBRUSH hbr;
RECT rcT;
FunctionName(_DrawFrame);
CopyRect(&rcT, lprc);
hbr = SelectObject(hdc, GetSysColorBrush(clr));
/* Left */
PatBlt(hdc, rcT.left, rcT.top, cx, rcT.bottom-rcT.top, PATCOPY);
rcT.left += cx;
/* Top */
PatBlt(hdc, rcT.left, rcT.top, rcT.right-rcT.left, cy, PATCOPY);
rcT.top += cy;
/* Right */
rcT.right -= cx;
PatBlt(hdc, rcT.right, rcT.top, cx, rcT.bottom-rcT.top, PATCOPY);
/* Bottom */
rcT.bottom -= cy;
PatBlt(hdc, rcT.left, rcT.bottom, rcT.right-rcT.left, cy, PATCOPY);
SelectObject(hdc, hbr);
CopyRect(lprc, &rcT);
}
#endif /* DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES */
/* WndPreviewPaint
* Paints the window preview window. This is called from its
* paint message handler.
*/
void WndPreviewPaint(HWND hDlg, HWND hwnd)
{
PPROPLINK ppl;
PFNTINFO pfi;
RECT rcPreview;
RECT rcWin;
RECT rcClient;
RECT rcT;
POINT ptButton;
#define cxButton ptButton.x
#define cyButton ptButton.y
POINT ptCorner;
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
POINT ptFrame;
#define cxFrame ptFrame.x
#define cyFrame ptFrame.y
#endif
BPFDI bpfdi;
int cxBorder, cyBorder;
int dyToolbar;
PAINTSTRUCT ps;
BOOL bCenter;
FunctionName(WndPreviewPaint);
BeginPaint(hwnd, &ps);
pfi = (PFNTINFO)GetWindowLongPtr(hwnd, 0);
ppl = pfi->ppl;
ASSERTTRUE(ppl->iSig == PROP_SIG);
bpfdi = pfi->bpfdi;
/* If we don't have a font, get out */
if (!pfi->hFontPreview)
return;
/* Get the width of the preview "screen" */
GetClientRect(hwnd, &rcPreview);
/* Figure out how large we would be as a result of the change.
* This isn't perfect, but it'll probably be close enough.
* (Imperfection if we chose AUTO as the font.)
*/
/* Assume maximized */
rcClient.left = rcClient.top = 0;
if (pfi->winOriginal.cxCells) {
rcClient.right = pfi->winOriginal.cxCells * bpfdi->fdiWidthActual;
} else {
rcClient.right = 80 * bpfdi->fdiWidthActual;
}
if (pfi->winOriginal.cyCells) {
rcClient.bottom = pfi->winOriginal.cyCells * bpfdi->fdiHeightActual;
} else {
PROPVID vid;
// set default value
rcClient.bottom = 25 * bpfdi->fdiHeightActual;
// now see if there is a value in the pif file for size of window...
if (PifMgr_GetProperties(ppl, MAKELP(0,GROUP_VID),
&vid, SIZEOF(vid), GETPROPS_NONE))
{
if (vid.cScreenLines > 0)
rcClient.bottom = vid.cScreenLines * bpfdi->fdiHeightActual;
}
}
if (!pfi->fMax && pfi->winOriginal.cxClient && pfi->winOriginal.cyClient) {
/* Shrink down to window actual */
if (rcClient.right > (int)pfi->winOriginal.cxClient)
rcClient.right = (int)pfi->winOriginal.cxClient;
if (rcClient.bottom > (int)pfi->winOriginal.cyClient)
rcClient.bottom = (int)pfi->winOriginal.cyClient;
}
/* Get some more metrics */
cxBorder = GetSystemMetrics(SM_CXBORDER);
cyBorder = GetSystemMetrics(SM_CYBORDER);
cxButton = GetSystemMetrics(SM_CXSIZE);
cyButton = GetSystemMetrics(SM_CYSIZE);
// cyButton *= 2; /* Double the height for "looks" */
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
cxFrame = GetSystemMetrics(SM_CXFRAME);
cyFrame = GetSystemMetrics(SM_CYFRAME);
#endif
/* FLAG DAY! Convert everything from desktop coordinates to
* aspect ratio-scaled preview coordinates
* Do **not** convert cxBorder and cyBorder!
* ptCorner must not be modified in-place since its value is used at
* the next go-round.
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
* After translation, cxFrame and cyFrame are adjusted so that the
* cxBorder counts against them. This allows for users who set
* really wide frames, but doesn't penalize the users who have
* narrow frames.
#endif
*/
ptCorner = pfi->ptCorner;
bCenter = (ptCorner.x == -1);
AspectPoint(&rcPreview, &ptCorner);
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
AspectPoint(&rcPreview, &ptFrame);
#endif
AspectRect(&rcPreview, &rcClient);
AspectPoint(&rcPreview, &ptButton);
/*
* BUGBUG -- The height of a toolbar is hard-coded at 30 pixels.
*/
if (pfi->winOriginal.flWin & WIN_TOOLBAR) {
dyToolbar = (int)AspectScale(rcPreview.bottom, cyScreen, 30);
} else {
dyToolbar = 0;
}
/* Make sure the buttons are nonzero in dimension */
if (cxButton == 0) cxButton = 1;
if (cyButton == 0) cyButton = 1;
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
/*
* Don't penalize people who have thin frames.
*/
if (cxFrame < cxBorder) cxFrame = cxBorder;
if (cyFrame < cyBorder) cyFrame = cyBorder;
#endif
/*
* Convert from client rectangle back to window rectangle.
* We must do this *AFTER* the flag day, because we need to use the
* post-flag day cxBorder and cyBorder.
*/
/* Put a (scaled-down) toolbar into place. We'll expand the client
* region to accomodate it. (We'll subtract the toolbar off before
* painting the client region.)
*/
rcClient.bottom += dyToolbar;
/* Shove the client region down to make room for the caption. */
OffsetRect(&rcClient, 0, cyButton);
rcWin = rcClient;
rcWin.top = 0;
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
InflateRect(&rcWin, cxFrame, cyFrame);
#else
InflateRect(&rcWin, cxBorder, cyBorder);
#endif
/*
* Now put it in the proper position on the (shrunk-down) desktop.
* We cannot do this until rcWin's value is finalized.
*/
if (bCenter)
{
ptCorner.x = ( (rcPreview.right - rcPreview.left) -
(rcWin.right - rcWin.left)
) / 2;
if (ptCorner.x < 0)
ptCorner.x = 0;
ptCorner.y = ( (rcPreview.bottom - rcPreview.top) -
(rcWin.bottom - rcWin.top)
) / 5;
if (ptCorner.y < 0)
ptCorner.y = 0;
}
OffsetRect(&rcWin, ptCorner.x, ptCorner.y);
OffsetRect(&rcClient, ptCorner.x, ptCorner.y);
/* It's party time! */
/* The outer border */
DrawEdge(ps.hdc, &rcWin, BDR_RAISEDINNER, BF_RECT | BF_ADJUST);
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
/* The sizing frame */
_DrawFrame(ps.hdc, COLOR_ACTIVEBORDER,
&rcWin, cxFrame - cxBorder, cyFrame - cyBorder);
#endif
/* rcWin has now shrunk to its inner edge */
/* Move its bottom edge upwards to meet the top of the client region.
* This turns rcWin into the caption area.
*/
rcWin.bottom = rcClient.top;
FillRect(ps.hdc, &rcWin, (HBRUSH)(COLOR_ACTIVECAPTION+1));
/* Next comes the toolbar */
rcT= rcClient;
rcT.bottom = rcT.top + dyToolbar;
FillRect(ps.hdc, &rcT, (HBRUSH)(COLOR_BTNFACE+1));
/* Next, draw the client region */
rcClient.top += dyToolbar;
DrawEdge(ps.hdc, &rcClient, BDR_SUNKENOUTER, BF_RECT | BF_ADJUST);
FillRect(ps.hdc, &rcClient, (HBRUSH)GetStockObject(BLACK_BRUSH));
/*
* Now draw the three caption buttons.
*/
/*
* The system menu.
*/
rcT = rcWin;
rcT.right = rcT.left + cxButton;
//DrawFrameControl(ps.hdc, &rcT, DFC_SYSMENU, DFCS_SYSMENUMAIN);
DrawFrameControl(ps.hdc, &rcT, DFC_CAPTION, DFCS_CAPTIONCLOSE);
/*
* The maximize menu.
*/
rcWin.left = rcWin.right - cxButton;
//DrawFrameControl(ps.hdc, &rcWin, DFC_SIZE, DFCS_SIZEMAX);
DrawFrameControl(ps.hdc, &rcWin, DFC_CAPTION, DFCS_CAPTIONMAX);
/*
* The minimize menu.
*/
rcWin.left -= cxButton;
rcWin.right -= cxButton;
//DrawFrameControl(ps.hdc, &rcWin, DFC_SIZE, DFCS_SIZEMIN);
DrawFrameControl(ps.hdc, &rcWin, DFC_CAPTION, DFCS_CAPTIONMIN);
EndPaint(hwnd, &ps);
}
#undef cxButton
#undef cyButton
#ifndef DONT_WORRY_ABOUT_PEOPLE_WITH_REALLY_WIDE_FRAMES
#undef cxFrame
#undef cyFrame
#endif
/* FontPreviewWndProc
* Handles the font preview window
*/
LRESULT FontPreviewWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
RECT rect;
PFNTINFO pfi;
PAINTSTRUCT ps;
FunctionName(FontPreviewWndProc);
switch (uMsg)
{
case WM_PAINT:
BeginPaint(hwnd, &ps);
pfi = (PFNTINFO)GetWindowLongPtr(hwnd, 0);
/* Draw the font sample */
SelectObject(ps.hdc, pfi->hFontPreview);
SetTextColor(ps.hdc, RGB(192, 192, 192));
SetBkColor(ps.hdc, RGB(0, 0, 0));
GetClientRect(hwnd, &rect);
InflateRect(&rect, -2, -2);
if ( IsBilingualCP(pfi->fntProposed.wCurrentCP) )
DrawText(ps.hdc, szPreviewTextDBCS, -1, &rect, 0);
else
DrawText(ps.hdc, szPreviewText, -1, &rect, 0);
EndPaint(hwnd, &ps);
break;
case WM_HELP: // Handles title bar help button message
WinHelp(hwnd, NULL, HELP_CONTEXTPOPUP, IDH_DOS_FONT_FONT_PREVIEW);
break;
case WM_RBUTTONUP:
case WM_NCRBUTTONUP: // Equivalent of WM_CONTEXTMENU
OnWmContextMenu((WPARAM)hwnd, &rgdwHelp[0]);
break;
default:
return DefWindowProc(hwnd, uMsg, wParam, lParam);
}
return 0;
}
/** CreateFontList
* Loads the dialog control hwndList with all available font
* dimensions for raster fonts, and a selected collection of
* dimensions for TrueType fonts.
* The reference data for each control is an index into lpfniCache.
* The hourglass cursor is displayed during the font list build.
* Entry:
* hwndList == handle to listbox or combo box to fill
* fListBox == TRUE if hwndList is a listbox, FALSE if a combo box
* lpFnt -> PROPFNT structure
* If HIWORD(lpFnt) is NULL, then LOWORD(lpFnt) is used as an hProps
* to get obtain property info for that handle.
* Returns:
* >= 0 on success, indicating the current selection.
* In which case the FDI cache is valid and hwndList has been filled
* with font information, and the currently-selected font has been
* made the current selection.
* LB_ERR/CB_ERR on failure. The list box hwndList is left in an
* indeterminate state.
*/
int WINAPI CreateFontList(HWND hwndList, BOOL fListBox, LPPROPFNT lpFnt)
{
DWORD dwIndex;
HCURSOR hcursor;
PROPFNT fntTemp;
int iReturn = LB_ERR;
TCHAR szBuf[MAXDIMENSTRING];
FunctionName(CreateFontList);
if (IS_INTRESOURCE(lpFnt)) {
// BUGBUG handle truncations!
if (!PifMgr_GetProperties(lpFnt, MAKELP(0,GROUP_FNT),
&fntTemp, SIZEOF(fntTemp), GETPROPS_NONE))
goto Exit2;
lpFnt = &fntTemp;
}
/*
* Put up an hourglass while the font list build is taking place,
* since it might take a long time if we have to re-rasterize
* TrueType fonts.
* NOTE! That we do not do a ShowCursor. Why?
* If the user is on a mouseless system, then he can't access his
* toolbar, and hence the only time this code can get called is
* during the creation of the font selection dialog box. In which
* case, DialogBox has already done a ShowCursor for us.
*/
hcursor = SetCursor(hcursorWait);
/*
* Initialize the list box.
*/
if (hwndList) {
SendMessage(hwndList, WM_SETREDRAW, FALSE, 0L);
SendMessage(hwndList, fListBox ? LB_RESETCONTENT : CB_RESETCONTENT, 0, 0L);
}
/*
* Add the fonts.
*/
if ((lpFnt->flFnt & FNT_RASTERFONTS) &&
!AddRasterFontsToFontListA(hwndList, fListBox,
lpFnt->achRasterFaceName, lpFnt->wCurrentCP))
goto Exit;
if ((lpFnt->flFnt & FNT_TTFONTS) &&
!AddTrueTypeFontsToFontListA(hwndList, fListBox,
lpFnt->achTTFaceName, lpFnt->wCurrentCP))
goto Exit;
/*
* And the magical "Auto" font size.
*/
/*
* Beyond this point, success is assured, so at the very least,
* DON'T return LB_ERR; we may optionally set the return code to
* the current selection, below, too...
*/
iReturn = 0;
if (hwndList) {
/*
* No error checking here because if anything fails, then the
* end result will be merely that the "Auto" option either
* (1) exists but is invisible, or (2) doesn't appear at all.
*/
LoadString(g_hinst, IDS_AUTO, szBuf, ARRAYSIZE(szBuf));
dwIndex = lcbInsertString(hwndList, fListBox, szBuf, 0);
lcbSetItemDataPair(hwndList, fListBox, dwIndex, BPFDI_AUTO, 0);
/*
* Make yet another pass through the list to find the current
* font and select it. Thanks to an intentional flakiness
* in USER, we can't do this check at the point that the
* font is added, because the selection does not move with the
* item when a new item is inserted above the selection.
* Bleah.
*/
if (!MatchCurrentFont(hwndList, fListBox, lpFnt)) {
/*
* If no font matched the current font, and we are a list box,
* then make the first font the current selection.
* We don't want to make any default selection if we are a
* combo box, because that would make the user think that the
* current font was something it wasn't.
*/
if (fListBox) {
/*
* SORTING-SENSITIVE! This assumes that "Auto" is at the top
* of the list.
*/
lcbSetCurSel(hwndList, TRUE, 0);
lpFnt->flFnt |= FNT_AUTOSIZE;
}
}
SendMessage(hwndList, WM_SETREDRAW, TRUE, 0L);
iReturn = lcbGetCurSel(hwndList, fListBox);
}
Exit:
/*
* Reset the mouse cursor.
*/
SetCursor(hcursor);
Exit2:
return iReturn;
}
/** UpdateTTBitmap
* Recompute the colors for the TrueType bitmap hbmFont.
* Since we may receive this several times for a single WM_SYSCOLORCHANGE,
* we update our colors under the following conditions:
* 1. More than one second has elapsed since the previous call, or
* 2. A crude checksum fails.
* Entry:
* None.
* Returns:
* hbmFont recomputed.
*/
VOID WINAPI UpdateTTBitmap(void)
{
COLORREF clr;
/*
* Note that the checksum should not be a symmetric function,
* because a common color alteration is to exchange or permute
* the colors.
*/
clr = + GetSysColor(COLOR_BTNTEXT)
- GetSysColor(COLOR_BTNSHADOW)
+ (GetSysColor(COLOR_BTNFACE) ^ 1)
- (GetSysColor(COLOR_BTNHIGHLIGHT) ^ 2)
^ GetSysColor(COLOR_WINDOW);
if (!hbmFont || clr != clrChecksum || GetTickCount() - dwTimeCheck < 1000) {
clrChecksum = clr;
dwTimeCheck = GetTickCount();
if (hbmFont) DeleteObject(hbmFont);
hbmFont = CreateMappedBitmap(g_hinst, IDB_TTBITMAP, 0, NULL, 0);
}
}
/** DrawItemFontList
* Answer the WM_DRAWITEM message sent from the font list box or
* font combo box.
* This code was originally lifted from FONT.C in sdk\commdlg.
* See fontutil.h for an explanation of the \1 hack.
* Entry:
* fListBox = TRUE if the item is a list box, FALSE if a combo box
* lpdis -> DRAWITEMSTRUCT describing object to be drawn
* Returns:
* None.
* The object is drawn.
*/
#define cTabsList 3
typedef struct DIFLINFO {
LPTSTR di_lpsz;
PINT di_pTabs;
} DIFLINFO, *LPDIFLINFO;
#define lpdi ((LPDIFLINFO)lp)
BOOL CALLBACK diflGrayStringProc(HDC hdc, LPARAM lp, int cch)
{
return (BOOL)TabbedTextOut(hdc, 0, 0,
lpdi->di_lpsz, lstrlen(lpdi->di_lpsz),
cTabsList, lpdi->di_pTabs, 0);
}
#undef lpdi
VOID WINAPI DrawItemFontList(BOOL fListBox, const LPDRAWITEMSTRUCT lpdis)
{
HDC hDC, hdcMem;
DWORD rgbBack, rgbText;
int iColorBack;
COLORREF clrText;
COLORREF clrBack;
TCHAR szDimen[MAXDIMENSTRING];
HBITMAP hOld;
int dy;
DIFLINFO di;
static int rgTabsList[cTabsList] = {0, 0, 0};
static int rgTabsCombo[cTabsList] = {0, 0, 0};
#define lpsz di.di_lpsz
#define pTabs di.di_pTabs
FunctionName(DrawItemFontList);
if ((int)lpdis->itemID < 0)
return;
hDC = lpdis->hDC;
if (lpdis->itemAction & ODA_FOCUS) {
if (lpdis->itemState & ODS_SELECTED) {
DrawFocusRect(hDC, &lpdis->rcItem);
}
} else {
if (lpdis->itemState & ODS_SELECTED) {
clrBack = GetSysColor(iColorBack = COLOR_HIGHLIGHT);
clrText = GetSysColor(COLOR_HIGHLIGHTTEXT);
} else {
clrBack = GetSysColor(iColorBack = COLOR_WINDOW);
clrText = GetSysColor(IsWindowEnabled(lpdis->hwndItem) ?
COLOR_WINDOWTEXT : COLOR_GRAYTEXT);
}
rgbText = SetTextColor(hDC, clrText);
rgbBack = SetBkColor(hDC, clrBack);
// draw selection background
FillRect(hDC, &lpdis->rcItem, (HBRUSH)UIntToPtr( (iColorBack + 1) ));
// get the string
SendMessage(lpdis->hwndItem, fListBox ? LB_GETTEXT : CB_GETLBTEXT, lpdis->itemID, (LPARAM)(LPTSTR)szDimen);
lpsz = szDimen;
if (szDimen[0] == TEXT('\1')) // hack for "Auto" string
lpsz++;
if (fListBox)
pTabs = rgTabsList;
else
pTabs = rgTabsCombo;
if (pTabs[0] == 0) { /* Never seen this font before */
/* Assumes GetTextExtent(hDC, ANSI_TIMES, 1) < 2 * dxChar */
SIZE sSize;
GetTextExtentPoint32( hDC, szZero, 1, &sSize ); // size of '0'
/* A negative # for tab stop right aligns the tabs... */
pTabs[0] = -sSize.cx * 3;
pTabs[1] = -sSize.cx * 5;
pTabs[2] = -sSize.cx * 8;
}
// draw the text
// Note that the SDK dox for GrayString says that you can detect
// whether GrayString is needed by saying
// if (GetSysColor(COLOR_GRAYTEXT) == 0) {
// GrayString(...);
// } else {
// TextOut(...);
// }
// This is incorrect. The correct test is the one below, which
// also catches bad color combinations on color devices.
if (clrText == clrBack) {
SetTextColor(hDC, GetSysColor(COLOR_WINDOWTEXT));
GrayString(hDC, GetStockObject(GRAY_BRUSH), diflGrayStringProc ,
(LPARAM)(LPVOID)&di, 0,
lpdis->rcItem.left + DX_TTBITMAP,
lpdis->rcItem.top,
lpdis->rcItem.right - lpdis->rcItem.left - DX_TTBITMAP,
lpdis->rcItem.bottom - lpdis->rcItem.top);
} else {
TabbedTextOut(hDC, lpdis->rcItem.left + DX_TTBITMAP, lpdis->rcItem.top, lpsz, lstrlen(lpsz), cTabsList, pTabs, DX_TTBITMAP);
}
// and the bitmap if needed
if (!IsSpecialBpfdi((BPFDI)lpdis->itemData))
{
if (((BPFDI)(lpdis->itemData))->bTT) {
hdcMem = CreateCompatibleDC(hDC);
if (hdcMem) {
hOld = SelectObject(hdcMem, hbmFont);
dy = ((lpdis->rcItem.bottom - lpdis->rcItem.top) - DY_TTBITMAP) / 2;
BitBlt(hDC, lpdis->rcItem.left, lpdis->rcItem.top + dy,
DX_TTBITMAP, DY_TTBITMAP, hdcMem, 0,
lpdis->itemState & ODS_SELECTED ? 0 : DY_TTBITMAP, SRCCOPY);
if (hOld)
SelectObject(hdcMem, hOld);
DeleteDC(hdcMem);
}
}
}
SetTextColor(hDC, rgbText);
SetBkColor(hDC, rgbBack);
if (lpdis->itemState & ODS_FOCUS) {
DrawFocusRect(hDC, &lpdis->rcItem);
}
}
}
#undef lpsz
#undef pTabs
/** MeasureItemFontList
* Answer the WM_MEASUREITEM message sent from the font list box or
* font combo box. shared between the toolbar combo box code and
* the font preview property sheet
* Entry:
* lpmi -> LPMEASUREITEMSTRUCT describing object to be measured
* Returns:
* TRUE.
* lpmi->itemHeight filled with actual item height.
*/
LONG WINAPI MeasureItemFontList(LPMEASUREITEMSTRUCT lpmi)
{
FunctionName(MeasureItemFontList);
lpmi->itemHeight = dyItem;
return TRUE;
}
/** GetItemFontInfo
* Returns font information for the current selection in the given
* listbox/combobox.
* Entry:
* hwndList == handle to listbox or combo box to fill
* if NULL, then AUTO is assumed
* fListBox == TRUE if hwndList is a listbox, FALSE if a combo box
* hProps == property handle
* lpFnt -> PROPFNT structure (filled in upon return)
* Returns:
* LB_ERR/CB_ERR on error, index of current selection otherwise
*/
int WINAPI GetItemFontInfo(HWND hwndList, BOOL fListBox, HANDLE hProps, LPPROPFNT lpFnt)
{
DWORD_PTR dw;
int index;
FunctionName(GetItemFontInfo);
/*
* Get font defaults; the nice thing about this call is that
* it also takes care of calling ChooseBestFont if AUTOSIZE is set,
* which means we can tell GetFont() to not bother.
*/
PifMgr_GetProperties(hProps, MAKELP(0,GROUP_FNT),
lpFnt, SIZEOF(PROPFNT), GETPROPS_NONE);
dw = GetFont(hwndList, fListBox, NULL);
if (IsSpecialBpfdi((BPFDI)dw))
{
return 0;
}
index = ((BPFDI)dw)->Index;
if (index == 0)
lpFnt->flFnt |= FNT_AUTOSIZE;
else if (index > 0)
lpFnt->flFnt &= ~FNT_AUTOSIZE;
/*
* Fill the caller's PROPFNT structure with all the font goodies (if any)
* Note that this does nothing if we ended up picking the AUTO font.
*/
SetFont(lpFnt, (BPFDI)dw);
return index;
}
/** MatchCurrentFont
* Locates the current font in the indicated list box and
* makes him the current selection.
* If we are in auto-mode, then "Auto" is selected.
* Entry:
* hwndList == handle to listbox or combo box
* fListBox == TRUE if hwndList is a listbox, FALSE if a combo box
* lpFnt -> PROPFNT structure
* Returns:
* TRUE if the current font was found and selected.
*/
BOOL WINAPI MatchCurrentFont(HWND hwndList, BOOL fListBox, LPPROPFNT lpFnt)
{
BPFDI bpfdi;
DWORD dwCount, dwIndex;
BOOL fCurFontIsTt = !!(lpFnt->flFnt & FNT_TT);
FunctionName(MatchCurrentFont);
if (lpFnt->flFnt & FNT_AUTOSIZE) {
/*
* SORTING-SENSITIVE! This assumes that "Auto" is at the top
* of the list.
*/
lcbSetCurSel(hwndList, fListBox, 0);
return TRUE;
}
dwCount = lcbGetCount(hwndList, fListBox);
for (dwIndex = 0; dwIndex < dwCount; dwIndex++) {
bpfdi = lcbGetBpfdi(hwndList, fListBox, dwIndex);
if (!IsSpecialBpfdi(bpfdi)) {
// bpfdi = (BPFDI)((DWORD)bpfdi + (DWORD)lpCache);
if (bpfdi->fdiWidthActual == lpFnt->cxFontActual &&
bpfdi->fdiHeightActual == lpFnt->cyFontActual &&
fCurFontIsTt == (bpfdi->fdiHeightReq != 0)) {
lcbSetCurSel(hwndList, fListBox, dwIndex);
return TRUE;
}
}
}
return FALSE;
}
/** AddRasterFontsToFontList
* Enumerate the available dimensions for our OEM raster font
* and add them to the list or combo box.
* Entry:
* hwndList = List box or combo box to fill with info
* fListBox = TRUE if hwndList is a listbox, FALSE if a combo box
* lpszRasterFaceName
* Returns:
* TRUE if fonts were enumerated to completion.
* FALSE if enumeration failed. (Out of memory.)
*/
BOOL AddRasterFontsToFontListA(HWND hwndList, BOOL fListBox,
LPCSTR lpszRasterFaceName, INT CodePage)
{
HDC hDC;
BOOL fSuccess;
FNTENUMINFO FntEnum;
FunctionName(AddRasterFontsToFontList);
hDC = GetDC(hwndList);
if (!hDC) return FALSE;
FntEnum.hwndList = hwndList;
FntEnum.fListBox = fListBox;
FntEnum.CodePage = CodePage;
fSuccess = EnumFontFamiliesA(hDC,
lpszRasterFaceName,
(FONTENUMPROCA)RasterFontEnum,
(LPARAM)&FntEnum);
ReleaseDC(hwndList, hDC);
return TRUE;
}
/** RasterFontEnum
* FONTENUMPROC for enumerating all available dimensions of the OEM
* raster font.
* This routine is used to load the logical and physical font
* dimensions cache with information about raster fonts.
* Entry:
* lpelf \
* lpntm > from EnumFonts (see SDK)
* nFontType /
* hwndList = List box or combo box to fill with info
* fListBox = TRUE if hwndList is a listbox, FALSE if a combo box
* Returns:
* TRUE to continue enumeration.
* FALSE to stop enumeration. (Out of memory.)
*/
int CALLBACK RasterFontEnum(ENUMLOGFONTA *lpelf, NEWTEXTMETRICA *lpntm, int nFontType, LPARAM lParam)
{
#define fListBox (((LPFNTENUMINFO)lParam)->fListBox)
#define hwndList (((LPFNTENUMINFO)lParam)->hwndList)
#define CodePage (((LPFNTENUMINFO)lParam)->CodePage)
#define lpLogFont (&(lpelf->elfLogFont))
FunctionName(RasterFontEnum);
/*
* We only care about OEM fixed-pitch fonts.
*/
if (lpLogFont->lfCharSet != OEMCharsetFromCP(CodePage)
|| (lpLogFont->lfPitchAndFamily & (TMPF_TRUETYPE | TMPF_FIXED_PITCH))
!= TMPF_FIXED_PITCH)
return TRUE;
return AddToFontListCache(hwndList,
fListBox,
0, 0,
lpLogFont->lfHeight,
lpLogFont->lfWidth,
CodePage) != BPFDI_CANCEL;
#undef lpLogFont
#undef fListBox
#undef hwndList
#undef CodePage
}
/** AddToFontListCache
* Adds an entry to the font dimension information cache,
* growing the cache if necessary.
* It also adds the entry to the indicated list box, provided
* the entry is not a duplicate.
* Returns:
* BPFDI of the recently-added font, or BPFDI_CANCEL if out of memory.
* Overview:
* (1) Grow the cache if necessary.
* (2) Add the information to the list/combo box.
* (3) Add the information to the cache.
*/
BPFDI AddToFontListCache(HWND hwndList,
BOOL fListBox,
UINT uHeightReq,
UINT uWidthReq,
UINT uHeightActual,
UINT uWidthActual,
UINT uCodePage)
{
LPVOID hCache;
LONG_PTR lCacheSave;
DWORD dwIndex, ifdi;
BPFDI bpfdi;
TCHAR szBuf[MAXDIMENSTRING];
int idx;
FunctionName(AddToFontListCache);
ASSERT( !((uHeightReq==0) && (uWidthReq==0) && (uHeightActual==0) && (uWidthActual==0)) );
/* Reject too-large fonts out of hand. */
if (uHeightActual > MAX_FONT_HEIGHT) {
return BPFDI_IGNORE;
}
/*
* FIRST, determine whether this font entry has already been cached
*/
// we maintain two set of cache entries in case we have two code page
// to support
idx = IsBilingualCP(uCodePage) ? 1 : 0;
for (ifdi = 0, bpfdi = (BPFDI)((DWORD_PTR)lpCache + bpfdiStart[idx]); ifdi < cfdiCache[idx]; ++ifdi, ++bpfdi)
{
if (bpfdi->fdiWidthReq == uWidthReq &&
bpfdi->fdiHeightReq == uHeightReq &&
bpfdi->fdiWidthActual == uWidthActual &&
bpfdi->fdiHeightActual == uHeightActual)
goto UpdateListCombo;
}
/*
* Grow the cache if necessary.
*/
if (cfdiCache[idx] >= cfdiCacheActual[idx]) {
/*
* save offset from beginning of cache
*/
bpfdi = (BPFDI)((DWORD_PTR)bpfdi - (DWORD_PTR)lpCache);
/*
* save current lpCache value so can adjust entries in listbox
* when we're done...
*/
lCacheSave = (LONG_PTR)lpCache;
hCache = LocalReAlloc( lpCache,
(cfdiCacheActual[0] + cfdiCacheActual[1] + FDI_TABLE_INC) *
SIZEOF(FONTDIMENINFO), LMEM_ZEROINIT|LMEM_MOVEABLE );
if (!hCache)
return BPFDI_CANCEL;
lpCache = hCache;
if (!idx && IsBilingualCP(g_uCodePage)) {
/*
* We need to shift 2nd cache before using expanded 1st chache
*/
BPFDI bpfdi2;
for (ifdi = cfdiCache[1],
bpfdi2 = (BPFDI)((DWORD_PTR)lpCache + bpfdiStart[1]) + ifdi - 1 + FDI_TABLE_INC ;
ifdi ; ifdi--, bpfdi2--) {
*bpfdi2 = *(bpfdi2 - FDI_TABLE_INC);
}
bpfdiStart[1] += FDI_TABLE_INC;
}
/* restore bpfdi from saved offset */
bpfdi = (BPFDI)((DWORD_PTR)lpCache + (DWORD_PTR)bpfdi);
cfdiCacheActual[idx] += FDI_TABLE_INC;
/*
* Convert lCacheSave to an offset...
*/
lCacheSave = (LONG_PTR)lpCache - lCacheSave;
if (lCacheSave)
{
/*
* Now, adjust each entry in the listbox to account for the new
* relocated cache position..
*/
dwIndex = lcbGetCount( hwndList, fListBox );
for( ifdi = 0; ifdi < dwIndex; ifdi++ )
{
LONG_PTR lBpfdi;
lBpfdi = (LONG_PTR)lcbGetItemDataPair( hwndList, fListBox, ifdi );
if (!IsSpecialBpfdi((BPFDI)lBpfdi))
{
lBpfdi += lCacheSave;
lcbSetItemDataPair( hwndList, fListBox, ifdi, lBpfdi, ((BPFDI)lBpfdi)->bTT );
}
}
}
}
/*
* Now add the information to the cache. All the casting on bpfdiCache
* is just to inhibit a bogus compiler complaint.
*/
bpfdi->fdiWidthReq = uWidthReq;
bpfdi->fdiHeightReq = uHeightReq;
bpfdi->fdiWidthActual = uWidthActual;
bpfdi->fdiHeightActual = uHeightActual;
cfdiCache[idx]++;
UpdateListCombo:
if (hwndList) {
/*
* Add the string to the list/combo box if it isn't there already.
*/
wsprintf(szBuf, szDimension, uWidthActual, uHeightActual);
dwIndex = lcbFindStringExact(hwndList, fListBox, szBuf);
if (IsDlgError(dwIndex)) {
/*
* Not already on the list. Add it.
*/
dwIndex = lcbAddString(hwndList, fListBox, szBuf);
if (IsDlgError(dwIndex)) {
return BPFDI_CANCEL;
}
lcbSetItemDataPair(hwndList, fListBox, dwIndex,
bpfdi, uHeightReq);
}
}
return bpfdi;
}
/** AddTrueTypeFontsToFontListA
* To avoid rasterizing all the fonts unnecessarily, we load the
* information from the szTTCacheSection font cache.
* Note that the cache information is not validated! We just
* assume that if the value is in the cache, it is valid.
* Entry:
* hwndList = List box or combo box to fill with info
* fListBox = TRUE if hwndList is a listbox, FALSE if a combo box
* lpszTTFaceName
* Returns:
* TRUE if fonts were enumerated to completion.
* FALSE if enumeration failed. (Out of memory.)
* Caveats:
* The ParseIniWords call assumes that the values were written
* by AddOneNewTrueTypeFontToFontList, who wrote them out so
* that a single call to ParseIniWords will read the height and
* width directly into a dwHeightWidth.
* Similarly, the second ParseIniWords reads the item directly into
* a dwHeightWidth.
*/
BOOL AddTrueTypeFontsToFontListA(HWND hwndList, BOOL fListBox,
LPSTR lpszTTFaceName, INT CodePage)
{
LPTSTR pszBuf;
LPTSTR pszBufNew;
LPTSTR psz;
LPTSTR lpszNext;
DWORD dwHWReq;
DWORD dwHWActual;
BOOL fSuccess;
DWORD cchBuf;
DWORD cchActual;
int i;
int idx = IsBilingualCP(CodePage) ? 1 : 0;
FunctionName(AddTrueTypeFontsToFontListA);
/*
* See if we can load everything out of the szTTCacheSection.
* There is no API to get the size of a profile string, so we
* have to fake it by reading, reallocing, and reading again
* until it all fits.
* The initial value of 1024 characters means that we can handle
* up to 128 font sizes. A comfortable number, we hope.
*/
cchBuf = 1024;
cchActual = 0;
pszBufNew = (LPTSTR)LocalAlloc( LPTR, cchBuf*SIZEOF(TCHAR) );
while (pszBufNew) {
pszBuf = pszBufNew;
cchActual = GetPrivateProfileString(szTTCacheSection[idx], NULL, c_szNULL, pszBuf, cchBuf, szSystemINI);
if (cchActual < cchBuf - 5) goto Okay;
cchBuf += 512;
pszBufNew = (LPTSTR)LocalReAlloc( pszBuf, cchBuf*SIZEOF(TCHAR), LMEM_MOVEABLE|LMEM_ZEROINIT );
}
/* Bleargh. Too much stuff in the cache. Punt it and start anew. */
goto FreshStart;
Okay:
fSuccess = FALSE;
/*
* In the time between flushing the cache and reloading it here,
* a handful of fonts may have gotten added to the cache due to
* WinOldAp trying to realize the font it got back. So consider the
* font cache decent if there are at least ten fonts in it.
*/
if (cchActual >= 4 * 10) {
/*
* We found cache information. Party away.
*/
psz = pszBuf;
while (*psz) {
if (ParseIniWords(psz, (PWORD)&dwHWReq, 2, &lpszNext) != 2 ||
GetIniWords(szTTCacheSection[idx], psz,
(PWORD)&dwHWActual, 2, szSystemINI) != 2) {
/* Font cache looks bogus. Start with a new one. */
goto FreshStart;
}
if (AddToFontListCache(hwndList, fListBox,
(UINT)HIWORD(dwHWReq),
(UINT)LOWORD(dwHWReq),
(UINT)HIWORD(dwHWActual),
(UINT)LOWORD(dwHWActual),
CodePage) == BPFDI_CANCEL)
goto E0;
psz = (LPTSTR)(lpszNext + 1); /* Skip past the NUL */
}
} else {
FreshStart:
/* Blast the old cache, just make sure we have a clean slate */
WritePrivateProfileString(szTTCacheSection[idx], NULL, NULL, szSystemINI);
/* No cache available. Need to build one. */
for (i = 0 ; i < NUMINITIALTTHEIGHTS; i++) {
if (rgwInitialTtHeights[i]) {
AddOneNewTrueTypeFontToFontListA(hwndList, fListBox,
0, (UINT)rgwInitialTtHeights[i],
lpszTTFaceName, CodePage);
}
}
}
fSuccess = TRUE;
E0:
EVAL(LocalFree(pszBuf) == NULL);
return fSuccess;
}
/** AddOneNewTrueTypeFontToFontListA
* Given height and width, synthesize a TrueType font with those
* dimensions and record the actual font height and width in
* the persistent font cache, as well as a FDI.
* Entry:
* hwndList = List box or combo box to fill with info
* fListBox = TRUE if hwndList is a listbox, FALSE if a combo box
* wHeight = Desired font height
* wWidth = Desired font width (can be zero for "default")
* lpszTTFaceName
* Returns:
* BPFDI of font dimension info, or BPFDI_CANCEL on failure.
* Caveats:
* The wsprintf assumes that the fdiWidthReq and
* fdiHeightReq fields appear in the indicated order,
* because the values will be read into a dwHeightWidth later.
* Similarly for the WriteIniWords.
*/
BPFDI AddOneNewTrueTypeFontToFontListA(HWND hwndList,
BOOL fListBox,
UINT uWidth, UINT uHeight,
LPSTR lpszTTFaceName, INT CodePage)
{
BPFDI bpfdi;
HDC hDC;
HFONT hFont;
SIZE sSize;
HFONT hFontPrev;
DWORD dwHeightWidth;
TCHAR szBuf[MAXDIMENSTRING];
static const TCHAR szPercentDSpacePercentD[] = TEXT("%d %d");
int idx;
BYTE bCharset;
DWORD fdwClipPrecision;
FunctionName(AddOneNewTrueTypeFontToFontListA);
bpfdi = BPFDI_CANCEL;
hDC = GetDC(NULL); /* Get a screen DC */
if (!hDC) goto E0;
// choose charset, clip precision based on codepage
// 0xFE is a hack for japanese platform
bCharset = (CodePage == CP_JPN? 0xFE: OEMCharsetFromCP(CodePage));
if (CodePage == CP_US)
fdwClipPrecision = CLIP_DEFAULT_PRECIS|(g_uCodePage == CP_WANSUNG? CLIP_DFA_OVERRIDE: 0);
else
fdwClipPrecision = CLIP_DEFAULT_PRECIS;
hFont = CreateFontA((INT)uHeight, (INT)uWidth, 0, 0, 0, 0, 0, 0,
bCharset, OUT_TT_PRECIS,
fdwClipPrecision, 0, FIXED_PITCH | FF_DONTCARE, lpszTTFaceName);
if (!hFont) goto E1;
hFontPrev = SelectObject(hDC, hFont);
if (!hFontPrev) goto E2;
if (GetTextExtentPoint32( hDC, szZero, 1, &sSize ))
{
dwHeightWidth = (sSize.cy << 16) | (sSize.cx & 0x00FF);
}
else
{
dwHeightWidth = 0;
}
if (!dwHeightWidth) goto E3;
if ( IsBilingualCP(CodePage) && (HIWORD(dwHeightWidth)%2) )
goto E3;
wsprintf(szBuf, szPercentDSpacePercentD, uWidth, uHeight);
idx = IsBilingualCP(CodePage) ? 0 : 1;
WriteIniWords(szTTCacheSection[idx], szBuf, (PWORD)&dwHeightWidth, 2, szSystemINI);
bpfdi = AddToFontListCache(hwndList, fListBox, uHeight, uWidth,
(UINT)sSize.cy, (UINT)sSize.cx,
CodePage);
E3: SelectObject(hDC, hFontPrev);
E2: DeleteObject(hFont);
E1: ReleaseDC(0, hDC);
E0: return bpfdi;
}
/** GetFont
* Returns the BPFDI corresponding to the currently selected font in
* the indicated list or combo box, or BPFDI_CANCEL on error.
* Entry:
* hwndList == handle to listbox or combo box to fill
* if NULL, then AUTO font calculation is assumed
* fListBox == TRUE if hwndList is a listbox, FALSE if a combo box
* pfi -> FNTINFO structure
* if pfi is NULL, then AUTO font calculation is ignored
* Returns:
* BPFDI of the current selection, or BPFDI_CANCEL on error.
*/
DWORD_PTR GetFont(HWND hwndList, BOOL fListBox, PFNTINFO pfi)
{
DWORD dwIndex = 0;
BPFDI bpfdi = BPFDI_CANCEL;
FunctionName(GetFont);
if (!hwndList) { // just do AUTO calculations
if (!pfi)
goto Exit; // whoops, can't even do those
goto ChooseBest;
}
dwIndex = lcbGetCurSel(hwndList, fListBox);
if (!IsDlgError(dwIndex)) {
if (pfi)
pfi->fntProposed.flFnt &= ~FNT_AUTOSIZE;
bpfdi = lcbGetBpfdi(hwndList, fListBox, dwIndex);
if (bpfdi == BPFDI_AUTO && pfi) {
pfi->fntProposed.flFnt |= FNT_AUTOSIZE;
ChooseBest:
bpfdi = ChooseBestFont((UINT)pfi->winOriginal.cxCells,
(UINT)pfi->winOriginal.cyCells,
(UINT)pfi->winOriginal.cxClient,
(UINT)pfi->winOriginal.cyClient,
(UINT)pfi->fntProposed.flFnt,
(INT)pfi->fntProposed.wCurrentCP);
}
// Set the index of the current selection (HIWORD
// of the return code) to LB_ERR if there's an error
if (bpfdi == BPFDI_CANCEL)
dwIndex = (DWORD)LB_ERR;
}
Exit:
if (!IsSpecialBpfdi(bpfdi))
{
bpfdi->Index = dwIndex;
}
return (DWORD_PTR)bpfdi;
}
/** SetFont
* Copies data from the given BPFDI to the given PROPFNT structure.
* Entry:
* lpFnt = pointer to PROPFNT structure
* bpfdi = based pointer to a FONTDIMENINFO structure;
* if a special BPFDI_* constant, no font info is changed
* Returns:
* Nothing
*/
void SetFont(LPPROPFNT lpFnt, BPFDI bpfdi)
{
FunctionName(SetFont);
if (!IsSpecialBpfdi(bpfdi)) {
lpFnt->flFnt &= ~(FNT_RASTER | FNT_TT);
if (bpfdi->fdiHeightReq == 0) {
/* Raster font */
lpFnt->flFnt |= FNT_RASTER;
lpFnt->cxFont = lpFnt->cxFontActual = (WORD) bpfdi->fdiWidthActual;
lpFnt->cyFont = lpFnt->cyFontActual = (WORD) bpfdi->fdiHeightActual;
} else {
/* TrueType font */
lpFnt->flFnt |= FNT_TT;
lpFnt->cxFont = (WORD) bpfdi->fdiWidthReq;
lpFnt->cyFont = (WORD) bpfdi->fdiHeightReq;
lpFnt->cxFontActual = (WORD) bpfdi->fdiWidthActual;
lpFnt->cyFontActual = (WORD) bpfdi->fdiHeightActual;
}
}
}
/* AspectScale
* Performs the following calculation in LONG arithmetic to avoid
* overflow:
* return = n1 * m / n2
* This can be used to make an aspect ration calculation where n1/n2
* is the aspect ratio and m is a known value. The return value will
* be the value that corresponds to m with the correct apsect ratio.
*/
// <This is defined as a macro for Win32 >
/* AspectPoint
* Scales a point to be preview-sized instead of screen-sized.
* Depends on the global vars cxScreen and cyScreen established at init.
*/
void AspectPoint(LPRECT lprcPreview, LPPOINT lppt)
{
FunctionName(AspectPoint);
lppt->x = AspectScale(lprcPreview->right, cxScreen, lppt->x);
lppt->y = AspectScale(lprcPreview->bottom, cyScreen, lppt->y);
}
/* AspectRect
* Scales a rectangle to be preview-sized instead of screen-sized.
* Depends on the global vars cxScreen and cyScreen established at init.
*/
void AspectRect(LPRECT lprcPreview, LPRECT lprc)
{
FunctionName(AspectRect);
AspectPoint(lprcPreview, &((LPPOINT)lprc)[0]); /* Upper left corner */
AspectPoint(lprcPreview, &((LPPOINT)lprc)[1]); /* Lower right corner */
}
/** CreateFontFromBpfdi
* Given a BPFDI, create a font that corresponds to it.
* Entry:
* bpfdi -> FDI describing the font we want to create
* pfi -> proposed font info structure
* Returns:
* HFONT that was created.
*/
HFONT CreateFontFromBpfdi(BPFDI bpfdi, PFNTINFO pfi)
{
HFONT hf;
int fdwClipPrecision;
BYTE bT2Charset;
FunctionName(CreateFontFromBpfdi);
// a hack for japanese charset
bT2Charset = (pfi->fntProposed.wCurrentCP == CP_JPN?
0xFE: OEMCharsetFromCP(pfi->fntProposed.wCurrentCP));
if (pfi->fntProposed.wCurrentCP == CP_US)
fdwClipPrecision = CLIP_DEFAULT_PRECIS|(g_uCodePage == CP_WANSUNG? CLIP_DFA_OVERRIDE: 0);
else
fdwClipPrecision = CLIP_DEFAULT_PRECIS;
if (bpfdi->fdiHeightReq == 0) {
/* Raster font */
hf = CreateFontA(bpfdi->fdiHeightActual, bpfdi->fdiWidthActual,
0, 0, 0, 0, 0, 0, (BYTE)OEMCharsetFromCP(pfi->fntProposed.wCurrentCP),
OUT_RASTER_PRECIS, fdwClipPrecision,
0, FIXED_PITCH | FF_DONTCARE, pfi->fntProposed.achRasterFaceName);
} else {
/* a TrueType font */
hf = CreateFontA(bpfdi->fdiHeightReq, bpfdi->fdiWidthReq,
0, 0, 0, 0, 0, 0, (BYTE)bT2Charset, OUT_TT_PRECIS, fdwClipPrecision,
0, FIXED_PITCH | FF_DONTCARE, pfi->fntProposed.achTTFaceName);
}
#ifdef DEBUG
{
/*
* In DEBUG, we double-check that the font really has the dimensions
* it's supposed to have.
*/
HDC hDC;
HFONT hFontPrev;
SIZE sSize;
hDC = GetDC(NULL); /* Get a screen DC */
if (!hDC) goto E0;
hFontPrev = SelectObject(hDC, hf);
if (!hFontPrev) goto E1;
if (!GetTextExtentPoint32( hDC, szZero, 1, &sSize ))
goto E3;
ASSERTTRUE((sSize.cy == (LONG)bpfdi->fdiHeightActual)
&&
(sSize.cx == (LONG)bpfdi->fdiWidthActual));
E3: SelectObject(hDC, hFontPrev);
E1: ReleaseDC(0, hDC);
E0: ;
}
#endif
return hf;
}
/** FontSelInit
* Obtain the various font selection penalties from SYSTEM.INI
* and force the values into range.
* Entry:
* rgwInitialTtHeights contains default values for sizes.
#ifdef CUSTOMIZABLE_HEURISTICS
* rgpnlPenalties contains default values for penalties.
* rgwAspectLimits contains default values for aspect ratio limits.
#endif
* Exit:
* rgwInitialTtHeights contains actual values for sizes.
#ifdef CUSTOMIZABLE_HEURISTICS
* rgpnlPenalties contains actual values for penalties, forced into range.
* rgwAspectLimits contains actual values for aspect ratio limits.
#endif
*/
void FontSelInit(void)
{
FunctionName(FontSelInit);
GetIniWords(szNonWinSection, szTTInitialSizes,
rgwInitialTtHeights, SIZEOF(rgwInitialTtHeights)/SIZEOF(WORD), szSystemINI);
// BUGBUG: since rgpnlPenlaties is no longer an array of WORDS, this
// won't work and will need to be changed if we turn back on "CUSTOMIZABLE_HEURISTICS"
#ifdef CUSTOMIZABLE_HEURISTICS
GetIniWords(szNonWinSection, szTTHeuristics,
rgpnlPenalties, SIZEOF(rgpnlPenalties)/SIZEOF(WORD), szSystemINI);
{
PINT pi;
for (pi = &rgpnlPenalties[0]; pi < &rgpnlPenalties[NUMPENALTIES]; ++pi) {
*pi = min(MAXPENALTY, max(MINPENALTY, *pi));
}
}
GetIniWords(szNonWinSection, szTTNonAspectMin, (PWORD)&ptNonAspectMin,
SIZEOF(ptNonAspectMin)/SIZEOF(WORD), szSystemINI);
#endif
}
/** GetTrueTypeFontTrueDimensions
* Convert logical dimensions for a TrueType font into physical
* dimensions. If possible, we get this information from the
* font dimension cache, but in the case where this is not possible,
* we synthesize the font and measure him directly.
* Entry:
* dxWidth = logical font width
* dyHeight = logical font height
* Returns:
* BPFDI pointing to dimension information, or BPFDI_CANCEL on failure.
*/
BPFDI GetTrueTypeFontTrueDimensions(UINT dxWidth, UINT dyHeight, INT CodePage)
{
IFDI ifdi;
BPFDI bpfdi;
int idx;
FunctionName(GetTrueTypeFontTrueDimensions);
idx = IsBilingualCP( CodePage )? 1 : 0;
for ( ifdi = 0, bpfdi = (BPFDI)((DWORD_PTR)lpCache + bpfdiStart[idx]);
ifdi < cfdiCache[idx]; ifdi++, bpfdi++ )
{
if (bpfdi->fdiWidthReq == dxWidth &&
bpfdi->fdiHeightReq == dyHeight) {
return bpfdi;
}
}
/*
* The font dimensions have not been cached. We have to create it.
*/
return (BPFDI)AddOneNewTrueTypeFontToFontListA(0, 0, dxWidth, dyHeight,
szTTFaceName[idx], CodePage);
}
/** FindFontMatch
* Look for a font that matches the indicated dimensions, creating
* one if necessary.
* But we never create a font which is too narrow or too short.
* The limits are controlled by the ptNonAspectMin variable.
* Entry:
* dxWidth = desired font width
* dyHeight = desired font height
* fPerfect = see below
* If fPerfect is TRUE, then a perfect match is requested
* from the font cache (we should not try to synthesize a font).
* In which case, the sign of dyHeight determines whether a
* raster font (positive) or TrueType font (negative) is
* desired. If a perfect match cannot be found, then we
* return BPFDI_CANCEL.
* Returns:
* BPFDI of of the font that matches the best.
* BPFDI_CANCEL if no font could be found.
*/
BPFDI FindFontMatch(UINT dxWidth, UINT dyHeight, LPINT lpfl, INT CodePage)
{
int fl;
IFDI ifdi;
BPFDI bpfdi;
BPFDI bpfdiBest = BPFDI_CANCEL;
PENALTY pnlBest = SENTINELPENALTY;
int idx;
FunctionName(FindFontMatch);
fl = *lpfl;
/*
* First, see if a perfect match already exists.
*/
idx = IsBilingualCP( CodePage ) ? 1 : 0;
for ( ifdi = 0, bpfdi = (BPFDI)((DWORD_PTR)lpCache+bpfdiStart[idx]);
ifdi < cfdiCache[idx]; ifdi++, bpfdi++ )
{
if (fl & FFM_RESTRICTED) {
/* Deal with the restrictions.
* Reject the font if it is raster but we want TTONLY, or v.v.
* The condition below reads as
* If (is a raster font != want a raster font)
*/
if (!bpfdi->fdiHeightReq != (fl == FFM_RASTERFONTS)) {
continue;
}
}
if (bpfdi->fdiHeightActual == dyHeight && bpfdi->fdiWidthActual == dxWidth) {
*lpfl = FFM_PERFECT;
return bpfdi;
} }
if (fl != FFM_TTFONTS)
return BPFDI_CANCEL;
/*
* We got here if we couldn't find a perfect match.
* Adjust the requested height and width for aspect ratio
* constraints. If adjustments are necessary, trust the height.
* Comparisons are as WORDs (unsigned) so that a setting of "-1 -1"
* lets the user forbid all non-aspect ratio fonts.
*/
if (dyHeight < (UINT)ptNonAspectMin.y || dxWidth < (UINT)ptNonAspectMin.x) {
dxWidth = 0;
}
return GetTrueTypeFontTrueDimensions(dxWidth, dyHeight, CodePage);
}
#ifdef FONT_INCDEC
/** IncrementFontSize
* The user wants to increment or decrement the font size.
* Inc and Dec only produce fonts at the standard aspect ratio.
* The font sizes are sorted lexicographically (height, then
* width); in other words, when searching for the next larger
* font, we first try to find a larger font of the same height
* but of greater width. Failing that, we choose the narrowest
* font available at the next larger height. (Reverse everything
* if you are decrementing, or if you are left-handed.)
* If TrueType fonts are allowed, then we will manually create
* a font of appropriate height before beginning the search.
* (But we will never create a font of height greater than
* MAX_FONT_HEIGHT.)
* Fonts which are fatter than they are tall are clearly
* mutants, and will be skipped by the search.
* Entry:
* dySearch == 1 (to increment) or -1 (to decrement)
* Exit:
* Returns BPFDI pointing to next larger or smaller font,
* or BPFDI_CANCEL if no such can be found.
* Notes:
* The Badness macro computes a value describing how well
* the font suits our needs. It produces a value greater
* than 0x7FFFFFFF if the font is completely unsuitable,
* and a value less than 0x7FFFFFFF if the font is okay.
* Smaller badness values are better.
* Badness takes advantage of two's-complement arithmetic.
* The extra -1 is so that a perfect match is rejected.
* cxFont and cyFont are passed in the order they are so
* that they can be converted into BaseSize by a single load.
*/
#define BaseSize() (MAKELONG(cxFont, cyFont))
#define NewSize(bpfdi) (MAKELONG((bpfdi)->fdiWidthActual, \
(bpfdi)->fdiHeightActual))
#define Badness(bpfdi) ((DWORD)((NewSize(bpfdi) - BaseSize()) * dySearch - 1))
#define IsTT(bpfdi) ((bpfdi)->fdiHeightReq)
#define IsRaster(bpfdi) (!IsTT(bpfdi)))
BPFDI IncrementFontSize(UINT cyFont, UINT cxFont, INT flFnt, INT CodePage)
{
BPFDI bpfdi;
DWORD dwBadness;
BPFDI bpfdiBest;
DWORD dwBadnessBest;
long dySearch = (flFnt & FNT_GROWTTFONT) ? 1 : -1;
WORD dyHeight;
WORD ifdi;
int idx;
FunctionName(IncrementFontSize);
/*
* If TrueType fonts are allowed, pre-compute some likely candidates.
* We keep creating bigger and bigger (or smaller and smaller) fonts
* until we find one that is bigger (smaller) than the one we started
* at, or until we run into one of the absolute limits on font size.
*/
if (flFnt & FNT_TTFONTS) {
for (dyHeight = cyFont; dyHeight > 0 && dyHeight <= MAX_FONT_HEIGHT;
dyHeight += (int)dySearch) {
bpfdi = GetTrueTypeFontTrueDimensions(0, dyHeight, CodePage);
if (IsSpecialBpfdi(bpfdi)) {
break; /* Oof, stop here. */
}
if ((NewSize(bpfdi) - BaseSize()) * dySearch > 0) {
break; /* Found a good one */
}
}
}
/*
* Okay, we've preloaded the TT fonts (if necessary). Now go
* find the lexicographically adjacent font.
*/
bpfdiBest = BPFDI_CANCEL; /* No winner found yet */
dwBadnessBest = (DWORD)0x7FFFFFFF; /* Bad but not awful */
idx = IsBilingualCP( CodePage ) ? 1 : 0;
for ( ifdi = 0, bpfdi = lpCache+bpfdiStart[idx]; ifdi < cfdiCache[idx]; ifdi++, bpfdi++ )
{
/*
* Make sure to reject fonts of the inappropriate type before
* considering them as new candidates.
*/
if (IsTT(bpfdi)) {
if (!(flFnt & FNT_TTFONTS)) continue;
} else {
if (!(flFnt & FNT_RASTERFONTS)) continue;
}
if (bpfdi->fdiWidthActual > bpfdi->fdiHeightActual) /* Mutant */
continue;
dwBadness = Badness(bpfdi);
if (dwBadness < dwBadnessBest) {
bpfdiBest = bpfdi; /* A new winner */
dwBadnessBest = dwBadness;
}
}
return bpfdiBest;
}
#endif
/** ComputePenaltyFromPair
* We have decided whether the desired size is larger or smaller.
* Compute the penalty corresponding to the Initial and Scale.
* Entry:
* ppnlp -> PENALTYPAIR to apply
* dSmaller = the smaller dimension
* dLarger = the larger dimension
* Exit:
* Returns penalty to apply to the difference in dimensions.
*/
PENALTY ComputePenaltyFromPair(PPENALTYPAIR ppnlp,
UINT dSmaller, UINT dLarger)
{
FunctionName(ComputePenaltyFromPair);
return (ppnlp->pnlInitial +
ppnlp->pnlScale - MulDiv(ppnlp->pnlScale, dSmaller, dLarger));
}
/** ComputePenaltyFromList
* Compute the penalty depending on whether the desired size
* is smaller, equal to, or larger than the actual size.
* Entry:
* ppnll -> PENALTYLIST to apply
* dActual = the actual dimension
* dDesired = the desired dimension
* Exit:
* Returns penalty to apply to the difference in dimensions,
* choosing between the Overshoot and Shortfall PENALTYPAIRS,
* accordingly.
*/
PENALTY ComputePenaltyFromList(PPENALTYLIST ppnll,
UINT dActual, UINT dDesired)
{
FunctionName(ConputePenaltyFromList);
if (dActual == dDesired)
return 0;
if (dActual < dDesired)
return ComputePenaltyFromPair(&ppnll->pnlpOvershoot, dActual, dDesired);
return ComputePenaltyFromPair(&ppnll->pnlpShortfall, dDesired, dActual);
}
/** ComputePenalty
* Compute the total penalty associated to a window size.
* Entry:
* dxCells = width of window in cells
* dyCells = height of window in cells
* dxClient = actual horizontal size of window
* dyClient = actual vertical size of window
* dxFont = width of one character in the font
* dyFont = height of one character in the font
* Exit:
* Returns total penalty associated to a window of the indicated
* size with a font of the indicated dimensions.
*/
PENALTY ComputePenalty(UINT cxCells, UINT cyCells,
UINT dxClient, UINT dyClient,
UINT dxFont, UINT dyFont)
{
FunctionName(ComputePenalty);
return
(ComputePenaltyFromList(&pnllX, dxClient, dxFont * cxCells) +
ComputePenaltyFromList(&pnllY, dyClient, dyFont * cyCells));
}
/** ChooseBestFont
* Determine which font looks best for the specified window size
* by picking the one which has the smallest penalty.
* Entry:
* dxCells = width of window in cells
* dyCells = height of window in cells
* dxClient= width of window we want to fit into
* dyClient= height of window we want to fit into
* fl = font pool flags
* Returns:
* Word offset from lpFontTable of the font we've decided to use.
* BPFDI_CANCEL if no font could be found. (Should never happen.)
* NOTE!
* We do *not* FontEnum through all the fonts because that would be
* too slow. Instead, we inspect the cache of available font
* dimensions, and only after we've chosen the best font do we
* load all his other info.
* This means that if the user installs new fonts, we won't see
* them until the cache is updated on receipt of a WM_FONTCHANGEff
* message, or the user either (1) pulls down the font list box,
* or (2) calls up the font selection dialog box.
*/
BPFDI ChooseBestFont(UINT cxCells, UINT cyCells, UINT dxClient, UINT dyClient,
INT fl, INT CodePage)
{
int flTemp;
DWORD ifdi;
BPFDI bpfdi;
PENALTY pnl;
UINT dxWidth, dyHeight;
BPFDI bpfdiBest = BPFDI_CANCEL;
PENALTY pnlBest = SENTINELPENALTY;
int idx;
static int prev_CodePage; // Only Japan is interested in prev_CodePage.
FunctionName(ChooseBestFont);
/*
* First, synthesize the theoretical best match.
*/
if (!cxCells)
cxCells = 80; // if we get called with no real data,
if (!cyCells) // at least try to do something reasonable
cyCells = 25;
// In the case where the values passed in don't make sense,
// we default to raster 8x12.
dxWidth = (dxClient >= cxCells)? dxClient / cxCells : 8;
dyHeight = (dyClient >= cyCells)? dyClient / cyCells : 12;
// Now, if we bad values, make some sense out of bad values for
// dxClient & dyClient
if ((dxClient==0) || (dyClient==0))
{
dxClient = dxWidth * 80;
dyClient = dyHeight * 25;
}
flTemp = 0;
if ((fl & FNT_BOTHFONTS) != FNT_BOTHFONTS) {
flTemp = FFM_RASTERFONTS;
if (fl & FNT_TTFONTS)
flTemp = FFM_TTFONTS;
}
bpfdi = FindFontMatch(dxWidth, dyHeight, &flTemp, CodePage);
if (flTemp == FFM_PERFECT)
{
prev_CodePage = CodePage;
return bpfdi;
}
idx = IsBilingualCP( CodePage )? 1 : 0;
for ( ifdi = 0, bpfdi = (BPFDI)((DWORD_PTR)lpCache+bpfdiStart[idx]);
ifdi < cfdiCache[idx]; ifdi++, bpfdi++ )
{
// If the font pool is restricted, then only look at like fonts
if (flTemp)
if (!bpfdi->fdiHeightReq != (flTemp == FFM_RASTERFONTS))
continue;
// was ifdef JAPAN (hack)
// to prevent DOS_BOX shrinking which occurs toggling CP437 & CP932,
// just select one size bigger font when change CP437 to CP932
if (CodePage == 932 && prev_CodePage == 437) {
if (dxWidth < bpfdi->fdiWidthActual) {
if (bpfdiBest->fdiWidthActual > bpfdi->fdiWidthActual)
bpfdiBest = bpfdi;
else if (bpfdiBest->fdiWidthActual == bpfdi->fdiWidthActual &&
bpfdiBest->fdiHeightActual > bpfdi->fdiHeightActual)
bpfdiBest = bpfdi;
}
else {
if (dxWidth == bpfdi->fdiWidthActual) {
if (bpfdi->fdiHeightActual > dyHeight &&
bpfdiBest->fdiHeightActual > bpfdi->fdiHeightActual)
bpfdiBest = bpfdi;
}
}
}
else
// was the end of ifdef JAPAN
{
pnl = 0;
if (bpfdi->fdiHeightReq)
pnl = pnlTrueType;
pnl += ComputePenalty(cxCells, cyCells,
dxClient, dyClient,
bpfdi->fdiWidthActual,
bpfdi->fdiHeightActual);
if (pnl <= pnlBest) {
pnlBest = pnl;
bpfdiBest = bpfdi;
}
}
}
// was ifdef JAPAN
prev_CodePage = CodePage;
// was end of ifdef JAPAN
return bpfdiBest;
}