XE7: Zoom von Android App -wie?

[Mavarik]

Zitat von mkinzler:

Auf einem Handy vielleicht nicht, aber bei einem Tablett könnte das bald möglich sein. Zudem gibt es auch PCs mit Android

Jo.. dann so:

Delphi-Quellcode:

procedure TMainForm.FormResize(Sender: TObject);
var
  X,Y : Single;
begin
  X := ScaledLayout1.OriginalWidth;
  Y := ScaledLayout1.OriginalHeight;
  if (Self.ClientWidth / ScaledLayout1.OriginalWidth) <
     (Self.ClientHeight / ScaledLayout1.OriginalHeight)
    then begin
           ScaledLayout1.Width := Self.ClientWidth;
           ScaledLayout1.Height := (Self.ClientWidth * ScaledLayout1.OriginalHeight) / ScaledLayout1.OriginalWidth;
           Scaledlayout1.Position.X := 0;
           Scaledlayout1.Position.Y := (Self.ClientHeight - ScaledLayout1.Height) / 2;
         end
    else begin
           ScaledLayout1.Height := Self.ClientHeight;
           ScaledLayout1.Width := (Self.ClientHeight * ScaledLayout1.OriginalWidth) / ScaledLayout1.OriginalHeight;
           Scaledlayout1.Position.Y := 0;
           Scaledlayout1.Position.X := (Self.ClientWidth - ScaledLayout1.Width) / 2;
         end;
end;

Mavarik

[Kralle]

Moin,

also ich glaube ich bin einfach zu blöd dafür.
ich nimm ein neues Projekt für eine Mobil-Anwendung, packe dort ein ScaledLayout und in diese Ein Label und den Gestenmanager. Dann stelle ich beim Form das zoom auf aktiv und es passiert auf dem Android-gerät nichts.

Irgendwas fehlt an Informationen ...

Gruß HEiko

[Mavarik]

Zitat von Kralle:

ich nimm ein neues Projekt für eine Mobil-Anwendung, packe dort ein ScaledLayout und in diese Ein Label und den Gestenmanager. Dann stelle ich beim Form das zoom auf aktiv und es passiert auf dem Android-gerät nichts.

Irgendwas fehlt an Informationen ...

Gruß HEiko

Ja - Du hast mein Posting nicht gelesen!

Vergiss das ScaledLayout... oder kannst Du das Fenster auf Deinem Handy mit der Maus groß ziehen?

[Kralle]

Moin,

Zitat von Mavarik:

Ja - Du hast mein Posting nicht gelesen!

Doch, aber erkläre mir wo FLastDIstance , ZoomWidth und ZoomHeight herkommen?

Gruß Heiko

[Sir Rufo]

Warum schaust du dir zu diesem Thema nicht einfach mal die Demo von Emba an? Dafür sind die doch da (oder wofür sonst)?

Und den GestureManager brauchst du nicht, aber du musst schon dem FMX.Types.TTouchManager z.B. der Form FMX.Forms.TCommonCustomForm.Touch sagen, auf welche Gesten du reagieren möchtest

[Kralle]

Guten Morgen,

Zitat von Sir Rufo:

Warum schaust du dir zu diesem Thema nicht einfach mal die Demo von Emba an? Dafür sind die doch da (oder wofür sonst)?

Weil die Demo keine Android-Demo ist. Weil es z.B. den OpenDialog nicht unter Android gibt.

Wen das alles so einfach ist, dann bräuchte ich doch nur wie angehängten Beispiel vorgehen.
Leeres Form für Mobile Anwendungen, Eigenschaften für Interaktive Gesten aktivieren und alles fein, aber es läuft nicht.
Auch wenn ich aus dem Wiki die Muster-Procedure für das Anzeigen der genutzten Geste einbinde, bekomme ich trotzdem kein verlässliche Information welche Geste genutzt wurde.
Entweder bin ich wirklich zu blöd oder es ist wieder mal in den Tiefen der Delphi Einstellungen etwas zu aktivieren das bei mir nicht aktiviert ist.
Weder auf meinem Trekstor-Tablet noch auf meinem Samsung Galaxy S5 mini bekomme ich eine Gesten-App funktionsfähig zum Laufen.

Gruß Heiko

[Sir Rufo]

Oh, Ja, Mist - nicht für Android weil kein OpenDingsbums, dann schnell wieder weg und bloß nicht weiter anschauen

Ich dachte es geht dir um die Gesten? Warum schaust du dir nicht an dem Beispielprojekt an, wie das mit den Gesten gemacht werden muss? Das Drumherum kann dir doch egal sein. Wenn die mit einem OpenDialog Bilder öffnen und es das auf der Zielplattform nicht gibt, dann schmeiß den Rotz einfach weg. Ist doch nur Zuckerguß, denn mit den Gesten hat das nichts zu tun.

Zu deinem Testprogramm:

