void WndMain::OnTimer() {
// WM_TIMER is run at about 2hz.
LKHearthBeats++; // 100213
if (ProgramStarted > psInitInProgress) {
if (SIMMODE) {
SIMProcessTimer();
} else {
ProcessTimer();
}
if (ProgramStarted == psFirstDrawDone) {
AfterStartup();
ProgramStarted = psNormalOp;
StartupStore(_T(". ProgramStarted=NormalOp %s%s"), WhatTimeIsIt(), NEWLINE);
StartupLogFreeRamAndStorage();
}
}
}
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
long wdata;
switch (message)
{
case WM_ERASEBKGND:
return TRUE; // JMW trying to reduce screen flicker
break;
case WM_COMMAND:
return MainMenu(hWnd, message, wParam, lParam);
break;
case WM_CTLCOLORSTATIC:
wdata = GetWindowLong((HWND)lParam, GWL_USERDATA);
switch(wdata) {
case 0:
SetBkColor((HDC)wParam, ColorUnselected);
SetTextColor((HDC)wParam, RGB(0x00,0x00,0x00));
return (LRESULT)hBrushUnselected;
case 1:
SetBkColor((HDC)wParam, ColorSelected);
SetTextColor((HDC)wParam, RGB(0x00,0x00,0x00));
return (LRESULT)hBrushSelected;
case 2:
SetBkColor((HDC)wParam, ColorUnselected);
SetTextColor((HDC)wParam, ColorWarning);
return (LRESULT)hBrushUnselected;
case 3:
SetBkColor((HDC)wParam, ColorUnselected);
SetTextColor((HDC)wParam, ColorOK);
return (LRESULT)hBrushUnselected;
case 4:
// black on light green
SetTextColor((HDC)wParam, RGB_BLACK);
SetBkColor((HDC)wParam, ColorButton);
return (LRESULT)hBrushButton;
case 5:
// grey on light green
SetBkColor((HDC)wParam, ColorButton);
SetTextColor((HDC)wParam, RGB(0x80,0x80,0x80));
return (LRESULT)hBrushButton;
#ifdef LXMINIMAP
case 6:
// black on dark yellow
SetTextColor((HDC)wParam, RGB_BLACK);
SetBkColor((HDC)wParam, ColorButtonHasFocus);
return (LRESULT)hBrushButtonHasFocus;
case 7:
// grey on dark yellow
SetTextColor((HDC)wParam, RGB(0x80,0x80,0x80));
SetBkColor((HDC)wParam, ColorButtonHasFocus);
return (LRESULT)hBrushButtonHasFocus;
#endif
}
break;
case WM_CREATE:
#ifdef HAVE_ACTIVATE_INFO
memset (&s_sai, 0, sizeof (s_sai));
s_sai.cbSize = sizeof (s_sai);
#endif
if (iTimerID == 0) {
iTimerID = SetTimer(hWnd,1000,500,NULL); // 500ms 2 times per second
}
break;
case WM_ACTIVATE:
if(LOWORD(wParam) != WA_INACTIVE)
{
SetWindowPos(hWndMainWindow,HWND_TOP,
0, 0, 0, 0,
SWP_SHOWWINDOW|SWP_NOMOVE|SWP_NOSIZE);
#ifdef HAVE_ACTIVATE_INFO
SHFullScreen(hWndMainWindow,SHFS_HIDETASKBAR|SHFS_HIDESIPBUTTON|SHFS_HIDESTARTICON);
#endif
}
#ifdef HAVE_ACTIVATE_INFO
if (api_has_SHHandleWMActivate) {
SHHandleWMActivate(hWnd, wParam, lParam, &s_sai, FALSE);
} else {
#ifdef TESTBENCH
StartupStore(TEXT("... SHHandleWMActivate not available%s"),NEWLINE);
#endif
return DefWindowProc(hWnd, message, wParam, lParam);
}
#endif
break;
case WM_SETTINGCHANGE:
#ifdef HAVE_ACTIVATE_INFO
if (api_has_SHHandleWMSettingChange) {
SHHandleWMSettingChange(hWnd, wParam, lParam, &s_sai);
} else {
#ifdef TESTBENCH
StartupStore(TEXT("... SHHandleWMSettingChange not available%s"),NEWLINE);
#endif
return DefWindowProc(hWnd, message, wParam, lParam);
}
#endif
break;
#if DEBUG_FOCUS
case WM_KILLFOCUS:
// This is happening when focus is given to another window, either internally inside LK
// or externally, for example to explorer..
// SO: if we select MapWindow, we get here a KILLFOCUS from it.
// When we select another process/program, or click on the desktop, the old window having focus is
// receiving KILLFOCUS. So in case MapWindow was working, the signal will be sent over there, not here.
//
StartupStore(_T("............ WNDPROC LOST FOCUS (KILLFOCUS)\n"));
break;
#endif
case WM_SETFOCUS:
// When explorer/desktop is giving focus to LK, this is where we get the signal.
// But we must return focus to previous windows otherwise keys will not be working.
// Mouse is another story, because mouse click is pertinent to a screen area which is mapped.
// A mouse click will be sent to the window in the background, whose handler will receive the event.
//
// Each event handler receiving focus has to save it in hWndWithFocus, in LK.
// Each event handler must thus handle SETFOCUS!
//
#if DEBUG_FOCUS
StartupStore(_T("............ WNDPROC HAS FOCUS (SETFOCUS)\n"));
if (hWndWithFocus==NULL)
StartupStore(_T(".....(no Wnd to give focus to)\n"));
else
StartupStore(_T(".....(passing focus to other window)\n"));
#endif
if (hWndWithFocus!=NULL) SetFocus(hWndWithFocus);
break;
case WM_KEYUP:
break;
case WM_TIMER:
// WM_TIMER is run at about 2hz.
LKHearthBeats++; // 100213
// ASSERT(hWnd==hWndMainWindow);
if (ProgramStarted > psInitInProgress) {
if (SIMMODE)
SIMProcessTimer();
else
ProcessTimer();
if (ProgramStarted==psFirstDrawDone) {
AfterStartup();
ProgramStarted = psNormalOp;
StartupStore(_T(". ProgramStarted=NormalOp %s%s"), WhatTimeIsIt(),NEWLINE);
StartupLogFreeRamAndStorage();
}
}
break;
case WM_INITMENUPOPUP:
if (ProgramStarted > psInitInProgress) {
CheckMenuItem((HMENU) wParam,IDM_FILE_LOCK,MF_CHECKED|MF_BYCOMMAND);
if(LoggerActive)
CheckMenuItem((HMENU) wParam,IDM_FILE_LOGGER,MF_CHECKED|MF_BYCOMMAND);
else
CheckMenuItem((HMENU) wParam,IDM_FILE_LOGGER,MF_UNCHECKED|MF_BYCOMMAND);
}
break;
case WM_CLOSE:
LKASSERT(hWnd==hWndMainWindow);
if((hWnd==hWndMainWindow) &&
(MessageBoxX(hWndMainWindow,
// LKTOKEN _@M198_ = "Confirm Exit?"
gettext(TEXT("_@M198_")),
TEXT("LK8000"),
MB_YESNO|MB_ICONQUESTION) == IDYES))
{
if(iTimerID) {
KillTimer(hWnd,iTimerID);
iTimerID = 0;
}
Shutdown();
}
break;
case WM_DESTROY:
if (hWnd==hWndMainWindow) {
PostQuitMessage(0);
}
break;
#ifdef PNA
#if TESTBENCH
case WM_DEVICECHANGE:
TCHAR serr[50];
static WPARAM oldwparam=0;
StartupStore(_T("DEVICE CHANGE DETECTED, CODE=0x%x%s"),wParam,NEWLINE);
if (wParam!=oldwparam) {
oldwparam=wParam;
wsprintf(serr,_T("DEVICE CHANGE DETECTED\nCODE=0x%x"),wParam);
DoStatusMessage(serr);
// MessageBoxX(hWndMainWindow, serr, TEXT("LK8000"), MB_OK|MB_ICONQUESTION, true);
oldwparam=0;
}
return TRUE; // acknowledge
break;
#endif
#endif
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}
