Sub pg_KeyboardStateChanged (Height As Float)
If varHeight=0 Then
If Height>0 Then varHeight= Height
End If
If Height = 0 Then
'pg.RootPanel.Top = 0
scrollPanel.Height = scrollPanel.Height + varHeight
inputPanel.Top = inputPanel.Top + varHeight 'varHeight
Else
For Each V As View In pg.RootPanel.GetAllViewsRecursive
If IsFirstResponder(V) Then
inputPanel.Top = inputPanel.Top - Height
scrollPanel.Height = scrollPanel.Height - Height
'pg.RootPanel.Top = Height *-1
End If
Next
End If
inputPanel.BringToFront
'scrollPanel.ScrollOffsetY = scrollPanel.Panel.Height
'scrollPanel.ScrollOffsetY =0
'scrollPanel.ScrollOffsetY = scrollPanel.ContentHeight
'Sleep(500)
'scrollPanel.ScrollTo(0,lastMessageY,True)
'scrollPanel.ScrollOffsetY = lastMessageY
'Sleep(1000)
'scrollPanel.ScrollTo(0, scrollPanel.Panel.Height,False)
End Sub