Little changes

This commit is contained in:
djes
2016-08-03 16:17:31 +02:00
parent e76412ab5d
commit 3363ba93f3
2 changed files with 8 additions and 10 deletions

View File

@@ -8,6 +8,8 @@
; but not required. ; but not required.
; Note: Please share improvement ! ; Note: Please share improvement !
; Thanks: Progi1984 ; Thanks: Progi1984
; Usage: Change the Proxy global variables if needed
; (see also Proxy Details)
;************************************************************** ;**************************************************************
CompilerIf #PB_Compiler_Thread = #False CompilerIf #PB_Compiler_Thread = #False
@@ -23,9 +25,9 @@ UsePNGImageEncoder()
DeclareModule PBMap DeclareModule PBMap
;-Show debug infos ;-Show debug infos
Global Verbose = #True Global Verbose = #False
;-Proxy ON/OFF ;-Proxy ON/OFF
Global Proxy = #True Global Proxy = #False
Declare InitPBMap() Declare InitPBMap()
Declare MapGadget(Gadget.i, X.i, Y.i, Width.i, Height.i) Declare MapGadget(Gadget.i, X.i, Y.i, Width.i, Height.i)
Declare Event(Event.l) Declare Event(Event.l)
@@ -986,7 +988,7 @@ CompilerIf #PB_Compiler_IsMainFile
EndProcedure EndProcedure
;- MAIN TEST ;- MAIN TEST
If OpenWindow(#Window_0, 260, 225, 700, 571, "OpenStreetMap", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SizeGadget) If OpenWindow(#Window_0, 260, 225, 700, 571, "PBMap", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
LoadFont(0, "Wingdings", 12) LoadFont(0, "Wingdings", 12)
LoadFont(1, "Arial", 12, #PB_Font_Bold) LoadFont(1, "Arial", 12, #PB_Font_Bold)
@@ -1052,7 +1054,7 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.42 LTS (Windows - x86) ; IDE Options = PureBasic 5.42 LTS (Windows - x86)
; CursorPosition = 8 ; CursorPosition = 11
; Folding = -------- ; Folding = --------
; EnableUnicode ; EnableUnicode
; EnableThread ; EnableThread

View File

@@ -1062,13 +1062,9 @@ Procedure.s str2curl(string.s)
EndProcedure EndProcedure
; IDE Options = PureBasic 5.40 LTS Beta 5 (Windows - x86)
; EnableUnicode
; EnableXP
; EnableBuildCount = 0
; IDE Options = PureBasic 5.42 LTS (Windows - x86) ; IDE Options = PureBasic 5.42 LTS (Windows - x86)
; CursorPosition = 1031 ; CursorPosition = 1063
; FirstLine = 986 ; FirstLine = 1006
; Folding = -- ; Folding = --
; EnableUnicode ; EnableUnicode
; EnableXP ; EnableXP