1

/* $Id$ */

     2

     3

#include "../stdafx.h"

     4

#include "../openttd.h"

     5

#include "../functions.h"

     6

#include "../gfx.h"

     7

#include "../macros.h"

     8

#include "../network/network.h"

     9

#include "../variables.h"

    10

#include "../window.h"

    11

#include "../win32.h"

    12

#include "win32_v.h"

    13

#include <windows.h>

    14

#include <tchar.h>

    15

    16

static struct {

    17

	HWND main_wnd;

    18

	HBITMAP dib_sect;

    19

	Pixel *bitmap_bits;

    20

	Pixel *buffer_bits;

    21

	Pixel *alloced_bits;

    22

	HPALETTE gdi_palette;

    23

	int width;

    24

	int height;

    25

	int width_org;

    26

	int height_org;

    27

	bool fullscreen;

    28

	bool double_size;

    29

	bool has_focus;

    30

	bool running;

    31

} _wnd;

    32

    33

bool _force_full_redraw;

    34

bool _double_size;

    35

bool _window_maximize;

    36

uint _display_hz;

    37

uint _fullscreen_bpp;

    38

static uint16 _bck_resolution[2];

    39

#if !defined(UNICODE)

    40

uint _codepage;

    41

#endif

    42

    43

static void MakePalette()

    44

{

    45

	LOGPALETTE *pal;

    46

	uint i;

    47

    49

    50

	pal->palVersion = 0x300;

    51

	pal->palNumEntries = 256;

    52

    53

	for (i = 0; i != 256; i++) {

    54

		pal->palPalEntry[i].peRed   = _cur_palette[i].r;

    55

		pal->palPalEntry[i].peGreen = _cur_palette[i].g;

    56

		pal->palPalEntry[i].peBlue  = _cur_palette[i].b;

    57

		pal->palPalEntry[i].peFlags = 0;

    58

    59

	}

    60

	_wnd.gdi_palette = CreatePalette(pal);

    61

	if (_wnd.gdi_palette == NULL) error("CreatePalette failed!\n");

    62

}

    63

    64

static void UpdatePalette(HDC dc, uint start, uint count)

    65

{

    66

	RGBQUAD rgb[256];

    67

	uint i;

    68

    69

	for (i = 0; i != count; i++) {

    70

		rgb[i].rgbRed   = _cur_palette[start + i].r;

    71

		rgb[i].rgbGreen = _cur_palette[start + i].g;

    72

		rgb[i].rgbBlue  = _cur_palette[start + i].b;

    73

		rgb[i].rgbReserved = 0;

    74

	}

    75

    76

	SetDIBColorTable(dc, start, count, rgb);

    77

}

    78

    79

struct VkMapping {

    80

	byte vk_from;

    81

	byte vk_count;

    82

	byte map_to;

    83

};

    84

    85

#define AS(x, z) {x, 0, z}

    86

#define AM(x, y, z, w) {x, y - x, z}

    87

    88

static const VkMapping _vk_mapping[] = {

    89

	// Pageup stuff + up/down

    90

	AM(VK_PRIOR,VK_DOWN, WKC_PAGEUP, WKC_DOWN),

    91

	// Map letters & digits

    92

	AM('A','Z','A','Z'),

    93

	AM('0','9','0','9'),

    94

    95

	AS(VK_ESCAPE,   WKC_ESC),

    96

	AS(VK_PAUSE,    WKC_PAUSE),

    97

	AS(VK_BACK,     WKC_BACKSPACE),

    98

	AM(VK_INSERT,   VK_DELETE, WKC_INSERT, WKC_DELETE),

    99

   100

	AS(VK_SPACE,    WKC_SPACE),

   101

	AS(VK_RETURN,   WKC_RETURN),

   102

	AS(VK_TAB,      WKC_TAB),

   103

   104

	// Function keys

   105

	AM(VK_F1, VK_F12, WKC_F1, WKC_F12),

   106

   107

	// Numeric part.

   108

	// What is the virtual keycode for numeric enter??

   109

	AM(VK_NUMPAD0, VK_NUMPAD9, WKC_NUM_0, WKC_NUM_9),

   110

	AS(VK_DIVIDE,   WKC_NUM_DIV),

   111

	AS(VK_MULTIPLY, WKC_NUM_MUL),

   112

	AS(VK_SUBTRACT, WKC_NUM_MINUS),

   113

	AS(VK_ADD,      WKC_NUM_PLUS),

   114

	AS(VK_DECIMAL,  WKC_NUM_DECIMAL)

   115

};

   116

   117

