iOS Question KeyboardStateChanged Height

Nicolás Cieri

Active Member
Licensed User
KeyboardStateChanged return almost always '0'.

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
 
Top