or
01.
<script type=
"text/javascript"
>
02.
var
geocoder;
03.
var
layers = [];
04.
05.
layers[0] =
new
google.maps.KmlLayer(
'OfficeLocations.kml'
,
06.
{ preserveViewport:
true
});
07.
08.
layers[1] =
new
google.maps.KmlLayer(
'http://www.geocodezip.com/geoxml3_test/utah-hunt_com_DeerSouthern_kml.xml'
,
09.
{ preserveViewport:
true
});
10.
11.
layers[2] =
new
google.maps.KmlLayer(
'police.kml'
,
12.
{ preserveViewport:
true
});
13.
14.
layers[3] =
new
google.maps.KmlLayer(
'waste.kml'
,
15.
{ preserveViewport:
true
});
16.
var
map;
17.
18.
function
initialize() {
19.
geocoder =
new
google.maps.Geocoder();
20.
var
mapOptions = {
21.
center: { lat: 44.0527524, lng: -80.1875065 },
22.
zoom: 11
23.
};
24.
map =
new
google.maps.Map(document.getElementById(
'map-canvas'
),
25.
mapOptions);
26.
}
27.
28.
function
toggleLayers(i) {
29.
30.
if
(layers[i].getMap() ==
null
) {
31.
layers[i].setMap(map);
32.
}
33.
else
{
34.
layers[i].setMap(
null
);
35.
}
36.
document.getElementById(
'status'
).innerHTML +=
"toggleLayers("
+ i +
") [setMap("
+ layers[i].getMap() +
"] returns status: "
+ layers[i].getStatus() +
"<br>"
;
37.
}
38.
39.
function
codeAddress() {
40.
var
address = document.getElementById(
"address"
).value;
41.
geocoder.geocode({
'address'
: address },
function
(results, status) {
42.
if
(status == google.maps.GeocoderStatus.OK) {
43.
map.setCenter(results[0].geometry.location);
44.
marker.setPosition(results[0].geometry.location);
45.
map.setZoom(14);
46.
}
47.
else
{
48.
alert(
"Geocode was not successful for the following reason: "
+ status);
49.
}
50.
});
51.
}
52.
53.
google.maps.event.addDomListener(window,
'load'
, initialize);
54.
55.
</script>
56.
<script>
57.
function
OnClientItemClicked(sender, args) {
58.
var
item = args.get_item();
59.
if
(item.get_level() == 0) {
60.
toggleLayers(0); }
61.
}
62.
</script>
63.
<telerik:RadPanelBar ID=
"RadPanelBar1"
runat=
"server"
Width=
"300px"
Skin=
"Silk"
OnClientItemClicked=
"OnClientItemClicked"
>
64.
<Items>
65.
<telerik:RadPanelItem runat=
"server"
Text=
"Government Services"
Expanded=
"true"
ImageUrl=
"images/icons/information.gif"
>
66.
<Items>
67.
<telerik:RadPanelItem runat=
"server"
Text=
"Office Locations"
ImageUrl=
"images/icons/building.gif"
>
68.
</telerik:RadPanelItem>
69.
<telerik:RadPanelItem runat=
"server"
Text=
"Police Stations"
ImageUrl=
"images/icons/shield.gif"
>
70.
</telerik:RadPanelItem>
71.
<telerik:RadPanelItem runat=
"server"
Text=
"Waste Disposal"
ImageUrl=
"images/icons/lorry.gif"
>
72.
</telerik:RadPanelItem>
73.
</Items>
74.
</telerik:RadPanelItem>
75.
</telerik:RadPanelBar>
'***************************************
' Clear The Controls Collection
'***************************************
Me
.Controls.Clear()
'***************************************
' Create Container Panel(s)
'***************************************
Me
._panelContainer =
New
Panel
With
Me
._panelContainer
.ID =
"panelMainContainer"
End
With
'***************************************
' Create Message PlaceHolder
'***************************************
Me
._phPlaceHolder =
New
PlaceHolder
With
Me
._phPlaceHolder
.ID =
"phPlaceHolder"
End
With
'***************************************
' Add Controls Directly To Container
'***************************************
With
Me
._panelContainer.Controls
'***************************************
' Add Message Placeholder
'***************************************
.Add(
Me
._phPlaceHolder)
'***************************************
' Create AJAX Controls
'***************************************
If
(
Me
.UseAjax)
Then
'***************************************
' Define RADAJAXLoadingPanel
'***************************************
Me
._panelRADAjaxLoading =
New
RadAjaxLoadingPanel
With
Me
._panelRADAjaxLoading
.ID =
"panelRADAjaxLoading"
.Skin =
"Default"
.EnableSkinTransparency =
True
.BackgroundPosition = AjaxLoadingPanelBackgroundPosition.Center
End
With
'***************************************
' Add Loading Panel
'***************************************
.Add(
Me
._panelRADAjaxLoading)
End
If
'***************************************
' Add Control Design To Panel
'***************************************
.Add(
Me
.CreateControlDesign())
End
With
'***************************************
' Add Main Panel Container To Base Control
'***************************************
Me
.Controls.Add(
Me
._panelContainer)
'***************************************
' Call Base Class Method
'***************************************
MyBase
.CreateChildControls()
Private
Function
CreateControlDesign()
As
Control
'***************************************
' Initialize Variables
'***************************************
Dim
objTable_Main
As
CodeLibrary.HTMLTableBuilder
'***************************************
' Default Values
'***************************************
Me
._cboRoleGroups =
New
DropDownList
Me
._chkRoles =
New
CheckBoxList
Me
._cmdClearSelection =
New
LinkButton
Me
._lblTotalSelectedRoles =
New
Label
'***************************************
' Initialize Controls
'***************************************
With
Me
._cboRoleGroups
.ID =
"cboRoleGroups"
.AutoPostBack =
True
End
With
With
Me
._chkRoles
.ID =
"chkRoles"
.AutoPostBack =
True
End
With
With
Me
._cmdClearSelection
.ID =
"cmdClearSelectedRoles"
.Text =
"Clear Selected Roles"
End
With
With
Me
._lblTotalSelectedRoles
.ID =
"lblTotalSelectedRoles"
.Text =
"{0} Roles Selected"
End
With
'***************************************
' Main Container Table
'***************************************
objTable_Main =
New
CodeLibrary.HTMLTableBuilder
With
objTable_Main
'***************************************
' Set Table Properties
'***************************************
.Table.ID =
"tblMain"
If
(
Me
.UseDNNFormItemClass)
Then
.Table.CssClass =
"dnnFormItems"
'***************************************
' Row: 01 (Role Group Selector)
'***************************************
.NewRow()
With
.CurrentRow
'***************************************
' Cell 01: cboRoleGroups
'***************************************
objTable_Main.NewCell()
With
objTable_Main.CurrentCell
'***************************************
' Set Cell Properties
'***************************************
If
(
Me
.UseDNNFormItemClass)
Then
.CssClass =
"dnnFormItem"
.Width =
New
Unit(0, UnitType.Pixel)
'***************************************
' Add Control(s) To Cell
'***************************************
.Controls.Add(
Me
._cboRoleGroups)
End
With
objTable_Main.CommitCell()
'***************************************
' Cell 02: Spacer
'***************************************
objTable_Main.NewCell()
With
objTable_Main.CurrentCell
.Width =
New
Unit(10, UnitType.Pixel)
End
With
objTable_Main.CommitCell()
'***************************************
' Cell 03: lblTotalSelectedRoles
'***************************************
objTable_Main.NewCell()
With
objTable_Main.CurrentCell
'***************************************
' Set Cell Properties
'***************************************
.Width =
New
Unit(100, UnitType.Percentage)
'***************************************
' Add Control(s) To Cell
'***************************************
.Controls.Add(
Me
._lblTotalSelectedRoles)
End
With
objTable_Main.CommitCell()
End
With
.CommitRow()
'***************************************
' Row: 02 (Clear Selection Button)
'***************************************
.NewRow()
With
.CurrentRow
'***************************************
' Cell 01: Data Entry Control
'***************************************
objTable_Main.NewCell()
With
objTable_Main.CurrentCell
'***************************************
' Set Cell Properties
'***************************************
If
(
Me
.UseDNNFormItemClass)
Then
.CssClass =
"dnnFormItem"
.ColumnSpan = 3
'***************************************
' Add Control(s) To Cell
'***************************************
.Controls.Add(
Me
._cmdClearSelection)
End
With
objTable_Main.CommitCell()
End
With
.CommitRow()
'***************************************
' Row: 03 (Role Selector)
'***************************************
.NewRow()
With
.CurrentRow
'***************************************
' Cell 01: Data Entry Control
'***************************************
objTable_Main.NewCell()
With
objTable_Main.CurrentCell
'***************************************
' Set Cell Properties
'***************************************
If
(
Me
.UseDNNFormItemClass)
Then
.CssClass =
"dnnFormItem DCCRemoveLabelContraints"
.ColumnSpan = 3
'***************************************
' Add Control(s) To Cell
'***************************************
.Controls.Add(
Me
._chkRoles)
End
With
objTable_Main.CommitCell()
End
With
.CommitRow()
End
With
'***************************************
' Return Final Value
'***************************************
Return
objTable_Main.Table
End
Function
'***************************************
' Register Controls w/ RADAJAXManager
'***************************************
If
(
Me
.UseAjax)
Then
Dim
objRADAjaxManager
As
RadAjaxManager =
Me
.RADAjaxManager
If
((objRADAjaxManager IsNot
Nothing
)
AndAlso
(
Me
.Visible))
Then
With
objRADAjaxManager.AjaxSettings
'***************************************
' Set AJAX Update Triggers
'***************************************
.AddAjaxSetting(
Me
._cboRoleGroups,
Me
._panelContainer,
Me
._panelRADAjaxLoading)
.AddAjaxSetting(
Me
._cmdClearSelection,
Me
._panelContainer,
Me
._panelRADAjaxLoading)
.AddAjaxSetting(
Me
._chkRoles,
Me
._panelContainer,
Me
._panelRADAjaxLoading)
.AddAjaxSetting(
Me
._chkRoles,
Me
._chkRoles)
.AddAjaxSetting(
Me
._chkRoles,
Me
._lblTotalSelectedRoles)
End
With
End
If
End
If
function CloseAndRebind(args) {
GetRadWindow().BrowserWindow.refreshGrid(args);
GetRadWindow().close();
}