~mdw / sgt / puzzles / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Game configuration box for Windows, by constructing the dialog box
[sgt/puzzles] / windows.c
1 /*
2 * windows.c: Windows front end for my puzzle collection.
3 */
4
5 #include <windows.h>
6 #include <commctrl.h>
7
8 #include <stdio.h>
9 #include <assert.h>
10 #include <stdarg.h>
11 #include <stdlib.h>
12 #include <time.h>
13
14 #include "puzzles.h"
15
16 #define IDM_NEW 0x0010
17 #define IDM_RESTART 0x0020
18 #define IDM_UNDO 0x0030
19 #define IDM_REDO 0x0040
20 #define IDM_QUIT 0x0050
21 #define IDM_CONFIG 0x0060
22 #define IDM_PRESETS 0x0100
23
24 #ifdef DEBUG
25 static FILE *debug_fp = NULL;
26 static HANDLE debug_hdl = INVALID_HANDLE_VALUE;
27 static int debug_got_console = 0;
28
29 void dputs(char *buf)
30 {
31 DWORD dw;
32
33 if (!debug_got_console) {
34 if (AllocConsole()) {
35 debug_got_console = 1;
36 debug_hdl = GetStdHandle(STD_OUTPUT_HANDLE);
37 }
38 }
39 if (!debug_fp) {
40 debug_fp = fopen("debug.log", "w");
41 }
42
43 if (debug_hdl != INVALID_HANDLE_VALUE) {
44 WriteFile(debug_hdl, buf, strlen(buf), &dw, NULL);
45 }
46 fputs(buf, debug_fp);
47 fflush(debug_fp);
48 }
49
50 void debug_printf(char *fmt, ...)
51 {
52 char buf[4096];
53 va_list ap;
54
55 va_start(ap, fmt);
56 vsprintf(buf, fmt, ap);
57 dputs(buf);
58 va_end(ap);
59 }
60
61 #define debug(x) (debug_printf x)
62
63 #else
64
65 #define debug(x)
66
67 #endif
68
69 struct font {
70 HFONT font;
71 int type;
72 int size;
73 };
74
75 struct cfg_aux {
76 int ctlid;
77 };
78
79 struct frontend {
80 midend_data *me;
81 HWND hwnd, statusbar, cfgbox;
82 HINSTANCE inst;
83 HBITMAP bitmap, prevbm;
84 HDC hdc_bm;
85 COLORREF *colours;
86 HBRUSH *brushes;
87 HPEN *pens;
88 HRGN clip;
89 UINT timer;
90 int npresets;
91 game_params **presets;
92 struct font *fonts;
93 int nfonts, fontsize;
94 config_item *cfg;
95 struct cfg_aux *cfgaux;
96 int cfg_done;
97 HFONT cfgfont;
98 };
99
100 void fatal(char *fmt, ...)
101 {
102 char buf[2048];
103 va_list ap;
104
105 va_start(ap, fmt);
106 vsprintf(buf, fmt, ap);
107 va_end(ap);
108
109 MessageBox(NULL, buf, "Fatal error", MB_ICONEXCLAMATION | MB_OK);
110
111 exit(1);
112 }
113
114 void status_bar(frontend *fe, char *text)
115 {
116 SetWindowText(fe->statusbar, text);
117 }
118
119 void frontend_default_colour(frontend *fe, float *output)
120 {
121 DWORD c = GetSysColor(COLOR_MENU); /* ick */
122
123 output[0] = (float)(GetRValue(c) / 255.0);
124 output[1] = (float)(GetGValue(c) / 255.0);
125 output[2] = (float)(GetBValue(c) / 255.0);
126 }
127
128 void clip(frontend *fe, int x, int y, int w, int h)
129 {
130 if (!fe->clip) {
131 fe->clip = CreateRectRgn(0, 0, 1, 1);
132 GetClipRgn(fe->hdc_bm, fe->clip);
133 }
134
135 IntersectClipRect(fe->hdc_bm, x, y, x+w, y+h);
136 }
137
138 void unclip(frontend *fe)
139 {
140 assert(fe->clip);
141 SelectClipRgn(fe->hdc_bm, fe->clip);
142 }
143
144 void draw_text(frontend *fe, int x, int y, int fonttype, int fontsize,
145 int align, int colour, char *text)
146 {
147 int i;
148
149 /*
150 * Find or create the font.
151 */
152 for (i = 0; i < fe->nfonts; i++)
153 if (fe->fonts[i].type == fonttype && fe->fonts[i].size == fontsize)
154 break;
155
156 if (i == fe->nfonts) {
157 if (fe->fontsize <= fe->nfonts) {
158 fe->fontsize = fe->nfonts + 10;
159 fe->fonts = sresize(fe->fonts, fe->fontsize, struct font);
160 }
161
162 fe->nfonts++;
163
164 fe->fonts[i].type = fonttype;
165 fe->fonts[i].size = fontsize;
166
167 /*
168 * FIXME: Really I should make at least _some_ effort to
169 * pick the correct font.
170 */
171 fe->fonts[i].font = CreateFont(-fontsize, 0, 0, 0, 0,
172 FALSE, FALSE, FALSE, DEFAULT_CHARSET,
173 OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
174 DEFAULT_QUALITY,
175 (fonttype == FONT_FIXED ?
176 FIXED_PITCH | FF_DONTCARE :
177 VARIABLE_PITCH | FF_SWISS),
178 NULL);
179 }
180
181 /*
182 * Position and draw the text.
183 */
184 {
185 HFONT oldfont;
186 TEXTMETRIC tm;
187 SIZE size;
188
189 oldfont = SelectObject(fe->hdc_bm, fe->fonts[i].font);
190 if (GetTextMetrics(fe->hdc_bm, &tm)) {
191 if (align & ALIGN_VCENTRE)
192 y -= (tm.tmAscent+tm.tmDescent)/2;
193 else
194 y -= tm.tmAscent;
195 }
196 if (GetTextExtentPoint32(fe->hdc_bm, text, strlen(text), &size)) {
197 if (align & ALIGN_HCENTRE)
198 x -= size.cx / 2;
199 else if (align & ALIGN_HRIGHT)
200 x -= size.cx;
201 }
202 SetBkMode(fe->hdc_bm, TRANSPARENT);
203 TextOut(fe->hdc_bm, x, y, text, strlen(text));
204 SelectObject(fe->hdc_bm, oldfont);
205 }
206 }
207
208 void draw_rect(frontend *fe, int x, int y, int w, int h, int colour)
209 {
210 if (w == 1 && h == 1) {
211 /*
212 * Rectangle() appears to get uppity if asked to draw a 1x1
213 * rectangle, presumably on the grounds that that's beneath
214 * its dignity and you ought to be using SetPixel instead.
215 * So I will.
216 */
217 SetPixel(fe->hdc_bm, x, y, fe->colours[colour]);
218 } else {
219 HBRUSH oldbrush = SelectObject(fe->hdc_bm, fe->brushes[colour]);
220 HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
221 Rectangle(fe->hdc_bm, x, y, x+w, y+h);
222 SelectObject(fe->hdc_bm, oldbrush);
223 SelectObject(fe->hdc_bm, oldpen);
224 }
225 }
226
227 void draw_line(frontend *fe, int x1, int y1, int x2, int y2, int colour)
228 {
229 HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
230 MoveToEx(fe->hdc_bm, x1, y1, NULL);
231 LineTo(fe->hdc_bm, x2, y2);
232 SetPixel(fe->hdc_bm, x2, y2, fe->colours[colour]);
233 SelectObject(fe->hdc_bm, oldpen);
234 }
235
236 void draw_polygon(frontend *fe, int *coords, int npoints,
237 int fill, int colour)
238 {
239 POINT *pts = snewn(npoints+1, POINT);
240 int i;
241
242 for (i = 0; i <= npoints; i++) {
243 int j = (i < npoints ? i : 0);
244 pts[i].x = coords[j*2];
245 pts[i].y = coords[j*2+1];
246 }
247
248 if (fill) {
249 HBRUSH oldbrush = SelectObject(fe->hdc_bm, fe->brushes[colour]);
250 HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
251 Polygon(fe->hdc_bm, pts, npoints);
252 SelectObject(fe->hdc_bm, oldbrush);
253 SelectObject(fe->hdc_bm, oldpen);
254 } else {
255 HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
256 Polyline(fe->hdc_bm, pts, npoints+1);
257 SelectObject(fe->hdc_bm, oldpen);
258 }
259
260 sfree(pts);
261 }
262
263 void start_draw(frontend *fe)
264 {
265 HDC hdc_win;
266 hdc_win = GetDC(fe->hwnd);
267 fe->hdc_bm = CreateCompatibleDC(hdc_win);
268 fe->prevbm = SelectObject(fe->hdc_bm, fe->bitmap);
269 ReleaseDC(fe->hwnd, hdc_win);
270 fe->clip = NULL;
271 SetMapMode(fe->hdc_bm, MM_TEXT);
272 }
273
274 void draw_update(frontend *fe, int x, int y, int w, int h)
275 {
276 RECT r;
277
278 r.left = x;
279 r.top = y;
280 r.right = x + w;
281 r.bottom = y + h;
282
283 InvalidateRect(fe->hwnd, &r, FALSE);
284 }
285
286 void end_draw(frontend *fe)
287 {
288 SelectObject(fe->hdc_bm, fe->prevbm);
289 DeleteDC(fe->hdc_bm);
290 if (fe->clip) {
291 DeleteObject(fe->clip);
292 fe->clip = NULL;
293 }
294 }
295
296 void deactivate_timer(frontend *fe)
297 {
298 KillTimer(fe->hwnd, fe->timer);
299 fe->timer = 0;
300 }
301
302 void activate_timer(frontend *fe)
303 {
304 fe->timer = SetTimer(fe->hwnd, fe->timer, 20, NULL);
305 }
306
307 static frontend *new_window(HINSTANCE inst)
308 {
309 frontend *fe;
310 int x, y;
311 RECT r, sr;
312 HDC hdc;
313
314 fe = snew(frontend);
315 fe->me = midend_new(fe);
316 fe->inst = inst;
317 midend_new_game(fe->me, NULL);
318 midend_size(fe->me, &x, &y);
319
320 fe->timer = 0;
321
322 {
323 int i, ncolours;
324 float *colours;
325
326 colours = midend_colours(fe->me, &ncolours);
327
328 fe->colours = snewn(ncolours, COLORREF);
329 fe->brushes = snewn(ncolours, HBRUSH);
330 fe->pens = snewn(ncolours, HPEN);
331
332 for (i = 0; i < ncolours; i++) {
333 fe->colours[i] = RGB(255 * colours[i*3+0],
334 255 * colours[i*3+1],
335 255 * colours[i*3+2]);
336 fe->brushes[i] = CreateSolidBrush(fe->colours[i]);
337 fe->pens[i] = CreatePen(PS_SOLID, 1, fe->colours[i]);
338 }
339 }
340
341 r.left = r.top = 0;
342 r.right = x;
343 r.bottom = y;
344 AdjustWindowRectEx(&r, WS_OVERLAPPEDWINDOW &~
345 (WS_THICKFRAME | WS_MAXIMIZEBOX | WS_OVERLAPPED),
346 TRUE, 0);
347
348 fe->hwnd = CreateWindowEx(0, game_name, game_name,
349 WS_OVERLAPPEDWINDOW &~
350 (WS_THICKFRAME | WS_MAXIMIZEBOX),
351 CW_USEDEFAULT, CW_USEDEFAULT,
352 r.right - r.left, r.bottom - r.top,
353 NULL, NULL, inst, NULL);
354
355 {
356 HMENU bar = CreateMenu();
357 HMENU menu = CreateMenu();
358
359 AppendMenu(bar, MF_ENABLED|MF_POPUP, (UINT)menu, "Game");
360 AppendMenu(menu, MF_ENABLED, IDM_NEW, "New");
361 AppendMenu(menu, MF_ENABLED, IDM_RESTART, "Restart");
362
363 if ((fe->npresets = midend_num_presets(fe->me)) > 0 ||
364 game_can_configure) {
365 HMENU sub = CreateMenu();
366 int i;
367
368 AppendMenu(bar, MF_ENABLED|MF_POPUP, (UINT)sub, "Type");
369
370 fe->presets = snewn(fe->npresets, game_params *);
371
372 for (i = 0; i < fe->npresets; i++) {
373 char *name;
374
375 midend_fetch_preset(fe->me, i, &name, &fe->presets[i]);
376
377 /*
378 * FIXME: we ought to go through and do something
379 * with ampersands here.
380 */
381
382 AppendMenu(sub, MF_ENABLED, IDM_PRESETS + 0x10 * i, name);
383 }
384
385 if (game_can_configure) {
386 AppendMenu(sub, MF_ENABLED, IDM_CONFIG, "Custom...");
387 }
388 }
389
390 AppendMenu(menu, MF_SEPARATOR, 0, 0);
391 AppendMenu(menu, MF_ENABLED, IDM_UNDO, "Undo");
392 AppendMenu(menu, MF_ENABLED, IDM_REDO, "Redo");
393 AppendMenu(menu, MF_SEPARATOR, 0, 0);
394 AppendMenu(menu, MF_ENABLED, IDM_QUIT, "Exit");
395 SetMenu(fe->hwnd, bar);
396 }
397
398 if (midend_wants_statusbar(fe->me)) {
399 fe->statusbar = CreateWindowEx(0, STATUSCLASSNAME, "ooh",
400 WS_CHILD | WS_VISIBLE,
401 0, 0, 0, 0, /* status bar does these */
402 fe->hwnd, NULL, inst, NULL);
403 GetWindowRect(fe->statusbar, &sr);
404 SetWindowPos(fe->hwnd, NULL, 0, 0,
405 r.right - r.left, r.bottom - r.top + sr.bottom - sr.top,
406 SWP_NOMOVE | SWP_NOZORDER);
407 SetWindowPos(fe->statusbar, NULL, 0, y, x, sr.bottom - sr.top,
408 SWP_NOZORDER);
409 } else {
410 fe->statusbar = NULL;
411 }
412
413 hdc = GetDC(fe->hwnd);
414 fe->bitmap = CreateCompatibleBitmap(hdc, x, y);
415 ReleaseDC(fe->hwnd, hdc);
416
417 SetWindowLong(fe->hwnd, GWL_USERDATA, (LONG)fe);
418
419 ShowWindow(fe->hwnd, SW_NORMAL);
420 SetForegroundWindow(fe->hwnd);
421
422 midend_redraw(fe->me);
423
424 return fe;
425 }
426
427 static int CALLBACK ConfigDlgProc(HWND hwnd, UINT msg,
428 WPARAM wParam, LPARAM lParam)
429 {
430 frontend *fe = (frontend *)GetWindowLong(hwnd, GWL_USERDATA);
431 config_item *i;
432 struct cfg_aux *j;
433
434 switch (msg) {
435 case WM_INITDIALOG:
436 return 0;
437
438 case WM_COMMAND:
439 /*
440 * OK and Cancel are special cases.
441 */
442 if ((HIWORD(wParam) == BN_CLICKED ||
443 HIWORD(wParam) == BN_DOUBLECLICKED) &&
444 (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)) {
445 if (LOWORD(wParam) == IDOK) {
446 char *err = midend_set_config(fe->me, fe->cfg);
447
448 if (err) {
449 MessageBox(hwnd, err, "Validation error",
450 MB_ICONERROR | MB_OK);
451 } else {
452 fe->cfg_done = 2;
453 }
454 } else {
455 fe->cfg_done = 1;
456 }
457 return 0;
458 }
459
460 /*
461 * First find the control whose id this is.
462 */
463 for (i = fe->cfg, j = fe->cfgaux; i->type != C_END; i++, j++) {
464 if (j->ctlid == LOWORD(wParam))
465 break;
466 }
467 if (i->type == C_END)
468 return 0; /* not our problem */
469
470 if (i->type == C_STRING && HIWORD(wParam) == EN_CHANGE) {
471 char buffer[4096];
472 GetDlgItemText(fe->cfgbox, j->ctlid, buffer, lenof(buffer));
473 buffer[lenof(buffer)-1] = '\0';
474 sfree(i->sval);
475 i->sval = dupstr(buffer);
476 } else if (i->type == C_BOOLEAN &&
477 (HIWORD(wParam) == BN_CLICKED ||
478 HIWORD(wParam) == BN_DOUBLECLICKED)) {
479 i->ival = IsDlgButtonChecked(fe->cfgbox, j->ctlid);
480 } else if (i->type == C_CHOICES &&
481 HIWORD(wParam) == CBN_SELCHANGE) {
482 i->ival = SendDlgItemMessage(fe->cfgbox, j->ctlid,
483 CB_GETCURSEL, 0, 0);
484 }
485
486 return 0;
487
488 case WM_CLOSE:
489 fe->cfg_done = 1;
490 return 0;
491 }
492
493 return 0;
494 }
495
496 HWND mkctrl(frontend *fe, int x1, int x2, int y1, int y2,
497 char *wclass, int wstyle,
498 int exstyle, char *wtext, int wid)
499 {
500 HWND ret;
501 ret = CreateWindowEx(exstyle, wclass, wtext,
502 wstyle | WS_CHILD | WS_VISIBLE, x1, y1, x2-x1, y2-y1,
503 fe->cfgbox, (HMENU) wid, fe->inst, NULL);
504 SendMessage(ret, WM_SETFONT, (WPARAM)fe->cfgfont, MAKELPARAM(TRUE, 0));
505 return ret;
506 }
507
508 static int get_config(frontend *fe)
509 {
510 config_item *i;
511 struct cfg_aux *j;
512 WNDCLASS wc;
513 MSG msg;
514 TEXTMETRIC tm;
515 HDC hdc;
516 HFONT oldfont;
517 SIZE size;
518 HWND ctl;
519 int gm, id, nctrls;
520 int winwidth, winheight, col1l, col1r, col2l, col2r, y;
521 int height, width, maxlabel, maxcheckbox;
522
523 wc.style = CS_DBLCLKS | CS_SAVEBITS | CS_BYTEALIGNWINDOW;
524 wc.lpfnWndProc = DefDlgProc;
525 wc.cbClsExtra = 0;
526 wc.cbWndExtra = DLGWINDOWEXTRA + 8;
527 wc.hInstance = fe->inst;
528 wc.hIcon = NULL;
529 wc.hCursor = LoadCursor(NULL, IDC_ARROW);
530 wc.hbrBackground = (HBRUSH) (COLOR_BACKGROUND +1);
531 wc.lpszMenuName = NULL;
532 wc.lpszClassName = "GameConfigBox";
533 RegisterClass(&wc);
534
535 hdc = GetDC(fe->hwnd);
536 SetMapMode(hdc, MM_TEXT);
537
538 fe->cfg_done = FALSE;
539
540 fe->cfgfont = CreateFont(-MulDiv(8, GetDeviceCaps(hdc, LOGPIXELSY), 72),
541 0, 0, 0, 0,
542 FALSE, FALSE, FALSE, DEFAULT_CHARSET,
543 OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
544 DEFAULT_QUALITY,
545 FF_SWISS,
546 "MS Shell Dlg");
547
548 oldfont = SelectObject(hdc, fe->cfgfont);
549 if (GetTextMetrics(hdc, &tm)) {
550 height = tm.tmAscent + tm.tmDescent;
551 width = tm.tmAveCharWidth;
552 } else {
553 height = width = 30;
554 }
555
556 fe->cfg = midend_get_config(fe->me);
557
558 /*
559 * Figure out the layout of the config box by measuring the
560 * length of each piece of text.
561 */
562 maxlabel = maxcheckbox = 0;
563 winheight = height/2;
564
565 for (i = fe->cfg; i->type != C_END; i++) {
566 switch (i->type) {
567 case C_STRING:
568 case C_CHOICES:
569 /*
570 * Both these control types have a label filling only
571 * the left-hand column of the box.
572 */
573 if (GetTextExtentPoint32(hdc, i->name, strlen(i->name), &size) &&
574 maxlabel < size.cx)
575 maxlabel = size.cx;
576 winheight += height * 3 / 2 + (height / 2);
577 break;
578
579 case C_BOOLEAN:
580 /*
581 * Checkboxes take up the whole of the box width.
582 */
583 if (GetTextExtentPoint32(hdc, i->name, strlen(i->name), &size) &&
584 maxcheckbox < size.cx)
585 maxcheckbox = size.cx;
586 winheight += height + (height / 2);
587 break;
588 }
589 }
590
591 winheight += height + height * 7 / 4; /* OK / Cancel buttons */
592
593 col1l = 2*width;
594 col1r = col1l + maxlabel;
595 col2l = col1r + 2*width;
596 col2r = col2l + 30*width;
597 if (col2r < col1l+2*height+maxcheckbox)
598 col2r = col1l+2*height+maxcheckbox;
599 winwidth = col2r + 2*width;
600
601 ReleaseDC(fe->hwnd, hdc);
602
603 /*
604 * Create the dialog, now that we know its size.
605 */
606 {
607 RECT r, r2;
608
609 r.left = r.top = 0;
610 r.right = winwidth;
611 r.bottom = winheight;
612
613 AdjustWindowRectEx(&r, (WS_OVERLAPPEDWINDOW /*|
614 DS_MODALFRAME | WS_POPUP | WS_VISIBLE |
615 WS_CAPTION | WS_SYSMENU*/) &~
616 (WS_MAXIMIZEBOX | WS_OVERLAPPED),
617 FALSE, 0);
618
619 /*
620 * Centre the dialog on its parent window.
621 */
622 r.right -= r.left;
623 r.bottom -= r.top;
624 GetWindowRect(fe->hwnd, &r2);
625 r.left = (r2.left + r2.right - r.right) / 2;
626 r.top = (r2.top + r2.bottom - r.bottom) / 2;
627 r.right += r.left;
628 r.bottom += r.top;
629
630 fe->cfgbox = CreateWindowEx(0, wc.lpszClassName, "Configuration",
631 DS_MODALFRAME | WS_POPUP | WS_VISIBLE |
632 WS_CAPTION | WS_SYSMENU,
633 r.left, r.top,
634 r.right-r.left, r.bottom-r.top,
635 fe->hwnd, NULL, fe->inst, NULL);
636 }
637
638 SendMessage(fe->cfgbox, WM_SETFONT, (WPARAM)fe->cfgfont, FALSE);
639
640 SetWindowLong(fe->cfgbox, GWL_USERDATA, (LONG)fe);
641 SetWindowLong(fe->cfgbox, DWL_DLGPROC, (LONG)ConfigDlgProc);
642
643 /*
644 * Count the controls so we can allocate cfgaux.
645 */
646 for (nctrls = 0, i = fe->cfg; i->type != C_END; i++)
647 nctrls++;
648 fe->cfgaux = snewn(nctrls, struct cfg_aux);
649
650 id = 1000;
651 y = height/2;
652 for (i = fe->cfg, j = fe->cfgaux; i->type != C_END; i++, j++) {
653 switch (i->type) {
654 case C_STRING:
655 /*
656 * Edit box with a label beside it.
657 */
658 mkctrl(fe, col1l, col1r, y+height*1/8, y+height*9/8,
659 "Static", 0, 0, i->name, id++);
660 ctl = mkctrl(fe, col2l, col2r, y, y+height*3/2,
661 "EDIT", WS_TABSTOP | ES_AUTOHSCROLL,
662 WS_EX_CLIENTEDGE, "", (j->ctlid = id++));
663 SetWindowText(ctl, i->sval);
664 y += height*3/2;
665 break;
666
667 case C_BOOLEAN:
668 /*
669 * Simple checkbox.
670 */
671 mkctrl(fe, col1l, col2r, y, y+height, "BUTTON",
672 BS_NOTIFY | BS_AUTOCHECKBOX | WS_TABSTOP,
673 0, i->name, (j->ctlid = id++));
674 y += height;
675 break;
676
677 case C_CHOICES:
678 /*
679 * Drop-down list with a label beside it.
680 */
681 mkctrl(fe, col1l, col1r, y+height*1/8, y+height*9/8,
682 "STATIC", 0, 0, i->name, id++);
683 ctl = mkctrl(fe, col2l, col2r, y, y+height*41/2,
684 "COMBOBOX", WS_TABSTOP |
685 CBS_DROPDOWNLIST | CBS_HASSTRINGS,
686 WS_EX_CLIENTEDGE, "", (j->ctlid = id++));
687 {
688 char c, *p, *q, *str;
689
690 SendMessage(ctl, CB_RESETCONTENT, 0, 0);
691 p = i->sval;
692 c = *p++;
693 while (*p) {
694 q = p;
695 while (*q && *q != c) q++;
696 str = snewn(q-p+1, char);
697 strncpy(str, p, q-p);
698 str[q-p] = '\0';
699 SendMessage(ctl, CB_ADDSTRING, 0, (LPARAM)str);
700 sfree(str);
701 if (*q) q++;
702 p = q;
703 }
704 }
705
706 SendMessage(ctl, CB_SETCURSEL, i->ival, 0);
707
708 y += height*3/2;
709 break;
710 }
711
712 assert(y < winheight);
713 y += height/2;
714 }
715
716 y += height/2; /* extra space before OK and Cancel */
717 mkctrl(fe, col1l, (col1l+col2r)/2-width, y, y+height*7/4, "BUTTON",
718 BS_PUSHBUTTON | BS_NOTIFY | WS_TABSTOP | BS_DEFPUSHBUTTON, 0,
719 "OK", IDOK);
720 mkctrl(fe, (col1l+col2r)/2+width, col2r, y, y+height*7/4, "BUTTON",
721 BS_PUSHBUTTON | BS_NOTIFY | WS_TABSTOP, 0, "Cancel", IDCANCEL);
722
723 SendMessage(fe->cfgbox, WM_INITDIALOG, 0, 0);
724
725 EnableWindow(fe->hwnd, FALSE);
726 ShowWindow(fe->cfgbox, SW_NORMAL);
727 while ((gm=GetMessage(&msg, NULL, 0, 0)) > 0) {
728 if (!IsDialogMessage(fe->cfgbox, &msg))
729 DispatchMessage(&msg);
730 if (fe->cfg_done)
731 break;
732 }
733 EnableWindow(fe->hwnd, TRUE);
734 SetForegroundWindow(fe->hwnd);
735 DestroyWindow(fe->cfgbox);
736 DeleteObject(fe->cfgfont);
737
738 free_cfg(fe->cfg);
739 sfree(fe->cfgaux);
740
741 return (fe->cfg_done == 2);
742 }
743
744 static void new_game_type(frontend *fe)
745 {
746 RECT r, sr;
747 HDC hdc;
748 int x, y;
749
750 midend_new_game(fe->me, NULL);
751 midend_size(fe->me, &x, &y);
752
753 r.left = r.top = 0;
754 r.right = x;
755 r.bottom = y;
756 AdjustWindowRectEx(&r, WS_OVERLAPPEDWINDOW &~
757 (WS_THICKFRAME | WS_MAXIMIZEBOX |
758 WS_OVERLAPPED),
759 TRUE, 0);
760
761 if (fe->statusbar != NULL) {
762 GetWindowRect(fe->statusbar, &sr);
763 } else {
764 sr.left = sr.right = sr.top = sr.bottom = 0;
765 }
766 SetWindowPos(fe->hwnd, NULL, 0, 0,
767 r.right - r.left,
768 r.bottom - r.top + sr.bottom - sr.top,
769 SWP_NOMOVE | SWP_NOZORDER);
770 if (fe->statusbar != NULL)
771 SetWindowPos(fe->statusbar, NULL, 0, y, x,
772 sr.bottom - sr.top, SWP_NOZORDER);
773
774 DeleteObject(fe->bitmap);
775
776 hdc = GetDC(fe->hwnd);
777 fe->bitmap = CreateCompatibleBitmap(hdc, x, y);
778 ReleaseDC(fe->hwnd, hdc);
779
780 midend_redraw(fe->me);
781 }
782
783 static LRESULT CALLBACK WndProc(HWND hwnd, UINT message,
784 WPARAM wParam, LPARAM lParam)
785 {
786 frontend *fe = (frontend *)GetWindowLong(hwnd, GWL_USERDATA);
787
788 switch (message) {
789 case WM_CLOSE:
790 DestroyWindow(hwnd);
791 return 0;
792 case WM_COMMAND:
793 switch (wParam & ~0xF) { /* low 4 bits reserved to Windows */
794 case IDM_NEW:
795 if (!midend_process_key(fe->me, 0, 0, 'n'))
796 PostQuitMessage(0);
797 break;
798 case IDM_RESTART:
799 if (!midend_process_key(fe->me, 0, 0, 'r'))
800 PostQuitMessage(0);
801 break;
802 case IDM_UNDO:
803 if (!midend_process_key(fe->me, 0, 0, 'u'))
804 PostQuitMessage(0);
805 break;
806 case IDM_REDO:
807 if (!midend_process_key(fe->me, 0, 0, '\x12'))
808 PostQuitMessage(0);
809 break;
810 case IDM_QUIT:
811 if (!midend_process_key(fe->me, 0, 0, 'q'))
812 PostQuitMessage(0);
813 break;
814 case IDM_CONFIG:
815 if (get_config(fe))
816 new_game_type(fe);
817 break;
818 default:
819 {
820 int p = ((wParam &~ 0xF) - IDM_PRESETS) / 0x10;
821
822 if (p >= 0 && p < fe->npresets) {
823 midend_set_params(fe->me, fe->presets[p]);
824 new_game_type(fe);
825 }
826 }
827 break;
828 }
829 break;
830 case WM_DESTROY:
831 PostQuitMessage(0);
832 return 0;
833 case WM_PAINT:
834 {
835 PAINTSTRUCT p;
836 HDC hdc, hdc2;
837 HBITMAP prevbm;
838
839 hdc = BeginPaint(hwnd, &p);
840 hdc2 = CreateCompatibleDC(hdc);
841 prevbm = SelectObject(hdc2, fe->bitmap);
842 BitBlt(hdc,
843 p.rcPaint.left, p.rcPaint.top,
844 p.rcPaint.right - p.rcPaint.left,
845 p.rcPaint.bottom - p.rcPaint.top,
846 hdc2,
847 p.rcPaint.left, p.rcPaint.top,
848 SRCCOPY);
849 SelectObject(hdc2, prevbm);
850 DeleteDC(hdc2);
851 EndPaint(hwnd, &p);
852 }
853 return 0;
854 case WM_KEYDOWN:
855 {
856 int key = -1;
857
858 switch (wParam) {
859 case VK_LEFT: key = CURSOR_LEFT; break;
860 case VK_RIGHT: key = CURSOR_RIGHT; break;
861 case VK_UP: key = CURSOR_UP; break;
862 case VK_DOWN: key = CURSOR_DOWN; break;
863 /*
864 * Diagonal keys on the numeric keypad.
865 */
866 case VK_PRIOR:
867 if (!(lParam & 0x01000000)) key = CURSOR_UP_RIGHT;
868 break;
869 case VK_NEXT:
870 if (!(lParam & 0x01000000)) key = CURSOR_DOWN_RIGHT;
871 break;
872 case VK_HOME:
873 if (!(lParam & 0x01000000)) key = CURSOR_UP_LEFT;
874 break;
875 case VK_END:
876 if (!(lParam & 0x01000000)) key = CURSOR_DOWN_LEFT;
877 break;
878 /*
879 * Numeric keypad keys with Num Lock on.
880 */
881 case VK_NUMPAD4: key = CURSOR_LEFT; break;
882 case VK_NUMPAD6: key = CURSOR_RIGHT; break;
883 case VK_NUMPAD8: key = CURSOR_UP; break;
884 case VK_NUMPAD2: key = CURSOR_DOWN; break;
885 case VK_NUMPAD9: key = CURSOR_UP_RIGHT; break;
886 case VK_NUMPAD3: key = CURSOR_DOWN_RIGHT; break;
887 case VK_NUMPAD7: key = CURSOR_UP_LEFT; break;
888 case VK_NUMPAD1: key = CURSOR_DOWN_LEFT; break;
889 }
890
891 if (key != -1) {
892 if (!midend_process_key(fe->me, 0, 0, key))
893 PostQuitMessage(0);
894 } else {
895 MSG m;
896 m.hwnd = hwnd;
897 m.message = WM_KEYDOWN;
898 m.wParam = wParam;
899 m.lParam = lParam & 0xdfff;
900 TranslateMessage(&m);
901 }
902 }
903 break;
904 case WM_LBUTTONDOWN:
905 case WM_RBUTTONDOWN:
906 case WM_MBUTTONDOWN:
907 {
908 int button;
909
910 /*
911 * Shift-clicks count as middle-clicks, since otherwise
912 * two-button Windows users won't have any kind of
913 * middle click to use.
914 */
915 if (message == WM_MBUTTONDOWN || (wParam & MK_SHIFT))
916 button = MIDDLE_BUTTON;
917 else if (message == WM_LBUTTONDOWN)
918 button = LEFT_BUTTON;
919 else
920 button = RIGHT_BUTTON;
921
922 if (!midend_process_key(fe->me, LOWORD(lParam),
923 HIWORD(lParam), button))
924 PostQuitMessage(0);
925 }
926 break;
927 case WM_CHAR:
928 if (!midend_process_key(fe->me, 0, 0, (unsigned char)wParam))
929 PostQuitMessage(0);
930 return 0;
931 case WM_TIMER:
932 if (fe->timer)
933 midend_timer(fe->me, (float)0.02);
934 return 0;
935 }
936
937 return DefWindowProc(hwnd, message, wParam, lParam);
938 }
939
940 int WINAPI WinMain(HINSTANCE inst, HINSTANCE prev, LPSTR cmdline, int show)
941 {
942 MSG msg;
943
944 srand(time(NULL));
945
946 InitCommonControls();
947
948 if (!prev) {
949 WNDCLASS wndclass;
950
951 wndclass.style = 0;
952 wndclass.lpfnWndProc = WndProc;
953 wndclass.cbClsExtra = 0;
954 wndclass.cbWndExtra = 0;
955 wndclass.hInstance = inst;
956 wndclass.hIcon = LoadIcon(inst, IDI_APPLICATION);
957 wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
958 wndclass.hbrBackground = NULL;
959 wndclass.lpszMenuName = NULL;
960 wndclass.lpszClassName = game_name;
961
962 RegisterClass(&wndclass);
963 }
964
965 new_window(inst);
966
967 while (GetMessage(&msg, NULL, 0, 0)) {
968 DispatchMessage(&msg);
969 }
970
971 return msg.wParam;
972 }
Simon Tatham's portable puzzles collection; import of svn://svn.tartarus.org/sgt/puzzles