KeyboardStateChanged return almost always '0'.
This same code worked well in previous versions.
So this lines doesn't work..
This same code worked well in previous versions.
So this lines doesn't work..
B4X:
Sub IsFirstResponder(V As NativeObject) As Boolean
Return V.RunMethod("isFirstResponder",Null).AsBoolean
End Sub
Sub pg_KeyboardStateChanged (Height As Float)
If Height = 0 Then
pg.RootPanel.Top = 0
Else
For Each V As View In pg.RootPanel.GetAllViewsRecursive
If IsFirstResponder(V) Then pg.RootPanel.Top = Min(0,pg.RootPanel.Top - (Height - (pg.RootPanel.Height - (V.Top + V.Height))))
Next
End If
End Sub