Создание текстового редактора -> Форум на Исходниках.RU [Powered by Invision Power Board]

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

#include "windows.h"

BOOL InitInstance(HINSTANCE, int);

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

HWND hWnd;

HWND hEdit;

HMENU hMenu,hFileMenu;

HFONT hFont;

OPENFILENAME ofn;

char szFile[260];

HANDLE hFile;

#define ID_EDIT 100

#define ID_FILE_OPEN 101

#define ID_FILE_SAVE 102

#define ID_EXIT 103

int APIENTRY WinMain(HINSTANCE hInstance,

HINSTANCE hPrevInstance,

LPTSTR lpCmdLine,

int nCmdShow)

{

MSG msg;

if (!InitInstance (hInstance, nCmdShow))

return FALSE;

while (GetMessage(&msg, NULL, 0, 0))

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return (int) msg.wParam;

}

BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)

{

WNDCLASSEX wcex;

wcex.cbSize = sizeof(WNDCLASSEX);

wcex.style = CS_HREDRAW | CS_VREDRAW;

wcex.lpfnWndProc = (WNDPROC)WndProc;

wcex.cbClsExtra = 0;

wcex.cbWndExtra = 0;

wcex.hInstance = hInstance;

wcex.hIcon = NULL;

wcex.hCursor = LoadCursor(NULL, IDC_ARROW);

wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);

wcex.lpszMenuName = NULL;

wcex.lpszClassName = "FRM_TEXTEDIT";

wcex.hIconSm = NULL;

RegisterClassEx(&wcex);

hWnd = CreateWindow(wcex.lpszClassName, "Text Edit", WS_OVERLAPPEDWINDOW,

CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);

if (!hWnd)

return FALSE;

ShowWindow(hWnd, nCmdShow);

UpdateWindow(hWnd);

//=====================================================

ZeroMemory(&ofn, sizeof(ofn));

ofn.lStructSize = sizeof(ofn);

ofn.hwndOwner = hWnd;

ofn.lpstrFile = szFile;

ofn.lpstrFile[0] = '\0';

ofn.nMaxFile = sizeof(szFile);

ofn.lpstrFilter = "All\0*.*\0Text\0*.TXT\0";

ofn.nFilterIndex = 1;

ofn.lpstrFileTitle = NULL;

ofn.nMaxFileTitle = 0;

ofn.lpstrInitialDir = NULL;

ofn.Flags = OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;

//=================================================

return TRUE;

}

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

{

int wmId, wmEvent;

switch (message)

{

case WM_CREATE:

{

RECT rcClient;

::GetClientRect(hWnd,&rcClient);

hEdit=CreateWindow("EDIT",NULL,WS_CHILD | WS_VISIBLE | WS_VSCROLL |

ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL, 0, 0, 0, 0,

hWnd,(HMENU) ID_EDIT, (HINSTANCE)::GetModuleHandle(NULL), NULL);

hMenu=::CreateMenu();

hFileMenu=::CreatePopupMenu();

::AppendMenu(hMenu,MF_STRING|MF_POPUP,(UINT)(LONG_PTR)hFileMenu,"Файл");

::AppendMenu(hFileMenu,MF_STRING,ID_FILE_OPEN,"Открыть");

::AppendMenu(hFileMenu,MF_STRING,ID_FILE_SAVE,"Сохранить");

::AppendMenu(hFileMenu,MF_SEPARATOR,0,NULL);

::AppendMenu(hFileMenu,MF_STRING,ID_EXIT,"Выход");

::SetMenu(hWnd,hMenu);

hFont=::CreateFont(12,0,0,0,FW_NORMAL,FALSE,FALSE,0,ANSI_CHARSET,

OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,

DEFAULT_PITCH | FF_SWISS,"Arial");

::SendMessage(hEdit,WM_SETFONT,WPARAM(hFont),TRUE);

::SendMessage(hEdit,EM_SETLIMITTEXT,WPARAM(-1),0);

break;

}

case WM_SIZE:

{

MoveWindow(hEdit,0, 0,LOWORD(lParam),HIWORD(lParam),TRUE);

return 0;

}

case WM_COMMAND:

wmId = LOWORD(wParam);

wmEvent = HIWORD(wParam);

switch (wmId)

{

case ID_FILE_OPEN:

{

if (GetOpenFileName(&ofn)==TRUE)

{

hFile = CreateFile(ofn.lpstrFile, GENERIC_READ,

0, (LPSECURITY_ATTRIBUTES) NULL,

OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,

(HANDLE) NULL);

if(hFile==NULL)

::MessageBox(hWnd,"Не могу открыть файл","Ошибка",0x10);

DWORD nBufLen=::GetFileSize(hFile,NULL);

DWORD nBufLenToRead=0;

char* szReadBuf=new char[nBufLen];

if(!::ReadFile(hFile,szReadBuf,nBufLen,&nBufLenToRead,NULL))

::MessageBox(hWnd,"Не могу прочитать файл","Ошибка",0x10);

::SetWindowText(hEdit,szReadBuf);

delete[] szReadBuf;

::CloseHandle(hFile);

}

break;

}

case ID_FILE_SAVE:

{

if (GetSaveFileName(&ofn)==TRUE)

{

hFile = CreateFile(ofn.lpstrFile, GENERIC_WRITE,

0, (LPSECURITY_ATTRIBUTES) NULL,

CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL,

(HANDLE) NULL);

if(hFile==NULL)

::MessageBox(hWnd,"Не могу открыть файл","Ошибка",0x10);

DWORD nBufLen=(DWORD)SendMessage(hEdit,WM_GETTEXTLENGTH,0,0);

DWORD nBufLenToWrite=0;

char* szWriteBuf=new char[nBufLen];

::GetWindowText(hEdit,szWriteBuf,nBufLen);

if(!::WriteFile(hFile,szWriteBuf,nBufLen,&nBufLenToWrite,NULL))

::MessageBox(hWnd,"Не могу записать в файл","Ошибка",0x10);

delete[] szWriteBuf;

::CloseHandle(hFile);

}

break;

}

case ID_EXIT:

{

::DestroyWindow(hWnd);

break;

}

default:

return DefWindowProc(hWnd, message, wParam, lParam);

}

break;

case WM_DESTROY:

PostQuitMessage(0);

break;

default:

return DefWindowProc(hWnd, message, wParam, lParam);

}

return 0;

}