Skip to content

Commit bae178b

Browse files
carloBarazzettacarloBarazzetta
committed
05 Nov 2025 - Version 1.6.3
- Added new properties inherited from TEdgeBrowser - Added new published property MapAPIKey 07 Sep 2025 - Version 1.6.2 - Added support for Delphi 13 - 32 and 64bit IDE - Updated DelphiGoogleMaps_Setup.exe
1 parent abcd5ab commit bae178b

16 files changed

+541
-56
lines changed

‎Demo/GoogleMaps/GoogleMapsTest.dproj‎

Lines changed: 3 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -65,32 +65,31 @@
6565
<VerInfo_Locale>1033</VerInfo_Locale>
6666
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
6767
<SanitizedProjectName>GoogleMapsTest</SanitizedProjectName>
68-
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Edge GoogleMap Viewer Demo;FileVersion=1.0.0.0;InternalName=;LegalCopyright=CopyRight (c) 2021 - Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0;Comments=</VerInfo_Keys>
68+
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Edge GoogleMap Viewer Demo;FileVersion=1.6.2.0;InternalName=;LegalCopyright=CopyRight (c) 2021-2025 - Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.6;Comments=</VerInfo_Keys>
6969
<DCC_DependencyCheckOutputName>GoogleMapsTest.exe</DCC_DependencyCheckOutputName>
7070
<DCC_UnitSearchPath>..\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
7171
<DCC_ExeOutput>.\Bin\$(Platform)</DCC_ExeOutput>
7272
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
7373
<DCC_DcuOutput>.\Dcu\$(Platform)</DCC_DcuOutput>
74+
<VerInfo_MinorVer>6</VerInfo_MinorVer>
75+
<VerInfo_Release>2</VerInfo_Release>
7476
</PropertyGroup>
7577
<PropertyGroup Condition="'$(Base_Win32)'!=''">
7678
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
7779
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
7880
<Icon_MainIcon>GoogleMapsTest_Icon.ico</Icon_MainIcon>
79-
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
8081
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
8182
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
8283
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
8384
</PropertyGroup>
8485
<PropertyGroup Condition="'$(Base_Win64)'!=''">
8586
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
8687
<Icon_MainIcon>GoogleMapsTest_Icon.ico</Icon_MainIcon>
87-
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
8888
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
8989
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
9090
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
9191
<BT_BuildType>Debug</BT_BuildType>
9292
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
93-
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Edge GoogleMap Viewer Demo;FileVersion=1.0.0.0;InternalName=;LegalCopyright=CopyRight (c) 2021 - Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProgramID=;ProductName=;ProductVersion=1.0;Comments=</VerInfo_Keys>
9493
</PropertyGroup>
9594
<PropertyGroup Condition="'$(Cfg_1)'!=''">
9695
<Version>7.0</Version>
@@ -100,12 +99,9 @@
10099
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
101100
</PropertyGroup>
102101
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
103-
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
104102
<BT_BuildType>Debug</BT_BuildType>
105103
</PropertyGroup>
106104
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
107-
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
108-
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Edge GoogleMap Viewer Demo;FileVersion=1.0.0.0;InternalName=;LegalCopyright=CopyRight (c) 2021 - Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProgramID=;ProductName=;ProductVersion=1.0;Comments=</VerInfo_Keys>
109105
</PropertyGroup>
110106
<PropertyGroup Condition="'$(Cfg_2)'!=''">
111107
<DCC_DebugDCUs>true</DCC_DebugDCUs>
@@ -115,10 +111,6 @@
115111
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
116112
<BT_BuildType>Debug</BT_BuildType>
117113
</PropertyGroup>
118-
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
119-
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
120-
<VerInfo_Keys>CompanyName=Ethea S.r.l.;FileDescription=Edge GoogleMap Viewer Demo;FileVersion=1.0.0.0;InternalName=;LegalCopyright=CopyRight (c) 2021 - Ethea S.r.l.;LegalTrademarks=;OriginalFilename=;ProgramID=;ProductName=;ProductVersion=1.0;Comments=</VerInfo_Keys>
121-
</PropertyGroup>
122114
<ProjectExtensions>
123115
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
124116
<Borland.ProjectType>VCLApplication</Borland.ProjectType>

‎Demo/GoogleMaps/GoogleMapsTest.res‎

12 Bytes
Binary file not shown.

‎Demo/GoogleMaps/MainForm.dfm‎

