XE7: Zoom von Android App -wie?

[RWarnecke]

Zitat von Kralle:

Ich will nicht nut den Inhalt eines Memo oder so vergrößern, sondern das ganze Formular.

Zu welchem Zweck, soll das ganze Formular vergrößert werden ? Ich sehe darin irgendwie keinen Sinn.

[Kralle]

Moin,

Zitat von RWarnecke:

Zu welchem Zweck, soll das ganze Formular vergrößert werden ? Ich sehe darin irgendwie keinen Sinn.

das Formular enthält ein StringGrid und zwei Memos und ich möchte nicht das der Anwender jedes Objekt einzeln vergrößern muß, sondern einmal aller Vergrößert und dann dadrin srollen kann.
Wenn so was nicht geht, werde ich wohl versuchen müssen jedes Objekt einzeln sinnvoll zu vergrößern.

Gruß heiko

[Daniel]

Mit einem TScaledLayout kannst Du derlei realisieren. Alles, was in so einer Layout-Komponente liegt, wird dann wunschgemäß skaliiert. Das sollte sich dann auch mit Gesten verbinden lassen.

[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

[Kralle]

Hallo Mavarik,

Zitat von Mavarik:

Quark sind nur wenigen Zeilen...

Mit Deinem Code Zooms Du doch auch nur ein Panel - oder habe ich Deinen Code falsch verstanden.
Das heißt, ich müsste Deinen Code für jedes Objekt anwenden.

Gruß HEiko

[Daniel]

Er zoomt ein TStretchPanel, welches dann seinerseits alle in ihm enthaltenen Controls zoomt.

[Kralle]

Moin,

Zitat von Daniel:

Er zoomt ein TStretchPanel, welches dann seinerseits alle in ihm enthaltenen Controls zoomt.

das ist aber nicht von embarcadero - oder?
Im docwiki habe ich es nicht gefunden.

gruß heiko

[Daniel]

TStretchPanel? Das ist doch falsch! Wer hat denn das ... ups .. ich?
Sorry, ich habe mich vertan.

Es ist natürlich ein TScaledLayout. (Das gibt's tatsächlich.)

Zoomen könntest Du z.B. wie folgt:

Delphi-Quellcode:

  ScaledLayout1.Scale.X := 2;
  ScaledLayout1.Scale.Y := 2;

Das sieht dann in etwa so aus:
Screen Shot 2014-11-07 at 07.53.59.png