Modifying FMX_Platform_iOS.pas to support surface mainWindow and add device orientation support

Here are the steps that I use in order to surface a couple of things that some of my custom iOS components and apps need.

These modifications are not supported by anyone. Except maybe me. You apply them entirely at your own risk.

Modify FMX_Platform_iOS.pas on your MAC as below. It’s typically located in the /Developer/Embarcadero/fmi directory.

CAUTION: Save a copy of FMX_Platform_iOS.pas FIRST!
CAUTION: Any update of XE2 will delete your changes, so keep this file around if you have to redo the changes.

unit FMX_Platform_iOS;


// TUIViewController and TUIWindow declarations moved from implementation to interface section

{ TUIViewController }

TUIViewController = objcclass(UIViewController)
function shouldAutorotateToInterfaceOrientation(AinterfaceOrientation: UIInterfaceOrientation): Boolean; override;
procedure didReceiveMemoryWarning; override;
procedure didAnimateFirstHalfOfRotationToInterfaceOrientation(toInterfaceOrientation: UIInterfaceOrientation); override;
procedure didRotateFromInterfaceOrientation(fromInterfaceOrientation: UIInterfaceOrientation); override;

{ TUIWindow }

TUIWindow = objcclass(UIWindow)
Text: UITextField;
mainView: UIView;
mainController: TUIViewController;

// mainWindow moved from implementation to interface section
// currentOrientation added to give current device orientation
// supportsPortrait etc added. You simply change these in your app code to False if not needed

mainWindow: TUIWindow;
currentOrientation : UIInterfaceOrientation;
supportsPortrait : Boolean = True;
supportsPortraitUpsideDown : Boolean = True;
supportsLandscapeRight : Boolean = True;
supportsLandscapeLeft : Boolean = True;


function TUIViewController.shouldAutorotateToInterfaceOrientation(
AinterfaceOrientation: UIInterfaceOrientation): Boolean;
Result := ((AinterfaceOrientation = UIInterfaceOrientationLandscapeRight) and supportsLandscapeRight) or
((AinterfaceOrientation = UIInterfaceOrientationLandscapeLeft) and supportsLandscapeLeft) or
((AinterfaceOrientation = UIInterfaceOrientationPortrait) and supportsPortrait) or
((AinterfaceOrientation = UIInterfaceOrientationPortraitUpsideDown) and supportsPortraitUpsideDown);

if Result then
currentOrientation := AinterfaceOrientation;


10 Responses to “Modifying FMX_Platform_iOS.pas to support surface mainWindow and add device orientation support”

  1. Olecramoak Says:

    @Anders: what does it do exactly? Could not figure out..

    is it to avoid device rotation? Intersting that compiled XE2 app ignores rotation preferences from Xcode. Does this override that?

    I read somewhere that Apple is not a fan of non-rotateble apps and it might get rejected for it. But what do we know, I guess each case is avaliated individually by them.

  2. Anders Ohlsson Says:

    DOH! I can’t believe I forgot to include the implementation part as well.

    shouldAutorotateToInterfaceOrientation has to be changed of course.

    Blog edited to reflect all changes… ;)

  3. Anders Ohlsson Says:

    And yes, the default behaviour is the same - all rotations are supported. If you set a few to False, then the UI won’t rotate to those.

    You don’t have to support all 4 rotations at all. Typically you support at least 2. I can’t see why you wouldn’t support Portrait AND PortraitUpsideDown if you support one of them, and likewise, I can’t see why you wouldn’t support LandscapeRight AND LandscapeLeft if you support one of them.

    My first app - my analog clock - only supports Portrait. If I ever update it again, I’ll probably support all UI rotations with proper scaling. The MathViz update will only support Landscap (Left/Right) going forward, simply because the controls constrict the middle of the screen too much. At least the way I designed it.

  4. Alan Says:

    Hi Anders
    I am confused as to the modification of the FMX_Platform_iOS.pas file, do I simply add what you have shown above to the FMX_Platform_iOS.pas file or do I also have to remove the similar declarations that exist in that file as well?
    Thank you

  5. Anders Ohlsson Says:

    @Alan: The comments tell you what to do. It’s mainly a matter of moving things from implementation to interface.

  6. Alan Says:

    No probs, just wanted to be sure I didn’t duplicate anything. Thanks

  7. Alan Says:

    H Anders
    Can I be a pain and ask that you email me the modified FMX_Platform_iOS.pas as I just keep getting ’script invocation error’ when I do it myself? Or post the modified FMX_Platform_iOS.pas here whichever suits. I would really be grateful.
    Thank you

  8. Alan Says:

    All ok now! Doh!
    I kept placing it under ‘Type’ but not including it as part of itself. Anyway, silly mistake that’s all sorted now. Thanks

  9. Anders Ohlsson Says:

    Excellent! Thanks for letting me know. :)

  10. Olecramoak Says:

    Hi Anders! Would this code work under iOS6?

Leave a Reply

Bad Behavior has blocked 962 access attempts in the last 7 days.