|
|
/**************************************************************************//*** SCICALC Scientific Calculator for Windows 3.00.12 ***//*** By Kraig Brockschmidt, Microsoft Co-op, Contractor, 1988-1989 ***//*** (c)1989 Microsoft Corporation. All Rights Reserved. ***//*** ***//*** sciproc.c ***//*** ***//*** Functions contained: ***//*** CalcWndProc--Main window procedure. ***//*** ***//*** Functions called: ***//*** SetRadix, ***//*** ProcessCommands. ***//*** ***//*** Last modification Fri 08-Dec-1989 ***//*** -by- Amit Chatterjee. [amitc] ***//*** Last modification July-21-1994 ***//*** -by- Arthur Bierer [t-arthb] or [email protected] ***//*** ***//*** Modified WM_PAINT processing to display ghnoLastNum rather than ***//*** ghnoNum if the last key hit was an operator. ***//*** ***//**************************************************************************/
#include "scicalc.h"
#include "calchelp.h"
#include "commctrl.h"
extern HWND hStatBox;extern HBRUSH hBrushBk;extern BOOL bFocus, bError;extern TCHAR szDec[5], *rgpsz[CSTRINGS];extern HNUMOBJ ghnoNum, ghnoLastNum;extern INT nTempCom ;extern INT gnPendingError ;extern BOOL gbRecord;
WNDPROC fpOrgDispEditProc;LRESULT CALLBACK SubDispEditProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
BOOL FireUpPopupMenu( HWND hwnd, HINSTANCE hInstanceWin, LPARAM lParam){ HMENU hmenu;
if ((hmenu = LoadMenu(hInstanceWin, MAKEINTRESOURCE(IDM_HELPPOPUP)))) { int cmd = TrackPopupMenuEx(GetSubMenu(hmenu, 0), TPM_LEFTALIGN | TPM_TOPALIGN | TPM_RETURNCMD | TPM_RIGHTBUTTON, LOWORD(lParam), HIWORD(lParam), hwnd, NULL); DestroyMenu(hmenu); return ( cmd == HELP_CONTEXTPOPUP ) ? TRUE : FALSE;
} else return FALSE;}
extern BOOL IsValidID( int iID );
LRESULT APIENTRY CalcWndProc (HWND hWnd,UINT iMessage,WPARAM wParam,LPARAM lParam){ INT nID, nTemp; /* Return value from GetKey & temp. */ HANDLE hTempBrush; // a brush to play with in WM_CTLCOLORSTATIC
switch (iMessage) { case WM_INITMENUPOPUP: /* Gray out the PASTE option if CF_TEXT is not available. */ /* nTemp is used here so we only call EnableMenuItem once. */ if (!IsClipboardFormatAvailable(CF_TEXT)) nTemp=MF_GRAYED | MF_DISABLED; else nTemp=MF_ENABLED;
EnableMenuItem(GetMenu(hWnd),IDM_PASTE, nTemp); break;
case WM_CONTEXTMENU: // If the user clicked on the dialog face and not one of the
// buttons then do nothing. If the id of the button is IDC_STATIC
// then do nothing.
if ( (HWND)wParam == g_hwndDlg ) { // check for clicks on disabled buttons. These aren't seen
// by WindowFromPoint but are seen by ChildWindowFromPoint.
// As a result, the value of wParam will be g_hwndDlg
// if the WM_RBUTTONUP event occured on a disabled button.
POINT pt; HWND hwnd;
// convert from short values to long values
pt.x = MAKEPOINTS(lParam).x; pt.y = MAKEPOINTS(lParam).y;
// then convert to client coordinates
ScreenToClient( g_hwndDlg, &pt );
hwnd = ChildWindowFromPoint( g_hwndDlg, pt );
if ( !hwnd || (hwnd == g_hwndDlg) || (IDC_STATIC == GetDlgCtrlID( hwnd ))) { return (DefWindowProc(hWnd, iMessage, wParam, lParam)); }
wParam = (WPARAM)hwnd; }
if ( FireUpPopupMenu( g_hwndDlg, hInst, lParam ) ) { nID = GetDlgCtrlID( (HWND)wParam );
WinHelp((HWND) wParam, rgpsz[IDS_HELPFILE], HELP_CONTEXTPOPUP, GetHelpID( nID )); } break;
case WM_HELP: HtmlHelp(GetDesktopWindow(), rgpsz[IDS_CHMHELPFILE], HH_DISPLAY_TOPIC, 0L); return 0;
case WM_COMMAND: /* Interpret all buttons on calculator. */ { WORD wNotifyCode = HIWORD(wParam); // notification code
WORD wID = LOWORD(wParam); // item, control, or accelerator identifier
// the accelerator table feeds us IDC_MOD in response to the
// "%" key. This same accelerator is used for the percent function
// in Standard view so translate here.
if ( (wID == IDC_MOD) && (nCalc == 1) ) wID = IDC_PERCENT;
// when we get an accelerator keystroke we fake a button press to provide feedback
if ( wNotifyCode == 1 ) { // For an accelerator the hwnd is not passed in the lParam so ask the dialog
HWND hwndCtl = GetDlgItem( g_hwndDlg, wID ); SendMessage( hwndCtl, BM_SETSTATE, 1, 0 ); // push the button down
Sleep( 20 ); // wait a bit
SendMessage( hwndCtl, BM_SETSTATE, 0, 0 ); // push the button up
}
// we turn on notify for the text controls to automate the handling of context
// help but we don't care about any commands we recieve from these controls. As
// a result, only process commands that are not from a text control.
if ( (wID != IDC_DISPLAY) && (wID != IDC_MEMTEXT) && (wID != IDC_PARTEXT) ) ProcessCommands(wID); break; }
case WM_CLOSE: if ( hStatBox ) { SendMessage(hStatBox, WM_CLOSE, 0, 0L) ; hStatBox = NULL; }
DestroyWindow(g_hwndDlg); KillTimeCalc(); WinHelp(g_hwndDlg, rgpsz[IDS_HELPFILE], HELP_QUIT, 0L); PostQuitMessage(0); break;
case WM_SYSCOMMAND: if ( (wParam & 0xFFF0) == SC_CLOSE ) { PostQuitMessage(0); } return (DefWindowProc(hWnd, iMessage, wParam, lParam));
case WM_NOTIFY: { NMCUSTOMDRAW* nm = (NMCUSTOMDRAW*)lParam; int iBtnID = (int)nm->hdr.idFrom; if (nm->hdr.code == NM_CUSTOMDRAW && IsValidID(iBtnID)) { if (nm->dwDrawStage == CDDS_PREERASE) { return CDRF_NOTIFYITEMDRAW; } else if (nm->dwDrawStage == CDDS_PREPAINT) { int bkMode = SetBkMode(nm->hdc, TRANSPARENT); LPCTSTR psz = rgpsz[INDEXFROMID(iBtnID)]; SetTextColor( nm->hdc, (nm->uItemState & CDIS_DISABLED)?GetSysColor(COLOR_GRAYTEXT):GetKeyColor( iBtnID ) ); DrawText( nm->hdc, psz, -1, &nm->rc, DT_CENTER | DT_VCENTER | DT_SINGLELINE ); SetBkMode(nm->hdc, bkMode); return CDRF_SKIPDEFAULT; } } break; }
case WM_CTLCOLORSTATIC: // get the Control's id from its handle in lParam
if ( IDC_DISPLAY == GetWindowID( (HWND) lParam) ) { // we set this window to a white backround
hTempBrush = GetSysColorBrush( COLOR_WINDOW ); SetBkColor( (HDC) wParam, GetSysColor( COLOR_WINDOW ) ); SetTextColor( (HDC) wParam, GetSysColor( COLOR_WINDOWTEXT ) );
return (LRESULT) hTempBrush; } return (DefWindowProc(hWnd, iMessage, wParam, lParam));
case WM_SETTINGCHANGE: if (lParam!=0) { // we only care about changes to color and internation settings, ignore all others
if (lstrcmp((LPCTSTR)lParam, TEXT("colors")) && lstrcmp((LPCTSTR)lParam, TEXT("intl"))) break; }
// Always call if lParam==0. This is simply for safety and isn't strictly needed
InitSciCalc (FALSE); break;
case WM_SIZE: { HWND hwndSizer;
nTemp=SW_SHOW; if (wParam==SIZEICONIC) nTemp=SW_HIDE;
if (hStatBox!=0 && (wParam==SIZEICONIC || wParam==SIZENORMAL)) ShowWindow(hStatBox, nTemp);
// A special control has been added to both dialogs with an ID of
// IDC_SIZERCONTROL. This control is possitioned such that the bottom of
// the control determines the height of the dialog. If a really large menu
// font is selected then the menu might wrap to two lines, which exposes a
// bug in Windows that causes the client area to be too small. By checking
// that IDC_SIZERCONTROL is fully visible we can compensate for this bug.
hwndSizer = GetDlgItem( g_hwndDlg, IDC_SIZERCONTROL ); if ( hwndSizer ) { RECT rc; int iDelta; GetClientRect( hwndSizer, &rc ); MapWindowPoints( hwndSizer, g_hwndDlg, (LPPOINT)&rc, 2 );
// if the difference between the current height of the client area
// (MAKEPOINTS(lParam).y) and the desired height of the client
// area (rc.bottom) is non-zero then we must adjust the size of the
// client area. This will enlarge the client area if you switch
// from a regular menu font to a jumbo menu font and shrink the
// client area if you switch from a jumbo menu font to a regular
// menu font.
iDelta = rc.bottom - HIWORD(lParam); if ( iDelta ) { GetWindowRect( g_hwndDlg, &rc ); SetWindowPos( g_hwndDlg, NULL, 0, 0, // these are ingored due to SWP_NOMOVE
rc.right-rc.left, // the width remains the same
rc.bottom-rc.top+iDelta, // the heigth changes by iDelta
SWP_NOMOVE | SWP_NOACTIVATE | SWP_NOZORDER); return 0; } } } /* Fall through. */
default: return (DefWindowProc(hWnd, iMessage, wParam, lParam)); }
return 0L;}
LRESULT CALLBACK SubDispEditProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam){ // prevent right button to cut/del/paste... messes up the calculation
if (uMsg >= WM_MOUSEFIRST && uMsg <= WM_MOUSELAST) return 0;
// FEATURE: You can still begin a selection by holding down shift and using the arrow keys. This should also be disabled.
HideCaret(hWnd); return CallWindowProc(fpOrgDispEditProc, hWnd, uMsg, wParam, lParam);}
|
