Как изменить цвет линии (сепаратора) под MainMenu?

[Terran]

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

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



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

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

[JUDAS]

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

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

[Terran]

Точнее не бывает Данный эффект присутствует в стандартном системном меню, независимо от языка программирования. К примеру на 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;