1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
| PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 400
Width = 600
DoCreate = .T.
Caption = "Form1"
AllowOutput = .F.
htmlfile = ""
Name = "Form1"
ADD OBJECT pageframe1 AS pageframe WITH ;
ErasePage = .T., ;
PageCount = 2, ;
Anchor = 15, ;
Top = 0, ;
Left = 0, ;
Width = 600, ;
Height = 400, ;
Name = "Pageframe1", ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"
PROCEDURE Init
this.pageframe1.page1.AddObject('brw','olecontrol','Shell.Explorer')
with this.pageframe1.page1.brw
.Top = 0
.Left = 0
.Height = 368
.Width = 595
.Anchor = 15
.Visible = .t.
endwith
text to htmlstring noshow
<html>
<head>
<style type="text/css">
<!--
html{height: 100%;}
body{height: 100%; margin:0px 0px 0px 0px;}
-->
</style>
<script src="http://maps.google.com/maps?file=api&v=2&key=xkey" type="text/javascript"></script>
<script type="text/javascript">
//<![CDATA[
function loadmap() {
if (GBrowserIsCompatible()) {
var map = new GMap2(document.getElementById("map"));
map.enableScrollWheelZoom();
map.enableGoogleBar();
map.setUIToDefault();
map.setCenter(new GLatLng(39.249270,35.397949), 6);
var markerOpts = {};
markerOpts.title="Marker Title";
var marker = new GMarker(new GLatLng(39.249270,35.397949),markerOpts);
marker.bindInfoWindowHtml("Html Text");
map.addOverlay(marker);
GEvent.addListener(map, "click", function(marker, point) {
if (!marker) {
var markerOpts = {};
markerOpts.title="Yeni Etiket";
markerOpts.draggable=true;
var newmark=new GMarker(point,markerOpts)
map.addOverlay(newmark);
newmark.bindInfoWindowHtml("Yeni Etiket<br>Html Text");
}
});
}
}
//]]>
</script>
</head>
<body onload="loadmap()" onunload="GUnload()">
<div id="map" style="width:100%; height:100%;"></div>
</body>
</html>
endtext
this.htmlfile=sys(2023)+"\"+sys(2015)+".html"
strtofile(htmlstring,this.htmlfile)
this.pageframe1.page1.brw.navigate("file://"+strtran(this.htmlfile,"\","/"))
ENDPROC
PROCEDURE Destroy
erase (this.htmlfile)
ENDPROC
ENDDEFINE |
) nedir ne değildir o kadar araştırdım hiç bir şey bulamadım 
