Как сделать красивую кнопку?

@SDmaN · Регистрация: 22.07.2011

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

Очень редко вижу такие кнопки: [cut] . И очень часто такие: [cut]. Как сделать второй вариант?

@dsoft · 04.10.2011, 23:43

Всё правильно, если нужна кнопка как в ХР, достаточно подключить Манифест к ресурсному файлу и после создания окна и перед его показом, вызвать InitCommonControls.

@Digit@ll · 05.10.2011, 00:36

Это где так два раза вызывается, в Дельфи?

@dsoft · 05.10.2011, 00:49

Не понял смысл фразы о 2 разах.
Так делается в Дельфи с использованием WinAPI (без VCL), что одинаково и в С. И, если Вы внимательно читали предложенную Вами же ссылку, то там приводится ТАКОЕ же решение. И не мудрено, других решений просто нет.

@Digit@ll · 05.10.2011, 01:22

Разуй мне пожалуйста глазки еще раз.

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
#include "stdafx.h"
 
#include <windows.h>
#include <commctrl.h>
#pragma comment (lib, "comctl32")
#pragma comment (linker,"\"/manifestdependency:type='win32' name='Microsoft.Windows.Common-Controls'\
version='6.0.0.0' processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language= '*'\"")
 
LRESULT CALLBACK WndProc (HWND hWnd, UINT msg, WPARAM wparam, LPARAM lparam);
 
HINSTANCE hInst;
 
int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
    INITCOMMONCONTROLSEX icex;
    InitCommonControlsEx(&icex);
 
    WNDCLASSEX wc;
    HWND hWnd;
    MSG msg;
    
    wc.cbSize = sizeof(WNDCLASSEX);
    wc.style = CS_HREDRAW |CS_VREDRAW;
    wc.lpfnWndProc = WndProc;
    wc.cbClsExtra = 0;
    wc.cbWndExtra = 0;
    wc.hInstance = hInstance;
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
    wc.lpszMenuName = NULL;
    wc.lpszClassName = "Base";
    wc.hIconSm = LoadIcon(NULL,IDI_APPLICATION);
    
    if (!RegisterClassEx(&wc))
        return 0;
    if (!(hWnd = CreateWindowEx (NULL, "Base", "", WS_OVERLAPPEDWINDOW | WS_VISIBLE, CW_USEDEFAULT,
        CW_USEDEFAULT, 500, 400, NULL, NULL, hInst, NULL)))
        return (0);
    
    ShowWindow(hWnd, SW_SHOWDEFAULT);
    UpdateWindow(hWnd);
    
    while(GetMessage(&msg, NULL, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    return (msg.wParam);
}
 
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    static HWND hButton;
    
    switch(message)
    {
    case WM_CREATE:
        {
            hButton = CreateWindow ("BUTTON", "Push", WS_CHILD | WS_VISIBLE,
                0, 0, 119, 20, hWnd, (HMENU)100, hInst, 0);
        }
        break;
        
        case WM_DESTROY:
            {
                PostQuitMessage(0);
                return (0);
            }
        break;
    }
    return (DefWindowProc(hWnd, message, wParam, lParam));
}

@dsoft · 05.10.2011, 01:39

В чём мне их тебе разуть? В том, что ты не понимаешь смысл приведённого тобой кода или в чём ещё?

@Digit@ll · 05.10.2011, 01:46

Где там два раза вызывается InitCommonControls?

@dsoft · 05.10.2011, 01:49

Так устроит:

Delphi
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
program Test;
 
uses
  Windows, Messages;
 
const
  szAppName     = 'test';
  szCaptionName = ' test';
 
var
  Window        : HWND;
  Msg           : TMsg;
  WndClass      : TWndClassEX;
  Btn           : HWND;
 
const
  cctrl         = 'comctl32.dll';
 
procedure InitCommonControls; external cctrl name 'InitCommonControls';
 
//---------------------------------------------------------
 
function MainProc(Wnd : HWND; Msg : Integer; wParam, lParam : Longint): Integer; stdcall;
begin
  Result := 0;
 
  case Msg of
    WM_CREATE :
       Btn := CreateWindow('BUTTON', 'Delete', WS_CHILD or WS_VISIBLE, 0, 0, 75, 25, Wnd, 100, hInstance, 0);
 
    WM_CLOSE :
      DestroyWindow(Wnd);
 
    WM_DESTROY :
    begin
      DeInitApp(Wnd);
      PostQuitMessage(0);
      Exit;
    end;
  end;
  Result := DefWindowProc(Wnd, Msg, wParam, lParam);
