Several effects of the XE8 for IOS status bar

XE8 implements several effects of the IOS status bar:

First, the status bar background:

1. Open a new project.
2. Sets the Fill.color color property.
3. Set fill.kind = Solid.
4. No need to modify any official source code.

Second, hide the status bar (full screen):

1. Open a new project.
2. Set Borderstyoe = None.
3. No need to modify any official source code.

Three, transparent status bar (can see BASEMAP):

1. Open a new project.
2. Set the Basemap Fill.Bitmap.Bitmap.
3. Set Fill.Bitmap.WrapMode = Titlestretch.
4. Set fill.kind = Bitmap.
5. Set BorderStyle = Toolwindows. (Use to set this to show the transparency effect, see the source modification below)
6. Need FMX. Platform.iOS.pas source code.

IOS 5.x is the same as above, just add one more setting:

Project > Options > Version Info (Press the right mouse button on the table to increase)

Key	Value
Uistatusbarstyle	Uistatusbarstyleblacktranslucent

Modification Method:

Please make the source FMX. Platform.iOS.pas Copy to your project directory and make changes.

Locate Tplatformcocoatouch.calculateformviewframe to add the following code:

functionTplatformcocoatouch.calculateformviewframe (Constaform:tcommoncustomform): Nsrect;varOrientation:nsuinteger;  Statusbarheight:single; Tmp:single;begin  ifIspopupform (Aform) ThenResult:=CGRectMake (Aform.left, Aform.top, Aform.width, Aform.height)Else  beginResult:=Fmainscreen.bounds; Statusbarheight:=0;{+++>} //Add the following code    ifAform.borderstyle = Tfmxformborderstyle.toolwindow Then    beginStatusbarheight:=0; Fstatusbarheight:=0; Result.origin:= Cgpointmake (0,0); End    Else{<+++} //Add the above code    ifAform.borderstyle <> Tfmxformborderstyle.none Then    begin... A little ...End;

Several effects of the XE8 for IOS status bar