Difference between revisions of "macOS Gestures"
From Free Pascal wiki
Jump to navigationJump to search (New Mac content) |
m (→Overview: Fix typo) |
||
Line 3: | Line 3: | ||
== Overview == | == Overview == | ||
− | The Gestures unit | + | The Gestures unit provides convenient Free Pascal classes for handling macOS gestures. |
Currently only the magnification gesture is implemented, but others can be implemented easily in a similar way. | Currently only the magnification gesture is implemented, but others can be implemented easily in a similar way. |
Revision as of 04:29, 3 October 2020
This article applies to macOS only.
See also: Multiplatform Programming Guide
Overview
The Gestures unit provides convenient Free Pascal classes for handling macOS gestures.
Currently only the magnification gesture is implemented, but others can be implemented easily in a similar way.
Usage Example
Let's assume your scalable control has a Scale property and you want to allow an end user to scale it by using the typical trackpad gesture. Here is the code:
uses
Gestures;
type
TForm_Main = class(TForm)
private
Gesture: TMagnificationGesture;
InitialScale: Double;
end;
procedure TForm_Main.FormCreate(Sender: TObject);
begin
Gesture := TMagnificationGesture.Create(Self);
Gesture.Control := MyScalableControl;
Gesture.OnGesture := @MagnificationGestureGesture;
end;
procedure TForm_Main.MagnificationGestureGesture(Sender: TMagnificationGesture;
State: TGestureState; Magnification: Double);
begin
case State of
gsBegan:
InitialScale := MyScalableControl.Scale;
gsChanged:
MyScalableControl.Scale := InitialScale * (1 + Magnification);
end;
end;
Author
Yuri Plashenkov
License
This package is licensed under the MIT license.
Download
The Gestures unit may be downloaded from GitHub.