Also...
Ich habe bisher noch keinen GestenManager gebraucht...
Ich setzt die InteractiveGesture z.B. Zoom auf true und belege OnGesture
Und dann sowas...
Delphi-Quellcode:
if EventInfo.GestureID = igiZoom then
begin
if not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags) and not(TInteractiveGestureFlag.gfEnd in EventInfo.Flags) then
begin
Direction := EventInfo.Distance/FLastDIstance;
LScale := ZoomPanel.Scale.X * Direction;
if LScale < 1 then
LScale := 1;
ZoomPanel.Scale.X := LScale;
ZoomPanel.Scale.Y := LScale;
ZoomPanel.Width := ZoomWidth * LScale;
ZoomPanel.Height := ZoomHeight * LScale;
end;
FLastDIstance := EventInfo.Distance;
end;
Mehr habe ich bisher nicht gebraucht...