#IF B4A
Private Sub xpnl_worldmap_content_Touch2 (o As Object, ACTION As Int, x As Float, y As Float, motion As Object) As Boolean
#ELSE
Private Sub xpnl_worldmap_content_Touch(Action As Int, X As Float, Y As Float) As Boolean
#END IF
If ACTION = xpnl_worldmap_content.TOUCH_ACTION_DOWN Then
downy = y
Else if ACTION = xpnl_worldmap_content.TOUCH_ACTION_MOVE Then
If (xpnl_worldmap_content.Top + y - downy) > (Activity.Height - xpnl_worldmap_content.Height) Then
xpnl_worldmap_content.Top = xpnl_worldmap_content.Top + y - downy
End If
Else if ACTION = xpnl_worldmap_content.TOUCH_ACTION_UP Then
If xpnl_worldmap_content.Top < (Activity.Height - xpnl_worldmap_content.Height/2) Then'unter der oberen Hälfte
xpnl_worldmap_content.SetLayoutAnimated(250,0,Activity.Height - xpnl_worldmap_content.Height,xpnl_worldmap_content.Width,xpnl_worldmap_content.Height)
Else'einrollen
xpnl_worldmap_content.SetLayoutAnimated(700,0,Activity.Height + xpnl_worldmap_content.Height,xpnl_worldmap_content.Width,xpnl_worldmap_content.Height)
xpnl_worldmap_content.SetVisibleAnimated(500,False)
End If
End If
Return True
End Sub