Update to remove a bit of MFC style preprocessor abuse to get this application to...
[reactos.git] / rosapps / calc / main.c
1 /*
2 * ReactOS calc
3 *
4 * calc.c
5 *
6 * Copyright (C) 2002 Robert Dickenson <robd@reactos.org>
7 *
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
12 *
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 */
22
23 #define WIN32_LEAN_AND_MEAN // Exclude rarely-used stuff from Windows headers
24 #include <windows.h>
25 #include <tchar.h>
26
27 #include "main.h"
28 #include "button.h"
29 #include "settings.h"
30
31
32 // Global Variables:
33 HINSTANCE hInst;
34 HWND hDlgWnd;
35 TCHAR szTitle[MAX_LOADSTRING];
36 CALC_TYPES CalcType;
37 HACCEL hAccel;
38
39 BOOL bDigitGrouping = FALSE;
40
41 /*TODO: Figure out why we are copying MFC map style programming.
42 ** This pattern is difficult to maintain.
43 */
44 #define BEGIN_CMD_MAP(a) switch(##a) {
45 #define CMD_MAP_ENTRY(a, b) case a: b(); break;
46 #define END_CMD_MAP(a) }
47
48
49 BOOL OnCreate(HWND hWnd)
50 {
51 HMENU hMenu;
52 HMENU hViewMenu;
53
54 hMenu = GetMenu(hDlgWnd);
55 hViewMenu = GetSubMenu(hMenu, ID_MENU_VIEW);
56 if (bDigitGrouping) {
57 CheckMenuItem(hViewMenu, ID_VIEW_DIGIT_GROUPING, MF_BYCOMMAND|MF_CHECKED);
58 }
59
60 //SendMessage(hDlgWnd, WM_SETICON, ICON_BIG, (LPARAM)LoadIcon(hInst, MAKEINTRESOURCE(IDI_CALC)));
61
62 // Initialize the Windows Common Controls DLL
63 //InitCommonControls();
64
65 return TRUE;
66 }
67
68 void OnEditCopy(void)
69 {
70 SendMessage(GetDlgItem(hDlgWnd, IDC_RESULT), WM_COMMAND, MAKELONG(ID_EDIT_COPY, 0), 0);
71 }
72
73 void OnEditPaste(void)
74 {
75 SendMessage(GetDlgItem(hDlgWnd, IDC_RESULT), WM_COMMAND, MAKELONG(ID_EDIT_PASTE, 0), 0);
76 }
77
78 void OnViewStandard(void)
79 {
80 CalcType = STANDARD;
81 DestroyWindow(hDlgWnd);
82 }
83
84 void OnViewScientific(void)
85 {
86 CalcType = SCIENTIFIC;
87 DestroyWindow(hDlgWnd);
88 }
89
90 void OnViewDigitGrouping(void)
91 {
92 HMENU hMenu = GetMenu(hDlgWnd);
93 HMENU hViewMenu = GetSubMenu(hMenu, ID_MENU_VIEW);
94 bDigitGrouping = !bDigitGrouping;
95 if (bDigitGrouping) {
96 CheckMenuItem(hViewMenu, ID_VIEW_DIGIT_GROUPING, MF_BYCOMMAND|MF_CHECKED);
97 } else {
98 CheckMenuItem(hViewMenu, ID_VIEW_DIGIT_GROUPING, MF_BYCOMMAND|MF_UNCHECKED);
99 }
100 }
101
102 void OnViewHex(void)
103 {
104 }
105
106 void OnViewDecimal(void)
107 {
108 }
109
110 void OnViewOctal(void)
111 {
112 }
113
114 void OnViewBinary(void)
115 {
116 }
117
118 void OnViewDegrees(void)
119 {
120 }
121
122 void OnViewRadians(void)
123 {
124 }
125
126 void OnViewGrads(void)
127 {
128 }
129
130 void OnHelpTopics(void)
131 {
132 WinHelp(hDlgWnd, _T("calc"), HELP_CONTENTS, 0);
133 }
134
135 void OnHelpAbout(void)
136 {
137 }
138 void OnButtonClick(int ButtonID)
139 {
140 }
141 // Message handler for dialog box.
142 LRESULT CALLBACK CalcWndProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
143 {
144 switch (message) {
145 case WM_INITDIALOG:
146 hDlgWnd = hDlg;
147 InitColours();
148 return OnCreate(hDlg);
149
150 case WM_DRAWITEM:
151 DrawItem((LPDRAWITEMSTRUCT)lParam);
152 return TRUE;
153
154 case WM_COMMAND:
155 if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL) {
156 EndDialog(hDlg, LOWORD(wParam));
157 return TRUE;
158 }
159
160 if (HIWORD(wParam) == BN_CLICKED) {
161 switch (LOWORD(wParam)) {
162 OnButtonClick(LOWORD(wParam));
163 //case IDC_OWNERDRAW:
164 // // application-defined processing
165 // break;
166 }
167 }
168
169 //BEGIN_CMD_MAP( LOWORD(wParam) )
170 switch (LOWORD(wParam))
171 {
172 CMD_MAP_ENTRY(ID_EDIT_COPY, OnEditCopy)
173 CMD_MAP_ENTRY(ID_EDIT_PASTE, OnEditPaste)
174 CMD_MAP_ENTRY(ID_VIEW_STANDARD, OnViewStandard)
175 CMD_MAP_ENTRY(ID_VIEW_SCIENTIFIC, OnViewScientific)
176 CMD_MAP_ENTRY(ID_VIEW_DIGIT_GROUPING, OnViewDigitGrouping)
177 CMD_MAP_ENTRY(ID_VIEW_HEX, OnViewHex)
178 CMD_MAP_ENTRY(ID_VIEW_DECIMAL, OnViewDecimal)
179 CMD_MAP_ENTRY(ID_VIEW_OCTAL, OnViewOctal)
180 CMD_MAP_ENTRY(ID_VIEW_BINARY, OnViewBinary)
181 CMD_MAP_ENTRY(ID_VIEW_DEGREES, OnViewDegrees)
182 CMD_MAP_ENTRY(ID_VIEW_RADIANS, OnViewRadians)
183 CMD_MAP_ENTRY(ID_VIEW_GRADS, OnViewGrads)
184 CMD_MAP_ENTRY(ID_HELP_TOPICS, OnHelpTopics)
185 CMD_MAP_ENTRY(ID_HELP_ABOUT, OnHelpAbout)
186 }
187 //END_CMD_MAP(0)
188 break;
189 /*
190 case WM_KEYUP:
191 case WM_KEYDOWN:
192 {
193 MSG msg;
194 msg.hwnd = hDlg;
195 msg.message = message;
196 msg.wParam = wParam;
197 msg.lParam = lParam;
198 // msg.time;
199 // msg.pt;
200 if (TranslateAccelerator(hDlg, hAccel, &msg)) return 0;
201 }
202 break;
203 */
204 case WM_NOTIFY:
205 {
206 int idctrl;
207 LPNMHDR pnmh;
208 idctrl = (int)wParam;
209 pnmh = (LPNMHDR)lParam;
210 /*
211 if ((pnmh->hwndFrom == hTabWnd) &&
212 (pnmh->idFrom == IDC_TAB) &&
213 (pnmh->code == TCN_SELCHANGE))
214 {
215 _OnTabWndSelChange();
216 }
217 */
218 }
219 break;
220
221 case WM_DESTROY:
222 WinHelp(hDlgWnd, _T("regedit"), HELP_QUIT, 0);
223 return DefWindowProc(hDlg, message, wParam, lParam);
224 }
225 return 0;
226 }
227
228 int APIENTRY WinMain(HINSTANCE hInstance,
229 HINSTANCE hPrevInstance,
230 LPSTR lpCmdLine,
231 int nCmdShow)
232 {
233 CALC_TYPES CurrentCalcType;
234
235 // Initialize global variables
236 hInst = hInstance;
237 LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
238
239 // Load our settings from the registry
240 LoadSettings();
241
242 hAccel = LoadAccelerators(hInstance, (LPCTSTR)IDR_ACCELERATOR);
243
244 do {
245 CurrentCalcType = CalcType;
246 switch (CalcType) {
247 case HP42S:
248 break;
249 case SCIENTIFIC:
250 DialogBox(hInst, (LPCTSTR)IDD_SCIENTIFIC, NULL, (DLGPROC)CalcWndProc);
251 break;
252 case STANDARD:
253 default:
254 DialogBox(hInst, (LPCTSTR)IDD_STANDARD, NULL, (DLGPROC)CalcWndProc);
255 break;
256 }
257 } while (CalcType != CurrentCalcType);
258
259 // Save our settings to the registry
260 SaveSettings();
261 return 0;
262 }
263