[Maximus Marius]

I have few application used only by touch screen.

Is problem when I open TsMagnifier over “virtual right mouse click” (user press long touch screen ->> touch driver simulates right moue click ->> I have OnMouseDown with “ssRight in Shift” parameter )

TsMagnifier open own 'popup menu' with zoom but not exists metod to disable this 'popup menu'

Could you help ?

I attached sample application , please press right button in form area

[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