1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
/************************************************************/
/* Windows Write, Copyright 1985-1992 Microsoft Corporation */
/************************************************************/
/* This file contains the window proc for the page info window. */
#include <windows.h>
#include "mw.h"
#include "cmddefs.h"
#include "fmtdefs.h"
#include "wwdefs.h"
#ifdef DBCS
#include "kanji.h"
#endif
/* D R A W M O D E */
DrawMode()
{
/* This routine forces the repainting of the page info window. */
extern HWND vhWndPageInfo;
InvalidateRect(vhWndPageInfo, (LPRECT)NULL, FALSE);
UpdateWindow(vhWndPageInfo);
}
long FAR PASCAL PageInfoWndProc(hWnd, message, wParam, lParam)
HWND hWnd;
unsigned message;
WORD wParam;
LONG lParam;
{
extern HFONT vhfPageInfo;
extern int ypszPageInfo;
extern CHAR szMode[];
extern int dypScrlBar;
extern struct FLI vfli;
extern struct WWD rgwwd[];
if (message == WM_PAINT)
{
PAINTSTRUCT ps;
/* Initialize the DC. */
BeginPaint(hWnd, (LPPAINTSTRUCT)&ps);
if (vhfPageInfo == NULL)
{
extern char szSystem[];
LOGFONT lf;
TEXTMETRIC tm;
/* Load a font that will fit in the info "window". */
bltbc(&lf, 0, sizeof(LOGFONT));
#ifdef WIN30
/* Don't default to ANY ol' typeface ..pault */
bltsz(szSystem, lf.lfFaceName);
#ifdef DBCS /* was in JAPAN; KenjiK ' 90-10-25 */
/* We use Double Byte Character string,so using font must be
able to show them. */
lf.lfCharSet = KANJI_CHARSET;
#endif /* DBCS */
#endif
lf.lfHeight = -(dypScrlBar - (GetSystemMetrics(SM_CYBORDER) << 1));
if ((vhfPageInfo = CreateFontIndirect((LPLOGFONT)&lf)) == NULL)
{
goto BailOut;
}
if (SelectObject(ps.hdc, vhfPageInfo) == NULL)
{
DeleteObject(vhfPageInfo);
vhfPageInfo = NULL;
goto BailOut;
}
/* Figure out where to draw the string. */
GetTextMetrics(ps.hdc, (LPTEXTMETRIC)&tm);
ypszPageInfo = ((dypScrlBar - (tm.tmHeight - tm.tmInternalLeading) +
1) >> 1) - tm.tmInternalLeading;
}
/* Draw the "Page nnn" (no longer at the VERY left) */
PatBlt(ps.hdc, ps.rcPaint.left, ps.rcPaint.top, ps.rcPaint.right -
ps.rcPaint.left, ps.rcPaint.bottom - ps.rcPaint.top, PATCOPY);
TextOut(ps.hdc, GetSystemMetrics(SM_CXBORDER)+5, ypszPageInfo,
(LPSTR)szMode, CchSz(szMode) - 1);
BailOut:
EndPaint(hWnd, (LPPAINTSTRUCT)&ps);
return(0L);
}
else if (message == WM_RBUTTONDOWN && vfli.rgdxp[1] == 0xFFFE &&
wParam & MK_CONTROL )
{
(vfli.rgdxp[1])--;
return(0L);
}
else
{
/* All we are interested in here are paint messages. */
return(DefWindowProc(hWnd, message, wParam, lParam));
}
}
#ifdef SPECIAL
fnSpecial(hWnd, hDC, rgfp, sz)
HWND hWnd;
HDC hDC;
FARPROC rgfp[];
CHAR sz[];
{
RECT rc;
RECT rcText;
int dxpLine;
int dypLine;
{
register CHAR *pch = &sz[0];
while (*pch != '\0')
{
*pch = *pch ^ 0x13;
pch++;
}
}
(*rgfp[0])(hWnd, (LPRECT)&rc);
rc.right &= 0xFF80;
rc.bottom &= 0xFF80;
rcText.right = rc.right - (rcText.left = (rc.right >> 2) + (rc.right >> 3));
rcText.bottom = rc.bottom - (rcText.top = rc.bottom >> 2);
(*rgfp[1])(hDC, (LPSTR)sz, -1, (LPRECT)&rcText, DT_CENTER | DT_WORDBREAK);
dxpLine = rc.right >> 1;
dypLine = rc.bottom >> 1;
{
register int dxp;
register int dyp;
for (dxp = dyp = 0; dxp <= dxpLine; dxp += rc.right >> 6, dyp +=
rc.bottom
>> 6)
{
(*rgfp[2])(hDC, dxpLine - dxp, dyp);
(*rgfp[3])(hDC, dxp, dyp + dypLine);
(*rgfp[2])(hDC, dxpLine + dxp, dyp);
(*rgfp[3])(hDC, rc.right - dxp, dyp + dypLine);
}
}
}
#endif /* SPECIAL */
|
