Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.11.2014, 18:03
Аватар для Stalker2-42
Stalker2-42 Stalker2-42 вне форума
Новичок
 
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
По умолчанию Помогите поменять цвет фона кнопки со стилем BS_AUTOCHECKBOX

Здравствуйте.
Не пойму как сделать цвет фона кнопки(BS_AUTOCHECKBOX) такой же как у формы.
В Static'е, фон, цвет текста, через WM_CTLCOLORSTATIC работает на ура.
А WM_CTLCOLORBTN -- никак.
Что нужно сделать?
Спасибо.
Ответить с цитированием
  #2  
Старый 17.11.2014, 20:11
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

так и делай в WM_CTLCOLORSTATIC:

Код:
function WindowProc(hwnd: HWND; uMsg: UINT;
  wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
  case uMsg of
    WM_CTLCOLORSTATIC: begin
      SetBkColor(wParam, $ffffff);
      SetTextColor(wParam, $000000);
      Result:=GetStockObject(WHITE_BRUSH);
      Exit;
    end;
черный текст на белом фоне
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 17.11.2014, 20:35
Аватар для Stalker2-42
Stalker2-42 Stalker2-42 вне форума
Новичок
 
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
По умолчанию

Неработает. Сам пробовал и там и в wmclBTN. Уесть еще варианты?
Ответить с цитированием
  #4  
Старый 18.11.2014, 08:44
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

у меня работает https://yadi.sk/d/nRCd6O8pcmqgM при каждом запуске цвет окна выбирается случайно.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 19.11.2014, 17:23
Аватар для Stalker2-42
Stalker2-42 Stalker2-42 вне форума
Новичок
 
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
По умолчанию

Спасибо, работает. Но никак не могу добитс нужного цвета.
Ответить с цитированием
  #6  
Старый 19.11.2014, 19:35
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

CreateSolidBrush()
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Stalker2-42 (19.11.2014)
  #7  
Старый 19.11.2014, 20:01
Аватар для Stalker2-42
Stalker2-42 Stalker2-42 вне форума
Новичок
 
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
По умолчанию

Спасибо!!! Все прекрасно работает.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:20.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter