Создается контекстное меню.
Скрин без стилей
Скрин со стилем
меню строится следующим образом (вырезка)
Код:
var
MI, MI1: TMenuItem;
begin
// создание и вставка пункта меню
MI := TMenuItem.Create(PopupMenu2);
MI.Caption := 'Список серверов №1';
MI.name := 'MI_name2001';
MI.Visible := t;
MI.Enabled := t;
MI.OnClick := pmClick;
MI.ImageIndex := 4;
// MI.SubMenuImages:=ImageList3;
PopupMenu2.Items.Insert(PopupMenu2.Items.Count, MI); // тут вставляется созданное меню MI в PopupMenu2
// создание и вставка пункта меню
MI1 := TMenuItem.Create(MI);
MI1.Caption := '5554';
MI1.name := 'MI_name2102';
MI1.Visible := t;
MI1.Enabled := t;
MI1.OnClick := pmClick;
// MI1.ImageIndex:=4;
MI.Insert(MI.Count, MI1); // тут вставляется созданное меню MI1 в MI
end;
пробовал вариацию строки (создание непосредственно в PopupMenu2) - не помогло
Код:
//MI1 := TMenuItem.Create(MI);
MI1 := TMenuItem.Create(PopupMenu2);
Как видно без стиля все работает отлично
Пишу на delphi XE6
Элементы вложенные непосредственно в конт меню отображаются нормально
но итемы вложенные в итемы отображаются некоректно
Нужна помощь в решении этой проблемы
и еще нужна помощь в освоении Firemonkey (ссылки в ПМ, если имеется возможность)
- MIDA конвертер (vcl -> FMX)
- стиль jet.style
Спасибо за внимание