XE7: Zoom von Android App -wie?

[Mavarik]

Zitat von Kralle:

Wenn so was nicht geht, werde ich wohl versuchen müssen jedes Objekt einzeln sinnvoll zu vergrößern.
Gruß heiko

Quark sind nur wenigen Zeilen...

Delphi-Quellcode:

procedure TPapier.OnPapierGesture(Sender: TObject;const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  LScale,
  Direction  : Single;
begin
  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;
end;

Grüsse Mavarik