Как избавиться от дублирования разделителей в меню при использовании ActionMainMenuBar и ActionManager в Delphi

Delphi , Компоненты и Классы , Меню

Вопрос, с которым сталкиваются разработчики, работающие с компонентами ActionMainMenuBar и ActionManager в среде Delphi, связан с необходимостью убрать дублирование разделителей в меню. В стандартном TMainMenu есть свойство AutoLineReduction, которое позволяет скрыть двойные разделители, когда элемент меню скрыт. Однако, данная функция не доступна для ActionMainMenuBar и ActionManager. Рассмотрим, как можно решить эту проблему.

Решение проблемы

Для начала, рассмотрим, что такое разделители в меню. Разделители - это элементы интерфейса, которые используются для группировки элементов меню. В случае с ActionMainMenuBar, разделители представлены в виде строк с дефисом.

Шаг 1: Понимание проблемы

На изображении, предоставленном в контексте вопроса, видно, что разделители в меню могут дублироваться, что выглядит неэстетично и может вводить в заблуждение пользователя.

Шаг 2: Реализация решения

Чтобы решить проблему дублирования разделителей, необходимо добавить обработчик события OnPopup для ActionMainMenuBar. В этом обработчике следует реализовать логику, которая будет скрывать лишние разделители. Ниже приведен пример кода на Object Pascal, который решает эту задачу:

procedure TFormMain.MenuBarPopup(Sender: TObject; Item: TCustomActionControl);
var
  I, J: Integer;
  Itm, Itm2: TCustomAction;
  bFound: Boolean;
begin
  // Делаем все разделители видимыми
  for I := 0 to Item.ActionClient.Items.Count - 1 do begin
    Itm := Item.ActionClient.Items[I];
    if Itm.Caption = '-' then
      Itm.Visible := True;
  end;
  // Скрываем двойные разделители
  for I := 0 to Item.ActionClient.Items.Count - 1 do begin
    Itm := Item.ActionClient.Items[I];
    if Itm.Caption = '-' then begin // Поиск следующего разделителя
      bFound := False;
      for J := I + 1 to Item.ActionClient.Items.Count - 1 do begin
        Itm2 := Item.ActionClient.Items[J];
        if Itm2.Visible then begin
          bFound := (Itm2.Caption <> '-');
          Break;
        end;
      end;
      Itm.Visible := bFound;
    end;
  end;
end;

Шаг 3: Подтверждение ответа

Данный код необходимо вставить в ваш проект Delphi и привязать к событию OnPopup компонента ActionMainMenuBar. После этого, при каждом вызове меню, будет выполняться указанная логика, и разделители будут отображаться корректно, без дублирования.

Альтернативный ответ

К сожалению, встроенного свойства для автоматического скрытия двойных разделителей в ActionMainMenuBar и ActionManager нет, но с помощью приведенного выше кода, разработчики могут самостоятельно реализовать подобное поведение.

Заключение

Использование ActionMainMenuBar и ActionManager в Delphi предоставляет множество удобных возможностей для создания динамического пользовательского интерфейса. Однако, иногда требуется дополнительная настройка, чтобы достичь желаемого внешнего вида и функционала. Приведенный пример кода позволяет устранить проблему дублирования разделителей в меню, что улучшает внешний вид и удобство использования приложения.

Создано по материалам из источника по ссылке.

Вопрос связан с устранением дублирования разделителей в меню при использовании компонентов ActionMainMenuBar и ActionManager в среде разработки Delphi, что является распространенной проблемой для разработчиков, работающих с этими инструментами.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::