windows-nt/Source/XPSP1/NT/base/mvdm/wow16/write/fontdlg.c

596 lines
15 KiB
C
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
/************************************************************/
/* Windows Write, Copyright 1985-1992 Microsoft Corporation */
/************************************************************/
/* Fontdlg.c -- WRITE font dialog routines */
#define NOVIRTUALKEYCODES
#define NOWINSTYLES
#define NOSYSMETRICS
#define NOMENUS
#define NOICON
#define NOKEYSTATE
#define NOSYSCOMMANDS
#define NORASTEROPS
#define NOSHOWWINDOW
#define NOATOM
#define NOBITMAP
#define NOBRUSH
#define NOCLIPBOARD
#define NOCOLOR
#define NOCREATESTRUCT
#define NODRAWTEXT
#define NOMEMMGR
#define NOMENUS
#define NOMETAFILE
#define NOMINMAX
#define NOMSG
#define NOOPENFILE
#define NOPEN
#define NOPOINT
#define NOREGION
#define NOSCROLL
#define NOSOUND
#define NOWH
#define NOWINOFFSETS
#define NOWNDCLASS
#define NOCOMM
#include <windows.h>
#include "mw.h"
#ifndef JAPAN //T-HIROYN Win3.1
#define NOUAC
#endif
#include "cmddefs.h"
#include "dlgdefs.h"
#include "propdefs.h"
#include "fontdefs.h"
#include "prmdefs.h"
#include "str.h"
#include "docdefs.h"
#include <commdlg.h>
#ifdef JAPAN //T-HIROYN Win3.1 and added 02 Jun. 1992 by Hiraisi
#include <dlgs.h>
#include <ctype.h>
#include "kanji.h"
BOOL FAR PASCAL _export DeleteFacename( HWND , UINT , WPARAM , LPARAM );
static BOOL NEAR PASCAL KanjiCheckAddSprm(HWND, int, int);
extern int ferror; //01/21/93
#elif defined(KOREA) // jinwoo : 10/14/92 : remove @Facename
#include <dlgs.h>
BOOL FAR PASCAL _export DeleteFacename( HWND , UINT , WPARAM , LPARAM );
#endif
extern HDC vhDCPrinter;
extern struct DOD (**hpdocdod)[];
extern HANDLE hMmwModInstance;
extern HANDLE hParentWw;
extern int vfSeeSel;
extern int docCur;
extern HWND vhWndMsgBoxParent;
extern int vfCursorVisible;
extern HCURSOR vhcArrow;
extern int iszSizeEnum;
extern int iszSizeEnumMac;
extern int iszSizeEnumMax;
extern int iffnEnum;
extern int vfFontEnumFail;
extern struct FFNTB **hffntbEnum;
BOOL NEAR FValidateEnumFfid(struct FFN *);
int FAR PASCAL NewFont(HWND hwnd)
{
TSV rgtsv[itsvchMax]; /* gets attributes and gray flags from CHP */
int ftc;
int fSetUndo;
CHAR rgb[2];
CHOOSEFONT cf;
LOGFONT lf;
HDC hdc;
#if defined(JAPAN) || defined(KOREA) // added 02 Jun. 1992 by Hiraisi : jinwoo 11/10/92
FARPROC lpfnDeleteFacename;
int Result;
#endif
if (!vhDCPrinter)
return FALSE;
GetRgtsvChpSel(rgtsv);
bltbc(&lf, 0, sizeof(LOGFONT));
bltbc(&cf, 0, sizeof(CHOOSEFONT));
cf.lStructSize = sizeof(cf);
cf.hwndOwner = hwnd;
cf.lpLogFont = &lf;
cf.hDC = vhDCPrinter;
cf.nSizeMin = 4;
cf.nSizeMax = 127;
#ifdef JAPAN //#3902 T-HIROYN
cf.Flags = CF_PRINTERFONTS | CF_INITTOLOGFONTSTRUCT | CF_LIMITSIZE;
#elif defined(KOREA) // MSCH bklee 01/26/95
cf.Flags = CF_NOSIMULATIONS| CF_PRINTERFONTS /*| CF_ANSIONLY*/ | CF_INITTOLOGFONTSTRUCT | CF_LIMITSIZE;
#else
cf.Flags = CF_NOSIMULATIONS| CF_PRINTERFONTS | CF_INITTOLOGFONTSTRUCT | CF_LIMITSIZE;
#endif
#if defined(JAPAN) || defined(KOREA) // added 02 Jun. 1992 by Hiraisi : jinwoo 11/10/92
cf.Flags |= CF_ENABLEHOOK;
lpfnDeleteFacename = MakeProcInstance( DeleteFacename, hMmwModInstance );
cf.lpfnHook = (FARPROC)lpfnDeleteFacename;
#endif
// check for multiple sizes selected
if (rgtsv[itsvSize].fGray) {
cf.Flags |= CF_NOSIZESEL;
} else {
hdc = GetDC(NULL);
lf.lfHeight = -MulDiv(rgtsv[itsvSize].wTsv / 2, GetDeviceCaps(hdc, LOGPIXELSY), 72);
ReleaseDC(NULL, hdc);
}
// check for multiple faces selected
if (rgtsv[itsvFfn].fGray) {
cf.Flags |= CF_NOFACESEL;
lf.lfFaceName[0] = 0;
} else {
struct FFN **hffn;
/* then, font name */
/* note that the value stored in rgtsv[itsvFfn].wTsv
is the font name handle, rather than the ftc */
hffn = (struct FFN **)rgtsv[itsvFfn].wTsv;
lstrcpy(lf.lfFaceName, (*hffn)->szFfn);
}
// check for multiple styles selected
if (rgtsv[itsvBold].fGray || rgtsv[itsvItalic].fGray) {
cf.Flags |= CF_NOSTYLESEL;
} else {
lf.lfWeight = rgtsv[itsvBold].wTsv ? FW_BOLD : FW_NORMAL;
lf.lfItalic = rgtsv[itsvItalic].wTsv;
}
#if defined(JAPAN) || defined(KOREA) // added 02 Jun. 1992 by Hiraisi : jinwoo 11/10/92
Result = ChooseFont(&cf);
FreeProcInstance( lpfnDeleteFacename );
if (!Result)
return FALSE;
#else
if (!ChooseFont(&cf))
return FALSE;
#endif // JAPAN
fSetUndo = TRUE;
if (!(cf.Flags & CF_NOFACESEL))
{
CHAR rgbFfn[ibFfnMax];
struct FFN *pffn = (struct FFN *)rgbFfn;
lstrcpy(pffn->szFfn, lf.lfFaceName);
pffn->ffid = lf.lfPitchAndFamily & grpbitFamily;
pffn->chs = lf.lfCharSet;
FValidateEnumFfid(pffn);
ftc = FtcChkDocFfn(docCur, pffn);
if (ftc != ftcNil) {
#ifdef JAPAN //T-HIROYN Win3.1
if ( pffn->chs == NATIVE_CHARSET ||
FALSE == KanjiCheckAddSprm(hwnd, ftc, fSetUndo) ) {
rgb[0] = sprmCFtc;
rgb[1] = ftc;
AddOneSprm(rgb, fSetUndo);
}
fSetUndo = FALSE;
if(ferror) //01/21/93
return TRUE;
#else
rgb[0] = sprmCFtc;
rgb[1] = ftc;
AddOneSprm(rgb, fSetUndo);
#ifdef KKBUGFIX
// when font name was changed we can't undo
fSetUndo = FALSE;
#endif
#endif
}
}
if (!(cf.Flags & CF_NOSIZESEL)) {
/* we got a value */
rgb[0] = sprmCHps;
rgb[1] = cf.iPointSize / 10 * 2; /* KLUDGE alert */
AddOneSprm(rgb, fSetUndo);
fSetUndo = FALSE;
}
if (!(cf.Flags & CF_NOSTYLESEL)) {
#ifdef KKBUGFIX //T-HIROYN Win3.1
// when font name was changed we can't undo
ApplyCLooksUndo(sprmCBold, lf.lfWeight > FW_NORMAL, fSetUndo);
fSetUndo = FALSE;
ApplyCLooksUndo(sprmCItalic, lf.lfItalic ? 1 : 0, fSetUndo);
#else
ApplyCLooks(0, sprmCBold, lf.lfWeight > FW_NORMAL);
ApplyCLooks(0, sprmCItalic, lf.lfItalic ? 1 : 0);
#endif
}
return TRUE;
}
BOOL NEAR FValidateEnumFfid(pffn)
/* if the described ffn is in the enumeration table, then make sure we have
a good family number for it */
struct FFN *pffn;
{
int ftc;
struct FFN *pffnAlready;
ftc = FtcScanFfn(hffntbEnum, pffn);
if (ftc != ftcNil)
{
pffnAlready = *((*hffntbEnum)->mpftchffn[ftc]);
#ifdef JAPAN
// Few fonts would be enumnrated with FF_DONTCARE in JAPAN
// we won't check ffid here.
#else
if (pffnAlready->ffid != FF_DONTCARE)
#endif
{
pffn->ffid = pffnAlready->ffid;
#ifdef NEWFONTENUM
pffn->chs = pffnAlready->chs;
#endif
return(TRUE);
}
}
return(FALSE);
}
#ifdef JAPAN //T-HIROYN Win3.1
/* When you want to change font name,
if include japanese string in select string
then don't change only japanese string
but change alpha string
*/
extern CHAR szAppName[];
extern struct SEL selCur;
extern struct CHP vchpFetch;
extern int vcchFetch;
extern int vccpFetch;
extern CHAR *vpchFetch;
extern typeCP vcpFetch;
BOOL FontChangeDBCS = FALSE; //01/21/93
static BOOL NEAR PASCAL KanjiCheckAddSprm(hwnd, alphaftc, fSetUndo)
HWND hwnd;
int alphaftc; //Not KANJI_CHARSET
int fSetUndo;
{
typeCP CpLimNoSpaces(typeCP, typeCP);
static BOOL NEAR KanjiCheckSelect();
static BOOL NEAR PASCAL GetSelCur(typeCP *, typeCP *, typeCP);
CHAR rgb[2];
struct SEL selSave;
typeCP cpLim, cpFirst, dcp, cpSt, cpEnd;
if (selCur.cpFirst == selCur.cpLim)
return(FALSE);
/* include japanese string ? */
if( KanjiCheckSelect() ) { // Yes
char szMsg[cchMaxSz];
PchFillPchId( szMsg, IDPMTNotKanjiFont, sizeof(szMsg) );
MessageBox(hwnd, (LPSTR)szMsg, (LPSTR)szAppName,
MB_OK | MB_ICONEXCLAMATION);
}
else
return(FALSE);
selSave = selCur;
cpLim = CpLimNoSpaces(selCur.cpFirst, selCur.cpLim);
cpFirst = selCur.cpFirst;
dcp = cpLim - cpFirst;
if (fSetUndo) {
SetUndo(uacReplNS, docCur, cpFirst, dcp, docNil, cpNil, dcp, 0);
fSetUndo = FALSE;
}
cpEnd = cpFirst;
FontChangeDBCS = TRUE; //01/21/93
while(TRUE) {
cpSt = cpEnd;
if( FALSE == GetSelCur(&cpSt, &cpEnd, cpLim))
break;
rgb[0] = sprmCFtc;
rgb[1] = alphaftc;
selCur.cpFirst = cpSt;
selCur.cpLim = cpEnd;
AddOneSprm(rgb, fSetUndo);
if (ferror) //01/21/93
break;
}
FontChangeDBCS = FALSE; //01/21/93
if(ferror) { //01/21/93
vfSeeSel = TRUE;
selCur.cpFirst = selCur.cpLim = cpSt;
} else {
selCur = selSave;
}
return(TRUE);
}
static BOOL NEAR PASCAL GetSelCur(cpSt,cpEnd,cpLim)
typeCP *cpSt, *cpEnd, cpLim;
{
static BOOL NEAR PASCAL GetSelCurStart(typeCP *, typeCP);
static void NEAR PASCAL GetSelCurEnd(typeCP *,typeCP *, typeCP);
if(FALSE == GetSelCurStart(cpSt,cpLim))
return(FALSE);
GetSelCurEnd(cpSt,cpEnd,cpLim);
return(TRUE);
}
static BOOL NEAR PASCAL GetSelCurStart(cpSt,cpLim)
typeCP *cpSt, cpLim;
{
int cch;
CHAR *cp;
CHAR ch;
BOOL DBCSbundan = FALSE; // 02/12/93 bug fix
if(*cpSt == cpLim)
return(FALSE);
FetchCp(docCur, *cpSt, 0, fcmChars);
while(TRUE) {
for(cch = 0,cp = vpchFetch; cch < vccpFetch; cch++,cp++) {
if((vcpFetch + (typeCP)cch) >= cpLim)
return(FALSE);
ch = *cp;
if( FKana(ch))
;
else if( IsDBCSLeadByte(ch) ) {
cp++; cch++;
if(cch >= vccpFetch) { // 02/12/93 bug fix
DBCSbundan = TRUE;
break;
}
} else if (isprint(ch)) {
*cpSt = vcpFetch + (typeCP)cch;
return(TRUE);
}
}
if((vcpFetch + (typeCP)cch) >= cpLim)
return(FALSE);
if(DBCSbundan) { // 02/12/93 bug fix
FetchCp(docCur, vcpFetch + (typeCP)(cch+1), 0, fcmChars);
DBCSbundan = FALSE;
} else
FetchCp(docNil, cpNil, 0, fcmChars);
}
}
static void NEAR PASCAL GetSelCurEnd(cpSt,cpEnd,cpLim)
typeCP *cpSt, *cpEnd, cpLim;
{
int cch;
CHAR *cp;
CHAR ch;
FetchCp(docCur, *cpSt, 0, fcmChars);
while(TRUE) {
for(cch = 0,cp = vpchFetch; cch < vccpFetch; cch++,cp++) {
if((vcpFetch + (typeCP)cch) >= cpLim) {
*cpEnd = cpLim;
return;
}
ch = *cp;
if( FKana(ch) || IsDBCSLeadByte(ch) ) {
*cpEnd = vcpFetch + (typeCP)cch;
return;
}
}
if((vcpFetch + (typeCP)cch) >= cpLim) {
*cpEnd = cpLim;
return;
}
FetchCp(docNil, cpNil, 0, fcmChars);
}
}
static BOOL NEAR KanjiCheckSelect()
{
typeCP CpLimNoSpaces(typeCP, typeCP);
typeCP cpLim;
CHAR *cp;
CHAR ch;
int cch;
cpLim = CpLimNoSpaces(selCur.cpFirst, selCur.cpLim);
// FetchCp(docCur, selCur.cpFirst, 0, fcmChars);
FetchCp(docCur, selCur.cpFirst, 0,fcmBoth + fcmParseCaps);
while(TRUE) {
if(NATIVE_CHARSET == GetCharSetFromChp(&vchpFetch)) {
for(cch = 0,cp = vpchFetch; cch < vccpFetch; cch++,cp++) {
if((vcpFetch + (typeCP)cch) >= cpLim)
return(FALSE);
ch = *cp;
if( FKana(ch) || IsDBCSLeadByte(ch) ) {
return(TRUE);
}
}
}
if((vcpFetch + (typeCP)vccpFetch) >= cpLim)
return(FALSE);
FetchCp(docNil, cpNil, 0, fcmBoth + fcmParseCaps);
}
}
int FAR PASCAL GetKanjiStringLen(cch, cchF, cp)
int cch, cchF;
CHAR *cp;
{
int cblen = 0;
for (; cch+cblen < cchF; cp++ ){
if( FKana(*cp) )
cblen++;
else if( IsDBCSLeadByte(*cp) ) {
cblen += 2;
cp++;
} else
break;
}
return(cblen);
}
int FAR PASCAL GetAlphaStringLen(cch, cchF, cp)
int cch, cchF;
CHAR *cp;
{
int cblen = 0;
for (; cch+cblen < cchF; cp++ ) {
if( FKana(*cp) || IsDBCSLeadByte(*cp))
break;
else
cblen++;
}
return(cblen);
}
// 02/15/93 add T-HIROYN 2 function
int FAR PASCAL GetFtcFromPchp(pchp)
struct CHP *pchp;
{
int ftc;
ftc = pchp->ftc + (pchp->ftcXtra << 6);
return ftc;
}
int FAR PASCAL SetFtcToPchp(pchp, ftc)
struct CHP *pchp;
int ftc;
{
pchp->ftc = ftc & 0x003f;
pchp->ftcXtra = (ftc & 0x00c0) >> 6;
}
// added 02 Jun. 1992 by Hiraisi
/*
* This function deletes facename(s) with @-prefix
* from FONT combobox(cmb1) of the CHOOSEFONT dialog.
*/
BOOL FAR PASCAL _export DeleteFacename( hDlg, uMsg, wParam, lParam )
HWND hDlg;
UINT uMsg;
WPARAM wParam;
LPARAM lParam;
{
char str[50], sel[50];
int ix;
int cnt;
if( uMsg != WM_INITDIALOG )
return FALSE;
cnt = (int)SendDlgItemMessage( hDlg, cmb1, CB_GETCOUNT, 0, 0L );
ix = (int)SendDlgItemMessage( hDlg, cmb1, CB_GETCURSEL, 0, 0L );
SendDlgItemMessage( hDlg, cmb1, CB_GETLBTEXT, ix, (DWORD)sel );
for( ix = 0 ; ix < cnt ; ){
SendDlgItemMessage( hDlg, cmb1, CB_GETLBTEXT, ix, (DWORD)str );
if( str[0] == '@' )
cnt = (int)SendDlgItemMessage( hDlg,cmb1,CB_DELETESTRING,ix,NULL );
else
ix++;
}
ix = (int)SendDlgItemMessage( hDlg, cmb1, CB_FINDSTRING, -1, (DWORD)sel );
SendDlgItemMessage( hDlg, cmb1, CB_SETCURSEL, ix, 0L );
return TRUE;
}
#elif defined(KOREA) // jinwoo : 10/14/92
// added 02 Jun. 1992 by Hiraisi
/*
* This function deletes facename(s) with @-prefix
* from FONT combobox(cmb1) of the CHOOSEFONT dialog.
*/
BOOL FAR PASCAL _export DeleteFacename( hDlg, uMsg, wParam, lParam )
HWND hDlg;
UINT uMsg;
WPARAM wParam;
LPARAM lParam;
{
char str[50], sel[50];
int ix;
int cnt;
if( uMsg != WM_INITDIALOG )
return FALSE;
cnt = (int)SendDlgItemMessage( hDlg, cmb1, CB_GETCOUNT, 0, 0L );
ix = (int)SendDlgItemMessage( hDlg, cmb1, CB_GETCURSEL, 0, 0L );
SendDlgItemMessage( hDlg, cmb1, CB_GETLBTEXT, ix, (DWORD)sel );
for( ix = 0 ; ix < cnt ; ){
SendDlgItemMessage( hDlg, cmb1, CB_GETLBTEXT, ix, (DWORD)str );
if( str[0] == '@' )
cnt = (int)SendDlgItemMessage( hDlg,cmb1,CB_DELETESTRING,ix,NULL );
else
ix++;
}
ix = (int)SendDlgItemMessage( hDlg, cmb1, CB_FINDSTRING, -1, (DWORD)sel );
SendDlgItemMessage( hDlg, cmb1, CB_SETCURSEL, ix, 0L );
return TRUE;
}
#endif