zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-21 08:01:30 -07:00
Code Issues Packages Projects Releases Wiki Activity
Files
puzzles/windows.c
Simon Tatham e8f6124996 Game configuration box for Windows, by constructing the dialog box 
right from scratch without the slightest reference to any dialog
templates (meaning that we get to figure out the layout and _then_
choose the window size). I'm rather pleased with that. Also
introduced free_cfg(), which is why this checkin touched gtk.c as
well.

[originally from svn r4184]
2004-05-03 07:52:33 +00:00

973 lines
23 KiB
C
Raw Blame History

/*
* windows.c: Windows front end for my puzzle collection.
*/
#include <windows.h>
#include <commctrl.h>
#include <stdio.h>
#include <assert.h>
#include <stdarg.h>
#include <stdlib.h>
#include <time.h>
#include "puzzles.h"
#define IDM_NEW 0x0010
#define IDM_RESTART 0x0020
#define IDM_UNDO 0x0030
#define IDM_REDO 0x0040
#define IDM_QUIT 0x0050
#define IDM_CONFIG 0x0060
#define IDM_PRESETS 0x0100
#ifdef DEBUG
static FILE *debug_fp = NULL;
static HANDLE debug_hdl = INVALID_HANDLE_VALUE;
static int debug_got_console = 0;
void dputs(char *buf)
{
DWORD dw;
if (!debug_got_console) {
if (AllocConsole()) {
debug_got_console = 1;
debug_hdl = GetStdHandle(STD_OUTPUT_HANDLE);
}
}
if (!debug_fp) {
debug_fp = fopen("debug.log", "w");
}
if (debug_hdl != INVALID_HANDLE_VALUE) {
WriteFile(debug_hdl, buf, strlen(buf), &dw, NULL);
}
fputs(buf, debug_fp);
fflush(debug_fp);
}
void debug_printf(char *fmt, ...)
{
char buf[4096];
va_list ap;
va_start(ap, fmt);
vsprintf(buf, fmt, ap);
dputs(buf);
va_end(ap);
}
#define debug(x) (debug_printf x)
#else
#define debug(x)
#endif
struct font {
HFONT font;
int type;
int size;
};
struct cfg_aux {
int ctlid;
};
struct frontend {
midend_data *me;
HWND hwnd, statusbar, cfgbox;
HINSTANCE inst;
HBITMAP bitmap, prevbm;
HDC hdc_bm;
COLORREF *colours;
HBRUSH *brushes;
HPEN *pens;
HRGN clip;
UINT timer;
int npresets;
game_params **presets;
struct font *fonts;
int nfonts, fontsize;
config_item *cfg;
struct cfg_aux *cfgaux;
int cfg_done;
HFONT cfgfont;
};
void fatal(char *fmt, ...)
{
char buf[2048];
va_list ap;
va_start(ap, fmt);
vsprintf(buf, fmt, ap);
va_end(ap);
MessageBox(NULL, buf, "Fatal error", MB_ICONEXCLAMATION | MB_OK);
exit(1);
}
void status_bar(frontend *fe, char *text)
{
SetWindowText(fe->statusbar, text);
}
void frontend_default_colour(frontend *fe, float *output)
{
DWORD c = GetSysColor(COLOR_MENU); /* ick */
output[0] = (float)(GetRValue(c) / 255.0);
output[1] = (float)(GetGValue(c) / 255.0);
output[2] = (float)(GetBValue(c) / 255.0);
}
void clip(frontend *fe, int x, int y, int w, int h)
{
if (!fe->clip) {
fe->clip = CreateRectRgn(0, 0, 1, 1);
GetClipRgn(fe->hdc_bm, fe->clip);
}
IntersectClipRect(fe->hdc_bm, x, y, x+w, y+h);
}
void unclip(frontend *fe)
{
assert(fe->clip);
SelectClipRgn(fe->hdc_bm, fe->clip);
}
void draw_text(frontend *fe, int x, int y, int fonttype, int fontsize,
int align, int colour, char *text)
{
int i;
/*
* Find or create the font.
*/
for (i = 0; i < fe->nfonts; i++)
if (fe->fonts[i].type == fonttype && fe->fonts[i].size == fontsize)
break;
if (i == fe->nfonts) {
if (fe->fontsize <= fe->nfonts) {
fe->fontsize = fe->nfonts + 10;
fe->fonts = sresize(fe->fonts, fe->fontsize, struct font);
}
fe->nfonts++;
fe->fonts[i].type = fonttype;
fe->fonts[i].size = fontsize;
/*
* FIXME: Really I should make at least _some_ effort to
* pick the correct font.
*/
fe->fonts[i].font = CreateFont(-fontsize, 0, 0, 0, 0,
FALSE, FALSE, FALSE, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
(fonttype == FONT_FIXED ?
FIXED_PITCH | FF_DONTCARE :
VARIABLE_PITCH | FF_SWISS),
NULL);
}
/*
* Position and draw the text.
*/
{
HFONT oldfont;
TEXTMETRIC tm;
SIZE size;
oldfont = SelectObject(fe->hdc_bm, fe->fonts[i].font);
if (GetTextMetrics(fe->hdc_bm, &tm)) {
if (align & ALIGN_VCENTRE)
y -= (tm.tmAscent+tm.tmDescent)/2;
else
y -= tm.tmAscent;
}
if (GetTextExtentPoint32(fe->hdc_bm, text, strlen(text), &size)) {
if (align & ALIGN_HCENTRE)
x -= size.cx / 2;
else if (align & ALIGN_HRIGHT)
x -= size.cx;
}
SetBkMode(fe->hdc_bm, TRANSPARENT);
TextOut(fe->hdc_bm, x, y, text, strlen(text));
SelectObject(fe->hdc_bm, oldfont);
}
}
void draw_rect(frontend *fe, int x, int y, int w, int h, int colour)
{
if (w == 1 && h == 1) {
/*
* Rectangle() appears to get uppity if asked to draw a 1x1
* rectangle, presumably on the grounds that that's beneath
* its dignity and you ought to be using SetPixel instead.
* So I will.
*/
SetPixel(fe->hdc_bm, x, y, fe->colours[colour]);
} else {
HBRUSH oldbrush = SelectObject(fe->hdc_bm, fe->brushes[colour]);
HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
Rectangle(fe->hdc_bm, x, y, x+w, y+h);
SelectObject(fe->hdc_bm, oldbrush);
SelectObject(fe->hdc_bm, oldpen);
}
}
void draw_line(frontend *fe, int x1, int y1, int x2, int y2, int colour)
{
HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
MoveToEx(fe->hdc_bm, x1, y1, NULL);
LineTo(fe->hdc_bm, x2, y2);
SetPixel(fe->hdc_bm, x2, y2, fe->colours[colour]);
SelectObject(fe->hdc_bm, oldpen);
}
void draw_polygon(frontend *fe, int *coords, int npoints,
int fill, int colour)
{
POINT *pts = snewn(npoints+1, POINT);
int i;
for (i = 0; i <= npoints; i++) {
int j = (i < npoints ? i : 0);
pts[i].x = coords[j*2];
pts[i].y = coords[j*2+1];
}
if (fill) {
HBRUSH oldbrush = SelectObject(fe->hdc_bm, fe->brushes[colour]);
HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
Polygon(fe->hdc_bm, pts, npoints);
SelectObject(fe->hdc_bm, oldbrush);
SelectObject(fe->hdc_bm, oldpen);
} else {
HPEN oldpen = SelectObject(fe->hdc_bm, fe->pens[colour]);
Polyline(fe->hdc_bm, pts, npoints+1);
SelectObject(fe->hdc_bm, oldpen);
}
sfree(pts);
}
void start_draw(frontend *fe)
{
HDC hdc_win;
hdc_win = GetDC(fe->hwnd);
fe->hdc_bm = CreateCompatibleDC(hdc_win);
fe->prevbm = SelectObject(fe->hdc_bm, fe->bitmap);
ReleaseDC(fe->hwnd, hdc_win);
fe->clip = NULL;
SetMapMode(fe->hdc_bm, MM_TEXT);
}
void draw_update(frontend *fe, int x, int y, int w, int h)
{
RECT r;
r.left = x;
r.top = y;
r.right = x + w;
r.bottom = y + h;
InvalidateRect(fe->hwnd, &r, FALSE);
}
void end_draw(frontend *fe)
{
SelectObject(fe->hdc_bm, fe->prevbm);
DeleteDC(fe->hdc_bm);
if (fe->clip) {
DeleteObject(fe->clip);
fe->clip = NULL;
}
}
void deactivate_timer(frontend *fe)
{
KillTimer(fe->hwnd, fe->timer);
fe->timer = 0;
}
void activate_timer(frontend *fe)
{
fe->timer = SetTimer(fe->hwnd, fe->timer, 20, NULL);
}
static frontend *new_window(HINSTANCE inst)
{
frontend *fe;
int x, y;
RECT r, sr;
HDC hdc;
fe = snew(frontend);
fe->me = midend_new(fe);
fe->inst = inst;
midend_new_game(fe->me, NULL);
midend_size(fe->me, &x, &y);
fe->timer = 0;
{
int i, ncolours;
float *colours;
colours = midend_colours(fe->me, &ncolours);
fe->colours = snewn(ncolours, COLORREF);
fe->brushes = snewn(ncolours, HBRUSH);
fe->pens = snewn(ncolours, HPEN);
for (i = 0; i < ncolours; i++) {
fe->colours[i] = RGB(255 * colours[i*3+0],
255 * colours[i*3+1],
255 * colours[i*3+2]);
fe->brushes[i] = CreateSolidBrush(fe->colours[i]);
fe->pens[i] = CreatePen(PS_SOLID, 1, fe->colours[i]);
}
}
r.left = r.top = 0;
r.right = x;
r.bottom = y;
AdjustWindowRectEx(&r, WS_OVERLAPPEDWINDOW &~
(WS_THICKFRAME | WS_MAXIMIZEBOX | WS_OVERLAPPED),
TRUE, 0);
fe->hwnd = CreateWindowEx(0, game_name, game_name,
WS_OVERLAPPEDWINDOW &~
(WS_THICKFRAME | WS_MAXIMIZEBOX),
CW_USEDEFAULT, CW_USEDEFAULT,
r.right - r.left, r.bottom - r.top,
NULL, NULL, inst, NULL);
{
HMENU bar = CreateMenu();
HMENU menu = CreateMenu();
AppendMenu(bar, MF_ENABLED|MF_POPUP, (UINT)menu, "Game");
AppendMenu(menu, MF_ENABLED, IDM_NEW, "New");
AppendMenu(menu, MF_ENABLED, IDM_RESTART, "Restart");
if ((fe->npresets = midend_num_presets(fe->me)) > 0 ||
game_can_configure) {
HMENU sub = CreateMenu();
int i;
AppendMenu(bar, MF_ENABLED|MF_POPUP, (UINT)sub, "Type");
fe->presets = snewn(fe->npresets, game_params *);
for (i = 0; i < fe->npresets; i++) {
char *name;
midend_fetch_preset(fe->me, i, &name, &fe->presets[i]);
/*
* FIXME: we ought to go through and do something
* with ampersands here.
*/
AppendMenu(sub, MF_ENABLED, IDM_PRESETS + 0x10 * i, name);
}
if (game_can_configure) {
AppendMenu(sub, MF_ENABLED, IDM_CONFIG, "Custom...");
}
}
AppendMenu(menu, MF_SEPARATOR, 0, 0);
AppendMenu(menu, MF_ENABLED, IDM_UNDO, "Undo");
AppendMenu(menu, MF_ENABLED, IDM_REDO, "Redo");
AppendMenu(menu, MF_SEPARATOR, 0, 0);
AppendMenu(menu, MF_ENABLED, IDM_QUIT, "Exit");
SetMenu(fe->hwnd, bar);
}
if (midend_wants_statusbar(fe->me)) {
fe->statusbar = CreateWindowEx(0, STATUSCLASSNAME, "ooh",
WS_CHILD | WS_VISIBLE,
0, 0, 0, 0, /* status bar does these */
fe->hwnd, NULL, inst, NULL);
GetWindowRect(fe->statusbar, &sr);
SetWindowPos(fe->hwnd, NULL, 0, 0,
r.right - r.left, r.bottom - r.top + sr.bottom - sr.top,
SWP_NOMOVE | SWP_NOZORDER);
SetWindowPos(fe->statusbar, NULL, 0, y, x, sr.bottom - sr.top,
SWP_NOZORDER);
} else {
fe->statusbar = NULL;
}
hdc = GetDC(fe->hwnd);
fe->bitmap = CreateCompatibleBitmap(hdc, x, y);
ReleaseDC(fe->hwnd, hdc);
SetWindowLong(fe->hwnd, GWL_USERDATA, (LONG)fe);
ShowWindow(fe->hwnd, SW_NORMAL);
SetForegroundWindow(fe->hwnd);
midend_redraw(fe->me);
return fe;
}
static int CALLBACK ConfigDlgProc(HWND hwnd, UINT msg,
WPARAM wParam, LPARAM lParam)
{
frontend *fe = (frontend *)GetWindowLong(hwnd, GWL_USERDATA);
config_item *i;
struct cfg_aux *j;
switch (msg) {
case WM_INITDIALOG:
return 0;
case WM_COMMAND:
/*
* OK and Cancel are special cases.
*/
if ((HIWORD(wParam) == BN_CLICKED ||
HIWORD(wParam) == BN_DOUBLECLICKED) &&
(LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)) {
if (LOWORD(wParam) == IDOK) {
char *err = midend_set_config(fe->me, fe->cfg);
if (err) {
MessageBox(hwnd, err, "Validation error",
MB_ICONERROR | MB_OK);
} else {
fe->cfg_done = 2;
}
} else {
fe->cfg_done = 1;
}
return 0;
}
/*
* First find the control whose id this is.
*/
for (i = fe->cfg, j = fe->cfgaux; i->type != C_END; i++, j++) {
if (j->ctlid == LOWORD(wParam))
break;
}
if (i->type == C_END)
return 0; /* not our problem */
if (i->type == C_STRING && HIWORD(wParam) == EN_CHANGE) {
char buffer[4096];
GetDlgItemText(fe->cfgbox, j->ctlid, buffer, lenof(buffer));
buffer[lenof(buffer)-1] = '\0';
sfree(i->sval);
i->sval = dupstr(buffer);
} else if (i->type == C_BOOLEAN &&
(HIWORD(wParam) == BN_CLICKED ||
HIWORD(wParam) == BN_DOUBLECLICKED)) {
i->ival = IsDlgButtonChecked(fe->cfgbox, j->ctlid);
} else if (i->type == C_CHOICES &&
HIWORD(wParam) == CBN_SELCHANGE) {
i->ival = SendDlgItemMessage(fe->cfgbox, j->ctlid,
CB_GETCURSEL, 0, 0);
}
return 0;
case WM_CLOSE:
fe->cfg_done = 1;
return 0;
}
return 0;
}
HWND mkctrl(frontend *fe, int x1, int x2, int y1, int y2,
char *wclass, int wstyle,
int exstyle, char *wtext, int wid)
{
HWND ret;
ret = CreateWindowEx(exstyle, wclass, wtext,
wstyle | WS_CHILD | WS_VISIBLE, x1, y1, x2-x1, y2-y1,
fe->cfgbox, (HMENU) wid, fe->inst, NULL);
SendMessage(ret, WM_SETFONT, (WPARAM)fe->cfgfont, MAKELPARAM(TRUE, 0));
return ret;
}
static int get_config(frontend *fe)
{
config_item *i;
struct cfg_aux *j;
WNDCLASS wc;
MSG msg;
TEXTMETRIC tm;
HDC hdc;
HFONT oldfont;
SIZE size;
HWND ctl;
int gm, id, nctrls;
int winwidth, winheight, col1l, col1r, col2l, col2r, y;
int height, width, maxlabel, maxcheckbox;
wc.style = CS_DBLCLKS | CS_SAVEBITS | CS_BYTEALIGNWINDOW;
wc.lpfnWndProc = DefDlgProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = DLGWINDOWEXTRA + 8;
wc.hInstance = fe->inst;
wc.hIcon = NULL;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH) (COLOR_BACKGROUND +1);
wc.lpszMenuName = NULL;
wc.lpszClassName = "GameConfigBox";
RegisterClass(&wc);
hdc = GetDC(fe->hwnd);
SetMapMode(hdc, MM_TEXT);
fe->cfg_done = FALSE;
fe->cfgfont = CreateFont(-MulDiv(8, GetDeviceCaps(hdc, LOGPIXELSY), 72),
0, 0, 0, 0,
FALSE, FALSE, FALSE, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
FF_SWISS,
"MS Shell Dlg");
oldfont = SelectObject(hdc, fe->cfgfont);
if (GetTextMetrics(hdc, &tm)) {
height = tm.tmAscent + tm.tmDescent;
width = tm.tmAveCharWidth;
} else {
height = width = 30;
}
fe->cfg = midend_get_config(fe->me);
/*
* Figure out the layout of the config box by measuring the
* length of each piece of text.
*/
maxlabel = maxcheckbox = 0;
winheight = height/2;
for (i = fe->cfg; i->type != C_END; i++) {
switch (i->type) {
case C_STRING:
case C_CHOICES:
/*
* Both these control types have a label filling only
* the left-hand column of the box.
*/
if (GetTextExtentPoint32(hdc, i->name, strlen(i->name), &size) &&
maxlabel < size.cx)
maxlabel = size.cx;
winheight += height * 3 / 2 + (height / 2);
break;
case C_BOOLEAN:
/*
* Checkboxes take up the whole of the box width.
*/
if (GetTextExtentPoint32(hdc, i->name, strlen(i->name), &size) &&
maxcheckbox < size.cx)
maxcheckbox = size.cx;
winheight += height + (height / 2);
break;
}
}
winheight += height + height * 7 / 4; /* OK / Cancel buttons */
col1l = 2*width;
col1r = col1l + maxlabel;
col2l = col1r + 2*width;
col2r = col2l + 30*width;
if (col2r < col1l+2*height+maxcheckbox)
col2r = col1l+2*height+maxcheckbox;
winwidth = col2r + 2*width;
ReleaseDC(fe->hwnd, hdc);
/*
* Create the dialog, now that we know its size.
*/
{
RECT r, r2;
r.left = r.top = 0;
r.right = winwidth;
r.bottom = winheight;
AdjustWindowRectEx(&r, (WS_OVERLAPPEDWINDOW /*|
DS_MODALFRAME | WS_POPUP | WS_VISIBLE |
WS_CAPTION | WS_SYSMENU*/) &~
(WS_MAXIMIZEBOX | WS_OVERLAPPED),
FALSE, 0);
/*
* Centre the dialog on its parent window.
*/
r.right -= r.left;
r.bottom -= r.top;
GetWindowRect(fe->hwnd, &r2);
r.left = (r2.left + r2.right - r.right) / 2;
r.top = (r2.top + r2.bottom - r.bottom) / 2;
r.right += r.left;
r.bottom += r.top;
fe->cfgbox = CreateWindowEx(0, wc.lpszClassName, "Configuration",
DS_MODALFRAME | WS_POPUP | WS_VISIBLE |
WS_CAPTION | WS_SYSMENU,
r.left, r.top,
r.right-r.left, r.bottom-r.top,
fe->hwnd, NULL, fe->inst, NULL);
}
SendMessage(fe->cfgbox, WM_SETFONT, (WPARAM)fe->cfgfont, FALSE);
SetWindowLong(fe->cfgbox, GWL_USERDATA, (LONG)fe);
SetWindowLong(fe->cfgbox, DWL_DLGPROC, (LONG)ConfigDlgProc);
/*
* Count the controls so we can allocate cfgaux.
*/
for (nctrls = 0, i = fe->cfg; i->type != C_END; i++)
nctrls++;
fe->cfgaux = snewn(nctrls, struct cfg_aux);
id = 1000;
y = height/2;
for (i = fe->cfg, j = fe->cfgaux; i->type != C_END; i++, j++) {
switch (i->type) {
case C_STRING:
/*
* Edit box with a label beside it.
*/
mkctrl(fe, col1l, col1r, y+height*1/8, y+height*9/8,
"Static", 0, 0, i->name, id++);
ctl = mkctrl(fe, col2l, col2r, y, y+height*3/2,
"EDIT", WS_TABSTOP | ES_AUTOHSCROLL,
WS_EX_CLIENTEDGE, "", (j->ctlid = id++));
SetWindowText(ctl, i->sval);
y += height*3/2;
break;
case C_BOOLEAN:
/*
* Simple checkbox.
*/
mkctrl(fe, col1l, col2r, y, y+height, "BUTTON",
BS_NOTIFY | BS_AUTOCHECKBOX | WS_TABSTOP,
0, i->name, (j->ctlid = id++));
y += height;
break;
case C_CHOICES:
/*
* Drop-down list with a label beside it.
*/
mkctrl(fe, col1l, col1r, y+height*1/8, y+height*9/8,
"STATIC", 0, 0, i->name, id++);
ctl = mkctrl(fe, col2l, col2r, y, y+height*41/2,
"COMBOBOX", WS_TABSTOP |
CBS_DROPDOWNLIST | CBS_HASSTRINGS,
WS_EX_CLIENTEDGE, "", (j->ctlid = id++));
{
char c, *p, *q, *str;
SendMessage(ctl, CB_RESETCONTENT, 0, 0);
p = i->sval;
c = *p++;
while (*p) {
q = p;
while (*q && *q != c) q++;
str = snewn(q-p+1, char);
strncpy(str, p, q-p);
str[q-p] = '\0';
SendMessage(ctl, CB_ADDSTRING, 0, (LPARAM)str);
sfree(str);
if (*q) q++;
p = q;
}
}
SendMessage(ctl, CB_SETCURSEL, i->ival, 0);
y += height*3/2;
break;
}
assert(y < winheight);
y += height/2;
}
y += height/2; /* extra space before OK and Cancel */
mkctrl(fe, col1l, (col1l+col2r)/2-width, y, y+height*7/4, "BUTTON",
BS_PUSHBUTTON | BS_NOTIFY | WS_TABSTOP | BS_DEFPUSHBUTTON, 0,
"OK", IDOK);
mkctrl(fe, (col1l+col2r)/2+width, col2r, y, y+height*7/4, "BUTTON",
BS_PUSHBUTTON | BS_NOTIFY | WS_TABSTOP, 0, "Cancel", IDCANCEL);
SendMessage(fe->cfgbox, WM_INITDIALOG, 0, 0);
EnableWindow(fe->hwnd, FALSE);
ShowWindow(fe->cfgbox, SW_NORMAL);
while ((gm=GetMessage(&msg, NULL, 0, 0)) > 0) {
if (!IsDialogMessage(fe->cfgbox, &msg))
DispatchMessage(&msg);
if (fe->cfg_done)
break;
}
EnableWindow(fe->hwnd, TRUE);
SetForegroundWindow(fe->hwnd);
DestroyWindow(fe->cfgbox);
DeleteObject(fe->cfgfont);
free_cfg(fe->cfg);
sfree(fe->cfgaux);
return (fe->cfg_done == 2);
}
static void new_game_type(frontend *fe)
{
RECT r, sr;
HDC hdc;
int x, y;
midend_new_game(fe->me, NULL);
midend_size(fe->me, &x, &y);
r.left = r.top = 0;
r.right = x;
r.bottom = y;
AdjustWindowRectEx(&r, WS_OVERLAPPEDWINDOW &~
(WS_THICKFRAME | WS_MAXIMIZEBOX |
WS_OVERLAPPED),
TRUE, 0);
if (fe->statusbar != NULL) {
GetWindowRect(fe->statusbar, &sr);
} else {
sr.left = sr.right = sr.top = sr.bottom = 0;
}
SetWindowPos(fe->hwnd, NULL, 0, 0,
r.right - r.left,
r.bottom - r.top + sr.bottom - sr.top,
SWP_NOMOVE | SWP_NOZORDER);
if (fe->statusbar != NULL)
SetWindowPos(fe->statusbar, NULL, 0, y, x,
sr.bottom - sr.top, SWP_NOZORDER);
DeleteObject(fe->bitmap);
hdc = GetDC(fe->hwnd);
fe->bitmap = CreateCompatibleBitmap(hdc, x, y);
ReleaseDC(fe->hwnd, hdc);
midend_redraw(fe->me);
}
static LRESULT CALLBACK WndProc(HWND hwnd, UINT message,
WPARAM wParam, LPARAM lParam)
{
frontend *fe = (frontend *)GetWindowLong(hwnd, GWL_USERDATA);
switch (message) {
case WM_CLOSE:
DestroyWindow(hwnd);
return 0;
case WM_COMMAND:
switch (wParam & ~0xF) { /* low 4 bits reserved to Windows */
case IDM_NEW:
if (!midend_process_key(fe->me, 0, 0, 'n'))
PostQuitMessage(0);
break;
case IDM_RESTART:
if (!midend_process_key(fe->me, 0, 0, 'r'))
PostQuitMessage(0);
break;
case IDM_UNDO:
if (!midend_process_key(fe->me, 0, 0, 'u'))
PostQuitMessage(0);
break;
case IDM_REDO:
if (!midend_process_key(fe->me, 0, 0, '\x12'))
PostQuitMessage(0);
break;
case IDM_QUIT:
if (!midend_process_key(fe->me, 0, 0, 'q'))
PostQuitMessage(0);
break;
case IDM_CONFIG:
if (get_config(fe))
new_game_type(fe);
break;
default:
{
int p = ((wParam &~ 0xF) - IDM_PRESETS) / 0x10;
if (p >= 0 && p < fe->npresets) {
midend_set_params(fe->me, fe->presets[p]);
new_game_type(fe);
}
}
break;
}
break;
case WM_DESTROY:
PostQuitMessage(0);
return 0;
case WM_PAINT:
{
PAINTSTRUCT p;
HDC hdc, hdc2;
HBITMAP prevbm;
hdc = BeginPaint(hwnd, &p);
hdc2 = CreateCompatibleDC(hdc);
prevbm = SelectObject(hdc2, fe->bitmap);
BitBlt(hdc,
p.rcPaint.left, p.rcPaint.top,
p.rcPaint.right - p.rcPaint.left,
p.rcPaint.bottom - p.rcPaint.top,
hdc2,
p.rcPaint.left, p.rcPaint.top,
SRCCOPY);
SelectObject(hdc2, prevbm);
DeleteDC(hdc2);
EndPaint(hwnd, &p);
}
return 0;
case WM_KEYDOWN:
{
int key = -1;
switch (wParam) {
case VK_LEFT: key = CURSOR_LEFT; break;
case VK_RIGHT: key = CURSOR_RIGHT; break;
case VK_UP: key = CURSOR_UP; break;
case VK_DOWN: key = CURSOR_DOWN; break;
/*
* Diagonal keys on the numeric keypad.
*/
case VK_PRIOR:
if (!(lParam & 0x01000000)) key = CURSOR_UP_RIGHT;
break;
case VK_NEXT:
if (!(lParam & 0x01000000)) key = CURSOR_DOWN_RIGHT;
break;
case VK_HOME:
if (!(lParam & 0x01000000)) key = CURSOR_UP_LEFT;
break;
case VK_END:
if (!(lParam & 0x01000000)) key = CURSOR_DOWN_LEFT;
break;
/*
* Numeric keypad keys with Num Lock on.
*/
case VK_NUMPAD4: key = CURSOR_LEFT; break;
case VK_NUMPAD6: key = CURSOR_RIGHT; break;
case VK_NUMPAD8: key = CURSOR_UP; break;
case VK_NUMPAD2: key = CURSOR_DOWN; break;
case VK_NUMPAD9: key = CURSOR_UP_RIGHT; break;
case VK_NUMPAD3: key = CURSOR_DOWN_RIGHT; break;
case VK_NUMPAD7: key = CURSOR_UP_LEFT; break;
case VK_NUMPAD1: key = CURSOR_DOWN_LEFT; break;
}
if (key != -1) {
if (!midend_process_key(fe->me, 0, 0, key))
PostQuitMessage(0);
} else {
MSG m;
m.hwnd = hwnd;
m.message = WM_KEYDOWN;
m.wParam = wParam;
m.lParam = lParam & 0xdfff;
TranslateMessage(&m);
}
}
break;
case WM_LBUTTONDOWN:
case WM_RBUTTONDOWN:
case WM_MBUTTONDOWN:
{
int button;
/*
* Shift-clicks count as middle-clicks, since otherwise
* two-button Windows users won't have any kind of
* middle click to use.
*/
if (message == WM_MBUTTONDOWN || (wParam & MK_SHIFT))
button = MIDDLE_BUTTON;
else if (message == WM_LBUTTONDOWN)
button = LEFT_BUTTON;
else
button = RIGHT_BUTTON;
if (!midend_process_key(fe->me, LOWORD(lParam),
HIWORD(lParam), button))
PostQuitMessage(0);
}
break;
case WM_CHAR:
if (!midend_process_key(fe->me, 0, 0, (unsigned char)wParam))
PostQuitMessage(0);
return 0;
case WM_TIMER:
if (fe->timer)
midend_timer(fe->me, (float)0.02);
return 0;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
int WINAPI WinMain(HINSTANCE inst, HINSTANCE prev, LPSTR cmdline, int show)
{
MSG msg;
srand(time(NULL));
InitCommonControls();
if (!prev) {
WNDCLASS wndclass;
wndclass.style = 0;
wndclass.lpfnWndProc = WndProc;
wndclass.cbClsExtra = 0;
wndclass.cbWndExtra = 0;
wndclass.hInstance = inst;
wndclass.hIcon = LoadIcon(inst, IDI_APPLICATION);
wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
wndclass.hbrBackground = NULL;
wndclass.lpszMenuName = NULL;
wndclass.lpszClassName = game_name;
RegisterClass(&wndclass);
}
new_window(inst);
while (GetMessage(&msg, NULL, 0, 0)) {
DispatchMessage(&msg);
}
return msg.wParam;
}
Reference in New Issue View Git Blame Copy Permalink