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

@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, да, проще...

Новые блоги и статьи Все статьи Все блоги /
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .

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

	Как сделать красивую кнопку? 28.09.2011, 15:00. Показов 9933. Ответов 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