If this could be implemented in b4a would be spectacular, it would give another look to our apps, If someone could create a library would be great, thanks.
private Sub MyScroll_ScrollChanged(Position As Int)
Dim Pos As Int = Max(MyTitleFull.Height-Position,MyTitleReduce.Height)
MyScroll.Top=Pos
MyTitleFull.Top=Pos-MyTitleFull.Height
' MyTitleReduced si under MyTitleFull
If Pos=MyTitleReduce.Height Then
MyTitleFull.SetVisibleAnimated(1000,False)
Else
MyTitleFull.SetVisibleAnimated(400,True)
End If
End Sub