Lines changed: 6 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -591,8 +591,6 @@ object formMain: TformMain
591591
Height = 21
592592
Align = alTop
593593
TabOrder = 0
594-
ExplicitLeft = 88
595-
ExplicitWidth = 398
596594
end
597595
end
598596
end
@@ -612,11 +610,10 @@ object formMain: TformMain
612610
AlignWithMargins = True
613611
Left = 3
614612
Top = 3
615-
Width = 483
613+
Width = 25
616614
Height = 13
617615
Align = alTop
618616
Caption = 'Label'
619-
ExplicitWidth = 25
620617
end
621618
object editMarkerLabel: TEdit
622619
AlignWithMargins = True
@@ -827,11 +824,10 @@ object formMain: TformMain
827824
AlignWithMargins = True
828825
Left = 3
829826
Top = 3
830-
Width = 238
827+
Width = 39
831828
Height = 13
832829
Align = alTop
833830
Caption = 'Latitude'
834-
ExplicitWidth = 39
835831
end
836832
object eCircleLat: TEdit
837833
AlignWithMargins = True
@@ -855,11 +851,10 @@ object formMain: TformMain
855851
AlignWithMargins = True
856852
Left = 3
857853
Top = 3
858-
Width = 239
854+
Width = 47
859855
Height = 13
860856
Align = alTop
861857
Caption = 'Longitude'
862-
ExplicitWidth = 47
863858
end
864859
object eCircleLng: TEdit
865860
AlignWithMargins = True
@@ -884,11 +879,10 @@ object formMain: TformMain
884879
AlignWithMargins = True
885880
Left = 3
886881
Top = 3
887-
Width = 110
882+
Width = 32
888883
Height = 13
889884
Align = alTop
890885
Caption = 'Radius'
891-
ExplicitWidth = 32
892886
end
893887
object eCircleRadius: TEdit
894888
AlignWithMargins = True
@@ -1712,11 +1706,11 @@ object formMain: TformMain
17121706
Height = 370
17131707
Align = alClient
17141708
TabOrder = 1
1709+
TabStop = True
17151710
OnContainsFullScreenElementChanged = EdgeGoogleMapViewerContainsFullScreenElementChanged
17161711
MapAddress = 'Via Santa Cecilia 4, Carugate, Milano'
1717-
MapLatitude = 25.767314000000000000
1712+
MapLatitude = 25.767315000000000000
17181713
MapLongitude = -80.135694000000000000
1719-
BeforeShowMap = EdgeGoogleMapViewerBeforeShowMap
17201714
end
17211715
object DBGrid: TDBGrid
17221716
Left = 0

‎Demo/GoogleMaps/MainForm.pas‎

Lines changed: 2 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@
3030
interface
3131

3232
uses
33-
WebView2, System.SysUtils, Winapi.ActiveX, Vcl.Forms,
33+
Winapi.WebView2, System.SysUtils, Winapi.ActiveX, Vcl.Forms,
3434
Vcl.GoogleMap, Vcl.Edge, Data.DB, Datasnap.DBClient, Vcl.Menus, Vcl.ExtCtrls,
3535
Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.Samples.Spin,
3636
Vcl.Controls, System.Classes, Vcl.Mask, Vcl.ComCtrls, Vcl.Buttons;
@@ -260,7 +260,6 @@ TformMain = class(TForm)
260260
procedure ButtonRouteByAddressClick(Sender: TObject);
261261
procedure LoadTableButtonClick(Sender: TObject);
262262
procedure FormDestroy(Sender: TObject);
263-
procedure EdgeGoogleMapViewerBeforeShowMap(Sender: TObject);
264263
procedure Button1Click(Sender: TObject);
265264
procedure CheckBoxDirectionPanelClick(Sender: TObject);
266265
procedure FormShow(Sender: TObject);
@@ -652,12 +651,6 @@ procedure TformMain.CheckBoxTrafficClick(Sender: TObject);
652651
EdgeGoogleMapViewer.ShowTraffic(CheckBoxTraffic.Checked);
653652
end;
654653