end;
 
//---------------------------------------------------------
 
begin
  FillChar(WndClass, SizeOf(TWndClassEx), 0);
  WndClass.cbSize        := SizeOf(TWndClassEx);
  WndClass.style         := CS_HREDRAW or CS_VREDRAW;
  WndClass.lpfnWndProc   := @MainProc;
  WndClass.hInstance     := hInstance;
  WndClass.hCursor       := LoadCursor(0, IDC_ARROW);
  WndClass.hbrBackGround := GetSysColorBrush(COLOR_BTNFACE);
  WndClass.lpszClassName := szAppName;
 
  if RegisterClassEx(WndClass) = 0 then
    Exit;
 
  Window := CreateWindowEx(0, szAppName, szCaptionName, WS_OVERLAPPEDWINDOW,
                           0, 0, 320, 200, 0, 0, hInstance, NIL);
 
  InitCommonControls;
  ShowWindow(Window, SW_SHOW);
 
  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  Exit;
end.

И где я, интересно сказал, что нужно вызвать InitCommonControls 2 раза? Прочитай ещё раз, внимательно, по-буковкам:

Всё правильно, если нужна кнопка как в ХР, достаточно подключить Манифест к ресурсному файлу и после создания окна и перед его показом, вызвать InitCommonControls

@GrayWolf · 05.10.2011, 08:12

Digit@ll, в сообщении №24 icex в строке 16 может инициализироваться "мусором", иметь случайные значения без обнуления. И, имхо, если структура ничем не проиниализирована, то проще вызвать простой InitCommonControls().

Добавлено через 2 минуты
SDmaN, в чем проблема сейчас? Опиши, а то тут, посмотрю, еще куча всего обсуждается

@Digit@ll · 05.10.2011, 19:32

GrayWolf, да, проще...

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@SDmaN 60 / 57 / 8 Регистрация: 22.07.2011 Сообщений: 436

	Как сделать красивую кнопку? 28.09.2011, 15:00. Показов 9845. Ответов 28 Метки нет (Все метки) Очень редко вижу такие кнопки: [cut] . И очень часто такие: [cut]. Как сделать второй вариант? 0

@dsoft 12 / 12 / 0 Регистрация: 21.08.2009 Сообщений: 87
	04.10.2011, 23:43
	Всё правильно, если нужна кнопка как в ХР, достаточно подключить Манифест к ресурсному файлу и после создания окна и перед его показом, вызвать InitCommonControls. 0

@Digit@ll Brainsbreaker 899 / 374 / 54 Регистрация: 01.02.2011 Сообщений: 1,608
	05.10.2011, 00:36
	Это где так два раза вызывается, в Дельфи? 0

@dsoft 12 / 12 / 0 Регистрация: 21.08.2009 Сообщений: 87
	05.10.2011, 00:49
	Не понял смысл фразы о 2 разах. Так делается в Дельфи с использованием WinAPI (без VCL), что одинаково и в С. И, если Вы внимательно читали предложенную Вами же ссылку, то там приводится ТАКОЕ же решение. И не мудрено, других решений просто нет. 0

@dsoft 12 / 12 / 0 Регистрация: 21.08.2009 Сообщений: 87
	05.10.2011, 01:39
	В чём мне их тебе разуть? В том, что ты не понимаешь смысл приведённого тобой кода или в чём ещё? 0

@Digit@ll Brainsbreaker 899 / 374 / 54 Регистрация: 01.02.2011 Сообщений: 1,608
	05.10.2011, 01:46
	Где там два раза вызывается InitCommonControls? 0

@GrayWolf Исследователь 318 / 317 / 24 Регистрация: 06.04.2011 Сообщений: 872
	05.10.2011, 08:12
	Digit@ll, в сообщении №24 icex в строке 16 может инициализироваться "мусором", иметь случайные значения без обнуления. И, имхо, если структура ничем не проиниализирована, то проще вызвать простой InitCommonControls(). Добавлено через 2 минуты SDmaN, в чем проблема сейчас? Опиши, а то тут, посмотрю, еще куча всего обсуждается 1

@Digit@ll Brainsbreaker 899 / 374 / 54 Регистрация: 01.02.2011 Сообщений: 1,608
	05.10.2011, 19:32
	GrayWolf, да, проще... 0

Опции темы