Как наследовать и изменять внешний вид элементов меню в Delphi с использованием `TActionMainMenuBar` и `TXPStyleMenuItem`

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

Как наследовать и изменять внешний вид элементов меню в Delphi с использованием TActionMainMenuBar и TXPStyleMenuItem

Вопрос, с которым вы столкнулись, заключается в необходимости изменить внешний вид элементов меню, наследуя и переопределяя процедуры класса TXPStyleMenuItem для использования с TActionMainMenuBar. Вы создали собственный компонент, наследуемый от TActionMainMenuBar, и указали класс TMyXPStyleMenuItem для использования в качестве элементов управления. Также у вас есть компонент стиля TMyStyler, который может быть присвоен вашим контролам для изменения их внешнего вида.

Проблема

Основная проблема, с которой вы столкнулись, заключается в том, что переопределенные процедуры в TMyXPStyleMenuItem не имеют доступа к экземпляру компонента стиля TMyStyler, присвоенного конкретному экземпляру TActionMainMenuBar. Вы не можете передать экземпляр стиля в качестве параметра в переопределенные процедуры, так как это приведет к изменению сигнатуры методов, отличной от базового класса.

Почти решение

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

Подтвержденное решение

Используйте свойство Menu (объявленное в TCustomMenuItem, который является базовым классом для вашего класса) для доступа к стилю меню. Например:

procedure TMyXPStyleMenuItem.DrawBackground(var PaintRect: TRect);
var
  Styler: TMyStyler;
begin
  if Menu is TMyActionMainMenuBar then
    Styler := TMyActionMainMenuBar(Menu).Styler
  else
    Styler := nil;
  if Assigned(Styler) then
    DrawStyledBackground(Styler)
  else
    DrawDefaultBackground;
end;

Вы также можете создать вспомогательный метод для получения стиля:

function TMyXPStyleMenuItem.GetMenuStyler: TMyStyler;
begin
  if Menu is TMyActionMainMenuBar then
    Result := TMyActionMainMenuBar(Menu).Styler
  else
    Result := nil;
end;

Использование этого метода в переопределенных процедурах позволит вам извлечь и использовать стиль, соответствующий конкретному элементу меню.

Альтернативное решение

После дополнительного исследования было обнаружено, что ключ к решению проблемы заключается в использовании свойства Menu.RootMenu, которое указывает на кастомную панель меню, используемую:

function TMyXPStyleMenuItem.GetStyler: TMyStyler;
begin
  if Menu.RootMenu is TMyActionMainMenuBar then
    Result := TMyActionMainMenuBar(Menu.RootMenu).Styler
  else
    Result := nil;
end;

Это позволит вам получить доступ к стилю, соответствующему конкретному экземпляру TActionMainMenuBar.

Заключение

Используя описанные методы, вы сможете наследовать и изменять внешний вид элементов меню в Delphi, используя TActionMainMenuBar и TXPStyleMenuItem, сохраняя при этом возможность использования различных стилей для разных экземпляров меню.

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

Вопрос связан с необходимостью изменить внешний вид элементов меню в Delphi, используя наследование компонентов `TActionMainMenuBar` и `TXPStyleMenuItem`, и решением проблемы доступа к экземпляру стиля для каждого конкретного меню.

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

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

:: Главная :: Компоненты ::