Ja, wo hast du denn der Anwendung gesagt wie auf die Gesten reagiert werden soll? Du hast zwar eingestellt, dass auf (und welche) Gesten reagiert werden soll, aber wie denn bitteschön? Ohne OnGesture Event wird das nichts.

Zu dem Beispielcode von Mavarik:

• Den Ort und die Art der Deklaration von FLastDistance hättest du sehr einfach herausfinden können, wenn du dich mit dem von mir genannten Beispiel auseinandergesetzt hättest.
• ZoomWidth und ZoomHeigth ergeben sich aus dem Kontext heraus:
  
  Delphi-Quellcode:

  ZoomPanel.Width := ZoomWidth * LScale;
  ZoomPanel.Height := ZoomHeight * LScale;

  Da wird also bei so einem ominösen ZoomPanel die Breite und Höhe gesetzt und errechnet wird das über einen Skalierungsfaktor LScale .
  Jetzt kommt Mathematik:
  Wenn also die Skalierung auf 1 ist (und kleiner wird die nie) if LScale < 1 then LScale := 1; , dann nimmt diese ominöse ZoomPanel die Werte aus ZoomWidth und ZoomHeigth . Ich schlussfolgere nun mal, da die Werte für das (immer noch ominöse) ZoomPanel überschrieben werden (s.o.), befinden sich in ZoomWidth und ZoomHeight die originalen Werte für ZoomPanel .
  Und weiter vermute ich anhand des Namensgebung, dass wir es hier mit jeweils einer property zu tun haben (genau wie ZoomPanel ).

Aber bevor du gleich einen Heulkrampf bekommst, hier ein abgespecktes Codebeispiel

Delphi-Quellcode:

unit Form.Main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.ListBox;

type
  TMainForm = class( TForm )
    ZoomPanel: TPanel;
    Label1: TLabel;
    procedure FormGesture( Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean );
  private
    FLastDistance: Integer;
    FZoomWidth, FZoomHeight: Single;
  public
    procedure AfterConstruction; override;

  end;

var
  MainForm: TMainForm;

implementation

{$R *.fmx}

procedure TMainForm.AfterConstruction;
begin
  inherited;

  Label1.Text := 'Ich kann größer werden';

  // ZoomPanel-Werte sichern

  FZoomWidth := ZoomPanel.Width;
  FZoomHeight := ZoomPanel.Height;

  // Gesten-Behandlung

  Self.OnGesture := FormGesture;
  Self.Touch.InteractiveGestures := [TInteractiveGesture.Zoom];
end;

procedure TMainForm.FormGesture( 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 := FZoomWidth * LScale;
          ZoomPanel.Height := FZoomHeight * LScale;
        end;
      FLastDistance := EventInfo.Distance;
    end;
end;

end.

[Kralle]

Guten Morgen,

QUOTE=Sir Rufo;1279139]Oh, Ja, Mist - nicht für Android weil kein OpenDingsbums, dann schnell wieder weg und bloß nicht weiter anschauen
[/QUOTE]

Ich habe es mir angeschaut und ich habe den Code sogar von der Windows-App in eine Android-App übertragen. Das Projekt ging dann auch auf aber bei der Zoom-Geste passierte im Gegensatz zu Deinem letzten Beispiel nichts.

Zitat:

Ich dachte es geht dir um die Gesten?

Ja.

Zitat:

Warum schaust du dir nicht an dem Beispielprojekt an, wie das mit den Gesten gemacht werden muss?

Wie bei allen anderen Beispielen die im Laufe dieses Threads kamen habe ich es bei diesem Beispiel gemacht, aber es funktionierte nicht.

Zitat:

Das Drumherum kann dir doch egal sein. Wenn die mit einem OpenDialog Bilder öffnen und es das auf der Zielplattform nicht gibt, dann schmeiß den Rotz einfach weg. Ist doch nur Zuckerguß, denn mit den Gesten hat das nichts zu tun.

Schon klar.

Zitat:

Ja, wo hast du denn der Anwendung gesagt wie auf die Gesten reagiert werden soll?

Gar nicht, da sich die letzen Kommentare so anhörten als wenn ich das eigentlich gar nicht brauche.

Zitat:

Du hast zwar eingestellt, dass auf (und welche) Gesten reagiert werden soll, aber wie denn bitteschön? Ohne OnGesture Event wird das nichts.

Da ich bei den anderen Bespielen auch mit den "OnGesture"-Events keine Erfolg hatte, habe ich das offen gelassen.


Zu dem Beispielcode von Mavarik:

Zitat:

Den Ort und die Art der Deklaration von FLastDistance hättest du sehr einfach herausfinden können, wenn du dich mit dem von mir genannten Beispiel auseinandergesetzt hättest.

Aber die Deklaration fehlt.

Zitat:

ZoomWidth und ZoomHeigth ergeben sich aus dem Kontext heraus:

Delphi-Quellcode:

ZoomPanel.Width := ZoomWidth * LScale;
ZoomPanel.Height := ZoomHeight * LScale;

Auch bei den beiden fehlt die Deklaration.

