Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2018, 13:56   #1
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
Сообщение Как изменить цвет линии (сепаратора) под MainMenu?

Здравствуйте!

При изменении цвета фона MainMenu под ним остаётся тонкая светлая линия. Подскажите, пожалуйста, что это за линия (она точно относится к MainMenu) и как ей задать свой цвет локально для приложения?



P.S. Для изменения цвета фона использую функцию SetMenuInfo. Необходимо изменить цвет линии не используя хуки и функцию SetSysColors.

Возможно кто-нибудь сталкивался с данной проблемой? Буду благодарен за любую информацию по этому поводу. Спасибо
Всегда рад помочь!

Последний раз редактировалось Terran; 11.12.2018 в 14:08.
Terran вне форума Ответить с цитированием
Старый 13.12.2018, 14:52   #2
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Чувак, а ты точно в Делфи програмируешь?

В Делфи 7 такого явления нет
В XE5-10 тоже нет

95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума Ответить с цитированием
Старый 13.12.2018, 15:13   #3
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Точнее не бывает Данный эффект присутствует в стандартном системном меню, независимо от языка программирования. К примеру на MFC в классе CMenu он тоже есть.
Вы не изменили цвет формы и фона основного меню. Попробуйте сделать так (без кастомной отрисовки элементов меню):
Код:
var
  FBrush: TBrush;

procedure TForm1.FormCreate(Sender: TObject);
var
  lMenuInfo: TMenuInfo;
begin
  FBrush := TBrush.Create;
  FBrush.Color := clAppWorkSpace;

  lMenuInfo.cbSize := SizeOf(lMenuInfo);
  lMenuInfo.fMask := MIM_BACKGROUND;
  lMenuInfo.hbrBack := FBrush.Handle;
  SetMenuInfo(MainMenu1.Handle, lMenuInfo);

  Form1.Color := clScrollBar;
end;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО] Как у ссылки изменить расстояние от текста до подчёркивающей линии, а также цвет, толщину и цвет? Lolopop12 HTML и CSS 2 05.06.2017 02:13
Цвет MainMenu Lodas БД в Delphi 3 13.07.2010 08:40
Как изменить цвет линии? _Studentka_ Общие вопросы .NET 9 05.04.2010 18:28
Как с помощью JavaScript изменить цвет фона ячеек в таблице,так что бы можно было выбрать цвет из списка Gotessa JavaScript, Ajax 1 09.05.2009 16:05
Как изменить цвет Михаил Юрьевич Общие вопросы Delphi 5 14.01.2008 17:38