You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
294 lines
6.9 KiB
294 lines
6.9 KiB
/*------------------------------------------------------------------------------
|
|
PrsTest - using pressure input.
|
|
RICO 4/1/92
|
|
------------------------------------------------------------------------------*/
|
|
|
|
#include <windows.h>
|
|
#include "msgpack.h"
|
|
#include <wintab.h>
|
|
#define PACKETDATA (PK_X | PK_Y | PK_BUTTONS | PK_NORMAL_PRESSURE)
|
|
#define PACKETMODE PK_BUTTONS
|
|
#include <pktdef.h>
|
|
#include "prstest.h"
|
|
#ifdef USE_X_LIB
|
|
#include <wintabx.h>
|
|
#endif
|
|
|
|
HANDLE hInst;
|
|
|
|
|
|
/* -------------------------------------------------------------------------- */
|
|
int PASCAL WinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow)
|
|
HANDLE hInstance;
|
|
HANDLE hPrevInstance;
|
|
LPSTR lpCmdLine;
|
|
int nCmdShow;
|
|
{
|
|
MSG msg;
|
|
|
|
if (!hPrevInstance)
|
|
if (!InitApplication(hInstance))
|
|
return (FALSE);
|
|
|
|
/* Perform initializations that apply to a specific instance */
|
|
|
|
if (!InitInstance(hInstance, nCmdShow))
|
|
return (FALSE);
|
|
|
|
/* Acquire and dispatch messages until a WM_QUIT message is received. */
|
|
|
|
while (GetMessage(&msg,
|
|
NULL,
|
|
0,
|
|
0))
|
|
{
|
|
TranslateMessage(&msg);
|
|
DispatchMessage(&msg);
|
|
}
|
|
|
|
#ifdef USE_X_LIB
|
|
_UnlinkWintab();
|
|
#endif
|
|
|
|
return (msg.wParam);
|
|
}
|
|
/* -------------------------------------------------------------------------- */
|
|
BOOL InitApplication(hInstance)
|
|
HANDLE hInstance;
|
|
{
|
|
WNDCLASS wc;
|
|
|
|
/* Fill in window class structure with parameters that describe the */
|
|
/* main window. */
|
|
|
|
wc.style = 0;
|
|
wc.lpfnWndProc = MainWndProc;
|
|
|
|
wc.cbClsExtra = 0;
|
|
wc.cbWndExtra = 0;
|
|
wc.hInstance = hInstance;
|
|
wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
|
|
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
|
|
wc.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE + 1);
|
|
wc.lpszMenuName = "PrsTestMenu";
|
|
wc.lpszClassName = "PrsTestWClass";
|
|
|
|
/* Register the window class and return success/failure code. */
|
|
|
|
return (RegisterClass(&wc));
|
|
|
|
}
|
|
/* -------------------------------------------------------------------------- */
|
|
BOOL InitInstance(hInstance, nCmdShow)
|
|
HANDLE hInstance;
|
|
int nCmdShow;
|
|
{
|
|
HWND hWnd;
|
|
char buf[50];
|
|
|
|
/* Save the instance handle in static variable, which will be used in */
|
|
/* many subsequence calls from this application to Windows. */
|
|
|
|
hInst = hInstance;
|
|
|
|
/* check if WinTab available. */
|
|
if (!WTInfo(0, 0, NULL)) {
|
|
MessageBox(NULL, "WinTab Services Not Available.", "WinTab",
|
|
MB_OK | MB_ICONHAND);
|
|
return FALSE;
|
|
}
|
|
|
|
/* Create a main window for this application instance. */
|
|
|
|
wsprintf(buf, "PrsTest:%x", hInst);
|
|
hWnd = CreateWindow(
|
|
"PrsTestWClass",
|
|
buf,
|
|
WS_OVERLAPPEDWINDOW,
|
|
CW_USEDEFAULT,
|
|
CW_USEDEFAULT,
|
|
CW_USEDEFAULT,
|
|
CW_USEDEFAULT,
|
|
NULL,
|
|
NULL,
|
|
hInstance,
|
|
NULL
|
|
);
|
|
|
|
/* If window could not be created, return "failure" */
|
|
|
|
if (!hWnd)
|
|
return (FALSE);
|
|
|
|
/* Make the window visible; update its client area; and return "success" */
|
|
|
|
ShowWindow(hWnd, nCmdShow);
|
|
UpdateWindow(hWnd);
|
|
return (TRUE);
|
|
|
|
}
|
|
/* -------------------------------------------------------------------------- */
|
|
HCTX static NEAR TabletInit(HWND hWnd)
|
|
{
|
|
LOGCONTEXT lcMine;
|
|
|
|
/* get default region */
|
|
WTInfo(WTI_DEFCONTEXT, 0, &lcMine);
|
|
|
|
/* modify the digitizing region */
|
|
wsprintf(lcMine.lcName, "PrsTest Digitizing %x", hInst);
|
|
lcMine.lcOptions |= CXO_MESSAGES;
|
|
lcMine.lcPktData = PACKETDATA;
|
|
lcMine.lcPktMode = PACKETMODE;
|
|
lcMine.lcMoveMask = PACKETDATA;
|
|
lcMine.lcBtnUpMask = lcMine.lcBtnDnMask;
|
|
|
|
/* output in 10000 x 10000 grid */
|
|
lcMine.lcOutOrgX = lcMine.lcOutOrgY = 0;
|
|
lcMine.lcOutExtX = 10000;
|
|
lcMine.lcOutExtY = 10000;
|
|
|
|
/* open the region */
|
|
return WTOpen(hWnd, &lcMine, TRUE);
|
|
|
|
}
|
|
/* -------------------------------------------------------------------------- */
|
|
LRESULT FAR PASCAL MainWndProc(hWnd, message, wParam, lParam)
|
|
HWND hWnd;
|
|
unsigned message;
|
|
WPARAM wParam;
|
|
LPARAM lParam;
|
|
{
|
|
FARPROC lpProcAbout;
|
|
static HCTX hTab = NULL;
|
|
static POINT ptOld, ptNew;
|
|
static UINT prsOld, prsNew;
|
|
static RECT rcClient;
|
|
PAINTSTRUCT psPaint;
|
|
HDC hDC;
|
|
PACKET pkt;
|
|
BOOL fHandled = TRUE;
|
|
LRESULT lResult = 0L;
|
|
|
|
|
|
switch (message) {
|
|
|
|
case WM_CREATE:
|
|
hTab = TabletInit(hWnd);
|
|
if (!hTab) {
|
|
MessageBox(NULL, " Could Not Open Tablet Context.", "WinTab",
|
|
MB_OK | MB_ICONHAND);
|
|
|
|
SendMessage(hWnd, WM_DESTROY, 0, 0L);
|
|
}
|
|
break;
|
|
|
|
case WM_SIZE:
|
|
GetClientRect(hWnd, &rcClient);
|
|
InvalidateRect(hWnd, NULL, TRUE);
|
|
break;
|
|
|
|
case WM_COMMAND:
|
|
if (GET_WM_COMMAND_ID(wParam, lParam) == IDM_ABOUT) {
|
|
lpProcAbout = MakeProcInstance(About, hInst);
|
|
|
|
DialogBox(hInst,
|
|
"AboutBox",
|
|
hWnd,
|
|
lpProcAbout);
|
|
|
|
FreeProcInstance(lpProcAbout);
|
|
}
|
|
else
|
|
fHandled = FALSE;
|
|
break;
|
|
|
|
case WT_PACKET:
|
|
if (WTPacket((HCTX)lParam, wParam, &pkt)) {
|
|
if (HIWORD(pkt.pkButtons)==TBN_DOWN) {
|
|
MessageBeep(0);
|
|
}
|
|
ptOld = ptNew;
|
|
prsOld = prsNew;
|
|
ptNew.x = MulDiv((UINT)pkt.pkX, rcClient.right, 10000);
|
|
ptNew.y = MulDiv((UINT)pkt.pkY, rcClient.bottom, 10000);
|
|
prsNew = pkt.pkNormalPressure;
|
|
if (ptNew.x != ptOld.x ||
|
|
ptNew.y != ptOld.y ||
|
|
prsNew != prsOld) {
|
|
InvalidateRect(hWnd, NULL, TRUE);
|
|
}
|
|
}
|
|
break;
|
|
|
|
case WM_ACTIVATE:
|
|
if (GET_WM_ACTIVATE_STATE(wParam, lParam))
|
|
InvalidateRect(hWnd, NULL, TRUE);
|
|
|
|
/* if switching in the middle, disable the region */
|
|
if (hTab) {
|
|
WTEnable(hTab, GET_WM_ACTIVATE_STATE(wParam, lParam));
|
|
if (hTab && GET_WM_ACTIVATE_STATE(wParam, lParam))
|
|
WTOverlap(hTab, TRUE);
|
|
}
|
|
break;
|
|
|
|
case WM_DESTROY:
|
|
if (hTab)
|
|
WTClose(hTab);
|
|
PostQuitMessage(0);
|
|
break;
|
|
|
|
case WM_PAINT:
|
|
if (hDC = BeginPaint(hWnd, &psPaint)) {
|
|
POINT ptHere;
|
|
|
|
ptHere.x = ptNew.x;
|
|
ptHere.y = rcClient.bottom - ptNew.y;
|
|
|
|
/* redo horz */
|
|
Ellipse(hDC, ptHere.x - prsNew, ptHere.y - prsNew,
|
|
ptHere.x + prsNew, ptHere.y + prsNew);
|
|
PatBlt(hDC, rcClient.left, ptHere.y,
|
|
rcClient.right, 1, DSTINVERT);
|
|
/* redo vert */
|
|
PatBlt(hDC, ptHere.x, rcClient.top,
|
|
1, rcClient.bottom, DSTINVERT);
|
|
|
|
EndPaint(hWnd, &psPaint);
|
|
}
|
|
break;
|
|
|
|
default:
|
|
fHandled = FALSE;
|
|
break;
|
|
}
|
|
if (fHandled)
|
|
return (lResult);
|
|
else
|
|
return (DefWindowProc(hWnd, message, wParam, lParam));
|
|
}
|
|
/* -------------------------------------------------------------------------- */
|
|
BOOL FAR PASCAL About(hDlg, message, wParam, lParam)
|
|
HWND hDlg;
|
|
unsigned message;
|
|
WPARAM wParam;
|
|
LPARAM lParam;
|
|
{
|
|
switch (message) {
|
|
case WM_INITDIALOG:
|
|
return (TRUE);
|
|
|
|
case WM_COMMAND:
|
|
if (GET_WM_COMMAND_ID(wParam, lParam) == IDOK
|
|
|| GET_WM_COMMAND_ID(wParam, lParam) == IDCANCEL) {
|
|
EndDialog(hDlg, TRUE);
|
|
return (TRUE);
|
|
}
|
|
break;
|
|
}
|
|
return (FALSE);
|
|
}
|
|
/* -------------------------------------------------------------------------- */
|
|
|
|
|