Ганеев. Панель выбора цвета

15.01.2013, 23:02. **Показов** 1371. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Выскакивают ошибки которые вроде как не должны выскакивать... Избавиться от них можно удалив первую библиотеку, но тогда просто не работает панель...Помогите....

C++
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
// Цвета.cpp: определяет точку входа для приложения.
//
 
#include "stdafx.h"
#include <windows.h>
#define CM_GET_COLOR 1001
#define CM_FILE_QUIT 1003
 
BOOL RegClass(WNDPROC, LPCTSTR, UINT);
 
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
HINSTANCE hInstance;
char szClass[]="GetColors";
char szTitle[]="Выбор цвета";
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevlnstance, LPSTR IpszCmdLine, int nCmdShow)
{
    MSG msg;
    HWND hwnd;
    hInstance=hInstance;
    if (!RegClass(WndProc, (LPCTSTR)szClass, COLOR_WINDOW))
        return FALSE;
    if (!(hwnd = CreateWindow((LPCTSTR)szClass, (LPCTSTR)szTitle, WS_OVERLAPPEDWINDOW | WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, 0,0, hInstance, NULL))) 
        return FALSE;
    while(GetMessage(&msg, 0,0,0)) DispatchMessage(&msg);
    return msg.wParam;
}
BOOL RegClass(WNDPROC Proc, LPCTSTR szName, UINT brBackground)
{
    WNDCLASS wc; wc.style=CS_HREDRAW | CS_VREDRAW;
    wc.cbClsExtra=wc.cbWndExtra=0; 
    wc.lpfnWndProc=Proc;
    wc.hInstance = hInstance; 
    wc.lpszClassName=szName;
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(brBackground +1);
    wc.lpszMenuName=(LPCTSTR)NULL;
    return (RegisterClass(&wc) != 0);
}
BOOL CreateMenultem(HMENU hMenu, char *str, UINT ulns, UINT uCom, HMENU hSubMenu, BOOL flag, UINT fType)
{
    static MENUITEMINFO mii; mii.cbSize=sizeof(MENUITEMINFO);
    mii.fMask = MIIM_STATE | MIIM_TYPE | MIIM_SUBMENU | MIIM_ID;
    mii.fType = fType;
    mii.fState= MFS_ENABLED;
    mii.dwTypeData = (LPWSTR)str;
    mii.cch=sizeof(str);
    mii.wID=uCom;
    mii.hSubMenu=hSubMenu;
    return InsertMenuItem(hMenu, ulns, flag, &mii);
}
LRESULT CALLBACK WndProc( HWND hwnd, UINT msg, WPARAM wParam, LPARAM IParam)
{
static HMENU hMainMenu, hColorMenu;
static CHOOSECOLOR cc;
static COLORREF clf, clfCust[16];
static short cx, cy;
switch (msg)
{
case WM_SIZE:
{
    cx=LOWORD(IParam); cy=HIWORD(IParam);
    return 0;
}
case WM_CREATE:
{
    hMainMenu=CreateMenu();
    hColorMenu=CreatePopupMenu(); 
    int i=0;
    CreateMenultem( hColorMenu, "&3адать цвет", i++, CM_GET_COLOR, NULL, FALSE, MFT_STRING);
    CreateMenultem( hColorMenu, NULL, i++, 0, NULL, FALSE, MFT_SEPARATOR);
    CreateMenultem( hColorMenu, "&Выход", i++, CM_FILE_QUIT, NULL, FALSE, MFT_STRING);
    i=0;
    CreateMenultem(hMainMenu,"&UBeT",i++, 0, hColorMenu,FALSE, MFT_STRING);
    SetMenu(hwnd,hMainMenu); 
    DrawMenuBar(hwnd);
    for (i=0; i<16; i++)
    clfCust[i]=RGB(255-i*15, 50+48*i-3*i*i, i*15);
    cc.StructSize= sizeof(CHOOSECOLOR);
    cc.IpCustColors = clfCust;
    return 0;
}
case WM_PAINT:
{
    PAINTSTRUCT ps;
    HDC hdc = BeginPaint(hwnd, &ps);
    HBRUSH hbrush = CreateSolidBrush(clf);
    HBRUSH hOldBrush=(HBRUSH)SelectObject(hdc, hbrush);
    HPEN hpen = CreatePen(PS_SOLID, 5, clf/2);
    HPEN hOldPen = (HPEN)SelectObject(hdc, hpen);
    short w=cx/16, h=cy/2;
    Rectangle(hdc, 0,0, cx, h);
    for (int i=0; i<16; i++)
    {
        hbrush = CreateSolidBrush(clfCust[i]);
        SelectObject(hdc, hbrush);
        Rectangle(hdc, w*i, h, w*i+w, cy);
        SelectObject(hdc, hOldBrush);
        DeleteObject(hbrush);
    }
    SelectObject(hdc, hOldPen);
    DeleteObject(hpen);
    EndPaint(hwnd, &ps);
    return 0;
}
case WM_COMMAND:
{
    switch (LOWORD(wParam))
    {
    case CM_GET_COLOR:
    {
        if (!ChooseColor(&cc)) clf=RGB(255,255,255);
        else clf = cc.rgbResult;
        InvalidateRect(hwnd, NULL, TRUE);
        return 0;
    }
    case CM_FILE_QUIT:
    {
        DestroyWindow(hwnd); return 0;
    }
    }
    return 0;
}
case WM_DESTROY: { PostQuitMessage(0); return 0;}
}
return DefWindowProc(hwnd, msg, wParam, IParam);
}

@volvo · 16.01.2013, 01:55

