paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Deprecate also TRealPoint.Init in favour of TRealPoint.InitXY and TRealPoint.InitLatLon

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9299 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-03-29 09:15:14 +00:00
parent d0103c8182
commit f2e3491fa5
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazmapviewer/examples/fulldemo/MapViewer_Demo.lpi
View File

@ -85,7 +85,7 @@
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>

16
components/lazmapviewer/source/mvtypes.pas
View File

@ -39,7 +39,9 @@ Type
function GetLatRad: Extended;
procedure SetLatRad(AValue: Extended);
public
procedure Init(ALon, ALat: Double);
procedure Init(ALon, ALat: Double); deprecated 'Use InitXY or InitLatLon';
procedure InitXY(ALon, ALat: Double);
procedure InitLatLon(ALat, ALon: Double);
property LonRad: Extended read GetLonRad write SetLonRad;
property LatRad: Extended read GetLatRad write SetLatRad;
end;
@ -242,6 +244,18 @@ begin
Lat := ALat;
end;
procedure TRealPoint.InitXY(ALon, ALat: Double);
begin
Lon := ALon;
Lat := ALat;
end;
procedure TRealPoint.InitLatLon(ALat, ALon: Double);
begin
Lat := ALat;
Lon := ALon;
end;
function TRealPoint.GetLonRad: Extended;
begin
Result := DegToRad(Self.Lon);