Изменить изображение в 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?