[Support]

Hello! Thank you for a sample.

The new ShowPopupMenu property will be added in the nearest release.

[Maximus Marius]

'Support' wrote:

Hello! Thank you for a sample.

The new ShowPopupMenu property will be added in the nearest release.

I tested last version

In my opinion is missing “and (Caller.ShowPopupMenu)”

If I add to my sample TsSkinManager and TsSkinProvider I have exception in TacMagnForm.ShowGlass

in line “DefaultManager.SkinableMenus.HookPopupMenu(….”

Better version:

Code:

procedure TacMagnForm.ShowGlass(x, y: integer);
var
DC: hdc;
lTicks: DWord;
FBmpSize: TSize;
FBmpTopLeft: TPoint;
FBlend: TBlendFunction;
cL, cT, w, h, XOffs, YOffs, i, p, StepCount: integer;
begin
if not IntUpdating and not Closing then begin
if (DefaultManager <> nil) and (Caller.ShowPopupMenu) then
DefaultManager.SkinableMenus.HookPopupMenu(PopupMenu, DefaultManager.Active and (DefaultManager.SkinName <> ''));

[Support]

Thank you, changes will be added in the nearest release.

[Author]

Posts