AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Die Delphi-IDE XE7: Wie Werte auf Android-Gerät beim Debug überwachen

XE7: Wie Werte auf Android-Gerät beim Debug überwachen

Ein Thema von Kralle · begonnen am 30. Apr 2015
Antwort Antwort
Kralle

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

XE7: Wie Werte auf Android-Gerät beim Debug überwachen

  Alt 30. Apr 2015, 19:02
Moin,

man nehme das Musterprojekt: "MultiviewDemo" und ergänze bzw. erweitere diese wie folgt:

a) Auf die erste Ebene in der Struktur fügt man ein TScaledLayout ein.
b) man füge diesen Code ein:

Delphi-Quellcode:
    procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
      var Handled: Boolean);
      private
     FLastDistance: Integer;
     procedure handleZoom(eventInfo: TGestureEventInfo);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  FMX.MultiView.Presentations;

{$R *.fmx}

procedure TForm1.FormGesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
  begin
    if EventInfo.GestureID = igiZoom then
    handleZoom(EventInfo)
  end;

procedure TForm1.handleZoom(eventInfo: TGestureEventInfo);
var
  LObj: IControl;
  faktor: integer;
begin
  LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));

    if not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags) then
    begin
      Faktor:= Round((FLastDIstance)/200); // Wie kann ich diese Werte überwachen???
      if ScaledLayout1.Scale.X >= 1 then ScaledLayout1.Scale.X:= Faktor else ScaledLayout1.Scale.X:=1;
      if ScaledLayout1.Scale.Y >= 1 then ScaledLayout1.Scale.Y:= Faktor else ScaledLayout1.Scale.Y:=1;

       Label2.Text:=faktor.ToString;
    end;

  FLastDIstance := EventInfo.Distance;


end;
Jetzt die Frage: Wie überwache ich die Werte in der Zeile
Faktor:= Round((FLastDIstance)/200); während ich das Projekt auf meinem Android-Tablet debugge?

Frage zwei: Wie macht man das Zoomen richtig?

Gruß Heiko
OS: Linux Mint 20 Cinnamon (64-Bit), Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC), Lazarus 2.1 (Freepascal 3.3.1),
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 +2. Es ist jetzt 17:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf