XE7: Zoom von Android App -wie?

[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

[Mavarik]

Zitat von 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.)

Welches objekt Du nimmst ist in FM total egal... nen Panel nen Edit whatever.

Alle Childs des Elements übernehmen den Scale...

Mavarik

[Darlo]

Das TScaledLayout macht das ganze nur automatisch. Soll heißen, wenn das Align des TScaledLayout auf Client gesetzt ist, und der Parent (am sinnigsten das Form) vergrößert oder verkleinert wird, werden auch alle Children des TScaledLayout entsprechend verändert. Wichtig ist hier, dass man für die Proportionalität selber sorgen muss, zumindest wenn diese gewünscht ist.

Gruß

[Mavarik]

Zitat von Darlo:

Das TScaledLayout macht das ganze nur automatisch. Soll heißen, wenn das Align des TScaledLayout auf Client gesetzt ist, und der Parent (am sinnigsten das Form) vergrößert oder verkleinert wird, werden auch alle Children des TScaledLayout entsprechend verändert. Wichtig ist hier, dass man für die Proportionalität selber sorgen muss, zumindest wenn diese gewünscht ist.

Gruß

Da hast Du recht. Auf Windows macht das vielleicht Sinn, aber nicht auf "dem" Device.
Hier wirst Du im seltensten Fall die Anwendung vergrößern.

[mkinzler]

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

[Darlo]

TScaledLayout habe ich mal für iPhone/iPad (1 Form Anwendung) versucht zu "missbrauchen". Seit dem mache ich lieber 2 verschiedene Formulare

[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