Хотя бы синтаксические ошибки надо было убрать.

C++
1
2
    cc.StructSize= sizeof(CHOOSECOLOR); // Здесь нужно lStructSize
    cc.IpCustColors = clfCust; // а здесь - lpCustColors (первая буква - строчная L, а не прописная i)

В общем, вот этот код работает:

C++
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#include <tchar.h>
#include <windows.h>
#define CM_GET_COLOR 1001
#define CM_FILE_QUIT 1003
 
BOOL RegClass(WNDPROC, LPCTSTR, UINT);
 
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
HINSTANCE hInstance;
TCHAR szClass[]=TEXT("GetColors");
TCHAR szTitle[]=TEXT("Выбор цвета");
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevlnstance, LPSTR IpszCmdLine, int nCmdShow)
{
    MSG msg;
    HWND hwnd;
    hInstance=hInstance;
    if (!RegClass(WndProc, (LPCTSTR)szClass, COLOR_WINDOW))
        return FALSE;
    if (!(hwnd = CreateWindow((LPCTSTR)szClass, (LPCTSTR)szTitle, WS_OVERLAPPEDWINDOW | WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, 0,0, hInstance, NULL)))
        return FALSE;
    while(GetMessage(&msg, 0,0,0)) DispatchMessage(&msg);
    return msg.wParam;
}
BOOL RegClass(WNDPROC Proc, LPCTSTR szName, UINT brBackground)
{
    WNDCLASS wc; wc.style=CS_HREDRAW | CS_VREDRAW;
    wc.cbClsExtra=wc.cbWndExtra=0;
    wc.lpfnWndProc=Proc;
    wc.hInstance = hInstance;
    wc.lpszClassName=szName;
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(brBackground +1);
    wc.lpszMenuName=(LPCTSTR)NULL;
    return (RegisterClass(&wc) != 0);
}
BOOL CreateMenuItem(HMENU hMenu, TCHAR *str, UINT ulns, UINT uCom, HMENU hSubMenu, BOOL flag, UINT fType)
{
    static MENUITEMINFO mii; mii.cbSize=sizeof(MENUITEMINFO);
    mii.fMask = MIIM_STATE | MIIM_TYPE | MIIM_SUBMENU | MIIM_ID;
    mii.fType = fType;
    mii.fState= MFS_ENABLED;
    mii.dwTypeData = (LPWSTR)str;
    mii.cch=sizeof(str);
    mii.wID=uCom;
    mii.hSubMenu=hSubMenu;
    return InsertMenuItem(hMenu, ulns, flag, &mii);
}
LRESULT CALLBACK WndProc( HWND hwnd, UINT msg, WPARAM wParam, LPARAM IParam)
{
static HMENU hMainMenu, hColorMenu;
static CHOOSECOLOR cc;
static COLORREF clf, clfCust[16];
static short cx, cy;
switch (msg)
{
case WM_SIZE:
{
    cx=LOWORD(IParam); cy=HIWORD(IParam);
    return 0;
}
case WM_CREATE:
{
    hMainMenu=CreateMenu();
    hColorMenu=CreatePopupMenu();
    int i=0;
    CreateMenuItem( hColorMenu, TEXT("&3адать цвет"), i++, CM_GET_COLOR, NULL, FALSE, MFT_STRING);
    CreateMenuItem( hColorMenu, NULL, i++, 0, NULL, FALSE, MFT_SEPARATOR);
    CreateMenuItem( hColorMenu, TEXT("&Выход"), i++, CM_FILE_QUIT, NULL, FALSE, MFT_STRING);
    i=0;
    CreateMenuItem(hMainMenu,TEXT("&Цвет"),i++, 0, hColorMenu,FALSE, MFT_STRING);
    SetMenu(hwnd,hMainMenu);
    DrawMenuBar(hwnd);
    for (i=0; i<16; i++)
    clfCust[i]=RGB(255-i*15, 50+48*i-3*i*i, i*15);
    cc.lStructSize= sizeof(CHOOSECOLOR);
    cc.lpCustColors = clfCust;
    return 0;
}
case WM_PAINT:
{
    PAINTSTRUCT ps;
    HDC hdc = BeginPaint(hwnd, &ps);
    HBRUSH hbrush = CreateSolidBrush(clf);
    HBRUSH hOldBrush=(HBRUSH)SelectObject(hdc, hbrush);
    HPEN hpen = CreatePen(PS_SOLID, 5, clf/2);
    HPEN hOldPen = (HPEN)SelectObject(hdc, hpen);
    short w=cx/16, h=cy/2;
    Rectangle(hdc, 0,0, cx, h);
    for (int i=0; i<16; i++)
    {
        hbrush = CreateSolidBrush(clfCust[i]);
        SelectObject(hdc, hbrush);
        Rectangle(hdc, w*i, h, w*i+w, cy);
        SelectObject(hdc, hOldBrush);
        DeleteObject(hbrush);
    }
    SelectObject(hdc, hOldPen);
    DeleteObject(hpen);
    EndPaint(hwnd, &ps);
    return 0;
}
case WM_COMMAND:
{
    switch (LOWORD(wParam))
    {
    case CM_GET_COLOR:
    {
        if (!ChooseColor(&cc)) clf=RGB(255,255,255);
        else clf = cc.rgbResult;
        InvalidateRect(hwnd, NULL, TRUE);
        return 0;
    }
    case CM_FILE_QUIT:
    {
        DestroyWindow(hwnd); return 0;
    }
    }
    return 0;
}
case WM_DESTROY: { PostQuitMessage(0); return 0;}
}
return DefWindowProc(hwnd, msg, wParam, IParam);
}

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .