Изменить изображение в RibbonFramework используя список изображений ActionManager

Использую delphi 10.3.3 и компонент RibbonFramework для создания ленточного интерфейса. Созданный интерфейс подключил к проекту delphi. Добавил в проект ActionManager и ImageList. Связал их между собой (во всех свойствах ActionManager, связанных с изображением указан ImageList). ActionManager привязал к UIRibbon, свойство roAssignImagesFromActionManager выставил в значение true. Связал команды RibbonFramework и ActionManager, но изображение команды из ActionManager не отображается на кнопке RibbonFramework и не изменяется при изменении TAComp.ImageIndex.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TAComp.ImageIndex:=1;
end;

    procedure TForm1.CommandCreated(const Sender: TUIRibbon;const Command: TUICommand);
    begin
    case Command.CommandId of
     //ID команды Paste
     CmdComp:
     begin
     FCmdComp:=Command as TUICommandAction;
     FCmdComp.UseImageFromAction:=True;
     FCmdComp.ActionLink.Action:=TAComp;
    end;
    end;
    end;

Прошу подсказать как сделать изменение изображения кнопки RibbonFramework при изменении свойства TAComp.ImageIndex?


Ответы (0 шт):