AppleWin/source/Frame.cpp

1146 lines
36 KiB
C++

/*
AppleWin : An Apple //e emulator for Windows
Copyright (C) 1994-1996, Michael O'Brien
Copyright (C) 1999-2001, Oliver Schmidt
Copyright (C) 2002-2005, Tom Charlesworth
Copyright (C) 2006, Tom Charlesworth, Michael Pohoreski
AppleWin is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
AppleWin is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with AppleWin; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
/* Description: Frame
*
* Author: Various
*/
#include "StdAfx.h"
#pragma hdrstop
#include "..\resource\resource.h"
#define ENABLE_MENU 0
#define VIEWPORTX 5
#define VIEWPORTY 5
#define VIEWPORTCX 560
#if ENABLE_MENU
#define VIEWPORTCY 400
#else
#define VIEWPORTCY 384
#endif
#define BUTTONX (VIEWPORTCX+(VIEWPORTX<<1))
#define BUTTONY 0
#define BUTTONCX 45
#define BUTTONCY 45
#define FSVIEWPORTX (640-BUTTONCX-5-VIEWPORTCX)
#define FSVIEWPORTY ((480-VIEWPORTCY)>>1)
#define FSBUTTONX (640-BUTTONCX)
#define FSBUTTONY (((480-VIEWPORTCY)>>1)-1)
#define BUTTONS 8
static HBITMAP capsbitmap[2];
static HBITMAP diskbitmap[3];
static HBITMAP buttonbitmap[BUTTONS];
static BOOL active = 0;
static HBRUSH btnfacebrush = (HBRUSH)0;
static HPEN btnfacepen = (HPEN)0;
static HPEN btnhighlightpen = (HPEN)0;
static HPEN btnshadowpen = (HPEN)0;
static int buttonactive = -1;
static int buttondown = -1;
static int buttonover = -1;
static int buttonx = BUTTONX;
static int buttony = BUTTONY;
static HRGN clipregion = (HRGN)0;
static HDC framedc = (HDC)0;
static RECT framerect = {0,0,0,0};
HWND framewindow = (HWND)0;
BOOL fullscreen = 0;
static BOOL helpquit = 0;
static BOOL painting = 0;
static HFONT smallfont = (HFONT)0;
static HWND tooltipwindow = (HWND)0;
static BOOL usingcursor = 0;
static int viewportx = VIEWPORTX;
static int viewporty = VIEWPORTY;
static LPDIRECTDRAW directdraw = (LPDIRECTDRAW)0;
static LPDIRECTDRAWSURFACE surface = (LPDIRECTDRAWSURFACE)0;
void DrawStatusArea (HDC passdc, BOOL drawflags);
void ProcessButtonClick (int button);
void RelayEvent (UINT message, WPARAM wparam, LPARAM lparam);
void ResetMachineState ();
void SetFullScreenMode ();
void SetNormalMode ();
void SetUsingCursor (BOOL);
//===========================================================================
void CreateGdiObjects () {
ZeroMemory(buttonbitmap,BUTTONS*sizeof(HBITMAP));
#define LOADBUTTONBITMAP(bitmapname) LoadImage(instance,bitmapname, \
IMAGE_BITMAP,0,0, \
LR_CREATEDIBSECTION | \
LR_LOADMAP3DCOLORS | \
LR_LOADTRANSPARENT);
buttonbitmap[BTN_HELP ] = (HBITMAP)LOADBUTTONBITMAP(TEXT("HELP_BUTTON"));
buttonbitmap[BTN_RUN ] = (HBITMAP)LOADBUTTONBITMAP(TEXT("RUN_BUTTON"));
buttonbitmap[BTN_DRIVE1 ] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DRIVE1_BUTTON"));
buttonbitmap[BTN_DRIVE2 ] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DRIVE2_BUTTON"));
buttonbitmap[BTN_DRIVESWAP] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DRIVESWAP_BUTTON"));
buttonbitmap[BTN_FULLSCR] = (HBITMAP)LOADBUTTONBITMAP(TEXT("FULLSCR_BUTTON"));
buttonbitmap[BTN_DEBUG ] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DEBUG_BUTTON"));
buttonbitmap[BTN_SETUP ] = (HBITMAP)LOADBUTTONBITMAP(TEXT("SETUP_BUTTON"));
capsbitmap[0] = (HBITMAP)LOADBUTTONBITMAP(TEXT("CAPSOFF_BITMAP"));
capsbitmap[1] = (HBITMAP)LOADBUTTONBITMAP(TEXT("CAPSON_BITMAP"));
diskbitmap[0] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DISKOFF_BITMAP"));
diskbitmap[1] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DISKREAD_BITMAP"));
diskbitmap[2] = (HBITMAP)LOADBUTTONBITMAP(TEXT("DISKWRITE_BITMAP"));
btnfacebrush = CreateSolidBrush(GetSysColor(COLOR_BTNFACE));
btnfacepen = CreatePen(PS_SOLID,1,GetSysColor(COLOR_BTNFACE));
btnhighlightpen = CreatePen(PS_SOLID,1,GetSysColor(COLOR_BTNHIGHLIGHT));
btnshadowpen = CreatePen(PS_SOLID,1,GetSysColor(COLOR_BTNSHADOW));
smallfont = CreateFont(11,6,0,0,FW_NORMAL,0,0,0,ANSI_CHARSET,
OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,VARIABLE_PITCH | FF_SWISS,
TEXT("Small Fonts"));
}
//===========================================================================
void DeleteGdiObjects () {
int loop;
for (loop = 0; loop < BUTTONS; loop++)
DeleteObject(buttonbitmap[loop]);
for (loop = 0; loop < 2; loop++)
DeleteObject(capsbitmap[loop]);
for (loop = 0; loop < 3; loop++)
DeleteObject(diskbitmap[loop]);
DeleteObject(btnfacebrush);
DeleteObject(btnfacepen);
DeleteObject(btnhighlightpen);
DeleteObject(btnshadowpen);
DeleteObject(smallfont);
}
//===========================================================================
void Draw3dRect (HDC dc, int x1, int y1, int x2, int y2, BOOL out) {
SelectObject(dc,GetStockObject(NULL_BRUSH));
SelectObject(dc,out ? btnshadowpen : btnhighlightpen);
POINT pt[3];
pt[0].x = x1; pt[0].y = y2-1;
pt[1].x = x2-1; pt[1].y = y2-1;
pt[2].x = x2-1; pt[2].y = y1;
Polyline(dc,(LPPOINT)&pt,3);
SelectObject(dc,(out == 1) ? btnhighlightpen : btnshadowpen);
pt[1].x = x1; pt[1].y = y1;
pt[2].x = x2; pt[2].y = y1;
Polyline(dc,(LPPOINT)&pt,3);
}
//===========================================================================
void DrawBitmapRect (HDC dc, int x, int y, LPRECT rect, HBITMAP bitmap) {
HDC memdc = CreateCompatibleDC(dc);
SelectObject(memdc,bitmap);
BitBlt(dc,x,y,
rect->right + 1 - rect->left,
rect->bottom + 1 - rect->top,
memdc,
rect->left,
rect->top,
SRCCOPY);
DeleteDC(memdc);
}
//===========================================================================
void DrawButton (HDC passdc, int number) {
FrameReleaseDC();
HDC dc = (passdc ? passdc : GetDC(framewindow));
int x = buttonx;
int y = buttony+number*BUTTONCY;
if (number == buttondown) {
int loop = 0;
while (loop++ < 3)
Draw3dRect(dc,x+loop,y+loop,x+BUTTONCX,y+BUTTONCY,0);
RECT rect = {0,0,39,39};
DrawBitmapRect(dc,x+4,y+4,&rect,buttonbitmap[number]);
}
else {
Draw3dRect(dc,x+1,y+1,x+BUTTONCX,y+BUTTONCY,1);
Draw3dRect(dc,x+2,y+2,x+BUTTONCX-1,y+BUTTONCY-1,1);
RECT rect = {1,1,40,40};
DrawBitmapRect(dc,x+3,y+3,&rect,buttonbitmap[number]);
}
if ((number == BTN_DRIVE1) || (number == BTN_DRIVE2)) {
int offset = (number == buttondown) << 1;
RECT rect = {x+offset+3,
y+offset+31,
x+offset+42,
y+offset+42};
SelectObject(dc,smallfont);
SetTextColor(dc,RGB(0,0,0));
SetTextAlign(dc,TA_CENTER | TA_TOP);
SetBkMode(dc,TRANSPARENT);
ExtTextOut(dc,x+offset+22,rect.top,ETO_CLIPPED,&rect,
DiskGetName(number-BTN_DRIVE1),
MIN(8,_tcslen(DiskGetName(number-BTN_DRIVE1))),
NULL);
}
if (!passdc)
ReleaseDC(framewindow,dc);
}
//===========================================================================
void DrawCrosshairs (int x, int y) {
static int lastx = 0;
static int lasty = 0;
FrameReleaseDC();
HDC dc = GetDC(framewindow);
#define LINE(x1,y1,x2,y2) MoveToEx(dc,x1,y1,NULL); LineTo(dc,x2,y2);
// ERASE THE OLD CROSSHAIRS
if (lastx && lasty)
if (fullscreen) {
int loop = 4;
while (loop--) {
RECT rect = {0,0,5,5};
switch (loop) {
case 0: OffsetRect(&rect,lastx-2,FSVIEWPORTY-5); break;
case 1: OffsetRect(&rect,lastx-2,FSVIEWPORTY+VIEWPORTCY); break;
case 2: OffsetRect(&rect,FSVIEWPORTX-5, lasty-2); break;
case 3: OffsetRect(&rect,FSVIEWPORTX+VIEWPORTCX,lasty-2); break;
}
FillRect(dc,&rect,(HBRUSH)GetStockObject(BLACK_BRUSH));
}
}
else {
int loop = 5;
while (loop--) {
switch (loop) {
case 0: SelectObject(dc,GetStockObject(BLACK_PEN)); break;
case 1: // fall through
case 2: SelectObject(dc,btnshadowpen); break;
case 3: // fall through
case 4: SelectObject(dc,btnfacepen); break;
}
LINE(lastx-2,VIEWPORTY-loop-1,
lastx+3,VIEWPORTY-loop-1);
LINE(VIEWPORTX-loop-1,lasty-2,
VIEWPORTX-loop-1,lasty+3);
if ((loop == 1) || (loop == 2))
SelectObject(dc,btnhighlightpen);
LINE(lastx-2,VIEWPORTY+VIEWPORTCY+loop,
lastx+3,VIEWPORTY+VIEWPORTCY+loop);
LINE(VIEWPORTX+VIEWPORTCX+loop,lasty-2,
VIEWPORTX+VIEWPORTCX+loop,lasty+3);
}
}
// DRAW THE NEW CROSSHAIRS
if (x && y) {
int loop = 4;
while (loop--) {
if ((loop == 1) || (loop == 2))
SelectObject(dc,GetStockObject(WHITE_PEN));
else
SelectObject(dc,GetStockObject(BLACK_PEN));
LINE(x+loop-2,viewporty-5,
x+loop-2,viewporty);
LINE(x+loop-2,viewporty+VIEWPORTCY+4,
x+loop-2,viewporty+VIEWPORTCY-1);
LINE(viewportx-5, y+loop-2,
viewportx, y+loop-2);
LINE(viewportx+VIEWPORTCX+4,y+loop-2,
viewportx+VIEWPORTCX-1,y+loop-2);
}
}
#undef LINE
lastx = x;
lasty = y;
ReleaseDC(framewindow,dc);
}
//===========================================================================
void DrawFrameWindow () {
FrameReleaseDC();
PAINTSTRUCT ps;
HDC dc = (painting ? BeginPaint(framewindow,&ps)
: GetDC(framewindow));
VideoRealizePalette(dc);
if (!fullscreen) {
// DRAW THE 3D BORDER AROUND THE EMULATED SCREEN
Draw3dRect(dc,
VIEWPORTX-2,VIEWPORTY-2,
VIEWPORTX+VIEWPORTCX+2,VIEWPORTY+VIEWPORTCY+2,
0);
Draw3dRect(dc,
VIEWPORTX-3,VIEWPORTY-3,
VIEWPORTX+VIEWPORTCX+3,VIEWPORTY+VIEWPORTCY+3,
0);
SelectObject(dc,btnfacepen);
Rectangle(dc,
VIEWPORTX-4,VIEWPORTY-4,
VIEWPORTX+VIEWPORTCX+4,VIEWPORTY+VIEWPORTCY+4);
Rectangle(dc,
VIEWPORTX-5,VIEWPORTY-5,
VIEWPORTX+VIEWPORTCX+5,VIEWPORTY+VIEWPORTCY+5);
// DRAW THE TOOLBAR BUTTONS
int loop = BUTTONS;
while (loop--)
DrawButton(dc,loop);
}
// DRAW THE STATUS AREA
DrawStatusArea(dc,DRAW_BACKGROUND | DRAW_LEDS);
if (painting)
EndPaint(framewindow,&ps);
else
ReleaseDC(framewindow,dc);
// DRAW THE CONTENTS OF THE EMULATED SCREEN
if (mode == MODE_LOGO)
VideoDisplayLogo();
else if (mode == MODE_DEBUG)
DebugDisplay(1);
else
VideoRedrawScreen();
}
//===========================================================================
void DrawStatusArea (HDC passdc, int drawflags) {
FrameReleaseDC();
HDC dc = (passdc ? passdc : GetDC(framewindow));
int x = buttonx;
int y = buttony+BUTTONS*BUTTONCY+1;
int drive1 = 0;
int drive2 = 0;
BOOL caps = 0;
DiskGetLightStatus(&drive1,&drive2);
KeybGetCapsStatus(&caps);
if (fullscreen) {
SelectObject(dc,smallfont);
SetBkMode(dc,OPAQUE);
SetBkColor(dc,RGB(0,0,0));
SetTextAlign(dc,TA_LEFT | TA_TOP);
SetTextColor(dc,RGB((drive1==2 ? 255 : 0),(drive1==1 ? 255 : 0),0));
TextOut(dc,x+ 3,y+2,TEXT("1"),1);
SetTextColor(dc,RGB((drive2==2 ? 255 : 0),(drive2==1 ? 255 : 0),0));
TextOut(dc,x+13,y+2,TEXT("2"),1);
if (apple2e) {
SetTextAlign(dc,TA_RIGHT | TA_TOP);
SetTextColor(dc,(caps ? RGB(128,128,128) :
RGB( 0, 0, 0)));
TextOut(dc,x+BUTTONCX,y+2,TEXT("Caps"),4);
}
SetTextAlign(dc,TA_CENTER | TA_TOP);
SetTextColor(dc,(mode == MODE_PAUSED ||
mode == MODE_STEPPING ? RGB(255,255,255) :
RGB( 0, 0, 0)));
TextOut(dc,x+BUTTONCX/2,y+13,(mode == MODE_PAUSED ? TEXT(" Paused ") :
TEXT("Stepping")),8);
}
else {
if (drawflags & DRAW_BACKGROUND) {
SelectObject(dc,GetStockObject(NULL_PEN));
SelectObject(dc,btnfacebrush);
Rectangle(dc,x,y,x+BUTTONCX+2,y+35);
Draw3dRect(dc,x+1,y+3,x+BUTTONCX,y+31,0);
SelectObject(dc,smallfont);
SetTextAlign(dc,TA_CENTER | TA_TOP);
SetTextColor(dc,RGB(0,0,0));
SetBkMode(dc,TRANSPARENT);
TextOut(dc,x+ 7,y+7,TEXT("1"),1);
TextOut(dc,x+25,y+7,TEXT("2"),1);
}
if (drawflags & DRAW_LEDS) {
RECT rect = {0,0,8,8};
DrawBitmapRect(dc,x+12,y+8,&rect,diskbitmap[drive1]);
DrawBitmapRect(dc,x+30,y+8,&rect,diskbitmap[drive2]);
if (apple2e) {
RECT rect = {0,0,30,8};
DrawBitmapRect(dc,x+7,y+19,&rect,capsbitmap[caps != 0]);
}
}
if (drawflags & DRAW_TITLE) {
TCHAR title[40];
_tcscpy(title,apple2e ? TITLE : TEXT("Apple ][+ Emulator"));
switch (mode) {
case MODE_PAUSED: _tcscat(title,TEXT(" [Paused]")); break;
case MODE_STEPPING: _tcscat(title,TEXT(" [Stepping]")); break;
}
SendMessage(framewindow,WM_SETTEXT,0,(LPARAM)title);
}
if (drawflags & DRAW_BUTTON_DRIVES)
{
DrawButton(dc, BTN_DRIVE1);
DrawButton(dc, BTN_DRIVE2);
}
}
if (!passdc)
ReleaseDC(framewindow,dc);
}
//===========================================================================
void EraseButton (int number) {
RECT rect;
rect.left = buttonx;
rect.right = rect.left+BUTTONCX;
rect.top = buttony+number*BUTTONCY;
rect.bottom = rect.top+BUTTONCY;
InvalidateRect(framewindow,&rect,1);
}
//===========================================================================
LRESULT CALLBACK FrameWndProc (HWND window,
UINT message,
WPARAM wparam,
LPARAM lparam) {
switch (message) {
case WM_ACTIVATE:
JoyReset();
SetUsingCursor(0);
break;
case WM_ACTIVATEAPP:
active = wparam;
break;
case WM_CLOSE:
if (fullscreen)
SetNormalMode();
if (!IsIconic(window))
GetWindowRect(window,&framerect);
RegSaveValue(TEXT("Preferences"),TEXT("Window X-Position"),1,framerect.left);
RegSaveValue(TEXT("Preferences"),TEXT("Window Y-Position"),1,framerect.top);
FrameReleaseDC();
SetUsingCursor(0);
if (helpquit) {
helpquit = 0;
HtmlHelp(NULL,NULL,HH_CLOSE_ALL,0);
}
break;
case WM_CHAR:
if ((mode == MODE_RUNNING) || (mode == MODE_LOGO) ||
((mode == MODE_STEPPING) && (wparam != TEXT('\x1B'))))
KeybQueueKeypress((int)wparam,ASCII);
else if ((mode == MODE_DEBUG) || (mode == MODE_STEPPING))
// DebugProcessChar((TCHAR)wparam);
DebuggerInputConsoleChar((TCHAR)wparam);
break;
case WM_CREATE:
framewindow = window;
CreateGdiObjects();
DSInit();
MB_Initialize();
SpkrInitialize();
DragAcceptFiles(window,1);
break;
case WM_DDE_INITIATE: {
ATOM application = GlobalAddAtom(TEXT("applewin"));
ATOM topic = GlobalAddAtom(TEXT("system"));
if(LOWORD(lparam) == application && HIWORD(lparam) == topic)
SendMessage((HWND)wparam,WM_DDE_ACK,(WPARAM)window,MAKELPARAM(application,topic));
GlobalDeleteAtom(application);
GlobalDeleteAtom(topic);
break;
}
case WM_DDE_EXECUTE: {
LPTSTR filename = (LPTSTR)GlobalLock((HGLOBAL)lparam);
int error = DiskInsert(0,filename,0,0);
if (!error) {
if (!fullscreen)
DrawButton((HDC)0,BTN_DRIVE1);
SetForegroundWindow(window);
ProcessButtonClick(BTN_RUN);
}
else
DiskNotifyInvalidImage(filename,error);
GlobalUnlock((HGLOBAL)lparam);
break;
}
case WM_DESTROY:
DragAcceptFiles(window,0);
Snapshot_Shutdown();
DebugDestroy();
if (!restart) {
DiskDestroy();
ImageDestroy();
HD_Cleanup();
}
CommDestroy();
CpuDestroy();
MemDestroy();
SpkrDestroy();
VideoDestroy();
MB_Destroy();
DeleteGdiObjects();
PostQuitMessage(0);
break;
case WM_DISPLAYCHANGE:
VideoReinitialize();
break;
case WM_DROPFILES: {
TCHAR filename[MAX_PATH];
DragQueryFile((HDROP)wparam,0,filename,sizeof(filename));
POINT point;
DragQueryPoint((HDROP)wparam,&point);
RECT rect;
rect.left = buttonx;
rect.right = rect.left+BUTTONCX+1;
rect.top = buttony+BTN_DRIVE2*BUTTONCY+1;
rect.bottom = rect.top+BUTTONCY;
int error = DiskInsert(PtInRect(&rect,point) ? 1 : 0,filename,0,0);
if (!error) {
if (!fullscreen)
DrawButton((HDC)0,PtInRect(&rect,point) ? BTN_DRIVE2 : BTN_DRIVE1);
rect.top = buttony+BTN_DRIVE1*BUTTONCY+1;
if (!PtInRect(&rect,point)) {
SetForegroundWindow(window);
ProcessButtonClick(BTN_RUN);
}
}
else
DiskNotifyInvalidImage(filename,error);
DragFinish((HDROP)wparam);
break;
}
case WM_KEYDOWN:
KeybUpdateCtrlShiftStatus();
if ((wparam >= VK_F1) && (wparam <= VK_F8) && (buttondown == -1)) {
SetUsingCursor(0);
buttondown = wparam-VK_F1;
if (fullscreen && (buttonover != -1)) {
if (buttonover != buttondown)
EraseButton(buttonover);
buttonover = -1;
}
DrawButton((HDC)0,buttondown);
}
else if (wparam == VK_F9) {
videotype++; // Cycle through available video modes
if (videotype >= VT_NUM_MODES)
videotype = 0;
VideoReinitialize();
if ((mode != MODE_LOGO) || ((mode == MODE_DEBUG) && (g_bDebuggerViewingAppleOutput))) // +PATCH
{
VideoRedrawScreen();
g_bDebuggerViewingAppleOutput = true; // +PATCH
}
RegSaveValue(TEXT("Configuration"),TEXT("Video Emulation"),1,videotype);
}
else if ((wparam == VK_F11) && (GetKeyState(VK_CONTROL) >= 0)) // Save state (F11)
{
SoundCore_SetFade(FADE_OUT);
if(PSP_SaveStateSelectImage(window, true))
{
Snapshot_SaveState();
}
SoundCore_SetFade(FADE_IN);
}
else if (wparam == VK_F12) // Load state (F12 or Ctrl+F12)
{
SoundCore_SetFade(FADE_OUT);
if(PSP_SaveStateSelectImage(window, false))
{
Snapshot_LoadState();
}
SoundCore_SetFade(FADE_IN);
}
else if (wparam == VK_CAPITAL)
KeybToggleCapsLock();
else if (wparam == VK_PAUSE) {
SetUsingCursor(0);
switch (mode)
{
case MODE_RUNNING:
mode = MODE_PAUSED;
SoundCore_SetFade(FADE_OUT);
break;
case MODE_PAUSED:
mode = MODE_RUNNING;
SoundCore_SetFade(FADE_IN);
break;
case MODE_STEPPING:
// DebugProcessChar(TEXT('\x1B'));
DebuggerInputConsoleChar( TEXT('\x1B') ); // HACK: MAGIC #
break;
}
DrawStatusArea((HDC)0,DRAW_TITLE);
if ((mode != MODE_LOGO) && (mode != MODE_DEBUG))
VideoRedrawScreen();
resettiming = 1;
}
else if ((mode == MODE_RUNNING) || (mode == MODE_LOGO) || (mode == MODE_STEPPING))
{
// Note about Alt Gr (Right-Alt):
// . WM_KEYDOWN[Left-Control], then:
// . WM_KEYDOWN[Right-Alt]
BOOL autorep = ((lparam & 0x40000000) != 0);
BOOL extended = ((lparam & 0x01000000) != 0);
if ((!JoyProcessKey((int)wparam,extended,1,autorep)) && (mode != MODE_LOGO))
KeybQueueKeypress((int)wparam,NOT_ASCII);
}
else if (mode == MODE_DEBUG)
// DebugProcessCommand(wparam);
DebuggerProcessKey(wparam);
if (wparam == VK_F10) {
SetUsingCursor(0);
return 0;
}
break;
case WM_KEYUP:
if ((wparam >= VK_F1) && (wparam <= VK_F8) && (buttondown == (int)wparam-VK_F1)) {
buttondown = -1;
if (fullscreen)
EraseButton(wparam-VK_F1);
else
DrawButton((HDC)0,wparam-VK_F1);
ProcessButtonClick(wparam-VK_F1);
}
else
JoyProcessKey((int)wparam,((lparam & 0x01000000) != 0),0,0);
break;
case WM_LBUTTONDOWN:
if (buttondown == -1) {
int x = LOWORD(lparam);
int y = HIWORD(lparam);
if ((x >= buttonx) &&
(y >= buttony) &&
(y <= buttony+BUTTONS*BUTTONCY)) {
buttonactive = buttondown = (y-buttony-1)/BUTTONCY;
DrawButton((HDC)0,buttonactive);
SetCapture(window);
}
else if (usingcursor)
if (wparam & (MK_CONTROL | MK_SHIFT))
SetUsingCursor(0);
else
JoySetButton(0,1);
else if ((x < buttonx) && JoyUsingMouse() &&
((mode == MODE_RUNNING) || (mode == MODE_STEPPING)))
SetUsingCursor(1);
}
RelayEvent(WM_LBUTTONDOWN,wparam,lparam);
break;
case WM_LBUTTONUP:
if (buttonactive != -1) {
ReleaseCapture();
if (buttondown == buttonactive) {
buttondown = -1;
if (fullscreen)
EraseButton(buttonactive);
else
DrawButton((HDC)0,buttonactive);
ProcessButtonClick(buttonactive);
}
buttonactive = -1;
}
else if (usingcursor)
JoySetButton(0,0);
RelayEvent(WM_LBUTTONUP,wparam,lparam);
break;
case WM_MOUSEMOVE: {
int x = LOWORD(lparam);
int y = HIWORD(lparam);
int newover = (((x >= buttonx) &&
(x <= buttonx+BUTTONCX) &&
(y >= buttony) &&
(y <= buttony+BUTTONS*BUTTONCY))
? (y-buttony-1)/BUTTONCY : -1);
if (buttonactive != -1) {
int newdown = (newover == buttonactive) ? buttonactive : -1;
if (newdown != buttondown) {
buttondown = newdown;
DrawButton((HDC)0,buttonactive);
}
}
else if (fullscreen && (newover != buttonover) && (buttondown == -1)) {
if (buttonover != -1)
EraseButton(buttonover);
buttonover = newover;
if (buttonover != -1)
DrawButton((HDC)0,buttonover);
}
else if (usingcursor) {
DrawCrosshairs(x,y);
JoySetPosition(x-viewportx-2,VIEWPORTCX-4,
y-viewporty-2,VIEWPORTCY-4);
}
RelayEvent(WM_MOUSEMOVE,wparam,lparam);
break;
}
case WM_NOTIFY:
if(((LPNMTTDISPINFO)lparam)->hdr.hwndFrom == tooltipwindow &&
((LPNMTTDISPINFO)lparam)->hdr.code == TTN_GETDISPINFO)
((LPNMTTDISPINFO)lparam)->lpszText =
(LPTSTR)DiskGetFullName(((LPNMTTDISPINFO)lparam)->hdr.idFrom);
break;
case WM_PAINT:
if (GetUpdateRect(window,NULL,0)) {
painting = 1;
DrawFrameWindow();
painting = 0;
}
break;
case WM_PALETTECHANGED:
if ((HWND)wparam == window)
break;
// fall through
case WM_QUERYNEWPALETTE:
DrawFrameWindow();
break;
case WM_RBUTTONDOWN:
case WM_RBUTTONUP:
// Right Click on Drive Icon -- eject Disk
if ((buttonover == -1) && (message == WM_RBUTTONUP)) // HACK: BUTTON_NONE
{
int x = LOWORD(lparam);
int y = HIWORD(lparam);
if ((x >= buttonx) &&
(y >= buttony) &&
(y <= buttony+BUTTONS*BUTTONCY))
{
int iButton = (y-buttony-1)/BUTTONCY;
int iDrive = iButton - BTN_DRIVE1;
if ((iButton == BTN_DRIVE1) || (iButton == BTN_DRIVE2))
{
if (KeybGetShiftStatus())
DiskProtect( iDrive, true );
else
if (KeybGetCtrlStatus())
DiskProtect( iDrive, false );
else
DiskEject( iDrive );
FrameRefreshStatus(DRAW_LEDS | DRAW_BUTTON_DRIVES);
DrawButton((HDC)0,iButton);
}
}
}
if (usingcursor)
{
JoySetButton(1,(message == WM_RBUTTONDOWN));
}
RelayEvent(message,wparam,lparam);
break;
case WM_SYSCOLORCHANGE:
DeleteGdiObjects();
CreateGdiObjects();
break;
case WM_SYSCOMMAND:
switch (wparam & 0xFFF0) {
case SC_KEYMENU:
if (fullscreen && active)
return 0;
break;
case SC_MINIMIZE:
GetWindowRect(window,&framerect);
break;
}
break;
case WM_SYSKEYDOWN:
PostMessage(window,WM_KEYDOWN,wparam,lparam);
if ((wparam == VK_F10) || (wparam == VK_MENU)) // VK_MENU == ALT Key
return 0;
break;
case WM_SYSKEYUP:
PostMessage(window,WM_KEYUP,wparam,lparam);
break;
case WM_USER_BENCHMARK: {
if (mode != MODE_LOGO)
if (MessageBox(framewindow,
TEXT("Running the benchmarks will reset the state of ")
TEXT("the emulated machine, causing you to lose any ")
TEXT("unsaved work.\n\n")
TEXT("Are you sure you want to do this?"),
TEXT("Benchmarks"),
MB_ICONQUESTION | MB_YESNO | MB_SETFOREGROUND) == IDNO)
break;
UpdateWindow(window);
ResetMachineState();
mode = MODE_LOGO;
DrawStatusArea((HDC)0,DRAW_TITLE);
HCURSOR oldcursor = SetCursor(LoadCursor(0,IDC_WAIT));
VideoBenchmark();
ResetMachineState();
SetCursor(oldcursor);
break;
}
case WM_USER_RESTART:
// . Changed Apple computer type (][+ or //e)
// . Changed disk speed (normal or enhanced)
if (mode != MODE_LOGO)
if (MessageBox(framewindow,
TEXT("Restarting the emulator will reset the state ")
TEXT("of the emulated machine, causing you to lose any ")
TEXT("unsaved work.\n\n")
TEXT("Are you sure you want to do this?"),
TEXT("Configuration"),
MB_ICONQUESTION | MB_YESNO | MB_SETFOREGROUND) == IDNO)
break;
restart = 1;
PostMessage(window,WM_CLOSE,0,0);
break;
case WM_USER_SAVESTATE: // Save state
Snapshot_SaveState();
break;
case WM_USER_LOADSTATE: // Load state
Snapshot_LoadState();
break;
}
return DefWindowProc(window,message,wparam,lparam);
}
//===========================================================================
void ProcessButtonClick (int button) {
SoundCore_SetFade(FADE_OUT);
switch (button) {
case BTN_HELP:
{
TCHAR filename[MAX_PATH];
_tcscpy(filename,progdir);
_tcscat(filename,TEXT("APPLEWIN.CHM"));
HtmlHelp(framewindow,filename,HH_DISPLAY_TOC,0);
helpquit = 1;
}
break;
case BTN_RUN:
if (mode == MODE_LOGO)
DiskBoot();
else if (mode == MODE_RUNNING)
ResetMachineState();
if ((mode == MODE_DEBUG) || (mode == MODE_STEPPING))
DebugEnd();
mode = MODE_RUNNING;
DrawStatusArea((HDC)0,DRAW_TITLE);
VideoRedrawScreen();
resettiming = 1;
break;
case BTN_DRIVE1:
case BTN_DRIVE2:
DiskSelect(button-BTN_DRIVE1);
if (!fullscreen)
DrawButton((HDC)0,button);
break;
case BTN_DRIVESWAP:
DiskDriveSwap();
break;
case BTN_FULLSCR:
if (fullscreen)
SetNormalMode();
else
SetFullScreenMode();
break;
case BTN_DEBUG:
if (mode == MODE_LOGO)
ResetMachineState();
if (mode == MODE_STEPPING)
// DebugProcessChar(TEXT('\x1B'));
DebuggerInputConsoleChar( TEXT('\x1B') ); // HACK: MAGIC #
else if (mode == MODE_DEBUG)
ProcessButtonClick(BTN_RUN);
else {
DebugBegin();
}
break;
case BTN_SETUP:
{
PSP_Init();
}
break;
}
if((mode != MODE_DEBUG) && (mode != MODE_PAUSED))
{
SoundCore_SetFade(FADE_IN);
}
}
//===========================================================================
void RelayEvent (UINT message, WPARAM wparam, LPARAM lparam) {
if (fullscreen)
return;
MSG msg;
msg.hwnd = framewindow;
msg.message = message;
msg.wParam = wparam;
msg.lParam = lparam;
SendMessage(tooltipwindow,TTM_RELAYEVENT,0,(LPARAM)&msg);
}
//===========================================================================
void ResetMachineState () {
DiskReset(); // Set floppymotoron=0
g_bFullSpeed = 0; // Might've hit reset in middle of InternalCpuExecute() - so beep may get (partially) muted
MemReset();
DiskBoot();
VideoResetState();
CommReset();
JoyReset();
MB_Reset();
SpkrReset();
SoundCore_SetFade(FADE_NONE);
}
//===========================================================================
void SetFullScreenMode () {
fullscreen = 1;
buttonover = -1;
buttonx = FSBUTTONX;
buttony = FSBUTTONY;
viewportx = FSVIEWPORTX;
viewporty = FSVIEWPORTY;
GetWindowRect(framewindow,&framerect);
SetWindowLong(framewindow,GWL_STYLE,WS_POPUP | WS_SYSMENU | WS_VISIBLE);
DDSURFACEDESC ddsd;
ddsd.dwSize = sizeof(ddsd);
ddsd.dwFlags = DDSD_CAPS;
ddsd.ddsCaps.dwCaps = DDSCAPS_PRIMARYSURFACE;
if (DirectDrawCreate(NULL,&directdraw,NULL) != DD_OK ||
directdraw->SetCooperativeLevel(framewindow,DDSCL_EXCLUSIVE | DDSCL_FULLSCREEN) != DD_OK ||
directdraw->SetDisplayMode(640,480,8) != DD_OK ||
directdraw->CreateSurface(&ddsd,&surface,NULL) != DD_OK) {
SetNormalMode();
return;
}
InvalidateRect(framewindow,NULL,1);
}
//===========================================================================
void SetNormalMode () {
fullscreen = 0;
buttonx = BUTTONX;
buttony = BUTTONY;
viewportx = VIEWPORTX;
viewporty = VIEWPORTY;
directdraw->RestoreDisplayMode();
directdraw->SetCooperativeLevel(NULL,DDSCL_NORMAL);
SetWindowLong(framewindow,GWL_STYLE,
WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX |
WS_VISIBLE);
SetWindowPos(framewindow,0,framerect.left,
framerect.top,
framerect.right - framerect.left,
framerect.bottom - framerect.top,
SWP_NOZORDER | SWP_FRAMECHANGED);
if (surface) {
surface->Release();
surface = (LPDIRECTDRAWSURFACE)0;
}
directdraw->Release();
directdraw = (LPDIRECTDRAW)0;
}
//===========================================================================
void SetUsingCursor (BOOL newvalue) {
if (newvalue == usingcursor)
return;
usingcursor = newvalue;
if (usingcursor) {
SetCapture(framewindow);
RECT rect = {viewportx+2,
viewporty+2,
viewportx+VIEWPORTCX-1,
viewporty+VIEWPORTCY-1};
ClientToScreen(framewindow,(LPPOINT)&rect.left);
ClientToScreen(framewindow,(LPPOINT)&rect.right);
ClipCursor(&rect);
ShowCursor(0);
POINT pt;
GetCursorPos(&pt);
ScreenToClient(framewindow,&pt);
DrawCrosshairs(pt.x,pt.y);
}
else {
DrawCrosshairs(0,0);
ShowCursor(1);
ClipCursor(NULL);
ReleaseCapture();
}
}
//
// ----- ALL GLOBALLY ACCESSIBLE FUNCTIONS ARE BELOW THIS LINE -----
//
//===========================================================================
void FrameCreateWindow () {
int width = VIEWPORTCX + (VIEWPORTX<<1)
+ BUTTONCX
+ (GetSystemMetrics(SM_CXBORDER)<<1)
+ 5;
int height = VIEWPORTCY + (VIEWPORTY<<1)
+ GetSystemMetrics(SM_CYBORDER)
+ GetSystemMetrics(SM_CYCAPTION)
+ 5;
int xpos;
if (!RegLoadValue(TEXT("Preferences"),TEXT("Window X-Position"),1,(DWORD *)&xpos))
xpos = (GetSystemMetrics(SM_CXSCREEN)-width) >> 1;
int ypos;
if (!RegLoadValue(TEXT("Preferences"),TEXT("Window Y-Position"),1,(DWORD *)&ypos))
ypos = (GetSystemMetrics(SM_CYSCREEN)-height) >> 1;
framewindow = CreateWindow(TEXT("APPLE2FRAME"),apple2e ? TITLE
: TEXT("Apple ][+ Emulator"),
WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX |
WS_VISIBLE,
xpos,ypos,width,height,
HWND_DESKTOP,(HMENU)0,instance,NULL);
InitCommonControls();
tooltipwindow = CreateWindow(TOOLTIPS_CLASS,NULL,TTS_ALWAYSTIP,
CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,
framewindow,(HMENU)0,instance,NULL);
TOOLINFO toolinfo;
toolinfo.cbSize = sizeof(toolinfo);
toolinfo.uFlags = TTF_CENTERTIP;
toolinfo.hwnd = framewindow;
toolinfo.hinst = instance;
toolinfo.lpszText = LPSTR_TEXTCALLBACK;
toolinfo.rect.left = BUTTONX;
toolinfo.rect.right = toolinfo.rect.left+BUTTONCX+1;
toolinfo.uId = 0;
toolinfo.rect.top = BUTTONY+BTN_DRIVE1*BUTTONCY+1;
toolinfo.rect.bottom = toolinfo.rect.top+BUTTONCY;
SendMessage(tooltipwindow,TTM_ADDTOOL,0,(LPARAM)&toolinfo);
toolinfo.uId = 1;
toolinfo.rect.top = BUTTONY+BTN_DRIVE2*BUTTONCY+1;
toolinfo.rect.bottom = toolinfo.rect.top+BUTTONCY;
SendMessage(tooltipwindow,TTM_ADDTOOL,0,(LPARAM)&toolinfo);
}
//===========================================================================
HDC FrameGetDC () {
if (!framedc) {
framedc = GetDC(framewindow);
SetViewportOrgEx(framedc,viewportx,viewporty,NULL);
}
return framedc;
}
//===========================================================================
HDC FrameGetVideoDC (LPBYTE *addr, LONG *pitch) {
if (fullscreen && active && !painting) {
RECT rect = {FSVIEWPORTX,
FSVIEWPORTY,
FSVIEWPORTX+VIEWPORTCX,
FSVIEWPORTY+VIEWPORTCY};
DDSURFACEDESC surfacedesc;
surfacedesc.dwSize = sizeof(surfacedesc);
if (surface->Lock(&rect,&surfacedesc,0,NULL) == DDERR_SURFACELOST) {
surface->Restore();
surface->Lock(&rect,&surfacedesc,0,NULL);
}
*addr = (LPBYTE)surfacedesc.lpSurface+(VIEWPORTCY-1)*surfacedesc.lPitch;
*pitch = -surfacedesc.lPitch;
return (HDC)0;
}
else return FrameGetDC();
}
//===========================================================================
void FrameRefreshStatus (int drawflags) {
DrawStatusArea((HDC)0,drawflags);
}
//===========================================================================
void FrameRegisterClass () {
WNDCLASSEX wndclass;
ZeroMemory(&wndclass,sizeof(WNDCLASSEX));
wndclass.cbSize = sizeof(WNDCLASSEX);
wndclass.style = CS_OWNDC | CS_BYTEALIGNCLIENT;
wndclass.lpfnWndProc = FrameWndProc;
wndclass.hInstance = instance;
wndclass.hIcon = LoadIcon(instance,TEXT("APPLEWIN_ICON"));
wndclass.hCursor = LoadCursor(0,IDC_ARROW);
wndclass.hbrBackground = (HBRUSH)GetStockObject(BLACK_BRUSH);
#if ENABLE_MENU
wndclass.lpszMenuName = (LPCSTR)IDR_MENU1;
#endif
wndclass.lpszClassName = TEXT("APPLE2FRAME");
wndclass.hIconSm = (HICON)LoadImage(instance,TEXT("APPLEWIN_ICON"),
IMAGE_ICON,16,16,LR_DEFAULTCOLOR);
RegisterClassEx(&wndclass);
}
//===========================================================================
void FrameReleaseDC () {
if (framedc) {
SetViewportOrgEx(framedc,0,0,NULL);
ReleaseDC(framewindow,framedc);
framedc = (HDC)0;
}
}
//===========================================================================
void FrameReleaseVideoDC () {
if (fullscreen && active && !painting) {
// THIS IS CORRECT ACCORDING TO THE DIRECTDRAW DOCS
RECT rect = {FSVIEWPORTX,
FSVIEWPORTY,
FSVIEWPORTX+VIEWPORTCX,
FSVIEWPORTY+VIEWPORTCY};
surface->Unlock(&rect);
// BUT THIS SEEMS TO BE WORKING
surface->Unlock(NULL);
}
}