LazMapViewer: Save gps points in demo and reload as a gps track.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6911 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazmapviewer/example/gpslistform.lfm

@@ -1,17 +1,17 @@
 object GPSListViewer: TGPSListViewer
   Left = 282
-  Height = 352
+  Height = 356
   Top = 135
-  Width = 557
+  Width = 753
   Caption = 'GPS points'
-  ClientHeight = 352
+  ClientHeight = 356
-  ClientWidth = 557
+  ClientWidth = 753
   LCLVersion = '2.1.0.0'
   object ListView: TListView
     Left = 6
-    Height = 308
+    Height = 312
     Top = 6
-    Width = 545
+    Width = 741
     Align = alClient
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
@@ -41,13 +41,13 @@ object GPSListViewer: TGPSListViewer
   object Panel1: TPanel
     Left = 0
     Height = 38
-    Top = 314
+    Top = 318
-    Width = 557
+    Width = 753
     Align = alBottom
     AutoSize = True
     BevelOuter = bvNone
     ClientHeight = 38
-    ClientWidth = 557
+    ClientWidth = 753
     TabOrder = 1
     object BtnDeletePoint: TBitBtn
       AnchorSideLeft.Control = BtnGoToPoint
@@ -152,7 +152,7 @@ object GPSListViewer: TGPSListViewer
       AnchorSideTop.Control = Panel1
       AnchorSideRight.Control = Panel1
       AnchorSideRight.Side = asrBottom
-      Left = 476
+      Left = 672
       Height = 26
       Top = 6
       Width = 75
@@ -213,5 +213,45 @@ object GPSListViewer: TGPSListViewer
       OnClick = BtnCalcDistanceClick
       TabOrder = 3
     end
+    object BtnSavePts: TButton
+      AnchorSideLeft.Control = BtnCalcDistance
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
+      Left = 443
+      Height = 25
+      Top = 6
+      Width = 86
+      AutoSize = True
+      BorderSpacing.Around = 6
+      Caption = 'Save points'
+      OnClick = BtnSavePtsClick
+      TabOrder = 4
+    end
+    object BtnLoadTrack: TButton
+      AnchorSideLeft.Control = BtnSavePts
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
+      Left = 535
+      Height = 25
+      Top = 6
+      Width = 81
+      AutoSize = True
+      BorderSpacing.Around = 6
+      Caption = 'Load track'
+      OnClick = BtnLoadTrackClick
+      TabOrder = 5
+    end
+  end
+  object SaveDialog: TSaveDialog
+    DefaultExt = '.*.gps'
+    Filter = 'GPS points (*.gps)|*.gps|All files (*.*)|*.*'
+    left = 472
+    top = 256
+  end
+  object OpenDialog: TOpenDialog
+    DefaultExt = '.gps'
+    Filter = 'GPS points (*.gps)|*.gps|All files (*.*)|*.*'
+    left = 560
+    top = 256
   end
 end

components/lazmapviewer/example/gpslistform.pas

@@ -11,6 +11,7 @@ uses
 const
   // IDs of GPS items
   _CLICKED_POINTS_ = 10;
+  _TRACK_POINTS_ = 20;
 
 type
 
@@ -21,12 +22,18 @@ type
     BtnGoToPoint: TBitBtn;
     BtnClose: TBitBtn;
     BtnCalcDistance: TButton;
+    BtnSavePts: TButton;
+    BtnLoadTrack: TButton;
     ListView: TListView;
+    OpenDialog: TOpenDialog;
     Panel1: TPanel;
+    SaveDialog: TSaveDialog;
     procedure BtnCalcDistanceClick(Sender: TObject);
     procedure BtnCloseClick(Sender: TObject);
     procedure BtnDeletePointClick(Sender: TObject);
     procedure BtnGoToPointClick(Sender: TObject);
+    procedure BtnSavePtsClick(Sender: TObject);
+    procedure BtnLoadTrackClick(Sender: TObject);
   private
     FViewer: TMapView;
     FList: TGpsObjList;
@@ -78,7 +85,6 @@ begin
     for i:=0 to FList.Count-1 do begin
       gpsObj := FList[i];
       item := ListView.Items.Add;
-//      item.Caption := IntToStr(gpsObj.ID);
       if gpsObj is TGpsPoint then begin
         item.SubItems.Add(gpsObj.Name);
         item.Subitems.Add(LatToStr(TGpsPoint(gpsObj).Lat, true));
@@ -86,7 +92,7 @@ begin
       end;
     end;
   finally
-    ListView.items.EndUpdate;
+    ListView.Items.EndUpdate;
   end;
 end;
 
@@ -177,6 +183,90 @@ begin
   end;
 end;
 
