Android Tutorial RTL Layout Support

1.Declare in your app manifest that your app supports RTL mirroring.
Specifically, add below code in your manifest.

SetApplicationAttribute (android:supportsRtl, true)

2. Copy the code you need from below and call it in Activity_Create or any sub you want to use it.

Sub ForceRtlSupported4View(View As View)
    Dim jA,jos As JavaObject
    jos.InitializeStatic  ("android.view.View")
    If jA.InitializeStatic  ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
        jA = View
        jA.RunMethod ("setLayoutDirection",Array(jos.GetField ("LAYOUT_DIRECTION_RTL")))
    End If
End Sub

Sub ForceLtrSupported4View(View As View)
    Dim jA,jos As JavaObject
    jos.InitializeStatic  ("android.view.View")
    If jA.InitializeStatic  ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
        jA = View
        jA.RunMethod ("setLayoutDirection",Array(jos.GetField ("LAYOUT_DIRECTION_LTR")))
    End If
End Sub

Sub ForceRtlSupported
    Dim j,jo As JavaObject
    jo.InitializeStatic  ("android.view.View")
    If j.InitializeStatic  ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
        j.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null) _
.RunMethod ("setLayoutDirection",Array(jo.GetField ("LAYOUT_DIRECTION_RTL")))
    End If
End Sub

Sub ForceLtrSupported
    Dim j,jo As JavaObject
    jo.InitializeStatic  ("android.view.View")
    If j.InitializeStatic  ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
        j.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null) _
.RunMethod ("setLayoutDirection",Array(jo.GetField ("LAYOUT_DIRECTION_LTR")))
    End If
End Sub

 android:minSdkVersion="17"

https://developer.android.com/about/versions/android-4.2#RTL

 

[Star-Dust]

It's interesting, but don't you get the same result by rotating on the Y axis in the view rotation functions like in this tutorial?

View Utils

Subject: Set and get the 'padding' of a view. Sub: setPadding Description: Sets the padding'of a view. 'Sets the padding of a view 'v = view 'Left, Top, Right, Bottom padding values in pixels Sub setPadding(v As View, Left As Int, Top As Int, Right As Int, Bottom As Int) Dim jo = v As...

www.b4x.com

Here requires no addition on the Manifest

 

[mshafiee110]

It's interesting, but don't you get the same result by rotating on the Y axis in the view rotation functions like in this tutorial?

View Utils

Subject: Set and get the 'padding' of a view. Sub: setPadding Description: Sets the padding'of a view. 'Sets the padding of a view 'v = view 'Left, Top, Right, Bottom padding values in pixels Sub setPadding(v As View, Left As Int, Top As Int, Right As Int, Bottom As Int) Dim jo = v As...

www.b4x.com

Here requires no addition on the Manifest

The two methods are different .

 

[Star-Dust]

The two methods are different .

View attachment 93947

Now I understand what I meant, thanks for the explanation.

Interestingly, I have sometimes created custom views to achieve this