![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to memory.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / samples / memory|
Return to memory.c CVS log | Up to [WindowsNT SDKs] / mstools / samples / memory |
Microsoft Windows NT Build 511 (SDK Final Release) 07-24-1993
/******************************************************************************\
* This is a part of the Microsoft Source Code Samples.
* Copyright (C) 1993 Microsoft Corporation.
* All rights reserved.
* This source code is only intended as a supplement to
* Microsoft Development Tools and/or WinHelp documentation.
* See these sources for detailed information regarding the
* Microsoft samples programs.
\******************************************************************************/
/****************************** Module Header ******************************\
* Module Name: memory.c
\***************************************************************************/
#include <stdlib.h>
#include "memory.h"
#include <stdarg.h>
extern CreateMapFile();
extern CreateMap();
extern MapView();
extern OpenMap();
HANDLE ghModule;
HWND ghwndMain = NULL;
HMENU hMenu, hMenuWindow;
HMENU hServerMenu, hServerMenuWindow;
HMENU hClientMenu, hClientMenuWindow;
CHAR gszFile[20];
CHAR gszMapName[20];
typedef struct _PerWndInfo {
// HWND hMainFrame;
HWND hParent;
HWND hThisWnd; // CR! used in locating the node
// LPVOID pShrMem1; // LATER! create more clients/servers
RECT rcClient;
char CaptionBarText[SIZEOFCAPTIONTEXT];
} PERWNDINFO, *PPERWNDINFO;
typedef struct _node {
PERWNDINFO ChildWnd;
HANDLE hNext;
} NODE, *PNODE;
/*
* Forward declarations.
*/
BOOL InitializeApp (void);
LONG APIENTRY MainWndProc (HWND, UINT, DWORD, LONG);
LONG APIENTRY ServerWndProc (HWND, UINT, DWORD, LONG);
LONG APIENTRY ClientWndProc (HWND, UINT, DWORD, LONG);
BOOL CALLBACK About (HWND, UINT, DWORD, LONG);
BOOL CALLBACK FileType (HWND, UINT, DWORD, LONG);
BOOL CALLBACK MapFileName (HWND, UINT, DWORD, LONG);
LONG APIENTRY TextWndProc (HWND, UINT, DWORD, LONG);
/***************************************************************************\
* main
*
*
* History:
* 04-17-91 ???? Created.
\***************************************************************************/
int WINAPI WinMain(
HANDLE hInstance,
HANDLE hPrevInstance,
LPSTR lpCmdLine,
int nShowCmd)
{
MSG msg;
// this will change to something more reasonable
ghModule = GetModuleHandle(NULL);
if (!InitializeApp()) {
MessageBox(ghwndMain, "memory: InitializeApp failure!", "Error", MB_OK);
return 0;
}
while (GetMessage(&msg, NULL, 0, 0)) {
TranslateMessage(&msg);
DispatchMessage(&msg);
}
if (hMenuWindow && IsWindow(hMenuWindow))
DestroyMenu(hMenuWindow);
if (hClientMenuWindow && IsWindow(hClientMenuWindow))
DestroyMenu(hClientMenuWindow);
if (hServerMenuWindow && IsWindow(hServerMenuWindow))
DestroyMenu(hServerMenuWindow);
if (hMenu && IsWindow(hMenu))
DestroyMenu(hMenu);
if (hClientMenu && IsWindow(hClientMenu))
DestroyMenu(hClientMenu);
if (hServerMenu && IsWindow(hServerMenu))
DestroyMenu(hServerMenu);
return 1;
UNREFERENCED_PARAMETER(lpCmdLine);
UNREFERENCED_PARAMETER(nShowCmd);
UNREFERENCED_PARAMETER(hInstance);
UNREFERENCED_PARAMETER(hPrevInstance);
}
/***************************************************************************\
* InitializeApp
*
* History:
* 09-09-91 Petrus Wong Created.
\***************************************************************************/
BOOL InitializeApp(void)
{
WNDCLASS wc;
wc.style = CS_OWNDC;
wc.lpfnWndProc = (WNDPROC)MainWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = sizeof(LONG);
wc.hInstance = ghModule;
wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE);
wc.lpszMenuName = "MainMenu";
wc.lpszClassName = "MemoryClass";
if (!RegisterClass(&wc))
return FALSE;
wc.style = CS_OWNDC;
wc.lpfnWndProc = (WNDPROC)ServerWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0; // LATER sizeof(LONG);
wc.hInstance = ghModule;
wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE);
wc.lpszMenuName = NULL;
wc.lpszClassName = "ServerClass";
if (!RegisterClass(&wc))
return FALSE;
wc.style = CS_OWNDC;
wc.lpfnWndProc = (WNDPROC)ClientWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0; // LATER sizeof(LONG);
wc.hInstance = ghModule;
wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE);
wc.lpszMenuName = NULL;
wc.lpszClassName = "ClientClass";
if (!RegisterClass(&wc))
return FALSE;
wc.style = CS_OWNDC | CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = (WNDPROC)TextWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0;
wc.hInstance = ghModule;
wc.hIcon = NULL;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_BTNSHADOW);
wc.lpszMenuName = NULL;
wc.lpszClassName = "Text";
if (!RegisterClass(&wc))
return FALSE;
hMenu = LoadMenu(ghModule, "MainMenu");
hServerMenu = LoadMenu(ghModule, "ServerMenu");
hClientMenu = LoadMenu(ghModule, "ClientMenu");
hMenuWindow = GetSubMenu(hMenu, 1);
hServerMenuWindow = GetSubMenu(hServerMenu, 2);
hClientMenuWindow = GetSubMenu(hClientMenu, 2);
ghwndMain = CreateWindowEx(0L, "MemoryClass", "Memory",
WS_OVERLAPPED | WS_CAPTION | WS_BORDER |
WS_THICKFRAME | WS_MAXIMIZEBOX | WS_MINIMIZEBOX |
WS_CLIPCHILDREN | WS_VISIBLE | WS_SYSMENU,
80, 70, 400, 300,
NULL, hMenu, ghModule, NULL);
if (ghwndMain == NULL)
return FALSE;
SetWindowLong(ghwndMain, GWL_USERDATA, 0L);
//SetFocus(ghwndMain); /* set initial focus */
return TRUE;
}
/***************************************************************************\
* MainWndProc
*
* History:
* 09-09-91 Petrus Wong Created.
\***************************************************************************/
long APIENTRY MainWndProc(
HWND hwnd,
UINT message,
DWORD wParam,
LONG lParam)
{
static int iSvrCount=1;
static int iCltCount=1;
CLIENTCREATESTRUCT clientcreate;
HWND hwndChildWindow;
switch (message) {
case WM_CREATE:
SetWindowLong(hwnd, 0, (LONG)NULL);
clientcreate.hWindowMenu = hMenuWindow;
clientcreate.idFirstChild = 1;
ghwndClient = CreateWindow("MDICLIENT", NULL,
WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE,
0,0,0,0,
hwnd, NULL, ghModule, (LPVOID)&clientcreate);
return 0L;
case WM_DESTROY: {
PostQuitMessage(0);
return 0L;
}
case WM_COMMAND:
switch (LOWORD(wParam)) {
case IDM_TILE:
SendMessage(ghwndClient, WM_MDITILE, 0L, 0L);
return 0L;
case IDM_CASCADE:
SendMessage(ghwndClient, WM_MDICASCADE, 0L, 0L);
return 0L;
case IDM_ARRANGE:
SendMessage(ghwndClient, WM_MDIICONARRANGE, 0L, 0L);
return 0L;
case MM_SERVER: {
HANDLE hNode, hHead;
PNODE pNode;
MDICREATESTRUCT mdicreate;
hNode = LocalAlloc(LHND, (WORD) sizeof(NODE));
if (hNode) {
if ((pNode = (PNODE)LocalLock(hNode)) == NULL)
MessageBox(ghwndMain, "Failed in LocalLock, hNode", "Error", MB_OK);
wsprintf((LPSTR) &(pNode->ChildWnd.CaptionBarText),
"Server %d", iSvrCount);
mdicreate.szClass = "ServerClass";
mdicreate.szTitle = (LPTSTR)&(pNode->ChildWnd.CaptionBarText);
mdicreate.hOwner = ghModule;
mdicreate.x =
mdicreate.y =
mdicreate.cx =
mdicreate.cy = CW_USEDEFAULT;
mdicreate.style = 0l;
mdicreate.lParam = 0L;
/*Create Child Window*/
hwndChildWindow =
(HANDLE) SendMessage(ghwndClient, WM_MDICREATE,
0L,
(LONG)(LPMDICREATESTRUCT)&mdicreate);
if (hwndChildWindow == NULL) {
MessageBox(ghwndMain, "Failed in Creating Child Window", "Error", MB_OK);
return 0L;
}
pNode->ChildWnd.hParent = ghwndClient;
pNode->ChildWnd.hThisWnd = hwndChildWindow;
hHead = (HANDLE)GetWindowLong(hwnd, 0);
pNode->hNext = hHead;
SetWindowLong(hwnd, 0, (LONG) hNode);
iSvrCount++;
LocalUnlock(hNode);
} else {
MessageBox(ghwndMain, "Failed to Allocate Node!", "Error", MB_OK);
}
return 0L;
}
case MM_CLIENT: {
HANDLE hNode, hHead;
PNODE pNode;
MDICREATESTRUCT mdicreate;
hNode = LocalAlloc(LHND, (WORD) sizeof(NODE));
if (hNode) {
if ((pNode = (PNODE)LocalLock(hNode))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock, hNode!", "Error", MB_OK);
wsprintf((LPSTR) &(pNode->ChildWnd.CaptionBarText),
"Client %d", iCltCount);
mdicreate.szClass = "ClientClass";
mdicreate.szTitle = (LPSTR) &(pNode->ChildWnd.CaptionBarText);
mdicreate.hOwner = ghModule;
mdicreate.x =
mdicreate.y =
mdicreate.cx =
mdicreate.cy = CW_USEDEFAULT;
mdicreate.style = 0l;
mdicreate.lParam = 0L;
/*Create Child Window*/
hwndChildWindow =
(HANDLE) SendMessage(ghwndClient, WM_MDICREATE,
0L,
(LONG)(LPMDICREATESTRUCT)&mdicreate);
if (hwndChildWindow == NULL) {
MessageBox(ghwndMain, "Failed in Creating Child Window!", "Error", MB_OK);
return 0L;
}
pNode->ChildWnd.hParent = ghwndClient;
pNode->ChildWnd.hThisWnd = hwndChildWindow;
hHead = (HANDLE)GetWindowLong(hwnd, 0);
pNode->hNext = hHead;
SetWindowLong(hwnd, 0, (LONG) hNode);
iCltCount++;
LocalUnlock(hNode);
} else {
MessageBox(ghwndMain, "Failed to Allocate Node!", "Error", MB_OK);
}
return 0L;
}
case MM_ABOUT:
if (DialogBox(ghModule, "AboutBox", ghwndMain, (DLGPROC)About) == -1)
MessageBox(ghwndMain, "DEMO: About Dialog Creation Error!", "Error", MB_OK);
return 0L;
case MM_OPT_1:
case MM_OPT_2:
case MM_OPT_3:
case MM_OPT_4:
case MM_OPT_5:
case MM_OPT_6:
case MM_OPT_7:
case MM_OPT_8: {
HWND hActiveChild;
hActiveChild = (HANDLE) SendMessage(ghwndClient, WM_MDIGETACTIVE, 0L, 0L);
if (hActiveChild)
SendMessage(hActiveChild, WM_COMMAND, wParam, lParam);
return 0L;
}
default:
return DefFrameProc(hwnd, ghwndClient, message, wParam, lParam);
}
default:
return DefFrameProc(hwnd, ghwndClient, message, wParam, lParam);
}
}
/********************************************************************\
* ServerWndProc
*
* History:
* 04-17-91 ???? Created.
* 09-09-91 Petrus Wong Rewrote.
\***************************************************************************/
long APIENTRY ServerWndProc(
HWND hwnd,
UINT message,
DWORD wParam,
LONG lParam)
{
static HANDLE MapFileHandle = NULL;
static HANDLE hMem1 = NULL;
static LPVOID pShrMem1 = NULL;
static HANDLE hEdit;
static BOOL bDirty = FALSE;
static HWND hTextWnd;
switch (message) {
case WM_COMMAND: {
switch (LOWORD(wParam)) {
case MM_OPT_1: { //Create File
SetWindowText(hTextWnd, "Creating Map File");
switch (DialogBox(ghModule, "FileType", hwnd, (DLGPROC)FileType)) {
case -1:
MessageBox(ghwndMain, "Server: File dialog box creation failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "File dialog box creation failed");
break;
case IDBTN_MAP:
if ((MapFileHandle = (HANDLE) CreateMapFile(gszFile)) == (HANDLE)NULL) {
MessageBox(ghwndMain, "Server: CreateMapFile() failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Map File creation failed");
}
else {
SetWindowText(hTextWnd, "Select 'Create File Mapping...'");
}
break;
default:
MapFileHandle = (HANDLE) 0xFFFFFFFF;
EnableMenuItem(hServerMenu, MM_OPT_2, MF_ENABLED);
break;
}
return 0L;
}
case MM_OPT_2: { //Create File Mapping
SetWindowText(hTextWnd, "Creating File Mapping");
if (MapFileHandle != NULL ) {
switch (DialogBox(ghModule, "MapName", hwnd, (DLGPROC)MapFileName)) {
case -1:
MessageBox(ghwndMain, "Server: Map dialog box creation failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Map dialog box creation failed");
break;
case IDBTN_OK:
if ((hMem1 = (HANDLE) CreateMap((HANDLE *) &MapFileHandle, gszMapName) ) == (HANDLE)NULL) {
MessageBox(ghwndMain, "Server: CreateMap() failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "File Mapping creation failed");
}
else {
EnableMenuItem(hServerMenu, MM_OPT_3, MF_ENABLED);
SetWindowText(hTextWnd, "Select 'Map View of File'");
}
break;
default:
break;
}
} else {
MessageBox(ghwndMain, "Server: MapFileHandle is NULL!", "Error", MB_OK);
SetWindowText(hTextWnd, "Advice: Create server file first");
}
return 0L;
}
case MM_OPT_3: { //Map View of File
SetWindowText(hTextWnd, "Mapping view of File");
if (hMem1) {
if ((pShrMem1 = (LPVOID)MapView(&hMem1)) == (LPVOID)NULL) {
MessageBox(ghwndMain, "Server: MapView() failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Map view of File failed");
}
else {
EnableMenuItem(hServerMenu, MM_OPT_4, MF_ENABLED);
SetWindowText(hTextWnd, "Select 'Access' to enter text");
}
} else {
MessageBox(ghwndMain, "Server: Mapping view of File Failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Advice: Create File Mapping First");
}
return 0L;
}
case MM_OPT_4: { //Access
RECT rcl;
SetWindowText(hTextWnd, "Accessing Server for writing");
if (pShrMem1) {
GetClientRect(hwnd, &rcl);
hEdit = CreateWindow("edit", (LPSTR) NULL,
WS_CHILD | WS_VISIBLE | WS_HSCROLL |
WS_VSCROLL | WS_BORDER | ES_LEFT |
ES_MULTILINE | ES_AUTOHSCROLL |
ES_AUTOVSCROLL,
0,0, rcl.right-rcl.left,
rcl.bottom-rcl.top-GetWindowLong(hTextWnd, GWL_USERDATA),
hwnd, (HMENU)1, ghModule, (LPVOID)NULL);
if (hEdit) {
SetFocus(hEdit);
} else {
MessageBox(ghwndMain, "Server: Create MLE failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Failed to create MLE");
}
} else {
MessageBox(ghwndMain, "Server: Accessing for writing Failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Advice: Map view of File First");
}
return 0L;
}
}
switch (HIWORD(wParam)) {
case EN_UPDATE: {
if ((hEdit != NULL) && (hEdit == (HANDLE)lParam) ) {
bDirty = TRUE;
}
return 0L;
}
}
}
case WM_TIMER:
if (bDirty && hEdit) {
//
// EM_GETHANDLE doesn't work for Win32s
//
#if 0
HANDLE hBuf;
BYTE * pBuf;
hBuf = (HANDLE) SendMessage(hEdit, EM_GETHANDLE, 0L, 0L);
if (hBuf) {
if ((pBuf = (BYTE *)LocalLock(hBuf)) == NULL) {
MessageBox(ghwndMain, "Can't get at Edit Control's data!", "Error", MB_OK);
} else {
strncpy(pShrMem1, pBuf, strlen(pBuf)+1);
bDirty = FALSE;
}
LocalUnlock(hBuf);
} else {
MessageBox(ghwndMain, "Failed in SendMessage EM_GETHANDLE!", "Error", MB_OK);
}
#endif
// so use WM_GETTEXT instead...
int iCnt;
if (iCnt) {
iCnt = SendMessage(hEdit, WM_GETTEXT, (WPARAM)4000, (LPARAM)pShrMem1);
bDirty = FALSE;
}
}
return 0L;
case WM_SETFOCUS:
//if (hEdit)
//SetFocus(hEdit);
return DefMDIChildProc(hwnd, message, wParam, lParam);
case WM_MDIACTIVATE:
if ((HWND) lParam == hwnd) {
SendMessage(GetParent(hwnd), WM_MDISETMENU,
(DWORD) hServerMenu,
(LONG) hServerMenuWindow) ;
DrawMenuBar(GetParent(GetParent(hwnd))) ;
//SetFocus(hEdit);
}
return 0;
case WM_SIZE:
if (hEdit)
MoveWindow(hEdit, 0, 0,
LOWORD(lParam),
HIWORD(lParam)-GetWindowLong(hTextWnd, GWL_USERDATA),
TRUE);
MoveWindow(hTextWnd,
0,
HIWORD(lParam) - GetWindowLong(hTextWnd, GWL_USERDATA),
LOWORD(lParam),
HIWORD(lParam), TRUE);
return DefMDIChildProc(hwnd, message, wParam, lParam);
case WM_CREATE: {
PPERWNDINFO pWndInfo;
PNODE pHead;
HANDLE hHead, hTmp;
RECT rect;
GetClientRect(hwnd, &rect);
hTextWnd = CreateWindow("Text", NULL,
WS_BORDER | SS_LEFT | WS_CHILD | WS_VISIBLE,
0, 0, 0, 0,
hwnd,
(HMENU) 2,
ghModule,
NULL);
SetWindowText(hTextWnd, "Select 'Create File...'");
// now find match
hHead = (HANDLE) GetWindowLong(ghwndMain, 0);
if (hHead) {
if ((pHead = (PNODE)LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
while ((pHead->ChildWnd.hThisWnd != hwnd) &&
(pHead->hNext != NULL)) {
hTmp = hHead;
hHead = pHead->hNext;
LocalUnlock(hTmp);
if ((pHead = (PNODE) LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
}
if (pHead->ChildWnd.hThisWnd == hwnd) {
pWndInfo = &pHead->ChildWnd;
goto Wnd_Found;
} else {
//MessageBox(ghwndMain, "Trouble - Can't find the node!", "Error", MB_OK);
goto Wnd_Out;
}
Wnd_Found:
if (!GetClientRect(pWndInfo->hThisWnd,
&pWndInfo->rcClient))
MessageBox(ghwndMain, "Failed in GetClientRect!", "Error", MB_OK);
Wnd_Out:
LocalUnlock(hHead);
return DefMDIChildProc(hwnd, message, wParam, lParam);
} else {
//MessageBox(ghwndMain, "Can't GetWindowLong(ghwndMain,0)!", "Error", MB_OK);
} return DefMDIChildProc(hwnd, message, wParam, lParam);
}
case WM_CLOSE: {
PPERWNDINFO pWndInfo;
PNODE pHead, pTrail;
HANDLE hHead, hTmp;
SendMessage(GetParent(hwnd), WM_MDISETMENU,
(DWORD) hMenu,
(LONG) hMenuWindow) ;
DrawMenuBar(GetParent(GetParent(hwnd))) ;
// now find match
hHead = (HANDLE) GetWindowLong(ghwndMain, 0);
if (hHead) {
if ((pHead = (PNODE)LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
pTrail = pHead;
while ((pHead->ChildWnd.hThisWnd != hwnd) &&
(pHead->hNext != NULL)) {
hTmp = hHead;
pTrail = pHead;
hHead = pHead->hNext;
LocalUnlock(hTmp);
if ((pHead = (PNODE) LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
}
if (pHead->ChildWnd.hThisWnd == hwnd) {
pWndInfo = &pHead->ChildWnd;
goto Wnd_Found1;
} else {
//MessageBox(ghwndMain, "Trouble - Can't find the thread node!", "Error", MB_OK);
goto Wnd_Out1;
}
Wnd_Found1: if (pTrail == pHead)
SetWindowLong(ghwndMain, 0, (LONG) pHead->hNext);
else
pTrail->hNext = pHead->hNext;
//if (!LocalUnlock(hHead)) {
LocalFree(hHead);
return DefMDIChildProc(hwnd, message, wParam, lParam);
//}
Wnd_Out1:
LocalUnlock(hHead);
} else {
//MessageBox(ghwndMain, "Can't GetWindowLong(ghwndMain,0) !", "Error", MB_OK);
}
return DefMDIChildProc(hwnd, message, wParam, lParam);
}
case WM_DESTROY:
KillTimer(hwnd, 1);
return 0L;
case WM_PAINT:
return DefMDIChildProc(hwnd, message, wParam, lParam);
default:
return DefMDIChildProc(hwnd, message, wParam, lParam);
}
}
/********************************************************************\
* ClientWndProc
*
* History:
* 04-17-91 ???? Created.
* 09-09-91 Petrus Wong Rewrote.
\***************************************************************************/
long APIENTRY ClientWndProc(
HWND hwnd,
UINT message,
DWORD wParam,
LONG lParam)
{
static HANDLE hMem1 = NULL;
static LPVOID pShrMem1 = NULL;
static HANDLE hEdit;
static HANDLE hTextWnd;
switch (message) {
case WM_COMMAND: {
switch (LOWORD(wParam)) {
case MM_OPT_5: { //Open File Mapping
SetWindowText(hTextWnd, "Opening Mapping File");
switch (DialogBox(ghModule, "MapName", hwnd, (DLGPROC)MapFileName)) {
case -1:
MessageBox(ghwndMain, "Client: Map dialog box creation failed!", "Error", MB_OK);
break;
case IDBTN_OK:
if ((hMem1 = (HANDLE) OpenMap(gszMapName)) == (HANDLE)NULL) {
MessageBox(ghwndMain, "Client: Open File Mapping failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Advice: Make sure Map file is created on Server");
} else {
EnableMenuItem(hClientMenu, MM_OPT_6, MF_ENABLED);
SetWindowText(hTextWnd, "Select 'Map View of File'");
}
break;
default:
break;
}
return 0L;
}
case MM_OPT_6: { //Map View of File
SetWindowText(hTextWnd, "Mapping view of File");
if (hMem1) {
if ((pShrMem1 = (LPVOID) MapView(&hMem1)) == (LPVOID)NULL)
MessageBox(ghwndMain, "Client: MapView() failed!", "Error", MB_OK);
else {
EnableMenuItem(hClientMenu, MM_OPT_7, MF_ENABLED);
SetWindowText(hTextWnd, "Select 'Access' for reading Server ");
}
} else {
MessageBox(ghwndMain, "Client: Mapping view of File Failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Advice: Open File Mapping first");
}
return 0L;
}
case MM_OPT_7: { //Access
RECT rcl;
SetWindowText(hTextWnd, "Accessing Server for reading");
if (pShrMem1) {
GetClientRect(hwnd, &rcl);
hEdit = CreateWindow("edit", NULL,
WS_CHILD | WS_VISIBLE | WS_HSCROLL |
WS_VSCROLL | WS_BORDER | ES_LEFT |
ES_MULTILINE | ES_AUTOHSCROLL | ES_READONLY |
ES_AUTOVSCROLL,
0,0, rcl.right-rcl.left,
rcl.bottom-rcl.top-GetWindowLong(hTextWnd, GWL_USERDATA),
hwnd, (HMENU) 1, ghModule, NULL);
if (hEdit) {
//SetFocus(hEdit);
SendMessage(hEdit, WM_SETTEXT, 0L, (LONG)pShrMem1);
SetTimer(hwnd, 2, 10000, NULL);
EnableMenuItem(hClientMenu, MM_OPT_8, MF_ENABLED);
} else {
MessageBox(ghwndMain, "Client: Create MLE failed!", "Error", MB_OK);
}
} else {
MessageBox(ghwndMain, "Client: Accessing for reading Failed!", "Error", MB_OK);
SetWindowText(hTextWnd, "Advice: Map View of File first");
}
return 0L;
}
case MM_OPT_8: { // refresh now
HANDLE hActive;
hActive = (HANDLE) SendMessage(GetParent(hwnd), WM_MDIGETACTIVE, 0L, 0L);
SendMessage(hEdit, WM_SETTEXT, 0L, (LONG)pShrMem1);
//SetFocus(hActive);
return 0L;
}
}
}
case WM_SETFOCUS:
//if (hEdit)
//SetFocus(hEdit);
return DefMDIChildProc(hwnd, message, wParam, lParam);
case WM_TIMER: {
HANDLE hActive;
if (hEdit) {
hActive = (HANDLE) SendMessage(GetParent(hwnd), WM_MDIGETACTIVE, 0L, 0L);
SendMessage(hEdit, WM_SETTEXT, 0L, (LONG)pShrMem1);
//SetFocus(hActive);
}
return 0L;
}
case WM_MDIACTIVATE:
if ((HWND) lParam == hwnd) {
SendMessage(GetParent(hwnd), WM_MDISETMENU,
(DWORD) hClientMenu,
(LONG) hClientMenuWindow) ;
DrawMenuBar(GetParent(GetParent(hwnd))) ;
//SetFocus(hEdit);
}
return 0;
case WM_SIZE:
if (hEdit)
MoveWindow(hEdit, 0, 0,
LOWORD(lParam),
HIWORD(lParam)-GetWindowLong(hTextWnd, GWL_USERDATA),
TRUE);
MoveWindow(hTextWnd,
0,
HIWORD(lParam) - GetWindowLong(hTextWnd, GWL_USERDATA),
LOWORD(lParam),
HIWORD(lParam), TRUE);
return DefMDIChildProc(hwnd, message, wParam, lParam);
case WM_CREATE: {
PPERWNDINFO pWndInfo;
PNODE pHead;
HANDLE hHead, hTmp;
RECT rect;
GetClientRect(hwnd, &rect);
hTextWnd = CreateWindow("Text", NULL,
WS_BORDER | SS_LEFT | WS_CHILD | WS_VISIBLE,
0, 0, 0, 0,
hwnd,
(HMENU) 2,
ghModule,
NULL);
SetWindowText(hTextWnd, "Select 'Open File...'");
// now find match
hHead = (HANDLE) GetWindowLong(ghwndMain, 0);
if (hHead) {
if ((pHead = (PNODE)LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
while ((pHead->ChildWnd.hThisWnd != hwnd) &&
(pHead->hNext != NULL)) {
hTmp = hHead;
hHead = pHead->hNext;
LocalUnlock(hTmp);
if ((pHead = (PNODE) LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
}
if (pHead->ChildWnd.hThisWnd == hwnd) {
pWndInfo = &pHead->ChildWnd;
goto Wnd_Found;
} else {
//MessageBox(ghwndMain, "Trouble - Can't find the node!", "Error", MB_OK);
goto Wnd_Out;
}
Wnd_Found:
if (!GetClientRect(pWndInfo->hThisWnd,
&pWndInfo->rcClient))
MessageBox(ghwndMain, "Failed in GetClientRect!", "Error", MB_OK);
Wnd_Out:
LocalUnlock(hHead);
return DefMDIChildProc(hwnd, message, wParam, lParam);
} else {
//MessageBox(ghwndMain, "Can't GetWindowLong(ghwndMain,0) !", "Error", MB_OK);
} return DefMDIChildProc(hwnd, message, wParam, lParam);
}
case WM_CLOSE: {
PPERWNDINFO pWndInfo;
PNODE pHead, pTrail;
HANDLE hHead, hTmp;
SendMessage(GetParent(hwnd), WM_MDISETMENU,
(DWORD) hMenu,
(LONG) hMenuWindow) ;
DrawMenuBar(GetParent(GetParent(hwnd))) ;
// now find match
hHead = (HANDLE) GetWindowLong(ghwndMain, 0);
if (hHead) {
if ((pHead = (PNODE)LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
pTrail = pHead;
while ((pHead->ChildWnd.hThisWnd != hwnd) &&
(pHead->hNext != NULL)) {
hTmp = hHead;
pTrail = pHead;
hHead = pHead->hNext;
LocalUnlock(hTmp);
if ((pHead = (PNODE) LocalLock(hHead))==NULL)
MessageBox(ghwndMain, "Failed in LocalLock!", "Error", MB_OK);
}
if (pHead->ChildWnd.hThisWnd == hwnd) {
pWndInfo = &pHead->ChildWnd;
goto Wnd_Found1;
} else {
//MessageBox(ghwndMain, "Trouble - Can't find the thread node!", "Error", MB_OK);
goto Wnd_Out1;
}
Wnd_Found1: if (pTrail == pHead)
SetWindowLong(ghwndMain, 0, (LONG) pHead->hNext);
else
pTrail->hNext = pHead->hNext;
//if (!LocalUnlock(hHead)) {
LocalFree(hHead);
return DefMDIChildProc(hwnd, message, wParam, lParam);
//}
Wnd_Out1:
LocalUnlock(hHead);
} else {
//MessageBox(ghwndMain, "Can't GetWindowLong(ghwndMain,0)!", "Error", MB_OK);
}
return DefMDIChildProc(hwnd, message, wParam, lParam);
}
case WM_DESTROY:
KillTimer(hwnd, 2);
return 0l;
default:
return DefMDIChildProc(hwnd, message, wParam, lParam);
}
}
/***************************************************************************\
* About
*
* About dialog proc.
*
* History:
* 04-13-91 ???? Created.
* 09-09-91 Petrus Wong Rewrote.
\***************************************************************************/
BOOL CALLBACK APIENTRY About(
HWND hDlg,
UINT message,
DWORD wParam,
LONG lParam)
{
switch (message) {
case WM_INITDIALOG:
return TRUE;
case WM_COMMAND:
if (wParam == IDOK)
EndDialog(hDlg, wParam);
break;
}
return FALSE;
UNREFERENCED_PARAMETER(lParam);
UNREFERENCED_PARAMETER(hDlg);
}
/***************************************************************************\
* MapFileName
*
* MapFileName dialog proc.
*
* History:
* 09-09-91 Petrus Wong Created.
\***************************************************************************/
BOOL CALLBACK MapFileName(
HWND hDlg,
UINT message,
DWORD wParam,
LONG lParam)
{
switch (message) {
case WM_INITDIALOG:
return TRUE;
case WM_COMMAND:
switch (wParam) {
case IDBTN_OK: {
if ((GetDlgItemText(hDlg, IDEDIT_MAPNAME, gszMapName, 20)) == 0) {
MessageBox(ghwndMain, "MapFileName: Can't get edit text!", "Error", MB_OK);
strncpy(gszMapName, "MapName1", 10); // default name
}
EndDialog(hDlg, IDBTN_OK);
break;
}
}
}
return FALSE;
UNREFERENCED_PARAMETER(lParam);
UNREFERENCED_PARAMETER(hDlg);
}
/***************************************************************************\
* FileType
*
* FileType dialog proc.
*
* History:
* 09-09-91 Petrus Wong Created.
\***************************************************************************/
BOOL CALLBACK FileType(
HWND hDlg,
UINT message,
DWORD wParam,
LONG lParam)
{
switch (message) {
case WM_INITDIALOG:
return TRUE;
case WM_COMMAND:
switch (wParam) {
case IDBTN_PAGE: {
EndDialog(hDlg, IDBTN_PAGE);
break;
}
case IDBTN_MAP: {
if ((GetDlgItemText(hDlg, IDEDIT_MAPFILE, gszFile, 20)) == 0)
EndDialog(hDlg, IDBTN_PAGE); // default to use PAGE file
else
EndDialog(hDlg, IDBTN_MAP);
break;
}
}
}
return FALSE;
UNREFERENCED_PARAMETER(lParam);
UNREFERENCED_PARAMETER(hDlg);
}
/*************************************************************************
*
* TextWndProc
*
* Text Window proc.
*
* History:
* 10-07-91 Petrus Wong Created.
*
\***************************************************************************/
LONG APIENTRY TextWndProc (HWND hwnd, UINT message, DWORD wParam, LONG lParam)
{
static HFONT hFont = (HFONT) NULL;
switch (message)
{
case WM_CREATE:
{
LOGFONT lf;
HDC hDC;
HFONT hOldFont;
TEXTMETRIC tm;
RECT rect;
LONG lHeight;
SystemParametersInfo(SPI_GETICONTITLELOGFONT, sizeof(lf), &lf, FALSE);
hDC = GetDC(hwnd);
// this is the height for 8 point size font in pixels
lf.lfHeight = 8 * GetDeviceCaps(hDC, LOGPIXELSY) / 72;
hFont = CreateFontIndirect(&lf);
hOldFont = SelectObject(hDC, hFont);
GetTextMetrics(hDC, &tm);
GetClientRect(GetParent(hwnd), &rect);
// base the height of the window on size of text
lHeight = tm.tmHeight+6*GetSystemMetrics(SM_CYBORDER)+2;
// saved the height for later reference
SetWindowLong(hwnd, GWL_USERDATA, lHeight);
SetWindowPos(hwnd, NULL,
0,
rect.bottom-lHeight,
rect.right-rect.left,
lHeight,
SWP_NOZORDER | SWP_NOMOVE);
ReleaseDC(hwnd, hDC);
break;
}
case WM_DESTROY:
if (hFont)
DeleteObject(hFont);
break;
case WM_SETTEXT:
DefWindowProc(hwnd, message, wParam, lParam);
InvalidateRect(hwnd,NULL,FALSE);
UpdateWindow(hwnd);
return 0L;
case WM_PAINT:
{
PAINTSTRUCT ps;
RECT rc;
char ach[128];
int len, nxBorder, nyBorder;
HFONT hOldFont = NULL;
BeginPaint(hwnd, &ps);
GetClientRect(hwnd,&rc);
nxBorder = GetSystemMetrics(SM_CXBORDER);
rc.left += 9*nxBorder;
rc.right -= 9*nxBorder;
nyBorder = GetSystemMetrics(SM_CYBORDER);
rc.top += 3*nyBorder;
rc.bottom -= 3*nyBorder;
// 3D Text
len = GetWindowText(hwnd, ach, sizeof(ach));
SetBkColor(ps.hdc, GetSysColor(COLOR_BTNFACE));
SetBkMode(ps.hdc, TRANSPARENT);
SetTextColor(ps.hdc, RGB(64,96,96));
if (hFont)
hOldFont = SelectObject(ps.hdc, hFont);
ExtTextOut(ps.hdc, rc.left+2*nxBorder+2, rc.top+2, ETO_OPAQUE | ETO_CLIPPED,
&rc, ach, len, NULL);
SetTextColor(ps.hdc, RGB(128,128,128));
if (hFont)
hOldFont = SelectObject(ps.hdc, hFont);
ExtTextOut(ps.hdc, rc.left+2*nxBorder+1, rc.top+1, ETO_CLIPPED,
&rc, ach, len, NULL);
SetTextColor(ps.hdc, RGB(255,255,255));
if (hFont)
hOldFont = SelectObject(ps.hdc, hFont);
ExtTextOut(ps.hdc, rc.left+2*nxBorder, rc.top, ETO_CLIPPED,
&rc, ach, len, NULL);
SetBkMode(ps.hdc, OPAQUE);
if (hOldFont)
SelectObject(ps.hdc, hOldFont);
EndPaint(hwnd, &ps);
return 0L;
}
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.