Geste Zoom funktioniert nicht

[Smaraner]

Hallo,

ich habe ein Problem mit der Geste Zoom. Ich habe bei einem Image unter Touch den GestureManager hinzugefügt und InteractiveGestures ig Zoom ausgwählt. Zum testen, ob es überhaupt funktioniert habe ich noch bei Standard Left genommen. Folgenden Code habe ich im OnGesture des Image hinzugefügt:

Delphi-Quellcode:

case EventInfo.GestureID of
  sgiLeft: begin
    tmrgross.OnTimer(nil);
  end;

  igiZoom: begin
   img1.Width := round(img1.Width * 1.25);
   img1.Height := round(img1.Height * 1.25);
  end;
end;

Die Geste Left funktioniert. Nur bei Zoom passiert nichts. (Beim Zoomen zieht man ja zwei Finger auseinander)

Hat jemand eine Idee?