static uint MapWindowsKey(uint sym)

   118

{

   119

	const VkMapping *map;

   120

	uint key = 0;

   121

   122

	for (map = _vk_mapping; map != endof(_vk_mapping); ++map) {

   123

		if ((uint)(sym - map->vk_from) <= map->vk_count) {

   124

			key = sym - map->vk_from + map->map_to;

   125

			break;

   126

		}

   127

	}

   128

   129

	if (GetAsyncKeyState(VK_SHIFT)   < 0) key |= WKC_SHIFT;

   130

	if (GetAsyncKeyState(VK_CONTROL) < 0) key |= WKC_CTRL;

   131

	if (GetAsyncKeyState(VK_MENU)    < 0) key |= WKC_ALT;

   132

	return key;

   133

}

   134

   135

static bool AllocateDibSection(int w, int h);

   136

   137

static void ClientSizeChanged(int w, int h)

   138

{

   139

	if (_wnd.double_size) {

   140

		w /= 2;

   141

		h /= 2;

   142

	}

   143

   144

	// allocate new dib section of the new size

   145

	if (AllocateDibSection(w, h)) {

   146

		// mark all palette colors dirty

   147

		_pal_first_dirty = 0;

   148

		_pal_last_dirty = 255;

   149

		GameSizeChanged();

   150

   151

		// redraw screen

   152

		if (_wnd.running) {

   153

			_screen.dst_ptr = _wnd.buffer_bits;

   154

			UpdateWindows();

   155

		}

   156

	}

   157

}

   158

   159

#ifdef _DEBUG

   160

// Keep this function here..

   161

// It allows you to redraw the screen from within the MSVC debugger

   162

int RedrawScreenDebug()

   163

{

   164

	HDC dc,dc2;

   165

	static int _fooctr;

   166

	HBITMAP old_bmp;

   167

	HPALETTE old_palette;

   168

   169

	_screen.dst_ptr = _wnd.buffer_bits;

   170

	UpdateWindows();

   171

   172

	dc = GetDC(_wnd.main_wnd);

   173

	dc2 = CreateCompatibleDC(dc);

   174

   175

	old_bmp = (HBITMAP)SelectObject(dc2, _wnd.dib_sect);

   176

	old_palette = SelectPalette(dc, _wnd.gdi_palette, FALSE);

   177

	BitBlt(dc, 0, 0, _wnd.width, _wnd.height, dc2, 0, 0, SRCCOPY);

   178

	SelectPalette(dc, old_palette, TRUE);

   179

	SelectObject(dc2, old_bmp);

   180

	DeleteDC(dc2);

   181

	ReleaseDC(_wnd.main_wnd, dc);

   182

   183

	return _fooctr++;

   184

}

   185

#endif

   186

   187

/* Windows 95 will not have a WM_MOUSELEAVE message, so define it if needed */

   188

#if !defined(WM_MOUSELEAVE)

   189

#define WM_MOUSELEAVE 0x02A3

   190

#endif

   191

#define TID_POLLMOUSE 1

   192

#define MOUSE_POLL_DELAY 75

   193

   194

static void CALLBACK TrackMouseTimerProc(HWND hwnd, UINT msg, UINT event, DWORD time)

   195

