Sub Activity_Pause (UserClosed As Boolean)
SaveSetup
If UserClosed AND GPS_On Then
GPS1.Stop
'Changed by Filippo
ExitApplication 'Damit der GPS wirklich ausgeschaltet wird
'-------------
End If
End Sub
Sub Activity_Resume
Dim txt As String
Dim pnlTop As Float
If DispMapTypeControl = True OR DispMapScaleControl = True Then
pnlTop = 40dip
Else
pnlTop = 0
End If
pnlDispGPSLatLng.Left = 0
pnlDispGPSLatLng.Top = pnlTop
pnlDispGPSAltitude.Top = pnlDispGPSLatLng.Top
pnlDispGPSBearing.Top = pnlDispGPSLatLng.Top + pnlDispGPSLatLng.Height
pnlDispGPSSpeed.Top = pnlDispGPSLatLng.Top + pnlDispGPSLatLng.Height
pnlDispGPSWindrose.Height = pnlToolBox.Top - pnlDispGPSSpeed.Top - pnlDispGPSSpeed.Height - 5dip
pnlDispGPSWindrose.Top = pnlDispGPSSpeed.Top + pnlDispGPSSpeed.Height - 5dip
pnlDispGPSWindrose.Width = pnlDispGPSWindrose.Height
pnlDispGPSNeedle.Width = pnlDispGPSWindrose.Height
pnlDispGPSNeedle.Height = pnlDispGPSWindrose.Height
pnlDispGPSWindrose.Left = (Activity.Width - pnlDispGPSWindrose.Width) / 2
pnlDispGPSWindrose.Visible = False
cvsDispGPSWindrose.Initialize(pnlDispGPSWindrose)
cvsDispGPSNeedle.Initialize(pnlDispGPSNeedle)
imvNeedle.Visible = False
'Changed by Filippo
pnlDispGPSSpeed.Visible = GPS_On AND GPSDispSpeed
pnlDispGPSBearing.Visible = GPS_On AND GPSDispBearing
pnlDispGPSWindrose.Visible = GPS_On AND GPSDispWindrose
'----------------
If GPS_On = True Then
GPS1.Start(GPSMinTime, GPSMinDistance)
End If
If MapCenter.IsInitialized = False Then
MapCenter.Initialize
MapCenter.Latitude = MapDefaultLat
MapCenter.Longitude = MapDefaultLng
End If
If GPSPath.Size > 0 AND MapZoomCalculated = False Then
CalcMapZoom
End If
' sets the right image to bntMap
Dim bmd As BitmapDrawable
If Map_On = False Then
If MapSetDraggable = True Then
bmd.Initialize(LoadBitmap(File.DirAssets, "btnmapmove0.png"))
Else
bmd.Initialize(LoadBitmap(File.DirAssets, "btnmapcoord0.png"))
End If
Else
If MapSetDraggable = True Then
bmd.Initialize(LoadBitmap(File.DirAssets, "btnmapmove1.png"))
Else
bmd.Initialize(LoadBitmap(File.DirAssets, "btnmapcoord1.png"))
End If
MapShow
End If
btnMap.Background = bmd
' sets the right image to btnGPSPath
Dim bmd As BitmapDrawable
If DispMapMarkers = True Then
bmd.Initialize(LoadBitmap(File.DirAssets, "btngpspathmarker0.png"))
Else If DispMapPolylne = True Then
bmd.Initialize(LoadBitmap(File.DirAssets, "btngpspathline0.png"))
Else
bmd.Initialize(LoadBitmap(File.DirAssets, "btngpspath0.png"))
End If
btnGPSPath.Background = bmd
Activity.Title = ProgName & " : " & ProgVersion
InitWindrose
InitNeedle
End Sub
Sub MapShow
' Shows the map depending on the setup options
If Map_On = True Then
MapViewer.Visible = True
pnlMap.Visible = True
If DispMapPolylne = True OR DispMapMarkers = True Then
MapCenter.Latitude = GPSPathLatMean
MapCenter.Longitude = GPSPathLngMean
Else
'Changed by Filippo
If lblLatitude.Text="- - -" AND lblLongitude.Text="- - -" Then
MapCenter.Latitude = MapDefaultLat
MapCenter.Longitude = MapDefaultLng
Else
MapCenter.Latitude = lblLatitude.Text
MapCenter.Longitude = lblLongitude.Text
End If
'-----------------------
End If
If ShowGPSOnMap = True AND GPS_On = True Then
MapDisp(MapCenter.Latitude, MapCenter.Longitude, MapSetDraggable, MapZoomLevel, DispMapTypeControl, DispMapTypeControlID, DispMapZoomControl, "LEFT_CENTER", DispMapZoomControlType, DispMapScaleControl, "TOP_RIGHT", DispMapCenter, GPSPath, False, False, False, False, MapLineColor, MapLineOpacity, MapLineWidth)
Else
MapDisp(MapCenter.Latitude, MapCenter.Longitude, MapSetDraggable, MapZoomLevel, DispMapTypeControl, DispMapTypeControlID, DispMapZoomControl, "LEFT_CENTER", DispMapZoomControlType, DispMapScaleControl, "TOP_RIGHT", DispMapCenter, GPSPath, DispMapMarkers, MapMarkerClickable, MapMarkerDragable, DispMapPolylne, MapLineColor, MapLineOpacity, MapLineWidth)
End If
End If
End Sub
