TYPER程序

#define BUFFER(x,y) *(pBuffer+y*cxBuffer+x)LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam){int wmId, wmEvent,x,y,i;static DWORD dwCharSet=DEFAULT_CHARSET;static int cxChar,cyChar,cxClient,cyClient,cxBuffer,cyBuffer,xCaret,yCaret;static TCHAR* pBuffer=NULL;PAINTSTRUCT ps;HDC hdc;TEXTMETRIC tm;switch (message){case WM_INPUTLANGCHANGE:dwCharSet=wParam;case WM_CREATE:hdc=GetDC(hWnd);SelectObject(hdc,CreateFont(0,0,0,0,0,0,0,0,dwCharSet,0,0,0,FIXED_PITCH,NULL));GetTextMetrics(hdc,&tm);cxChar=tm.tmAveCharWidth;cyChar=tm.tmHeight;DeleteObject(SelectObject(hdc,GetStockObject(SYSTEM_FONT)));ReleaseDC(hWnd,hdc);case WM_SIZE:if(message==WM_SIZE){cxClient=LOWORD(lParam);cyClient=HIWORD(lParam);}cxBuffer=max(1,cxClient/cxChar);cyBuffer=max(1,cyClient/cyChar);if(pBuffer!=NULL)free(pBuffer);pBuffer=(TCHAR*)malloc(cxBuffer*cyBuffer*sizeof(TCHAR));for(y=0;y<cyBuffer;y++)for(x=0;x<cxBuffer;x++)BUFFER(x,y)=' ';xCaret=0;yCaret=0;if(hWnd==GetFocus())SetCaretPos(xCaret*cxChar,yCaret*cyChar);InvalidateRect(hWnd,NULL,TRUE);break;case WM_SETFOCUS:CreateCaret(hWnd,NULL,cxChar,cyChar);SetCaretPos(xCaret*cxChar,yCaret*cyChar);ShowCaret(hWnd);break;case WM_KILLFOCUS:HideCaret(hWnd);DestroyCaret();break;case WM_KEYDOWN:switch(wParam){case VK_HOME:xCaret=0;break;case VK_END:xCaret=cxBuffer-1;break;case VK_PRIOR:yCaret=0;break;case VK_NEXT:yCaret=cyBuffer-1;break;case VK_LEFT:xCaret=max(xCaret-1,0);break;case VK_RIGHT:xCaret=min(xCaret+1,cxBuffer-1);break;case VK_UP:yCaret=max(0,yCaret-1);break;case VK_DOWN:yCaret=min(yCaret+1,cyBuffer-1);break;case VK_DELETE:for(x=xCaret;x<cxBuffer-1;x++)BUFFER(x,yCaret)=BUFFER(x+1,yCaret);BUFFER(cxBuffer-1,yCaret)=' ';HideCaret(hWnd);hdc=GetDC(hWnd);SelectObject(hdc,CreateFont(0,0,0,0,0,0,0,0,dwCharSet,0,0,0,FIXED_PITCH,NULL));TextOut(hdc,xCaret*cxChar,yCaret*cyChar,&BUFFER(xCaret,yCaret),cxBuffer-xCaret);DeleteObject(SelectObject(hdc,GetStockObject(SYSTEM_FONT)));ReleaseDC(hWnd,hdc);ShowCaret(hWnd);break;}SetCaretPos(xCaret*cxChar,yCaret*cyChar);break;case WM_CHAR:for(i=0;i<(int)LOWORD(lParam);i++){switch(wParam){case '/b':if(xCaret>0){xCaret--;SendMessage(hWnd,WM_KEYDOWN,VK_DELETE,1);}break;case '/t':do{SendMessage(hWnd,WM_CHAR,' ',1);}while(xCaret%8!=0);break;case '/n':if(++yCaret==cyBuffer)yCaret=0;break;case '/r':xCaret=0;if(++yCaret==cyBuffer)yCaret=0;break;case '/x1B':for(y=0;y<cyBuffer;y++)for(x=0;x<cxBuffer;x++)BUFFER(x,y)=' ';xCaret=0;yCaret=0;InvalidateRect(hWnd,NULL,TRUE);break;default:BUFFER(xCaret,yCaret)=(TCHAR)wParam;HideCaret(hWnd);hdc=GetDC(hWnd);SelectObject(hdc,CreateFont(0,0,0,0,0,0,0,0,dwCharSet,0,0,0,FIXED_PITCH,NULL));TextOut(hdc,xCaret*cxChar,yCaret*cyChar,&BUFFER(xCaret,yCaret),1);DeleteObject(SelectObject(hdc,GetStockObject(SYSTEM_FONT)));ReleaseDC(hWnd,hdc);ShowCaret(hWnd);if(++xCaret==cxBuffer){xCaret=0;if(++yCaret==cyBuffer)yCaret=0;}}}SetCaretPos(xCaret*cxChar,yCaret*cyChar);break;case WM_COMMAND:wmId = LOWORD(wParam);wmEvent = HIWORD(wParam);// 分析菜单选择:switch (wmId){case IDM_ABOUT:DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);break;case IDM_EXIT:DestroyWindow(hWnd);break;default:return DefWindowProc(hWnd, message, wParam, lParam);}break;case WM_PAINT:hdc = BeginPaint(hWnd, &ps);SelectObject(hdc,CreateFont(0,0,0,0,0,0,0,0,dwCharSet,0,0,0,FIXED_PITCH,NULL));for(y=0;y<cyBuffer;y++)TextOut(hdc,0,y*cyChar,&BUFFER(0,y),cxBuffer);DeleteObject(SelectObject(hdc,GetStockObject(SYSTEM_FONT)));ReleaseDC(hWnd,hdc);EndPaint(hWnd, &ps);break;case WM_DESTROY:PostQuitMessage(0);break;default:return DefWindowProc(hWnd, message, wParam, lParam);}return 0;}