- VERSION 5.06.08

- Se implementaron los globos dinamicos en el mapa.

B4A/Subs.bas

@@ -1383,4 +1383,19 @@ Sub importaBDDesdeWhatsApp
 			End If
 		End If
 	End If
+End Sub
+
+Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap 'ignore
+	Dim NewBitmap As Bitmap
+	NewBitmap.InitializeMutable(OriginalBitmap.Width, OriginalBitmap.Height)
+	Dim Canvas As Canvas
+	Canvas.Initialize2(NewBitmap)
+	' Definir el rectángulo donde se dibujará el Bitmap
+	Dim DestRect As Rect
+	DestRect.Initialize(0, 0, OriginalBitmap.Width, OriginalBitmap.Height)
+	' Dibujar la imagen original
+	Canvas.DrawBitmap(OriginalBitmap, Null, DestRect)
+	' Dibujar el número en el centro del Bitmap y configurar el estilo del texto
+	Canvas.DrawText(Number, (OriginalBitmap.Width / 2), (OriginalBitmap.Height / 2.4), Typeface.DEFAULT, 15, Colors.White, "CENTER")
+	Return NewBitmap
 End Sub