Voici mon code:
Code : Tout sélectionner
;By MetalOS
;- Global Variables and Constants
Global BubbleTipStyle.l:BubbleTipStyle=0
;- Window Constants
Enumeration 1
#Window_Form1
EndEnumeration
#WindowIndex=#PB_Compiler_EnumerationValue
;- Gadget Constants
Enumeration 1
;Window_Form1
#MenuBar_Form1_Fichier
#MenuBar_Form1_Quitter
#Gadget_Form1_Web1
#Gadget_Form1_Button1
#Gadget_Form1_Button2
#Gadget_Form1_String1
#Gadget_Form1_Button3
EndEnumeration
#GadgetIndex=#PB_Compiler_EnumerationValue
;- MenuBar Constants
Enumeration 1
#MenuBar_Form1
EndEnumeration
#MenuBarIndex=#PB_Compiler_EnumerationValue
;- StatusBar Constants
Enumeration 1
#StatusBar_Form1
EndEnumeration
#StatusBarIndex=#PB_Compiler_EnumerationValue
#StatusBar_Form1_Field1 =0
#StatusBar_Form1_Field2 =1
#StatusBar_Form1_Field3 =2
#StatusBar_Form1_Field4 =3
Procedure.s MakeHtmlCode(adresse.s = "")
Protected html.s
Protected *c.character
;nur für DataZeilen
For *c = ?MapLabel To ?MapLabelEnd
If *c\c = 0
*c\c = 13
EndIf
Next
;Script laden
html = PeekS(?MapLabel, ?MapLabelEnd - ?MapLabel)
If adresse
html = ReplaceString(html, "List Deutschland", adresse)
EndIf
ProcedureReturn html
DataSection
MapLabel:
Data.S "<!DOCTYPE HTML>"
Data.s "<html>"
Data.s "<head>"
Data.s "<title>OpenLayers Demo</title>"
Data.s "<style type='text/css'>"
Data.s " html, body, #basicMap {"
Data.s " width: 100%;"
Data.s " height: 100%;"
Data.s " margin: 0;"
Data.s " }"
Data.s "</style>"
Data.s "<script src='http://www.openlayers.org/api/OpenLayers.js'></script>"
Data.s "<script>"
Data.s " function init() {"
Data.s " Map = new OpenLayers.Map('basicMap');"
Data.s " var mapnik = new OpenLayers.Layer.OSM();"
Data.s " Map.addLayer(mapnik);"
Data.s " Map.setCenter(new OpenLayers.LonLat(4.0,48.0) // Centre de la carte"
Data.s " .transform("
Data.s " new OpenLayers.Projection('EPSG:4326'), // transformation de WGS 1984"
Data.s " new OpenLayers.Projection('EPSG:900913') // en projection Mercator sphérique"
Data.s " ), 5 // Zoom level"
Data.s " );"
Data.s " }"
Data.s "</script>"
Data.s "</head>"
Data.s "<body onload='init();'>"
Data.s "<div id='basicMap'></div>"
Data.s "</body>"
Data.s "</html>"
MapLabelEnd:
EndDataSection
EndProcedure
Procedure.l Window_Form1()
If OpenWindow(#Window_Form1,378,165,725,585,"Open Street Map.",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_WindowCentered|#PB_Window_Invisible)
CreateMenu(#MenuBar_Form1,WindowID(#Window_Form1))
MenuTitle("Fichier")
MenuItem(#MenuBar_Form1_Quitter,"Quitter")
WebGadget(#Gadget_Form1_Web1,0,0,725,495,"")
SetGadgetItemText(#Gadget_Form1_Web1, #PB_Web_HtmlCode, MakeHtmlCode(adresse.s))
ButtonGadget(#Gadget_Form1_Button1,5,510,60,20,"Lieu 1")
ButtonGadget(#Gadget_Form1_Button2,75,510,60,20,"Lieu 2")
StringGadget(#Gadget_Form1_String1,140,510,515,20,"")
ButtonGadget(#Gadget_Form1_Button3,660,510,60,20,"Valider")
CreateStatusBar(#StatusBar_Form1,WindowID(#Window_Form1))
AddStatusBarField(100)
AddStatusBarField(100)
AddStatusBarField(100)
AddStatusBarField(100)
HideWindow(#Window_Form1,0)
ProcedureReturn WindowID(#Window_Form1)
EndIf
EndProcedure
;- Main Loop
If Window_Form1()
quitForm1=0
Repeat
EventID =WaitWindowEvent()
MenuID =EventMenu()
GadgetID =EventGadget()
WindowID =EventWindow()
Select EventID
Case #PB_Event_CloseWindow
If WindowID=#Window_Form1
quitForm1=1
EndIf
Case #PB_Event_Menu
Select MenuID
Case #MenuBar_Form1_Quitter
EndSelect
Case #PB_Event_Gadget
Select GadgetID
Case #Gadget_Form1_Button1
Case #Gadget_Form1_Button2
Case #Gadget_Form1_String1
Case #Gadget_Form1_Button3
EndSelect
EndSelect
Until quitForm1
CloseWindow(#Window_Form1)
EndIf
End
