long FAR PASCAL WndProc(HWND hWnd,WORD message,
WORD wParam,LONG lParam)
{
PAINTSTRUCT ps;
switch(message) {
case WM_CREATE:
return 0L;
case WM_COMMAND:
strcpy(szName,"");
switch (wParam) {
case IDM_OPEN:
CMUFileName(hWnd,"OPENFILENAME","open");
if (strlen(szName))
LoadBMP(szName);
return 0;
case IDM_OPENA:
CMUFileName(hWnd,"打开图像文件(后读入调色板)","open");
if (strlen(szName))
LoadBMPA(szName);
return 0;
case IDM_SAVE: // 存储图象
if (hBitmap) {
CMUFileName(hWnd,"SAVEFILENAME","save");
if (strlen(szName))
SaveBMP(szName,wid,hei,bits);
}
return 0;
case IDM_EXIT: // 退出
SendMessage(hWnd,WM_CLOSE,0,0L);
return 0;