Changeset 101 for trunk/UCore.pas

Timestamp:

Feb 8, 2022, 6:07:35 PM (3 years ago)

Author:

chronos

Message:

• Added: Buttons to show contact home and work addresses on online map. Predefined map uses openstreetmap.org.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -83 +83 @@
     LastContactFileName: string;
     LastPropertyValueFileName: string;
+    MapUrl: string;
     GenerateCount: Integer;
     ToolbarVisible: Boolean;
@@ -467 +468 @@
     GenerateCount := ReadIntegerWithDefault('GenerateCount', 1);
     DefaultVcardVersion := ReadStringWithDefault('DefaultVcardVersion', '2.1');
+    MapUrl := ReadStringWithDefault('MapUrl', 'https://www.openstreetmap.org/search?query=');
   finally
     Free;
@@ -494 +496 @@
     WriteInteger('GenerateCount', GenerateCount);
     WriteString('DefaultVcardVersion', DefaultVcardVersion);
+    WriteString('MapUrl', MapUrl);
   finally
     Free;