pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazmapviewer: Use E/W and N/S suffixes to GPS coordinates.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6868 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-25 19:42:50 +00:00
parent fb276886e4
commit efd629624c
5 changed files with 64 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazmapviewer/example/gpslistform.pas
View File

@ -46,7 +46,7 @@ implementation
{$R *.lfm}
uses
mvTypes;
mvTypes, mvEngine;
destructor TGPSListViewer.Destroy;
begin
@ -55,8 +55,6 @@ begin
end;
procedure TGPSListViewer.Populate;
const
GPS_FORMAT = '0.00000°';
var
i: Integer;
item: TListItem;
@ -80,8 +78,8 @@ begin
// item.Caption := IntToStr(gpsObj.ID);
if gpsObj is TGpsPoint then begin
item.SubItems.Add(gpsObj.Name);
item.Subitems.Add(FormatFloat(GPS_FORMAT, TGpsPoint(gpsObj).Lat));
item.Subitems.Add(FormatFloat(GPS_FORMAT, TGpsPoint(gpsObj).Lon));
item.Subitems.Add(LatToStr(TGpsPoint(gpsObj).Lat, true));
item.Subitems.Add(LonToStr(TGpsPoint(gpsObj).Lon, true));
end;
end;
finally