procedure TFormImage.FormGesture(Sender: TObject;
const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean);
{-----------------------------------------------------------------------------
Procedure: FormGesture
Objectif: Gestion des mouvements,
ATTENTION à certaines propriétés de la forme
-Touch.InterActiveGesture[Zoom,Pan] pour PC et Mac OSX ?
-Touch.InterActiveGesture[] pour mobiles ? (IOS et Android) il semble que cela ne fonctionne pas autrement
vont dépendre de l'OS cible
-----------------------------------------------------------------------------}
var C : IControl;
S : Single;
begin
C:=Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));
if not Assigned(C) then Exit;
// déplacement
if (C is TScrollBox) and (Eventinfo.GestureID=igiPan) then
ScrollBox1.AniCalculations.TouchTracking:=[ttvertical,tthorizontal];
// zoom
if (C is TScrollBox) and (Eventinfo.GestureID=igiZoom) then
begin
Partager