B4A Library MapScaleView

This is a wrap for this Github project.

Scale view for Google Maps Android API

MapScaleView
Author: DonManfred (wrapper)
Version: 1.01

• MapScaleView
  Fields:
  • ba As BA
  Methods:
  • BringToFront
  • DesignerCreateView (base As PanelWrapper, lw As LabelWrapper, props As Map)
  • Initialize (EventName As String)
  • InitializeScaleView (map As GoogleMap)
  • Invalidate
  • Invalidate2 (arg0 As Rect)
  • Invalidate3 (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  • IsInitialized As Boolean
  • RemoveView
  • RequestFocus As Boolean
  • SendToBack
  • SetBackgroundImage (arg0 As Bitmap)
  • SetColorAnimated (arg0 As Int, arg1 As Int, arg2 As Int)
  • SetLayout (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  • SetLayoutAnimated (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int, arg4 As Int)
  • SetVisibleAnimated (arg0 As Int, arg1 As Boolean)
  • update (projection As Projection, cameraPosition As CameraPosition)
  • updateScaleView
  Properties:
  • Background As Drawable
  • Color As Int [write only]
  • Enabled As Boolean
  • Height As Int
  • Left As Int
  • Parent As Object [read only]
  • Tag As Object
  • Top As Int
  • Visible As Boolean
  • Width As Int

Requirement:
You app needs to be ready to use GoogleMaps.

Install:
- Copy content of MapScaleViewVx.yy.zip to your additional libraries folder
- Copy the content of res.MapScaleView.zip toyour project root dir (same folder as files folder)
- Add

    #AdditionalRes: ..\res.MapScaleView

to your project.

Sub Globals
    Private gmap As GoogleMap
    Private MapFragment1 As MapFragment
    Private scale As MapScaleView

End Sub

Sub Activity_Create(FirstTime As Boolean)
  Activity.LoadLayout("1")
    scale.Initialize("")
end sub

In Mapfragment ready event you setup the ScaleView

Sub MapFragment1_Ready
    Log($"map_Ready()"$)
    gmap = MapFragment1.GetMap
    scale.InitializeScaleView(gmap)
end sub

 

[Rantor777]

+10

 

[MarcoRome]

+30

 

[peacemaker]

Strange, but invisible, without any error.
b4a 6.3, emulator v.4.2, real device v.5.0
Firstly made as in the description, next - added the view via the Designer... not visible

 

[DonManfred]

Upload your project to see the problem

 

[peacemaker]

It's a huge project to upload all. Google map is working OK.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim GoogleMapsExtras1 As GoogleMapsExtras
    Dim MapSettings As MapUiSettings
    Dim StT As VoiceRecognition
    Dim tim As Timer
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
   Dim gmap As GoogleMap
   Private scale As MapScaleView
   Private Map As MapFragment
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("mymap") ' Google Map and Scale view are here !
scale.Initialize("")
End Sub

Sub Map_Ready
Log("map ready")
gmap = Map.GetMap
If gmap.IsInitialized = False Then
    ToastMessageShow("Map init error", True)
Else
    gmap.MyLocationEnabled = True
    scale.InitializeScaleView(gmap)
    scale.Visible = True
    GoogleMapsExtras1.SetBuildingsEnabled(gmap, True)
End If
End Sub

 

[TLD]

copy your library successfully bt still MapFragment library is missing and can anybody tell me is it neccessary to copy res.MapScaleView.zip in root folder

 

[MarcoRome]

copy your library successfully bt still MapFragment library is missing and can anybody tell me is it neccessary to copy res.MapScaleView.zip in root folder

Already RESOLVED

 

[maso1975]

Hello DonManfred, is it possible to apply this to OMSDroid with Offline maps?

 

[DonManfred]

No. The Github project does not have any code for other than Google Map.

 

[Andris]

Thank you Don for this helpful view. Works great in my app.

One question though. I haven't been successful in changing the text size or color and wonder if that can be done. In your third example screenshot, you definitely show a bigger font size and a color other than black. However, Properties doesn't include TextSize or TextColor, and assigning values in Designer has no effect either. Is there something I'm missing?

If in fact these Properties aren't supported, can they be added?

 

[gravel]

Hello DonManfred, would you consider updating the lib to the current 1.2.1 version which, along with other changes, supports a scale bar in Miles/Feet as well as Kilometres/Metres?

 

[DonManfred]

supports a scale bar in Miles/Feet as well as Kilometres/Metres?

Sub MapFragment1_Ready
    Log("MapReady()")
    gmap = MapFragment1.GetMap
    scale.IsMiles = True

 

[gravel]

Wow, thanks DonManfred. But I can't get it to show. There's no longer a
scale.InitializeScaleView(gmap) ... is that not needed any longer?

What I've got is:

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
    #AdditionalRes: ..\res.MapScaleView   
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
    #AdditionalJar: com.google.android.gms:play-services-maps   
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private gmap As GoogleMap
    Private MapFragment1 As MapFragment
    Private MapScaleView1 As MapScaleView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    MapScaleView1.Initialize("")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub MapFragment1_Ready
    gmap = MapFragment1.GetMap
    MapScaleView1.IsMiles = True
    MapScaleView1.BringToFront
End Sub

 

[DonManfred]

Here (set your api key in manifest)

 

[gravel]

Ahhh, I get it now. Thanks very much DonManfred, that is excellent.

 

[DonManfred]

You can give some likes to honor it

 

[IdasI4A]

Great. +10
One suggestion, update could you return the value of the scale?
That is:

Dim M as int
M=MapScaleView1.update(Position.Zoom,Position.Target.Latitude)
log("Metros=" & M)

 

[DonManfred]

The Library does not provide such a method or returnvalue in update method.