- Version 1.1.0

- Added method to register UserDataFolder: TEdgeGoogleMapViewer.RegisterUserDataFolder
- Added Event Handler BeforeInitMap
- Added a secondary form to Demo (to test multiple instance of component)

Author: carloBarazzetta

Demo/GoogleMaps/GoogleMapsTest.dpr

@@ -4,7 +4,8 @@ uses
   Forms,
   MIdasLib,
   MainForm in 'MainForm.pas' {formMain},
-  Vcl.GoogleMap in '..\..\Source\Vcl.GoogleMap.pas';
+  Vcl.GoogleMap in '..\..\Source\Vcl.GoogleMap.pas',
+  SecondaryForm in 'SecondaryForm.pas' {FormSecondary};
 
 {$R *.res}
 

Demo/GoogleMaps/GoogleMapsTest.dproj

@@ -181,7 +181,7 @@ object formMain: TformMain
         TabOrder = 2
       end
       object ButtonGotoAddress: TButton
-        Left = 177
+        Left = 178
         Top = 29
         Width = 99
         Height = 44
@@ -291,7 +291,7 @@ object formMain: TformMain
       end
       object ButtonRouteLatLng: TButton
         Left = 157
-        Top = 117
+        Top = 121
         Width = 107
         Height = 25
         Caption = 'Route by locations'
@@ -317,15 +317,25 @@ object formMain: TformMain
         TabOrder = 7
       end
       object ButtonRouteByAddress: TButton
-        Left = 332
-        Top = 117
+        Left = 334
+        Top = 119
         Width = 116
         Height = 25
         Caption = 'Route by Addresses'
         TabOrder = 8
         OnClick = ButtonRouteByAddressClick
       end
     end
+    object Button1: TButton
+      Left = 879
+      Top = 6
+      Width = 77
+      Height = 47
+      Caption = 'Show another form...'
+      TabOrder = 3
+      WordWrap = True
+      OnClick = Button1Click
+    end
   end
   object EdgeGoogleMapViewer: TEdgeGoogleMapViewer
     Left = 0

Demo/GoogleMaps/MainForm.dfm

@@ -69,6 +69,7 @@   TformMain = class(TForm)
     FileEdit: TLabeledEdit;
     LoadTableButton: TButton;
     Splitter1: TSplitter;
+    Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure ButtonGotoAddressClick(Sender: TObject);
     procedure ButtonGotoLocationClick(Sender: TObject);
@@ -87,8 +88,8 @@   TformMain = class(TForm)
     procedure LoadTableButtonClick(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure EdgeGoogleMapViewerBeforeShowMap(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
   private
-    FApiKey: string;
   public
     { Public declarations }
   end;
@@ -99,7 +100,7 @@   TformMain = class(TForm)
 implementation
 
 uses
-  Vcl.Dialogs;
+  Vcl.Dialogs, SecondaryForm;
 
 {$R *.dfm}
 
@@ -208,6 +209,13 @@ procedure TformMain.ButtonRouteLatLngClick(Sender: TObject);
   EdgeGoogleMapViewer.RouteByLocations;
 end;
 
+procedure TformMain.Button1Click(Sender: TObject);
+var
+  LFormSecondary: TFormSecondary;
+begin
+  Application.CreateForm(TFormSecondary, LFormSecondary);
+end;
+
 procedure TformMain.ButtonClearMarkersClick(Sender: TObject);
 begin
   EdgeGoogleMapViewer.ClearMarkers;
@@ -235,19 +243,24 @@ procedure TformMain.CheckBoxTrafficClick(Sender: TObject);
  end;
 
 procedure TformMain.EdgeGoogleMapViewerBeforeShowMap(Sender: TObject);
+var
+  LApiKey: string;
 begin
   //If you have a Google API Key it's time to setup
-  //TEdgeGoogleMapViewer.RegisterGoogleMapsApiKey('xyz');
+  TEdgeGoogleMapViewer.RegisterGoogleMapsApiKey('AIzaSyBNY0ARa4GdRU4LrOKfk9hpNp96yM3dgHg');
 
   //The demo requires to input the API Key: it's only for testing!
-  if FApiKey = '' then
+  if TEdgeGoogleMapViewer.ApiKey = '' then
   begin
-    if InputQuery('Activate Google Maps API','Insert Google Maps API Key:', FApiKey) then
-       TEdgeGoogleMapViewer.RegisterGoogleMapsApiKey(FApiKey);
+    if InputQuery('Activate Google Maps API','Insert Google Maps API Key:', LApiKey) then
+       TEdgeGoogleMapViewer.RegisterGoogleMapsApiKey(LApiKey);
   end;
 end;
 
 initialization
+  //Setup UserDataFolder for Temp files
+  TEdgeGoogleMapViewer.RegisterUserDataFolder(ExtractFilePath(ParamStr(0))+'..\..\CacheTempFolder\');
+
   ReportMemoryLeaksOnShutdown := DebugHook <> 0;
 
 end.