[Maximus Marius]

How TsMagnifier works in my application:

1) User press and hold left mouse button (about 1s)

2) I display TsMagnifier under current mouse point [the left mouse button is pressed all the time]

3) User move TsMagnifier [the left mouse button is pressed all the time]

4) The user releases the button

5) Hide TsMagnifier

One mouse down

Move

One mouse up

My magic is in point “2” in my code I “press leff mouse button” on TsMagnifier to move it.

I used

Code:

acMagnForm.Perform(WM_LBUTTONDOWN, MK_LBUTTON, Longint(PointToSmallPoint( mouse.CursorPos )));

My code works very well in old AlphaCntrols 11.*

After update to 14.17 my code don't works, press key from code close TsMagnifier

Code:

acMagnForm.Perform(WM_LBUTTONDOWN, MK_LBUTTON, Longint(PointToSmallPoint( mouse.CursorPos )));

In attachment my sample project

Project44_v11.exe is EXE from AlphaControls 11

Project44.exe is EXE from AlphaControls 14.17

[Support]

Sorry, here is no attachments, maybe error in uploading.

Can you try to upload it again or send it to support@alphaskins.com, please?

[Author]

Posts