TActionMainMenuBar и TActionToolbar теряют настройки

вот еще один способ воспроизведения проблемы:

• выполните шаги с 1 по 4, как в вопросе (включая удаление TwilightColorMap).
• добавить кнопку в форму с кодом  Perform(WM_SETTINGCHANGE, 0, 0); в обработчике щелчка.
• запустите приложение и нажмите кнопку.

Итак, теперь мы знаем, что A WM_SETTINGCHANGE broadcast может вызвать проблему, мы могли бы задаться вопросом, если запуск IE производит же:

type
  TForm1 = class(TForm)
    ..
  protected
    procedure WMSettingChange(var Message: TWMSettingChange);
      message WM_SETTINGCHANGE;
    ..

procedure TForm1.WMSettingChange(var Message: TWMSettingChange);
begin
  Memo1.Lines.Add(IntToHex(Message.Flag, 4) + ', ' + Message.Section);
  inherited;
end;

после запуска нашего приложения, а затем запустить IE, через несколько секунд ниже появляется в заметке:

0000, Программное Обеспечение\Microsoft\Internet Explorer\SearchScopes

Я понятия не имею, что IE должен сказать нашей форме (и всем другим окнам верхнего уровня) при каждом запуске, и я не знаю, делает ли он это на каждом окне окна на земле или только ваши и мои, но, очевидно,ActionMainMenuBarне хорош в обращении он.

a win control (форма), получение WM_WININICHANGE выполняет CM_WININICHANGE и после получения он передает то же самое всем своим элементам управления. Ниже показано, как он обрабатывается в строке меню:

procedure TCustomActionMainMenuBar.CMWininichange(var Message: TWMWinIniChange);
begin
  inherited;
  RequestAlign;
  Font.Assign(Screen.MenuFont);
end;

думая, что шрифт системного меню мог быть изменен (код должен был искать раздел "WindowsThemeElement" или "WindowMetrics" в сообщении, но в любом случае..), он переназначается из обновленного Screen.MenuFont. Проблема в том, что мы не были использующий ее.

кроме того, цветовая карта отвечает на CM_WININICHANGE сбросив его цвета, вызвав его UpdateColors метод. Это даже документирована:

UpdateColors вызывается автоматически, когда компонент ActionBand получает сообщение CM_WININICHANGE.

---

Поэтому решение будет включать в себя решение, что делать, и переопределение обоих действий, я попытался прокомментировать приведенное ниже Решение почему я считаю, что это было бы правильным решением:

type
  // Derive your own ColorMap that would reset its own colors.
  // This is an interposer for simplicity..
  TTwilightColorMap = class(actncolormaps.TTwilightColorMap)
  public
    procedure UpdateColors; override;
  published
    property Color default clGreen;
    property FontColor default clYellow;
    property MenuColor default 88FF;
    // reintroduce as many property as necessary, probably all is necessary..
  end;

  TForm1 = class(TForm)
    ..
  private
    FSaveMenuFont: TFont; // will hold initial main menu bar's font settings
  protected
    procedure WMSettingChange(var Message: TWMSettingChange);
      message WM_SETTINGCHANGE;
  end;

..

procedure TForm1.FormCreate(Sender: TObject);
begin
  FSaveMenuFont := TFont.Create;
  FSaveMenuFont.Assign(ActionMainMenuBar1.Font);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FSaveMenuFont.Destroy;
end;

procedure TForm1.WMSettingChange(var Message: TWMSettingChange);
begin
  inherited;
  // The below are the *section*s that really changing system settings
  // would notify that I'm aware of, there may be more...
  if (Message.Section <> 'WindowsThemeElement')
      or (Message.Section <> 'WindowMetrics') then
    ActionMainMenuBar1.Font.Assign(FSaveMenuFont)
  else
    // Develop your logic here. The system menu font might really have been
    // changed. You can get it from Screen.MenuFont. But then if we had been
    // using the system font, the control already applies the change by default.

end;

procedure TTwilightColorMap.UpdateColors;
begin
  inherited;
  // Reset your colors, note that system colors might have been
  // changed or not. If changed, they should be reflected in 'cl..' constants.
  Color := clGreen;
  FontColor := clYellow;
  MenuColor := 88FF;
end;