{

   196

	RECT rc;

   197

	POINT pt;

   198

   199

	/* Get the rectangle of our window and translate it to screen coordinates.

   200

	 * Compare this with the current screen coordinates of the mouse and if it

   201

	 * falls outside of the area or our window we have left the window. */

   202

	GetClientRect(hwnd, &rc);

   203

	MapWindowPoints(hwnd, HWND_DESKTOP, (LPPOINT)(LPRECT)&rc, 2);

   204

	GetCursorPos(&pt);

   205

   206

	if (!PtInRect(&rc, pt) || (WindowFromPoint(pt) != hwnd)) {

   207

		KillTimer(hwnd, event);

   208

		PostMessage(hwnd, WM_MOUSELEAVE, 0, 0L);

   209

	}

   210

}

   211

   212

static LRESULT CALLBACK WndProcGdi(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)

   213

{

   214

	static uint32 keycode = 0;

   215

   216

	switch (msg) {

   217

		case WM_CREATE:

   218

			SetTimer(hwnd, TID_POLLMOUSE, MOUSE_POLL_DELAY, (TIMERPROC)TrackMouseTimerProc);

   219

			break;

   220

   221

		case WM_PAINT: {

   222

			PAINTSTRUCT ps;

   223

			HDC dc,dc2;

   224

			HBITMAP old_bmp;

   225

			HPALETTE old_palette;

   226

   227

			BeginPaint(hwnd, &ps);

   228

			dc = ps.hdc;

   229

			dc2 = CreateCompatibleDC(dc);

   230

			old_bmp = (HBITMAP)SelectObject(dc2, _wnd.dib_sect);

   231

			old_palette = SelectPalette(dc, _wnd.gdi_palette, FALSE);

   232

   233

			if (_pal_last_dirty != -1) {

   234

				UpdatePalette(dc2, _pal_first_dirty, _pal_last_dirty - _pal_first_dirty + 1);

   235

				_pal_last_dirty = -1;

   236

			}

   237

   238

			BitBlt(dc, 0, 0, _wnd.width, _wnd.height, dc2, 0, 0, SRCCOPY);

   239

			SelectPalette(dc, old_palette, TRUE);

   240

			SelectObject(dc2, old_bmp);

   241

			DeleteDC(dc2);

   242

			EndPaint(hwnd, &ps);

   243

			return 0;

   244

		}

   245

   246

		case WM_PALETTECHANGED:

   247

			if ((HWND)wParam == hwnd) return 0;

   248

			/* FALLTHROUGH */

   249

   250

		case WM_QUERYNEWPALETTE: {

   251

			HDC hDC = GetWindowDC(hwnd);

   252

			HPALETTE hOldPalette = SelectPalette(hDC, _wnd.gdi_palette, FALSE);

   253

			UINT nChanged = RealizePalette(hDC);

   254

   255

			SelectPalette(hDC, hOldPalette, TRUE);

   256

			ReleaseDC(hwnd, hDC);

   257

			if (nChanged) InvalidateRect(hwnd, NULL, FALSE);

   258

			return 0;

   259

		}

   260

   261

		case WM_CLOSE:

   262

			HandleExitGameRequest();

   263

			return 0;

   264

   265

		case WM_DESTROY:

   266

			if (_window_maximize) {

   267

				_cur_resolution[0] = _bck_resolution[0];

   268

				_cur_resolution[1] = _bck_resolution[1];

   269

			}

   270

			return 0;

   271

   272

		case WM_LBUTTONDOWN:

   273

			SetCapture(hwnd);

   274

			_left_button_down = true;

   275

			HandleMouseEvents();

   276

			return 0;

   277

   278

		case WM_LBUTTONUP:

   279

			ReleaseCapture();

   280

			_left_button_down = false;

   281

			_left_button_clicked = false;

   282

			HandleMouseEvents();

   283

			return 0;

   284

   285

		case WM_RBUTTONDOWN:

   286

			SetCapture(hwnd);

   287

			_right_button_down = true;

   288

			_right_button_clicked = true;

   289

			HandleMouseEvents();

   290

			return 0;

   291

   292

		case WM_RBUTTONUP:

   293

			ReleaseCapture();

   294

			_right_button_down = false;

   295

			HandleMouseEvents();

   296

			return 0;

   297

   298

		case WM_MOUSELEAVE:

   299

			UndrawMouseCursor();

   300

			_cursor.in_window = false;

   301

   302

			if (!_left_button_down && !_right_button_down) MyShowCursor(true);

   303

			HandleMouseEvents();

   304

			return 0;

   305

   306

		case WM_MOUSEMOVE: {

   307

			int x = (int16)LOWORD(lParam);

   308

			int y = (int16)HIWORD(lParam);

   309

			POINT pt;

   310

   311

			/* If the mouse was not in the window and it has moved it means it has

   312

			 * come into the window, so start drawing the mouse. Also start

   313

			 * tracking the mouse for exiting the window */

   314

			if (!_cursor.in_window) {

   315

				_cursor.in_window = true;

   316

				SetTimer(hwnd, TID_POLLMOUSE, MOUSE_POLL_DELAY, (TIMERPROC)TrackMouseTimerProc);

   317

   318

				DrawMouseCursor();

   319

			}

   320

   321

			if (_wnd.double_size) {

   322

				x /= 2;

   323

				y /= 2;

   324

			}

   325

   326

			if (_cursor.fix_at) {

   327

				int dx = x - _cursor.pos.x;

   328

				int dy = y - _cursor.pos.y;

   329

				if (dx != 0 || dy != 0) {

   330

					_cursor.delta.x += dx;

   331

					_cursor.delta.y += dy;

   332

   333

					pt.x = _cursor.pos.x;

   334

					pt.y = _cursor.pos.y;

   335

   336

					if (_wnd.double_size) {

   337

						pt.x *= 2;

   338

						pt.y *= 2;

   339

					}

   340

					ClientToScreen(hwnd, &pt);

   341

					SetCursorPos(pt.x, pt.y);

   342

				}

   343

			} else {

   344

				_cursor.delta.x += x - _cursor.pos.x;

   345

				_cursor.delta.y += y - _cursor.pos.y;

   346

				_cursor.pos.x = x;

   347

				_cursor.pos.y = y;

   348

				_cursor.dirty = true;

   349

			}

   350

			MyShowCursor(false);

   351

			HandleMouseEvents();

   352

			return 0;

   353

		}

   354

   355

#if !defined(UNICODE)

   356

		case WM_INPUTLANGCHANGE: {

   357

			TCHAR locale[6];

   358

			LCID lcid = GB(lParam, 0, 16);

   359

   360

			int len = GetLocaleInfo(lcid, LOCALE_IDEFAULTANSICODEPAGE, locale, lengthof(locale));

   361

			if (len != 0) _codepage = _ttoi(locale);

   362

			return 1;

   363

		}

   364

#endif /* UNICODE */

   365

   366

		case WM_CHAR: {

   367

			/* Silently drop all non-text messages as those were handled by WM_KEYDOWN */

   368

			if (wParam < VK_SPACE) return 0;

   369

			uint scancode = GB(lParam, 16, 8);

   370

			uint charcode = wParam;

   371

   372

#if !defined(UNICODE)

   373

			wchar_t w;

   374

			int len = MultiByteToWideChar(_codepage, 0, (char*)&charcode, 1, &w, 1);

   375

			charcode = len == 1 ? w : 0;

   376

#endif /* UNICODE */

   377

   378

			/* No matter the keyboard layout, we will map the '~' to the console */

   379

			scancode = scancode == 41 ? (int)WKC_BACKQUOTE : keycode;

   380

			HandleKeypress(GB(charcode, 0, 16) | (scancode << 16));

   381

			return 0;

   382

		}

   383

   384

		case WM_KEYDOWN: {

   385

			keycode = MapWindowsKey(wParam);

   386

   387

			/* Silently drop all text messages as those will be handled by WM_CHAR

   388

			 * WM_KEYDOWN only handles CTRL+ commands and special keys like VK_LEFT, etc. */

   389

			if (keycode == 0 || (keycode > WKC_PAUSE && GB(keycode, 13, 4) == 0)) return 0;

   390

   391

			if (keycode == ('D' | WKC_CTRL) && !_wnd.fullscreen) {

   392

				_double_size ^= 1;

   393

				_wnd.double_size = _double_size;

   394

				ClientSizeChanged(_wnd.width, _wnd.height);

   395

				MarkWholeScreenDirty();

   396

			}

   397

   398

			HandleKeypress(0 | (keycode << 16));

   399

			return 0;

   400

		}

   401

   402

		case WM_SYSKEYDOWN: /* user presses F10 or Alt, both activating the title-menu */

   403

			switch (wParam) {

   404

				case VK_RETURN:

   405

				case 'F': /* Full Screen on ALT + ENTER/F */

   406

					ToggleFullScreen(!_wnd.fullscreen);

   407

					return 0;

   408

   409

				case VK_MENU: /* Just ALT */

   410

					return 0; // do nothing

   411

   412

				case VK_F10: /* F10, ignore activation of menu */

   413

					HandleKeypress(MapWindowsKey(wParam) << 16);

   414

					return 0;

   415

   416

				default: /* ALT in combination with something else */

   417

					HandleKeypress(MapWindowsKey(wParam) << 16);

   418

					break;

   419

			}

   420

			break;

   421

   422

		case WM_SIZE:

   423

			if (wParam != SIZE_MINIMIZED) {

   424

				/* Set maximized flag when we maximize (obviously), but also when we

   425

				 * switched to fullscreen from a maximized state */

   426

				_window_maximize = (wParam == SIZE_MAXIMIZED || (_window_maximize && _fullscreen));

   427

				if (_window_maximize) {

   428

					_bck_resolution[0] = _cur_resolution[0];

   429

					_bck_resolution[1] = _cur_resolution[1];

   430

				}

   431

				ClientSizeChanged(LOWORD(lParam), HIWORD(lParam));

   432

			}

   433

			return 0;

   434

   435

#if !defined(WINCE)

   436

		case WM_SIZING: {

   437

			RECT* r = (RECT*)lParam;

   438

			RECT r2;

   439

			int w, h;

   440

   441

			SetRect(&r2, 0, 0, 0, 0);

   442

			AdjustWindowRect(&r2, GetWindowLong(hwnd, GWL_STYLE), FALSE);

   443

   444

			w = r->right - r->left - (r2.right - r2.left);

   445

			h = r->bottom - r->top - (r2.bottom - r2.top);

   446

			if (_wnd.double_size) {

   447

				w /= 2;

   448

				h /= 2;

   449

			}

   450

			w = clamp(w, 64, MAX_SCREEN_WIDTH);

   451

			h = clamp(h, 64, MAX_SCREEN_HEIGHT);

   452

			if (_wnd.double_size) {

   453

				w *= 2;

   454

				h *= 2;

   455

			}

   456

			SetRect(&r2, 0, 0, w, h);

   457

   458

			AdjustWindowRect(&r2, GetWindowLong(hwnd, GWL_STYLE), FALSE);

   459

			w = r2.right - r2.left;

   460

			h = r2.bottom - r2.top;

   461

   462

			switch (wParam) {

   463

				case WMSZ_BOTTOM:

   464

					r->bottom = r->top + h;

   465

					break;

   466

   467

				case WMSZ_BOTTOMLEFT:

   468

					r->bottom = r->top + h;

   469

					r->left = r->right - w;

   470

					break;

   471

   472

				case WMSZ_BOTTOMRIGHT:

   473

					r->bottom = r->top + h;

   474

					r->right = r->left + w;

   475

					break;

   476

   477

				case WMSZ_LEFT:

   478

					r->left = r->right - w;

   479

					break;

   480

   481

				case WMSZ_RIGHT:

   482

					r->right = r->left + w;

   483

					break;

   484

   485

				case WMSZ_TOP:

   486

					r->top = r->bottom - h;

   487

					break;

   488

   489

				case WMSZ_TOPLEFT:

   490

					r->top = r->bottom - h;

   491

					r->left = r->right - w;

   492

					break;

   493