+procedure TGPSListViewer.BtnSavePtsClick(Sender: TObject);
+var
+  i: Integer;
+  gpsPt: TGpsPoint;
+  gpsObj: TGpsObj;
+  L: TStrings;
+  s: String;
+begin
+  if (OpenDialog.FileName <> '') and (SaveDialog.FileName = '') then
+    SaveDialog.FileName := OpenDialog.FileName;
+  if SaveDialog.FileName <> '' then
+    SaveDialog.InitialDir := ExtractFileDir(SaveDialog.FileName);
+  if not SaveDialog.Execute then exit;
+
+  L := TStringList.Create;
+  try
+    s := 'Index'#9'Name'#9'Longitude'#9'Latitude';
+    L.Add(s);
+    for i:=0 to FList.Count-1 do begin
+      gpsObj := FList[i];
+      if gpsObj is TGpsPoint then begin
+        gpsPt := TGpsPoint(gpsObj);
+        s := Format('%d'#9'%s'#9'%s'#9'%s', [
+          i, gpsPt.Name, LonToStr(gpsPt.Lon, true), LatToStr(gpsPt.Lat, true)
+        ]);
+        L.Add(s);
+      end;
+      L.SaveToFile(SaveDialog.FileName);
+    end;
+  finally
+    L.Free;
+  end;
+end;
+
+procedure TGPSListViewer.BtnLoadTrackClick(Sender: TObject);
+var
+  L: TStrings;
+  gpsTrack: TGpsTrack;
+  gpsPt: TGpsPoint;
+  sa: TStringArray;
+  lon, lat: Double;
+  i: Integer;
+  item: TListItem;
+begin
+  if (SaveDialog.FileName <> '') and (OpenDialog.FileName = '') then
+    OpenDialog.FileName := SaveDialog.FileName;
+  if OpenDialog.FileName <> '' then
+    OpenDialog.InitialDir := ExtractFileDir(OpenDialog.FileName);
+  if not OpenDialog.Execute then exit;
+
+  gpsTrack := TGpsTrack.Create;
+  L := TStringList.Create;
+  try
+    L.LoadFromFile(OpenDialog.FileName);
+    for i := 1 to L.Count - 1 do begin  // i=1 --> skip header line
+      if L[i] = '' then Continue;
+      sa := L[i].Split(#9);
+      if TryStrToGps(sa[2], lon) and TryStrToGps(sa[3], lat) then begin
+        gpsPt := TGpsPoint.Create(lon, lat);
+        gpsPt.Name := sa[1];
+        gpsTrack.Points.Add(gpsPt);
+      end;
+    end;
+    FViewer.GPSItems.Add(gpsTrack, _TRACK_POINTS_);
+    FViewer.Center := gpsPt.RealPoint;
+  finally
+    L.Free;
+  end;
+
+  ListView.Items.BeginUpdate;
+  try
+    ListView.Items.Clear;
+    for i:=0 to gpsTrack.Points.Count - 1 do begin
+      gpsPt := gpsTrack.Points[i];
+      item := ListView.Items.Add;
+      item.SubItems.Add(gpsPt.Name);
+      item.SubItems.Add(LatToStr(gpsPt.Lat, true));
+      item.SubItems.Add(LonToStr(gpsPt.Lon, true));
+    end;
+  finally
+    ListView.Items.EndUpdate;
+  end;
+end;
+
 procedure TGPSListViewer.SetViewer(AValue: TMapView);
 begin
   if FViewer = AValue then

components/lazmapviewer/source/mvgpsobj.pas

@@ -63,7 +63,7 @@ type
     function GetLat: Double;
     function GetLon: Double;
   public
-    constructor Create(ALon,ALat : double;AEle : double=NO_ELE;ADateTime : TDateTime=NO_DATE);
+    constructor Create(ALon,ALat: double; AEle: double=NO_ELE; ADateTime: TDateTime=NO_DATE);
     class function CreateFrom(aPt: TRealPoint): TGPSPoint;
 
     procedure GetArea(out Area: TRealArea);override;

components/lazmapviewer/source/mvmapviewer.pas

@@ -64,7 +64,7 @@ Type
       procedure DoAsyncInvalidate({%H-}Data: PtrInt);
       procedure DrawObjects(const {%H-}TileId: TTileId; aLeft, aTop, aRight,aBottom: integer);
       procedure DrawPt(const {%H-}Area: TRealArea;aPOI: TGPSPoint);
-      procedure DrawTrack(const Area: TRealArea;trk: TGPSTrack);
+      procedure DrawTrack(const Area: TRealArea; trk: TGPSTrack);
       function GetCacheOnDisk: boolean;
       function GetCachePath: String;
       function GetCenter: TRealPoint;