/************************************************************/
/* Windows Write, Copyright 1985-1992 Microsoft Corporation */
/************************************************************/
#define NOGDICAPMASKS
#define NOVIRTUALKEYCODES
#define NOWINSTYLES
#define NOSYSMETRICS
#define NOICON
#define NOKEYSTATE
#define NOSYSCOMMANDS
#define NOSHOWWINDOW
#define NOATOM
#define NOGDI
#define NOFONT
#define NOBRUSH
#define NOCLIPBOARD
#define NOCOLOR
#define NOCREATESTRUCT
#define NODRAWTEXT
#define NOMB
#define NOMEMMGR
#define NOMETAFILE
#define NOMINMAX
#define NOOPENFILE
#define NOPEN
#define NOREGION
#define NOSCROLL
#define NOSOUND
#define NOTEXTMETRIC
#define NOWH
#define NOWINOFFSETS
#define NOWNDCLASS
#define NOCOMM
#include <windows.h>
#include "mw.h"
#include "dlgdefs.h"
#include "cmddefs.h"
#include "propdefs.h"
#include "docdefs.h"
#include "str.h"
#include "printdef.h"
extern HCURSOR vhcArrow;
extern int vfCursorVisible;
extern int utCur; /* current conversion unit */
BOOL far PASCAL DialogTabs(hDlg, message, wParam, lParam)
HWND hDlg;
unsigned message;
WORD wParam;
LONG lParam;
{
/* This routine handles input to the Tabs dialog box. */
extern struct DOD (**hpdocdod)[];
extern int docCur;
extern int vdocParaCache;
extern HWND vhWndMsgBoxParent;
extern int ferror;
struct TBD (**hgtbd)[];
int idi;
switch (message)
{
case WM_INITDIALOG:
/* Disable modeless dialog boxes. */
EnableOtherModeless(FALSE);
/* Set up the fields for each of the tabs. */
hgtbd = (**hpdocdod)[docCur].hgtbd;
if (hgtbd != NULL)
{
struct TBD *ptbd;
unsigned dxa;
CHAR szT[cchMaxNum];
CHAR *pch;
for (ptbd = &(**hgtbd)[0], idi = idiTabPos0; (dxa = ptbd->dxa) != 0;
ptbd++, idi++)
{
pch = &szT[0];
CchExpZa(&pch, dxa, utCur, cchMaxNum);
SetDlgItemText(hDlg, idi, (LPSTR)szT);
CheckDlgButton(hDlg, idi + (idiTabDec0 - idiTabPos0), ptbd->jc
== (jcTabDecimal - jcTabMin));
}
}
break;
case WM_SETVISIBLE:
if (wParam)
EndLongOp(vhcArrow);
return(FALSE);
case WM_ACTIVATE:
if (wParam)
{
vhWndMsgBoxParent = hDlg;
}
if (vfCursorVisible)
ShowCursor(wParam);
return(FALSE); /* so that we leave the activate message to
the dialog manager to take care of setting the focus correctly */
case WM_COMMAND:
switch (wParam)
{
struct TBD rgtbd[itbdMax];
struct TBD *ptbdLast;
case idiOk:
/* Sort the new tab descriptors. */
bltc(rgtbd, 0, itbdMax * cwTBD);
ptbdLast = &rgtbd[itbdMax - 1];
for (idi = idiTabPos0; idi <= idiTabPos11; idi++)
{
unsigned dxa;
unsigned dxaTab;
struct TBD *ptbd;
/* If an invalid position was entered, then punt. */
if (!FPdxaPosBIt(&dxa, hDlg, idi))
{
ferror = FALSE;
return (TRUE);
}
/* Ignore blank tabs or tabs at zero. */
if (dxa == valNil || dxa == 0)
{
continue;
}
for (ptbd = &rgtbd[0]; (dxaTab = ptbd->dxa) != 0; ptbd++)
{
/* If there is already a tab at this position, then ignore
the new tab. */
if (dxa == dxaTab)
{
goto GetNextTab;
}
/* If the new tab position is smaller than the current tab,
then make room for the new tab. */
if (dxa < dxaTab)
{
bltbyte(ptbd, ptbd + 1, (unsigned)ptbdLast - (unsigned)ptbd);
break;
}
}
/* Put the tab into rgtbd. */
ptbd->dxa = dxa;
ptbd->jc = (IsDlgButtonChecked(hDlg, idi + (idiTabDec0 -
idiTabPos0)) ? jcTabDecimal : jcTabLeft) - jcTabMin;
GetNextTab:;
}
/* Set up the undo stuff. */
SetUndo(uacFormatTabs, docCur, cp0, cp0, docNil, cpNil, cpNil, 0);
/* Ensure that this document has a tab-stop table. */
if ((hgtbd = (**hpdocdod)[docCur].hgtbd) == NULL)
{
if (FNoHeap(hgtbd = (struct TBD (**)[])HAllocate(itbdMax *
cwTBD)))
{
goto DestroyDlg;
}
(**hpdocdod)[docCur].hgtbd = hgtbd;
}
blt(rgtbd, &(**hgtbd)[0], itbdMax * cwTBD);
/* Changing the tabs makes everything dirty. */
(**hpdocdod)[docCur].fDirty = TRUE;
vdocParaCache = docNil;
TrashAllWws();
case idiCancel:
DestroyDlg:
/* Destroy the tabs dialog box and enable any existing modeless
dialog boxes.*/
OurEndDialog(hDlg, NULL);
break;
case idiTabClearAll:
/* Clear all of the tabs. */
for (idi = idiTabPos0; idi <= idiTabPos11; idi++)
{
SetDlgItemText(hDlg, idi, (LPSTR)"");
CheckDlgButton(hDlg, idi + (idiTabDec0 - idiTabPos0), FALSE);
}
break;
case idiTabDec0:
case idiTabDec1:
case idiTabDec2:
case idiTabDec3:
case idiTabDec4:
case idiTabDec5:
case idiTabDec6:
case idiTabDec7:
case idiTabDec8:
case idiTabDec9:
case idiTabDec10:
case idiTabDec11:
CheckDlgButton(hDlg, wParam, !IsDlgButtonChecked(hDlg, wParam));
break;
default:
return(FALSE);
}
break;
case WM_CLOSE:
goto DestroyDlg;
default:
return(FALSE);
}
return(TRUE);
}
/* end of DialogTabs */
BOOL far PASCAL DialogDivision(hDlg, message, wParam, lParam)
HWND hDlg;
unsigned message;
WORD wParam;
LONG lParam;
{
/* This routine handles input to the Division dialog box. */
extern struct DOD (**hpdocdod)[];
extern int docCur;
extern struct SEP vsepNormal;
extern int vdocSectCache;
extern BOOL vfPrinterValid;
extern int dxaPrOffset;
extern int dyaPrOffset;
extern int dxaPrPage;
extern int dyaPrPage;
extern HWND vhWndMsgBoxParent;
extern typeCP cpMinDocument;
extern int ferror;
struct SEP **hsep = (**hpdocdod)[docCur].hsep;
register struct SEP *psep;
CHAR szT[cchMaxNum];
CHAR *pch = &szT[0];
#ifdef KINTL /* Kanji/International version */
static int iRBDown;
static int utInit;
#endif
switch (message)
{
case WM_INITDIALOG:
#ifdef KINTL /* Kanji/International version */
/* base initial setting on value in utCur */
utInit = utCur; /* for testing at ok */
if (utCur == utCm)
iRBDown = idiDivCm;
else
iRBDown = idiDivInch;
CheckDlgButton(hDlg, iRBDown, TRUE);
#endif
EnableOtherModeless(FALSE);
/* Get a pointer to the section properties. */
psep = (hsep == NULL) ? &vsepNormal : *hsep;
/* Initialize the starting page number. */
if (psep->pgnStart != pgnNil)
{
szT[ncvtu(psep->pgnStart, &pch)] = '\0';
SetDlgItemText(hDlg, idiDivPNStart, (LPSTR)szT);
pch = &szT[0];
}
else
{
SetDlgItemText(hDlg, idiDivPNStart, (LPSTR)"1");
}
SelectIdiText(hDlg, idiDivPNStart);
/* Initialize the margins. */
#ifdef DMARGINS
CommSzNum("Left Twips: ", psep->xaLeft);
CommSzNum("Right Twips: ", psep->xaMac - psep->dxaText - psep->xaLeft);
CommSzNum("Top Twips: ", psep->yaTop);
CommSzNum("Bottom Twips: ", psep->yaMac - psep->dyaText - psep->yaTop);
#endif /* DEBUG */
#ifdef KOREA
if (vfPrinterValid)
CchExpZa(&pch, imax(psep->xaLeft, dxaPrOffset), utCur,cchMaxNum);
else
CchExpZa(&pch, psep->xaLeft, utCur, cchMaxNum);
#else
CchExpZa(&pch, psep->xaLeft, utCur, cchMaxNum);
#endif
SetDlgItemText(hDlg, idiDivLMarg, (LPSTR)szT);
pch = &szT[0];
#ifdef KOREA /* 90.12.29 sangl */
if ( vfPrinterValid )
CchExpZa (&pch, imax(psep->xaMac - psep->dxaText - psep->xaLeft,
vsepNormal.xaMac - dxaPrOffset - dxaPrPage), utCur, cchMaxNum);
else
CchExpZa(&pch, psep->xaMac - psep->dxaText - psep->xaLeft, utCur,
cchMaxNum);
#else
CchExpZa(&pch, psep->xaMac - psep->dxaText - psep->xaLeft, utCur,
cchMaxNum);
#endif
SetDlgItemText(hDlg, idiDivRMarg, (LPSTR)szT);
pch = &szT[0];
#ifdef KOREA /* 90.12.29 sangl */
if (vfPrinterValid)
CchExpZa(&pch, imax( psep->yaTop, dyaPrOffset), utCur, cchMaxNum);
else
CchExpZa(&pch, psep->yaTop, utCur, cchMaxNum);
#else
CchExpZa(&pch, psep->yaTop, utCur, cchMaxNum);
#endif
SetDlgItemText(hDlg, idiDivTMarg, (LPSTR)szT);
pch = &szT[0];
#ifdef KOREA /* 90.12.29 sangl */
if (vfPrinterValid)
CchExpZa(&pch, imax(psep->yaMac - psep->dyaText - psep->yaTop,
vsepNormal.yaMac - dyaPrOffset - dyaPrPage), utCur, cchMaxNum);
else
CchExpZa(&pch, psep->yaMac - psep->dyaText - psep->yaTop, utCur,
cchMaxNum);
#else
CchExpZa(&pch, psep->yaMac - psep->dyaText - psep->yaTop, utCur,
cchMaxNum);
#endif
SetDlgItemText(hDlg, idiDivBMarg, (LPSTR)szT);
break;
case WM_SETVISIBLE:
if (wParam)
EndLongOp(vhcArrow);
return(FALSE);
case WM_ACTIVATE:
if (wParam)
{
vhWndMsgBoxParent = hDlg;
}
if (vfCursorVisible)
ShowCursor(wParam);
return(FALSE); /* so that we leave the activate message to
the dialog manager to take care of setting the focus correctly */
case WM_COMMAND:
switch (wParam)
{
int pgn;
int iza;
int za[4];
int zaMin[4];
int dza;
int *pza;
int dxaMax;
int dyaMax;
case idiOk:
/* Is the page number valid? */
if (!WPwFromItW3Id(&pgn, hDlg, idiDivPNStart, pgnMin, pgnMax,
wNormal, IDPMTNPI))
{
ferror = FALSE; /* minor error, stay in dialog */
break;
}
/* Determine the minimum margins of the page. */
if (vfPrinterValid)
{
zaMin[0] = dxaPrOffset;
zaMin[1] = imax(0, vsepNormal.xaMac - dxaPrOffset - dxaPrPage);
zaMin[2] = dyaPrOffset;
zaMin[3] = imax(0, vsepNormal.yaMac - dyaPrOffset - dyaPrPage);
}
else
{
zaMin[0] = zaMin[1] = zaMin[2] = zaMin[3] = 0;
}
/* Are the margins valid? */
for (iza = 0; iza < 4; iza++)
{
/* Is the margin a positive measurement? */
if (!FPdxaPosIt(&za[iza], hDlg, iza + idiDivLMarg
))
{
ferror = FALSE; /* minor error, stay in dialog */
return (TRUE);
}
/* Is it less than the minimum? */
if (FUserZaLessThanZa(za[iza], zaMin[iza]))
{
ErrorBadMargins(hDlg, zaMin[0], zaMin[1], zaMin[2],
zaMin[3]);
SelectIdiText(hDlg, iza + idiDivLMarg);
SetFocus(GetDlgItem(hDlg, iza + idiDivLMarg));
return (TRUE);
}
}
#ifdef DMARGINS
CommSzNum("New Left Twips: ", za[0]);
CommSzNum("New Right Twips: ", za[1]);
CommSzNum("New Top Twips: ", za[2]);
CommSzNum("New Bottom Twips: ", za[3]);
#endif /* DEBUG */
/* Ensure that this document has a valid section property
descriptor. */
if (hsep == NULL)
{
if (FNoHeap(hsep = (struct SEP **)HAllocate(cwSEP)))
{
goto DestroyDlg;
}
blt(&vsepNormal, *hsep, cwSEP);
(**hpdocdod)[docCur].hsep = hsep;
}
psep = *hsep;
/* Are the combined margins longer or wider than the page? */
pza = &za[0];
dxaMax = psep->xaMac - dxaMinUseful;
dyaMax = psep->yaMac - dyaMinUseful;
if ((dza = *pza) > dxaMax || (dza += *(++pza)) > dxaMax ||
(dza = *(++pza)) > dyaMax || (dza += *(++pza)) > dyaMax)
{
Error(IDPMTMTL);
ferror = FALSE; /* minor error, stay in dialog */
SelectIdiText(hDlg, (int)(idiDivLMarg + (pza - &za[0])));
SetFocus(GetDlgItem(hDlg, (int)(idiDivLMarg + (pza - &za[0]))));
return (FALSE);
}
/* If the margins have changed, then set the new values. */
if (psep->pgnStart != pgn || psep->xaLeft != za[0] || psep->dxaText
!= psep->xaMac - za[0] - za[1] || psep->yaTop != za[2] ||
psep->dyaText != psep->yaMac - za[2] - za[3])
{
/* Set up the undo stuff. */
SetUndo(uacFormatSection, docCur, cp0, cp0, docNil, cpNil,
cpNil, 0);
/* Reset psep in case some heap movement has taken place. */
psep = *hsep;
if (psep->pgnStart != pgn)
{
/* Renumber the page table. */
extern int docMode;
register struct PGTB **hpgtb = (**hpdocdod)[docCur].hpgtb;
register struct PGD *ppgd;
int ipgd;
int cpgdMac;
/* Initialize page table if it does not already exist. */
if (hpgtb == NULL)
{
if (FNoHeap(hpgtb =
(struct PGTB **)HAllocate(cwPgtbBase + cpgdChunk *
cwPGD)))
{
NoUndo();
return(TRUE);
}
(**hpgtb).cpgdMax = cpgdChunk;
(**hpgtb).cpgd = 1;
(**hpgtb).rgpgd[0].cpMin = cpMinDocument;
/* Reset psep because of heap movement. */
psep = *hsep;
}
/* Save the starting page number in the section properties.
*/
psep->pgnStart = pgn;
/* Update the page table with the new starting page number.
*/
for (ipgd = 0, cpgdMac = (**hpgtb).cpgd, ppgd =
&((**hpgtb).rgpgd[0]) ; ipgd < cpgdMac; ipgd++, ppgd++)
{
ppgd->pgn = pgn++;
}
/* Force the page info window to be repainted. */
docMode = docNil;
}
/* Set the new section properties. */
psep->dxaText = psep->xaMac - (psep->xaLeft = za[0]) - za[1];
psep->dyaText = psep->yaMac - (psep->yaTop = za[2]) - za[3];
/* Invalidate the section cache. */
vdocSectCache = docNil;
TrashAllWws();
/* Mark the document as dirty. */
(**hpdocdod)[docCur].fDirty = TRUE;
}
#ifdef KINTL /* Kanji/International version */
/* redraw ruler if visible and units changed */
if (utInit != utCur) {
ReframeRuler();
}
#endif
goto DestroyDlg;
case idiCancel:
#ifdef KINTL /* International version */
utCur = utInit; /* restore units at actual cancel */
#endif /* KINTL */
DestroyDlg:
OurEndDialog(hDlg, TRUE);
break;
#ifdef KINTL /* International version */
{
int margin;
/* Maximum number of characters in the edit control */
#define cchMaxEditText 64
case idiDivInch:
utCur = utInch;
goto SetUnits;
case idiDivCm:
utCur = utCm;
/* measurment button fall into this code */
SetUnits:
/* set up buttons appropriately */
#ifdef INTL
CheckRadioButton(hDlg, idiDivInch, idiDivCm, wParam);
#else /* KANJI */
CheckRadioButton(hDlg, idiDivInch, idiDivCch, wParam);
#endif
if (wParam != iRBDown) {
/* reevaluate margin values based on new units */
iRBDown = wParam;
/* want most recently entered value from screen into
twips, then convert using current unit scale */
szT[0] = GetDlgItemText(hDlg, idiDivLMarg,
(LPSTR) &szT[1], cchMaxNum);
if (FZaFromSs (&margin, szT+1, *szT, utCur))
{
pch = &szT[0];
CchExpZa(&pch, margin, utCur, cchMaxNum);
SetDlgItemText(hDlg, idiDivLMarg, (LPSTR)szT);
}
szT[0] = GetDlgItemText(hDlg, idiDivRMarg,
(LPSTR) &szT[1], cchMaxNum);
if (FZaFromSs (&margin, szT+1, *szT, utCur))
{
pch = &szT[0];
CchExpZa(&pch, margin, utCur, cchMaxNum);
SetDlgItemText(hDlg, idiDivRMarg, (LPSTR)szT);
}
szT[0] = GetDlgItemText(hDlg, idiDivTMarg,
(LPSTR) &szT[1], cchMaxNum);
if (FZaFromSs (&margin, szT+1, *szT, utCur))
{
pch = &szT[0];
CchExpZa(&pch, margin, utCur, cchMaxNum);
SetDlgItemText(hDlg, idiDivTMarg, (LPSTR)szT);
}
szT[0] = GetDlgItemText(hDlg, idiDivBMarg,
(LPSTR) &szT[1], cchMaxNum);
if (FZaFromSs (&margin, szT+1, *szT, utCur))
{
pch = &szT[0];
CchExpZa(&pch, margin, utCur, cchMaxNum);
SetDlgItemText(hDlg, idiDivBMarg, (LPSTR)szT);
}
}
break;
}
#endif /* KINTL */
default:
return (FALSE);
}
break;
default:
return (FALSE);
}
return (TRUE);
} /* end of DialogDivision */
