AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Cross-Platform-Entwicklung Delphi XE7: Zoom von Android App -wie?
Thema durchsuchen
Ansicht
Themen-Optionen

XE7: Zoom von Android App -wie?

Ein Thema von Kralle · begonnen am 3. Nov 2014 · letzter Beitrag vom 8. Nov 2014
Antwort Antwort
Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#1

AW: XE7: Zoom von Android App -wie?

  Alt 6. Nov 2014, 05:46
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.
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#2

AW: XE7: Zoom von Android App -wie?

  Alt 6. Nov 2014, 06:29
Moin,

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
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: XE7: Zoom von Android App -wie?

  Alt 6. Nov 2014, 06:50
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.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.153 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: XE7: Zoom von Android App -wie?

  Alt 6. Nov 2014, 10:45
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
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#5

AW: XE7: Zoom von Android App -wie?

  Alt 6. Nov 2014, 20:56
Hallo 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
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: XE7: Zoom von Android App -wie?

  Alt 6. Nov 2014, 21:23
Er zoomt ein TStretchPanel, welches dann seinerseits alle in ihm enthaltenen Controls zoomt.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#7

AW: XE7: Zoom von Android App -wie?

  Alt 7. Nov 2014, 00:29
Moin,
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
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: XE7: Zoom von Android App -wie?

  Alt 7. Nov 2014, 07:55
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
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz