Диалоговые панели

#include<windows.h>
#include<tchar.h>
//#include "CreateDlg.h"
 
#define ID_STATIC_SIZEN  2000
#define ID_STATIC_VALUE  2001
#define ID_EDIT_ROWS     2002
#define ID_EDIT_COLS     2003
#define ID_EDIT_VALUES   2004
#define ID_BUTTON_OK     2005
#define CM_ARRAY_CREATE  2006
#define CM_ARRAY_EXIT    2007
 
BOOL       RegClass(WNDPROC, LPCTSTR, UINT);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
LRESULT CALLBACK DlgProc(HWND, UINT, WPARAM, LPARAM);
 
int CreateDlg(HWND);
LPWORD lpwAlign(LPWORD lpIn)
{
    ULONG ui = (ULONG)lpIn;
    ui += 3;
    ui >>= 2;
    ui <<= 2;
    return (LPWORD)ui;
}
 
int nCopyAnsiToWideChar(LPWORD lpWCStr, LPSTR lpAnsi)
{
    int cch = strlen(lpAnsi);
    return MultiByteToWideChar(GetACP(), MB_PRECOMPOSED,
        lpAnsi, cch, (LPWSTR)lpWCStr, cch)
        + 1;
}
 
 
HINSTANCE hInstance = NULL;
 
TCHAR szMainClass[] = TEXT("WindowAppClass");
 
int Rows, Cols;
 
int* aInts = NULL;
 
