Программирование с использованием WinAPI - [33] :: Прикладное программирование

Abs62
Что то я здесь опять запарол. Низлежащий код работает, но не доконца. Контрол рисуется в начале координат

хоть и должен рисоватся в нужном месте.

Код:

//---------------------------------------------------------------------------------------------------------------------------
LONG WINAPI MainWindowProcedure    (
                                    HWND    Window,
                                    UINT    Message,
                                    WPARAM    wParam,
                                    LPARAM    lParam
                                )
{
    RECT        RC1;
    PAINTSTRUCT    ps;
    HDC            hdc;

    switch (Message)
    {
        case WM_CREATE:
        {
            self_TabSheet = CreateWindow    (
                                                "SysTabControl32",
                                                "",
                                                WS_CHILD|WS_VISIBLE,
                                                0, 0, 0, 0,
                                                Window,
                                                (HMENU)0,
                                                m_hInstance,
                                                NULL
                                            );
            SendMessage(self_TabSheet, WM_SETFONT, (WPARAM)GetStockObject(DEFAULT_GUI_FONT), MAKELPARAM(true, 0));
            TabItem.mask = TCIF_TEXT|TCIF_PARAM;
            TabItem.dwState = 0;
            TabItem.dwStateMask = 0;
            TabItem.pszText = "Система";
            TabItem.cchTextMax = 10;
            TabItem.iImage = 0;
            TabItem.lParam = (LPARAM)0;
            SendMessage(self_TabSheet, TCM_INSERTITEM, 1, (LPARAM)&TabItem);
            TabItem.mask = TCIF_TEXT|TCIF_PARAM;
            TabItem.dwState = 0;
            TabItem.dwStateMask = 0;
            TabItem.pszText = "Система";
            TabItem.cchTextMax = 10;
            TabItem.iImage = 0;
            TabItem.lParam = (LPARAM)0;
            SendMessage(self_TabSheet, TCM_INSERTITEM, 2, (LPARAM)&TabItem);
            SetWindowLong(self_TabSheet, GWL_WNDPROC, (long)&SubTabControlProc);
            return 0;
        }
        case WM_PAINT:
        {
            GetClientRect(Window, &RC1);
            hdc = BeginPaint (Window, &ps);
            PatBlt(memDC,0,0,RC1.right-RC1.left, RC1.bottom-RC1.top, PATCOPY);
            EnumChildWindows(Window, &DrawControlsProc, 0);
            BitBlt(hdc, 0, 0, RC1.right-RC1.left, RC1.bottom-RC1.top, memDC, 0, 0, SRCCOPY);
            EndPaint (Window, &ps);
            return 0;
        }
        case WM_ERASEBKGND:
        {
            return 1;
        }
        case WM_SIZE:
        {
            GetClientRect(Window, &RC1);
            MoveWindow(self_TabSheet, RC1.left+10, RC1.top+10, RC1.right-20, RC1.bottom-20, true);
            return 0;
        }
        case WM_DESTROY:
        {
            PostQuitMessage(0);
            return 0;
        }
    }
    return DefWindowProc    (
                                Window,
                                Message,
                                wParam,
                                lParam
                            );
}
//---------------------------------------------------------------------------------------------------
LONG WINAPI SubTabControlProc    (
                                    HWND    Window,
                                    UINT    Message,
                                    WPARAM    wParam,
                                    LPARAM    lParam
                                )
{
    HDC            hdc;
    PAINTSTRUCT    ps;

    switch (Message)
    {
        case WM_PAINT://Выключаем перерисовку без двойной буферизации
        {
            hdc = BeginPaint (Window, &ps);
            EndPaint (Window, &ps);
            return 0;
        }
    }
    return CallWindowProc    (
                                oldTabControlProc,
                                Window,
                                Message,
                                wParam,
                                lParam
                            );
}
//---------------------------------------------------------------------------------
BOOL CALLBACK DrawControlsProc(HWND hwnd, LPARAM lParam)
{
    SendMessage(hwnd, WM_PRINT, (WPARAM)memDC, (LPARAM)(PRF_CLIENT|PRF_CHILDREN));
    return true;
}
//--------------------------------------------------------------------------------------------

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61