[NTDLL]
[reactos.git] / reactos / base / applications / charmap / charmap.c
1 /*
2 * PROJECT: ReactOS Character Map
3 * LICENSE: GPL - See COPYING in the top level directory
4 * FILE: base/applications/charmap/charmap.c
5 * PURPOSE: main dialog implementation
6 * COPYRIGHT: Copyright 2007 Ged Murphy <gedmurphy@reactos.org>
7 *
8 */
9
10 #include <precomp.h>
11
12 #define ID_ABOUT 0x1
13
14 HINSTANCE hInstance;
15
16 /* Font-enumeration callback */
17 static
18 int
19 CALLBACK
20 EnumFontNames(ENUMLOGFONTEXW *lpelfe,
21 NEWTEXTMETRICEXW *lpntme,
22 DWORD FontType,
23 LPARAM lParam)
24 {
25 HWND hwndCombo = (HWND)lParam;
26 LPWSTR pszName = lpelfe->elfLogFont.lfFaceName;
27
28 /* make sure font doesn't already exist in our list */
29 if(SendMessageW(hwndCombo,
30 CB_FINDSTRING,
31 0,
32 (LPARAM)pszName) == CB_ERR)
33 {
34 INT idx;
35 BOOL fFixed;
36 BOOL fTrueType;
37
38 /* add the font */
39 idx = (INT)SendMessageW(hwndCombo,
40 CB_ADDSTRING,
41 0,
42 (LPARAM)pszName);
43
44 /* record the font's attributes (Fixedwidth and Truetype) */
45 fFixed = (lpelfe->elfLogFont.lfPitchAndFamily & FIXED_PITCH) ? TRUE : FALSE;
46 fTrueType = (lpelfe->elfLogFont.lfOutPrecision == OUT_STROKE_PRECIS) ? TRUE : FALSE;
47
48 /* store this information in the list-item's userdata area */
49 SendMessageW(hwndCombo,
50 CB_SETITEMDATA,
51 idx,
52 MAKEWPARAM(fFixed, fTrueType));
53 }
54
55 return 1;
56 }
57
58
59 /* Initialize the font-list by enumeration all system fonts */
60 static
61 VOID
62 FillFontStyleComboList(HWND hwndCombo)
63 {
64 HDC hdc;
65 LOGFONTW lf;
66
67 /* FIXME: for fun, draw each font in its own style */
68 HFONT hFont = GetStockObject(DEFAULT_GUI_FONT);
69 SendMessageW(hwndCombo,
70 WM_SETFONT,
71 (WPARAM)hFont,
72 0);
73
74 ZeroMemory(&lf, sizeof(lf));
75 lf.lfCharSet = DEFAULT_CHARSET;
76
77 hdc = GetDC(hwndCombo);
78
79 /* store the list of fonts in the combo */
80 EnumFontFamiliesExW(hdc,
81 &lf,
82 (FONTENUMPROCW)EnumFontNames,
83 (LPARAM)hwndCombo,
84 0);
85
86 ReleaseDC(hwndCombo,
87 hdc);
88
89 SendMessageW(hwndCombo,
90 CB_SETCURSEL,
91 0,
92 0);
93 }
94
95
96 static
97 VOID
98 ChangeMapFont(HWND hDlg)
99 {
100 HWND hCombo;
101 HWND hMap;
102 LPWSTR lpFontName;
103 INT Len;
104
105 hCombo = GetDlgItem(hDlg, IDC_FONTCOMBO);
106
107 Len = GetWindowTextLengthW(hCombo);
108
109 if (Len != 0)
110 {
111 lpFontName = HeapAlloc(GetProcessHeap(),
112 0,
113 (Len + 1) * sizeof(WCHAR));
114
115 if (lpFontName)
116 {
117 SendMessageW(hCombo,
118 WM_GETTEXT,
119 Len + 1,
120 (LPARAM)lpFontName);
121
122 hMap = GetDlgItem(hDlg, IDC_FONTMAP);
123
124 SendMessageW(hMap,
125 FM_SETFONT,
126 0,
127 (LPARAM)lpFontName);
128 }
129
130 HeapFree(GetProcessHeap(),
131 0,
132 lpFontName);
133 }
134 }
135
136
137 static
138 VOID
139 AddCharToSelection(HWND hText,
140 WCHAR ch)
141 {
142 LPWSTR lpText;
143 INT Len = GetWindowTextLength(hText);
144
145 if (Len != 0)
146 {
147 lpText = HeapAlloc(GetProcessHeap(),
148 0,
149 (Len + 2) * sizeof(WCHAR));
150
151 if (lpText)
152 {
153 LPWSTR lpStr = lpText;
154
155 SendMessageW(hText,
156 WM_GETTEXT,
157 Len + 1,
158 (LPARAM)lpStr);
159
160 lpStr += Len;
161 *lpStr = ch;
162 lpStr++;
163 *lpStr = L'\0';
164
165 SendMessageW(hText,
166 WM_SETTEXT,
167 0,
168 (LPARAM)lpText);
169
170 HeapFree(GetProcessHeap(),
171 0,
172 lpText);
173 }
174 }
175 else
176 {
177 WCHAR szText[2];
178
179 szText[0] = ch;
180 szText[1] = L'\0';
181
182 SendMessageW(hText,
183 WM_SETTEXT,
184 0,
185 (LPARAM)szText);
186 }
187 }
188
189
190 static
191 INT_PTR
192 CALLBACK
193 DlgProc(HWND hDlg,
194 UINT Message,
195 WPARAM wParam,
196 LPARAM lParam)
197 {
198 static HICON hSmIcon;
199 static HICON hBgIcon;
200 LPWSTR lpAboutText = NULL;
201
202 switch(Message)
203 {
204 case WM_INITDIALOG:
205 {
206 HMENU hSysMenu;
207
208 hSmIcon = LoadImageW(hInstance,
209 MAKEINTRESOURCEW(IDI_ICON),
210 IMAGE_ICON,
211 16,
212 16,
213 0);
214 if (hSmIcon)
215 {
216 SendMessageW(hDlg,
217 WM_SETICON,
218 ICON_SMALL,
219 (LPARAM)hSmIcon);
220 }
221
222 hBgIcon = LoadImageW(hInstance,
223 MAKEINTRESOURCEW(IDI_ICON),
224 IMAGE_ICON,
225 32,
226 32,
227 0);
228 if (hBgIcon)
229 {
230 SendMessageW(hDlg,
231 WM_SETICON,
232 ICON_BIG,
233 (LPARAM)hBgIcon);
234 }
235
236 FillFontStyleComboList(GetDlgItem(hDlg,
237 IDC_FONTCOMBO));
238
239 ChangeMapFont(hDlg);
240 hSysMenu = GetSystemMenu(hDlg,
241 FALSE);
242 if (hSysMenu != NULL)
243 {
244 if (LoadStringW(hInstance,
245 IDS_ABOUT,
246 lpAboutText,
247 0))
248 {
249 AppendMenuW(hSysMenu,
250 MF_SEPARATOR,
251 0,
252 NULL);
253 AppendMenuW(hSysMenu,
254 MF_STRING,
255 ID_ABOUT,
256 lpAboutText);
257 }
258 }
259 return TRUE;
260 }
261
262 case WM_COMMAND:
263 {
264 switch(LOWORD(wParam))
265 {
266 case IDC_FONTMAP:
267 {
268 switch (HIWORD(wParam))
269 {
270 case FM_SETCHAR:
271 AddCharToSelection(GetDlgItem(hDlg, IDC_TEXTBOX),
272 LOWORD(lParam));
273 break;
274 }
275 }
276 break;
277
278 case IDC_FONTCOMBO:
279 {
280 if (HIWORD(wParam) == CBN_SELCHANGE)
281 {
282 ChangeMapFont(hDlg);
283 }
284 }
285 break;
286
287 case IDC_SELECT:
288 {
289 WCHAR ch;
290 HWND hMap = GetDlgItem(hDlg, IDC_FONTMAP);
291
292 ch = (WCHAR) SendMessageW(hMap, FM_GETCHAR, 0, 0);
293
294 if (ch)
295 {
296 AddCharToSelection(GetDlgItem(hDlg, IDC_TEXTBOX),
297 ch);
298 }
299
300 break;
301 }
302
303 case IDOK:
304 if (hSmIcon)
305 DestroyIcon(hSmIcon);
306 if (hBgIcon)
307 DestroyIcon(hBgIcon);
308 EndDialog(hDlg, 0);
309 break;
310 }
311 }
312 break;
313
314 case WM_SYSCOMMAND:
315 {
316 switch(wParam)
317 {
318 case ID_ABOUT:
319 ShowAboutDlg(hDlg);
320 break;
321 }
322 }
323 break;
324
325 case WM_CLOSE:
326 if (hSmIcon)
327 DestroyIcon(hSmIcon);
328 if (hBgIcon)
329 DestroyIcon(hBgIcon);
330 EndDialog(hDlg, 0);
331 break;
332
333 default:
334 return FALSE;
335 }
336
337 return FALSE;
338 }
339
340
341 INT
342 WINAPI
343 wWinMain(HINSTANCE hInst,
344 HINSTANCE hPrev,
345 LPWSTR Cmd,
346 int iCmd)
347 {
348 INITCOMMONCONTROLSEX iccx;
349 INT Ret = 1;
350
351 hInstance = hInst;
352
353 iccx.dwSize = sizeof(INITCOMMONCONTROLSEX);
354 iccx.dwICC = ICC_TAB_CLASSES;
355 InitCommonControlsEx(&iccx);
356
357 if (RegisterMapClasses(hInstance))
358 {
359 Ret = DialogBoxW(hInstance,
360 MAKEINTRESOURCEW(IDD_CHARMAP),
361 NULL,
362 DlgProc) >= 0;
363
364 UnregisterMapClasses(hInstance);
365 }
366
367 return Ret;
368 }