Delphi XE4 iOS Orientamento

Delphi XE4 per iOS introduce nelle opzioni di progetto la gestione dell’orientamento.
Lasciando le opzioni di predefinite Firemonkey esegue un ottimo lavoro di adattamento e ridimensionamento delle finestre.
In molti progetti come quelle che sto realizzando ruotando il device si crea l’esigenza di riorganizzare lo spazio e  spostare/cambiare i componenti visualizzati.
Embarcadero dopo la prima esperienza ha arricchito molto il suo framework introducendo i “Platform Services” che permettono di gestire le specifiche di ogni piattaforma.

Per fare questo ho creato un semplice metodo che usato nell’evento OnResize della mia main form che mi permette di capire l’orientamento del mio device:

function TMainForm.GetOrientation: TScreenOrientation;
var
OrientationS: IFMXScreenService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService,     IInterface(OrientationS)) then
begin
Result := OrientationS.GetScreenOrientation;
end
else
raise Exception.Create('Orientamento non supportato dal sistema');
end;