int WINAPI _tWinMain(HINSTANCE hInst, HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nCmdShow)
{
    MSG msg = { 0 };
    HWND hwnd = NULL;
    hInstance = hInst;
 
    if (!RegClass(WndProc, szMainClass, COLOR_DESKTOP))
        return FALSE;
 
    int wScreen = GetSystemMetrics(SM_CXSCREEN);
    int hScreen = GetSystemMetrics(SM_CYSCREEN);
 
    hwnd = CreateWindow(szMainClass, TEXT("Create a dialog box"),
        WS_OVERLAPPEDWINDOW | WS_VISIBLE,
        0, 0, wScreen, hScreen, 0, 0, hInstance, NULL);
    if (!hwnd)
        return FALSE;
 
    while (GetMessage(&msg, NULL, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    return msg.wParam;
}
 
BOOL RegClass(WNDPROC proc, LPCTSTR szName, UINT brBackground)
{
    WNDCLASS wc = { 0 };
    wc.style = wc.cbClsExtra = wc.cbWndExtra = 0;
    wc.lpfnWndProc = proc;
    wc.hInstance = hInstance;
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(brBackground + 1);
    wc.lpszMenuName = (LPCTSTR)NULL;
    wc.lpszClassName = szName;
    return (RegisterClass(&wc) != 0);
}
 
LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
    static HMENU hMainMenu, hArrayMenu;
    static MENUITEMINFO mii;
    switch (msg)
    {
    case WM_CREATE:
    {
        mii.cbSize = sizeof(mii);
 
        hMainMenu = CreateMenu();
        SetMenu(hwnd, hMainMenu);
        mii.fMask = MIIM_TYPE | MIIM_STATE | MIIM_ID | MIIM_SUBMENU;
 
        hArrayMenu = CreatePopupMenu();
        mii.fType = MFT_STRING;
        mii.fState = MFS_ENABLED;
        mii.wID = CM_ARRAY_CREATE;
        mii.dwTypeData = (LPTSTR)TEXT("СОЗДАТЬ МАССИВ");
        mii.cch = lstrlen(TEXT("СОЗДАТЬ МАССИВ"));
        mii.hSubMenu = 0;
        if (!InsertMenuItem(hArrayMenu, CM_ARRAY_CREATE, FALSE, &mii))
        {
            DWORD er = GetLastError();
        }
 
        mii.fMask = MIIM_TYPE | MIIM_STATE;
        mii.fType = MFT_SEPARATOR;
        mii.fState = MFS_ENABLED;
        mii.wID = 0;
        mii.dwTypeData = NULL;
        mii.cch = 0;
        InsertMenuItem(hArrayMenu, 0, FALSE, &mii);
 
        mii.fMask = MIIM_TYPE | MIIM_STATE | MIIM_ID | MIIM_SUBMENU;
        mii.fType = MFT_STRING;
        mii.fState = MFS_ENABLED;
        mii.wID = CM_ARRAY_EXIT;
        mii.dwTypeData = (LPTSTR)TEXT("Выход");
        mii.cch = lstrlen(TEXT("Выход"));
        mii.hSubMenu = 0;
        InsertMenuItem(hArrayMenu, CM_ARRAY_EXIT, FALSE, &mii);
        mii.hSubMenu = hArrayMenu;
        mii.dwTypeData = (LPTSTR)TEXT("Действия с диалогом");
        mii.cch = lstrlen(TEXT("Действия с диалогом"));
        InsertMenuItem(hMainMenu, 0, TRUE, &mii);
        DrawMenuBar(hwnd);
 
        return 0;
    }
    case WM_COMMAND:
    {
        switch (LOWORD(wParam))
        {
        case CM_ARRAY_CREATE:
        {
            CreateDlg(hwnd);
            break;
        }
        case CM_ARRAY_EXIT:
        {
            DestroyWindow(hwnd);
            break;
        }
        }
        return 0;
    }
    case WM_DESTROY:
    {
        PostQuitMessage(0);
        return 0;
    }
    }
    return DefWindowProc(hwnd, msg, wParam, lParam);
}
 
int CreateDlg(HWND hwnd)
{
    char const caption[] = "Заполнить массив целых числел.";
    TCHAR TextStatic1[] = TEXT("Введите кличество строк и столбцов массива");
 
 
    TEXTMETRIC tm;
    int cxChar, cyChar;
    {
        HDC hdc = GetDC(hwnd);
        GetTextMetrics(hdc, &tm);
        ReleaseDC(hwnd, hdc);
        cxChar = tm.tmAveCharWidth;
        cyChar = tm.tmHeight + tm.tmExternalLeading;
    }
 
    DWORD dlgUnit = GetDialogBaseUnits();
    int cxDlg = LOWORD(dlgUnit);
    int cyDlg = HIWORD(dlgUnit);
 
    cxChar = cxChar * 4 / cxDlg;
    cyChar = cyChar * 8 / cyDlg;
 
    WORD* p, * pdlgTemp;
    pdlgTemp = p = (PWORD)LocalAlloc(LPTR, 2000);
    if (!p || !pdlgTemp)
        return FALSE;
 
    //DLGTEMPLATE dlgTmp;
    DWORD lStyle = DS_CENTER | DS_MODALFRAME | WS_POPUPWINDOW |
        WS_CAPTION;
 
    int wDlg, hDlg, wItem, hItem, left, top;
    wItem = 8 * cxChar;
    hItem = cyChar + 2;
    left = top = 0;
 
    wDlg = wItem * 10;
    hDlg = hItem * 10;
    *p++ = LOWORD(lStyle);
    *p++ = HIWORD(lStyle);
    *p++ = 0;
    *p++ = 0;
    *p++ = 3;
    *p++ = left;
    *p++ = top;
    *p++ = wDlg;
    *p++ = hDlg;
    *p++ = 0;
    *p++ = 0;
    //int nChar = lstrlen(caption);
    int nChar = nCopyAnsiToWideChar(p, (LPSTR)caption);
    p += nChar;
    p = lpwAlign((LPWORD)p);
 
    //---------------------------
    lStyle = WS_CHILD | WS_VISIBLE | ES_RIGHT | ES_AUTOHSCROLL |
        WS_BORDER | WS_TABSTOP;
    left = wDlg / 2 - (wItem + wItem / 2);
    top = 5;
    *p++ = LOWORD(lStyle);
    *p++ = HIWORD(lStyle);
    *p++ = 0;
    *p++ = 0;
    *p++ = left;
    *p++ = top;
    *p++ = wItem;
    *p++ = hItem;
    *p++ = ID_EDIT_ROWS;
    //nChar = lstrlen(TEXT("edit"));
    nChar = nCopyAnsiToWideChar(p, (LPSTR)"edit");
    p += nChar;
    //nChar = lstrlen(TEXT("Rows"));
    nChar = nCopyAnsiToWideChar(p, (LPSTR)"Rows");
    p += nChar;
    *p++ = 0;
    p = lpwAlign((LPWORD)p);
 
    //-------------------------------------
 
    lStyle = WS_CHILD | WS_VISIBLE | ES_RIGHT | ES_AUTOHSCROLL |
             WS_BORDER | WS_TABSTOP;
    left = wDlg / 2 + (wItem / 2);
    //top += hItem;
    *p++ = LOWORD(lStyle);
    *p++ = HIWORD(lStyle);
    *p++ = 0;
    *p++ = 0;
    *p++ = left;
    *p++ = top;
    *p++ = wItem;
    *p++ = hItem;
    *p++ = ID_EDIT_COLS;
    //nChar = lstrlen(TEXT("edit"));
    nChar = nCopyAnsiToWideChar(p, (LPSTR)"edit");
    p += nChar;
    //nChar = lstrlen(TEXT("cols"));
    nChar = nCopyAnsiToWideChar(p, (LPSTR)"Cols");
    p += nChar;
    *p++ = 0;
    p = lpwAlign((LPWORD)p);
 
    //----------------------------------------
    lStyle = WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON | BS_CENTER;
 
    int wButton = 6 * cxChar;
    int hButton = 3 * cyChar / 2;
 
    left = wDlg / 2 - (wButton / 2);
    top = hDlg - hButton - 5;
    *p++ = LOWORD(lStyle);
    *p++ = HIWORD(lStyle);
    *p++ = 0;
    *p++ = 0;
    *p++ = left;
    *p++ = top;
    *p++ = wButton;
    *p++ = hButton;
    *p++ = ID_BUTTON_OK;
    //nChar = lstrlen(TEXT("button"));
    nChar = nCopyAnsiToWideChar(p, (LPSTR)"button");
    p += nChar;
    //nChar = lstrlen(TEXT("OK"));
    nChar = nCopyAnsiToWideChar(p, (LPSTR)"OK");
    p += nChar;
    *p++ = 0;
    p = lpwAlign((LPWORD)p);
 
    int Ret = DialogBoxIndirect(hInstance, (LPCDLGTEMPLATE)pdlgTemp,
        hwnd, (DLGPROC)DlgProc);
 
    //--------------------------
 
    LocalFree(LocalHandle(pdlgTemp));
 
    return Ret;
}
 
LRESULT CALLBACK DlgProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
    switch (msg)
    {
    case WM_COMMAND:
    {
        switch (LOWORD(wParam))
        {
            TCHAR buf1[16], buf2[16];
 
        case ID_EDIT_ROWS:
        {
            if (HIWORD(wParam) == EN_SETFOCUS)
                SetWindowText(GetDlgItem(hDlg, ID_EDIT_ROWS), TEXT(""));
 
            return TRUE;
        }
        case ID_EDIT_COLS:
        {
            if (HIWORD(wParam) == EN_SETFOCUS)
                SetWindowText(GetDlgItem(hDlg, ID_EDIT_COLS), TEXT(""));
            return TRUE;
        }
        
        case ID_BUTTON_OK:
        {
            Rows = SendMessage(GetDlgItem(hDlg, ID_EDIT_ROWS),
                EM_GETLINE, 0, (LPARAM)buf1);
            Cols = SendMessage(GetDlgItem(hDlg, ID_EDIT_COLS),
                EM_GETLINE, 0, (LPARAM)buf2);
            if (Rows)
            {
                buf1[Rows] = '\0';
                Rows = _tcstol(buf1, NULL, 10);
            }
            if (Cols)
            {
                buf2[Cols] = '\0';
                Cols = _tcstol(buf2, NULL, 10);
            }
            EndDialog(hDlg, TRUE);
            return TRUE;
        }
        }
        return FALSE;
    }
    }
    return FALSE;
}