[Maximus Marius]

Please look at my example

I generate popupmenu in OnPopup event
But last added menuitems are without skin

Is it BUG ?

Attachments:

You must be logged in to view attached files.

[HeDiBo]

I could duplicate the problem (Delphi XE4 and Windows 10 Pro)

[Support]

Hello! Look this topic, please. I think, it should help.

[HeDiBo]

That only works if skinmanager is active.
If skinmanger is not active this code in sSkinMenus throws an Access Violation:

function TsSkinableMenus.NoBorder: boolean;
begin
  Result := TsSkinManager(FOwner).CommonSkinData.gd[TsSkinManager(FOwner).SkinCommonInfo.Sections[ssMainMenu]].BorderIndex < 0;
end;

Probably needs a test.

[Maximus Marius]

@Support
Your solution is enough for me 🙂
Thx !

• This reply was modified 4 years, 11 months ago by Maximus Marius.

[HeDiBo]

Maximus Marius wrote:

@Support
Your solution is enough for me 🙂
Thx !

Of course. But it’s still a bug that it doesn’t work with SkinManager.Active = false.

[Support]

HeDiBo wrote:

Of course. But it’s still a bug that it doesn’t work with SkinManager.Active = false.

It will be fixed in the next release.

[Author]

Posts