Private Sub soft_HeightChanged (NewHeight As Int, OldHeight As Int)
'Msgbox("NEW: " & NewHeight & CRLF & "OLD: " & OldHeight,"")
Dim dif As Int
dif = Abs(NewHeight-OldHeight)
If NewHeight<OldHeight Then
'sv.SetLayout(sv.Left,sv.Top,sv.Width,sv.Height-dif)
'DoEvents
sv.Height=sv.Height-dif
sendButton.Top=sendButton.Top-dif
edit.Top=edit.Top-dif
'JumpToItem(GetSize)
Msgbox(dif,"")
DoEvents
sv.ScrollPosition=sv.ScrollPosition+dif
DoEvents
Log("pippi")
sv.Invalidate
Else
sv.Height=sv.Height+dif
sendButton.Top=sendButton.Top+dif
edit.Top=edit.Top+dif
End If
End Sub