diff --git a/src/aprsmap.lps b/src/aprsmap.lps
index 00bbeb2..0e2058b 100644
--- a/src/aprsmap.lps
+++ b/src/aprsmap.lps
@@ -17,7 +17,9 @@
-
+
+
+
@@ -52,8 +54,8 @@
-
-
+
+
@@ -69,10 +71,9 @@
-
-
+
@@ -145,50 +146,6 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -265,6 +222,50 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/uaprs.pas b/src/uaprs.pas
index 590324d..98dc802 100644
--- a/src/uaprs.pas
+++ b/src/uaprs.pas
@@ -15,7 +15,7 @@ procedure ConvertNMEAToLatLong(const NMEALat, NMEALon: string; out Latitude, Lon
function GetImageIndex(const Symbol, IconPrimary: String):Byte;
function LatLonToLocator(const Latitude, Longitude: Double): string;
function FindGPSItem(Layer: TMapLayer; const Call: String):TGPSObj;
-function FindGPSItem(Layer: TMapLayer; const x, y: Integer):TPointOfInterest;
+function FindGPSItem(Layer: TMapLayer; const x, y: Integer):TMapPointOfInterest;
function GetAltitude(const Text: String):Integer;
function GetCourse(const Text: String):Integer;
function GetSpeed(const Text: String):Integer;
@@ -56,11 +56,11 @@ function LatLonToLocator(const Latitude, Longitude: Double): string;
end;
-function FindGPSItem(Layer: TMapLayer; const x, y: Integer):TPointOfInterest;
+function FindGPSItem(Layer: TMapLayer; const x, y: Integer):TMapPointOfInterest;
var
p: TRealPoint;
i, count: Integer;
- poi: TPointOfInterest;
+ poi: TMapPointOfInterest;
Tolerance: Double;
begin
count := Layer.PointsOfInterest.Count;
@@ -110,9 +110,9 @@ function FindGPSItem(Layer: TMapLayer; const Call: String):TGPSObj;
procedure SetPoi(Layer: TMapLayer; Message: PAPRSMessage; List: TGPSObjectList);
-var poi: TPointOfInterest;
+var poi: TMapPointOfInterest;
begin
- poi := Layer.PointsOfInterest.Add as TPointOfInterest;
+ poi := Layer.PointsOfInterest.Add as TMapPointOfInterest;
poi.Longitude := Message^.Longitude;
poi.Latitude := Message^.Latitude;
poi.Caption := Message^.FromCall;
@@ -121,9 +121,9 @@ procedure SetPoi(Layer: TMapLayer; Message: PAPRSMessage; List: TGPSObjectList);
end;
procedure SetPoI(Layer: TMapLayer; const Latitude, Longitude: Double; const Text: String; const visibility: Boolean; const ImageIndex: Integer; List: TGPSObjectList);
-var poi: TPointOfInterest;
+var poi: TMapPointOfInterest;
begin
- poi := Layer.PointsOfInterest.Add as TPointOfInterest;
+ poi := Layer.PointsOfInterest.Add as TMapPointOfInterest;
poi.Longitude := Longitude;
poi.Latitude := Latitude;
poi.Caption := Text;
diff --git a/src/umain.pas b/src/umain.pas
index e9c7b2f..adbf05a 100644
--- a/src/umain.pas
+++ b/src/umain.pas
@@ -215,7 +215,7 @@ procedure TFMain.MIFileExitClick(Sender: TObject);
procedure TFMain.MVMapMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
-var poi: TPointOfInterest;
+var poi: TMapPointOfInterest;
i, count, curZoom: Integer;
begin
poi := FindGPSItem(PoILayer, x, y);