Touch Scrolling (Panning) in VCL.TTMSFNCBloxControl

FNC TMS FNC UI Pack
1

We use the TTMSFNCBloxControl together with Delphi 11.3 and Delphi 12.x. We would like to use panning or scrolling with Touch, but only two-finger zoom is working. Is there any restriction or do you have an example that uses touch for zooming/panning with this control ?

Best regards,

Andreas

2

Touchscrolling is only enabled for mobile operating systems. For VCL, you need to use the mouse-wheel or scrollbars. We'll investigate the possibilities.

3

Hello Pieter,

Thank you for your quick response. This feature would be very important to us. It is a bit misleading, as InteractiveGestureOptions can be set to igPan. Perhaps you could activate the option in the component's “ReadOnly” - Mode?

We only need this feature for display purposes, so editing (e.g. moving of blocks or connecting of blocks) is not necessary for us.

Thank you in advance !

4

You can experiment with the following protected property access:

type
  T = class(TTMSFNCBloxControl);

procedure TForm1.FormCreate(Sender: TObject);
begin
  T(TMSFNCBloxControl1).TouchScrolling := True;
end;
5

Hello Pieter,

thank you for this suggestion. This works a little bit, but unfortunately clicking on a Blox doesn't work after this change. So I've made a workaround in this manner:
Save Element on MouseDown, then track MouseMove Events, if distance is >10 it will forget the "MouseDown Element". On MouseUp if MouseDownElement is still <> nil i call the ElementClicked procedure. But correct handling inside the BloxControl would be very useful for us. Maybe you can fix the behaviour that it will be correct on Windows Devices ?

Regards Andreas

6

Hi,

We'll investigate the possibilities.