MapInfo Pro

How can I put an icon that I have in a folder so that it appears in the theme?
I have tried and it is not visible

Sub TEMATICO_RECOGIDA_BASURA_RB

OnError GoTo errorTematicoRecogidaBasura_rb

'##### ASIGNANDO NOMBRE DEL MUNICIPIO ENCUESTADO Y RUTA DE ARCHIVOS ###############

str_tit_principal = WindowInfo(FrontWindow(), WIN_INFO_NAME) 

'##### ASIGNANDO VARIABLES IDENTIFICADOR DE VENTANAS ###############

num_win_principal = NUMEROWINDOW_RB(str_tit_principal)

'##### ASIGNANDO VARIABLES IDENTIFICADOR DE CAPAS ###############

'num_layer_mapa = NUMEROLAYER_RB("MAPA",num_win_principal)

num_layer_mapa = NUMEROLAYER_RB("MANZANAS",num_win_principal)
num_layer_recogida_basura = NUMEROLAYER_RB("RECOGIDA_BASURA",num_win_principal)

'##### CREACION DE ETIQUETAS Y ACTIVACIONES O DESACTIVACIONES DE CAPAS EDITABLES ###############

sentencia = "Set Map Window "+num_win_principal
'sentencia = sentencia + " Layer "+num_layer_mapa+" Editable Off Display Off"

Run Command sentencia

'##### 1.- CREACION DE TEMATICO VALVULAS ###############

num_layer_recogida_basura = NUMEROLAYER_RB("RECOGIDA_BASURA",num_win_principal)

shade window num_win_principal num_layer_recogida_basura 
   with TIPO_RBAS 
   values 
      "OG" Brush (2,10506240,16777215) Pen (1,2,0) Line (4,2,10506240) Symbol (84,10506240,36,"MapInfo Transportation",16,0) 
     ,"OT" Brush (2,16752848,16777215) Pen (1,2,0) Line (4,5,16752848) Symbol (68,16752848,36,"MapInfo Transportation",16,0) 
     ,"PA" Brush (2,255,16777215) Pen (1,2,0) Line (4,2,255) Symbol (84,255,36,"MapInfo Transportation",256,0) 
     ,"PI" Brush (2,15774720,16777215) Pen (1,2,0) Line (4,2,15774720) Symbol (68,15774720,36,"MapInfo Transportation",16,0) 
     ,"PL" Brush (2,16776960,16777215) Pen (1,2,0) Line (1,2,16776960) Symbol (84,16776960,36,"MapInfo Transportation",16,0) 
     ,"RN" Brush (2,0,16777215) Pen (1,2,0) Line (1,2,0) Symbol (84,0,36,"MapInfo Transportation",256,0) 
     ,"VI" Brush (2,32768,16777215) Pen (1,2,0) Line (1,2,32768) Symbol (84,32768,36,"MapInfo Transportation",16,0) 
  default Brush (1,0,16777215) Pen (1,2,0) Line (1,2,0) Symbol ("PL.GIF",0,12,0)

run command "set map window "+num_win_principal+" layer "+num_layer_recogida_basura+" FriendlyName ""RECOGIDA_BASURA_Temático por TIPO_RBAS"""
run command "set legend window "+num_win_principal+" layer prev display on shades off symbols on lines off count on title auto Font (""Arial"",0,9,0) subtitle auto Font (""Arial"",0,8,0) order custom ranges Font (""Arial"",0,8,0) range ""RN"" ""RN_No selectiva"" display on ,range ""VI"" ""VI_Vidrio"" display on ,range ""PA"" ""PA_Papel o cartón"" display on ,range ""PL"" ""PL_Envases y plásticos"" display on ,range ""PI"" ""PI_Pilas"" display on ,range ""OG"" ""OG_Residuos orgánicos"" display on ,range ""OT"" ""OT_Otros tipos selectivos"" display on ,range default auto display off" 

DONE:
  Exit Sub

errorTematicoRecogidaBasura_rb: 
 Note "ERROR : " +  Chr$(13) & Chr$(10) + Error$()

Exit Sub

End Sub

------------------------------
Mayca González Pérez
COMUNIDAD. AUT. REG MURCIA
------------------------------

Hey Mayca

When you want to use an image as an icon, put it into the Custom Symbol folder, either directly or in a subfolder.

It seems you have already done this. I also assume that you have clicked the Reload button in the Symbol Style dialog.

There are a few reasons why a symbol in the folder doesn't show correctly on a map:

• Too long file name. The filename should have 27 characters or less.
• The file name must be unique across the Custom Symbol folder and all the subfolders.

I can see you are using a GIF. Can you try saving it as a PNG and add this to see if that helps?

The path to the custom symbols folder-can I define a different path? Why is it the same path now?

You can find the location using the LocateFile$() function:

Dim sCustSymbPath, sSymbolFile As String

sCustSymbPath = LocateFile$(LOCATE_CUSTSYMB_DIR)

And then copy your icon to the location if it doesn't exist:

sSymbolFile = "PL.png"

If not FileExists(sCustSymbPath & sSymbolFile) Then

   Save File ApplicationDirectory$() & sSymbolFile As sCustSymbPath & sSymbolFile

   ReloadCustom Symbols From sCustSymbPath

End If

I hope this helps

The path to the custom symbols folder-can I define a different path? Why is it the same path now?