[emailaya]

hi

using Shine skin / AC6.54

when skin is active, creating a menu at runtime and assign Item.Checked := TRUE has no effect. when skin is not active, i see the checked sign.
in design time i do see it, the problem seems to be ONLY at runtime when creating the items at runtime.

code sample:

Item := TMenuItem.Create(pmMenu);
pmMenu.Items.Add(Item);
Item.Caption := 'test';
pmMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);

procedure TfrmTest.pmMenuPopup(Sender: TObject);
begin
pmMenu.Items[0].RadioItem := TRUE;
pmMenu.Items[0].Checked := TRUE;
end;

please advice

[emailaya]

works
i forgot to add
skinmanager.SkinableMenus.HookPopupMenu(pmMenu, True);
before popuping the menu

[Author]

Posts