1 Commits
Yves86 ... idle

Author SHA1 Message Date
djes
0a54575e98 markers fix 2016-09-02 08:39:35 +02:00
7 changed files with 1944 additions and 2591 deletions

2
.gitignore vendored
View File

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

View File

@@ -1,40 +0,0 @@
;
; 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

3384
PBMap.pb

File diff suppressed because it is too large Load Diff

View File

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

View File

@@ -1,29 +0,0 @@
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

1070
libcurl.pbi Normal file

File diff suppressed because it is too large Load Diff

Binary file not shown.

Before

Width:  |  Height:  |  Size: 286 KiB