Header

Should be changed, as the feeling is less good, memory consumption could get huge, and unuseful threads may continue instead of being stopped.

.gitignore

@@ -0,0 +1,2 @@
+PBMap.pb.bak
+*.exe

Forms/MarkerEdit.pbf

@@ -0,0 +1,40 @@
+;
+; This code is automatically generated by the FormDesigner.
+; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
+; Event procedures needs to be put in another source file.
+;
+
+Global WindowMarkerEdit
+
+Global TextIdentifier, TextLegend, StringIdentifier, EditorLegend
+
+
+Procedure OpenWindowMarkerEdit(x = 0, y = 0, width = 300, height = 100)
+  WindowMarkerEdit = OpenWindow(#PB_Any, x, y, width, height, Marker Edit, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered | #PB_Window_NoGadgets)
+  TextIdentifier = TextGadget(#PB_Any, 2, 2, 80, 25, Identifier)
+  TextLegend = TextGadget(#PB_Any, 2, 27, 80, 25, Legend)
+  StringIdentifier = StringGadget(#PB_Any, 84, 2, 120, 25, "")
+  EditorLegend = EditorGadget(#PB_Any, 84, 27, 210, 70)
+EndProcedure
+
+Procedure WindowMarkerEdit_Events(event)
+  Select event
+    Case #PB_Event_CloseWindow
+      ProcedureReturn #False
+
+    Case #PB_Event_Menu
+      Select EventMenu()
+      EndSelect
+
+    Case #PB_Event_Gadget
+      Select EventGadget()
+      EndSelect
+  EndSelect
+  ProcedureReturn #True
+EndProcedure
+
+
+; IDE Options = PureBasic 5.50 (Windows - x64)
+; CursorPosition = 11
+; Folding = -
+; EnableXP

README.md

@@ -1,6 +1,10 @@
 # PBMap
-Purebasic open source tiled map software.
-Created to develop and test tiles applications in PureBasic.
+Open source tiled map software.
+
+To develop tiled map applications in PureBasic.
+
+Based on OpenStreetMap services
+OSM copyright : http://www.openstreetmap.org/copyright
 
 This code is free !
 
@@ -11,4 +15,6 @@ http://www.purebasic.fr/french/viewtopic.php?f=3&t=16160 (french)
 Contributors :
 Thyphoon
 djes
+Idle
 Progi1984
+yves86

gettext.pbi

@@ -0,0 +1,29 @@
+Procedure.s gettext(String.s = "")
+  Protected Language.s = "EN_en"
+  
+  Select Language
+      
+    Case "EN_en"
+      ProcedureReturn String
+      
+    Case "FR_fr"
+      
+      Select String
+          
+        Case "Identifier"
+          ProcedureReturn("Identificateur")
+          
+        Default
+          ProcedureReturn String
+          
+      EndSelect  
+      
+    Default
+      ProcedureReturn String
+
+  EndSelect
+EndProcedure
+; IDE Options = PureBasic 5.50 (Windows - x64)
+; CursorPosition = 21
+; Folding = -
+; EnableXP