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);