Dit is al voldoende om de OrientationSensor niet meer te laten werken in een andere App.
Ik gebruik XE10.1 Update 2.
Gebruik ik de LocationSensor hier wel op de juiste manier ?
Want zelfs als ik deze gehele LocationSensor1LocationChanged routine verwijder en dus alleen de LocationSensor activeer geeft dat soms al problemen voor de OrientationSensor.
Als compass App gebruik ik Kompas 360 Pro om te testen.
Delphi Code:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, System.Sensors,
System.Sensors.Components;
type
TForm1 = class(TForm)
Label1: TLabel;
LocationSensor1: TLocationSensor;
procedure LocationSensor1LocationChanged(Sender: TObject; const OldLocation,
NewLocation: TLocationCoord2D);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormActivate(Sender: TObject);
begin
LocationSensor1.Active:= True;
end;
procedure TForm1.LocationSensor1LocationChanged(Sender: TObject;
const OldLocation, NewLocation: TLocationCoord2D);
begin
//Er wordt niets gedaan in deze routine, maar dit is al voldoende om het Compass niet meer te laten werken.
end;
end.
Bookmarks