655-
procedure TformMain.EdgeGoogleMapViewerBeforeShowMap(Sender: TObject);
656-
begin
657-
if TEdgeGoogleMapViewer.ApiKey = '' then
658-
raise Exception.Create('Error: you must put your Google API Key into TEdgeGoogleMapViewer: change initialization section!');
659-
end;
660-
661654
procedure TformMain.EdgeGoogleMapViewerContainsFullScreenElementChanged(
662655
Sender: TCustomEdgeBrowser; ContainsFullScreenElement: Boolean);
663656
begin
@@ -670,6 +663,7 @@ procedure TformMain.EdgeGoogleMapViewerContainsFullScreenElementChanged(
670663
initialization
671664
//Setup UserDataFolder for Temp files
672665
TEdgeGoogleMapViewer.RegisterUserDataFolder(System.IOUtils.TPath.GetTempPath+ExtractFileName(ParamStr(0)));
666+
673667
//Use your Google API Key to setup the viewer
674668
//TEdgeGoogleMapViewer.RegisterGoogleMapsApiKey('xyz');
675669

‎Images/Setup.png‎

42.7 KB
Loading

‎Images/SupportingDelphi.jpg‎

1.29 KB
Loading

‎Packages/D12/DelphiGoogleMap.dproj‎

Lines changed: 0 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -40,12 +40,6 @@
4040
<CfgParent>Base</CfgParent>
4141
<Base>true</Base>
4242
</PropertyGroup>
43-
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
44-
<Cfg_2_Win32>true</Cfg_2_Win32>
45-
<CfgParent>Cfg_2</CfgParent>
46-
<Cfg_2>true</Cfg_2>
47-
<Base>true</Base>
48-
</PropertyGroup>
4943
<PropertyGroup Condition="'$(Base)'!=''">
5044
<DCC_DcuOutput>..\..\Lib\D12\$(Platform)\$(Config)</DCC_DcuOutput>
5145
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
@@ -91,9 +85,6 @@
9185
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
9286
<DCC_DebugInformation>0</DCC_DebugInformation>
9387
</PropertyGroup>
94-
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
95-
<DCC_Description>Ethea Google Maps Viewer Component</DCC_Description>
96-
</PropertyGroup>
9788
<ItemGroup>
9889
<DelphiCompile Include="$(MainSource)">
9990
<MainSource>MainSource</MainSource>

‎Packages/D12/dclDelphiGoogleMap.dproj‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -34,12 +34,6 @@
3434
<CfgParent>Base</CfgParent>
3535
<Base>true</Base>
3636
</PropertyGroup>
37-
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
38-
<Cfg_2_Win32>true</Cfg_2_Win32>
39-
<CfgParent>Cfg_2</CfgParent>
40-
<Cfg_2>true</Cfg_2>
41-
<Base>true</Base>
42-
</PropertyGroup>
4337
<PropertyGroup Condition="'$(Base)'!=''">
4438
<DCC_DcuOutput>..\..\Lib\D12\$(Platform)\$(Config)</DCC_DcuOutput>
4539
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>

‎Packages/D13/DelphiGoogleMap.dpk‎

Lines changed: 69 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,69 @@
1+
{******************************************************************************}
2+
{ }
3+
{ Delphi Google Map Viewer }
4+
{ }
5+
{ Copyright (c) 2021-2025 (Ethea S.r.l.) }
6+
{ Author: Carlo Barazzetta }
7+
{ Contributors: }
8+
{ littleearth (https://github.com/littleearth) }
9+
{ tbegsr (https://github.com/tbegsr) }
10+
{ }
11+
{ https://github.com/EtheaDev/DelphiGoogleMap }
12+
{ }
13+
{******************************************************************************}
14+
{ }
15+
{ Licensed under the Apache License, Version 2.0 (the "License"); }
16+
{ you may not use this file except in compliance with the License. }
17+
{ You may obtain a copy of the License at }
18+
{ }
19+
{ http://www.apache.org/licenses/LICENSE-2.0 }
20+
{ }
21+
{ Unless required by applicable law or agreed to in writing, software }
22+
{ distributed under the License is distributed on an "AS IS" BASIS, }
23+
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
24+
{ See the License for the specific language governing permissions and }
25+
{ limitations under the License. }
26+
{ }
27+
{******************************************************************************}
28+
package DelphiGoogleMap;
29+
30+
{$R *.res}
31+
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
32+
{$ALIGN 8}
33+
{$ASSERTIONS ON}
34+
{$BOOLEVAL OFF}
35+
{$DEBUGINFO OFF}
36+
{$EXTENDEDSYNTAX ON}
37+
{$IMPORTEDDATA ON}
38+
{$IOCHECKS ON}
39+
{$LOCALSYMBOLS OFF}
40+
{$LONGSTRINGS ON}
41+
{$OPENSTRINGS ON}
42+
{$OPTIMIZATION ON}
43+
{$OVERFLOWCHECKS OFF}
44+
{$RANGECHECKS OFF}
45+
{$REFERENCEINFO OFF}
46+
{$SAFEDIVIDE OFF}
47+
{$STACKFRAMES OFF}
48+
{$TYPEDADDRESS OFF}
49+
{$VARSTRINGCHECKS ON}
50+
{$WRITEABLECONST OFF}
51+
{$MINENUMSIZE 1}
52+
{$IMAGEBASE $400000}
53+
{$DEFINE RELEASE}
54+
{$ENDIF IMPLICITBUILDING}
55+
{$DESCRIPTION 'Ethea Google Maps Viewer Component'}
56+
{$LIBSUFFIX AUTO}
57+
{$RUNONLY}
58+
{$IMPLICITBUILD OFF}
59+
60+
requires
61+
rtl,
62+
vcl,
63+
vcledge,
64+
RESTComponents;
65+
66+
contains
67+
Vcl.GoogleMap in '..\..\Source\Vcl.GoogleMap.pas';
68+
69+
end.

0 commit comments

Comments
 (0)