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