Zitat:

Aber bevor du gleich einen Heulkrampf bekommst, hier ein abgespecktes Codebeispiel

Das funktioniert. Jetzt muß ich nur noch das verschieben des vergrößerten Inhaltes in 4 Richtungen einbetten.
(Was Delphi ja auch nicht automatisch macht).

MfG
Heiko

[Sir Rufo]

Zitat von Kralle:

Zu dem Beispielcode von Mavarik:

Zitat:

Den Ort und die Art der Deklaration von FLastDistance hättest du sehr einfach herausfinden können, wenn du dich mit dem von mir genannten Beispiel auseinandergesetzt hättest.

Aber die Deklaration fehlt.

Darum solltest du dir doch auch das Beispiel von Emba anschauen. Da steht das!

• Klick Mich
• Klick auf: Unit1.pas
• Augen auf: Zeile 22, 126-129, 133 (wo mag der Mavarik sich wohl seine Anregung geholt haben )

Zitat von Kralle:

Zitat:

ZoomWidth und ZoomHeigth ergeben sich aus dem Kontext heraus:

Delphi-Quellcode:

ZoomPanel.Width := ZoomWidth * LScale;
ZoomPanel.Height := ZoomHeight * LScale;

Auch bei den beiden fehlt die Deklaration.

Ja und, brauchst du immer alles vorgekaut? Das die vom Typ Single sein müssen, sollte klar sein und in dem Beispiel-Code von mir (der ja funtkioniert) habe ich die einfach ganz lapidar als Felder FZoomHeight, FZoomWidth : Single eingeführt und auch so benutzt. Mir doch egal wie und wo der Mavarik (nix für ungut) die da deklariert hat. Ich brauche das was, als mache ich da was. Punkt. Was dort für Werte rein müssen, habe ich ja schon erklärt.

Ein bisserl Mitdenken sollte man doch verlangen können

Und das Delphi da nix von selber macht - das ist gut so, denn dann kann man auch aus der Zoom-Geste ein Rotieren machen. So wie es einem beliebt. Ob das sinnvoll ist, steht auf einem anderen Blatt, aber ich habe die Freiheit das so umzusetzen wie ich möchte und muss nicht umständlich irgendeinen Automatismus den ich nicht will wieder korrigieren, nur um das zu machen was ich will.

Ach ja, Delphi ist zum programmieren -> aktiv Code schreiben gedacht

[Kralle]

Moin,

Zitat von Sir Rufo:

Ja und, brauchst du immer alles vorgekaut?

Nein, aber wenn ich ein Beispiel bekomme wie etwas funktionieren soll und ich es nicht mal compilieren kann, dann entsteht leicht Frust.

Zitat:

Das die vom Typ Single sein müssen, sollte klar sein

So habe ich sie dann deklariert. Da das compilierbare Programm dann trotzdem nicht das machte was man erwartet hat, dachte ich mir das die Variablen vielleicht irgendwo Global definiert werden oder mir vielleicht eine nicht angegebene Procedure fehlt die die Werte liefert.

Zitat:

Ein bisserl Mitdenken sollte man doch verlangen können

Wir hatten in einer Umschulung mal einen Lehrer der direkt aus der Uni kam und seinen Unterricht so durchgeführt hat, als ob vor Ihm Studenten mit dem gleichen Wissensstand sitzen und nicht Bäcker, Tischler und Verkäuferinnen.

Zitat:

Und das Delphi da nix von selber macht - das ist gut so, denn dann kann man auch aus der Zoom-Geste ein Rotieren machen. So wie es einem beliebt. Ob das sinnvoll ist, steht auf einem anderen Blatt, aber ich habe die Freiheit das so umzusetzen wie ich möchte und muss nicht umständlich irgendeinen Automatismus den ich nicht will wieder korrigieren, nur um das zu machen was ich will.

Aber, ein Verkaufsargument ist doch das Du eigentlich ganz einfach Anwendungen mit einer Codebasis für alle Unterstützten System erstellen kannst.
Aber im Endeffekt muss Du nicht nur auf den Zielsystemen vorhandene Standards selber programmieren, sondern auch noch für die unterschiedlichen Systeme unterschiedliche Lösungen bereit stellen z.B. der OpenDialog .
Auch kannst Du nicht einfach im Masterlayout alles so platzieren wie Du es brauchst und es passt auf allen System, sondern Du musst z.B. für Android die Komponenten dann wieder anders anordnen.

Zitat:

Ach ja, Delphi ist zum programmieren -> aktiv Code schreiben gedacht

Aber, über jedes Stück Code das man nicht selber schreiben muss (aber überschreiben kann) ist man doch eigentlich froh.
Wenn ich eine Komponente auf ein Form platziere, dann wird alles dafür nötig von Delphi automatisch ins Programm geschrieben.
Warum nicht auch die Rudimentären Gestenbehandlungen wenn man eine Geste im Objektinspektor aktiviert?

Danke. Für Deine Hilfe.

MfG
Heiko