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
157
158
159
160
161
|
/***
*main.cpp
*
* Copyright (C) 1992-1994, Microsoft Corporation. All Rights Reserved.
* Information Contained Herein Is Proprietary and Confidential.
*
*Purpose:
* This module is the main entry point of the sample IDispatch
* calculator, dspcalc2.exe.
*
* This program is intended to demonstrate an implementation of
* the IDispatch interface.
*
*Implementation Notes:
*
*****************************************************************************/
#include "dspcalc2.h"
TCHAR g_szAppName[] = TSTR("DspCalc2");
BOOL InitApplication(HINSTANCE);
BOOL InitInstance(HINSTANCE, int);
extern "C" {
long FAR PASCAL WndProc(HWND, UINT, WPARAM, LPARAM);
int PASCAL WinMain(HINSTANCE, HINSTANCE, LPSTR, int);
}
extern "C" int PASCAL
WinMain(
HINSTANCE hinst,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,
int nCmdShow)
{
MSG msg;
if(!hPrevInstance)
if(!InitApplication(hinst))
return FALSE;
if(InitOle() != NOERROR)
return FALSE;
if(!InitInstance(hinst, nCmdShow)){
UninitOle();
return FALSE;
}
while(GetMessage(&msg, NULL, NULL, NULL)) {
TranslateMessage(&msg);
DispatchMessage(&msg);
}
UninitOle();
return msg.wParam;
}
BOOL
InitApplication(HINSTANCE hinst)
{
WNDCLASS wc;
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = WndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = DLGWINDOWEXTRA;
wc.hInstance = hinst;
wc.hIcon = LoadIcon(hinst, g_szAppName);
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE+1);
wc.lpszMenuName = NULL;
wc.lpszClassName = g_szAppName;
if(!RegisterClass(&wc))
return FALSE;
return TRUE;
}
BOOL
InitInstance(HINSTANCE hinst, int nCmdShow)
{
g_pcalc->m_hwnd = CreateDialog(hinst, g_szAppName, 0, NULL);
ShowWindow(g_pcalc->m_hwnd, nCmdShow);
g_pcalc->m_arith.Display();
return TRUE;
}
extern "C" long FAR PASCAL
WndProc(
HWND hwnd,
UINT message,
WPARAM wParam,
LPARAM lParam)
{
switch(message){
case WM_COMMAND:
switch(wParam){
case IDC_ZERO:
case IDC_ONE:
case IDC_TWO:
case IDC_THREE:
case IDC_FOUR:
case IDC_FIVE:
case IDC_SIX:
case IDC_SEVEN:
case IDC_EIGHT:
case IDC_NINE:
case IDC_PLUS:
case IDC_MINUS:
case IDC_MULT:
case IDC_DIV:
case IDC_CLEAR:
case IDC_EQUALS:
g_pcalc->m_arith.ButtonPush(wParam);
return 0;
}
break;
case WM_DESTROY:
PostQuitMessage(0);
return 0;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
#if defined(WIN32)
extern "C" char FAR*
ConvertStrWtoA(OLECHAR FAR* strIn, char FAR* buf, UINT size)
{
int badConversion = FALSE;
WideCharToMultiByte(CP_ACP, NULL,
strIn, -1,
buf, size,
NULL, &badConversion);
return buf;
}
extern "C" char FAR*
AnsiString(OLECHAR FAR* strIn)
{
static char buf[256];
return (ConvertStrWtoA(strIn, buf, 256));
}
#endif
|
