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

LazMapViewer: Added TMapPoint.AssignTo methods.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9296 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alpine-a110 2024-03-28 23:20:17 +00:00
parent 1962802720
commit 5e78c55b9f
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -223,6 +223,7 @@ type
public public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
destructor Destroy; override; destructor Destroy; override;
procedure AssignTo(Dest: TPersistent); override;
property LatLonInDMS: Boolean read GetLatLonInDMS; property LatLonInDMS: Boolean read GetLatLonInDMS;
property ToScreen: TPoint read GetToScreen; property ToScreen: TPoint read GetToScreen;
published published
@ -243,6 +244,8 @@ type
function GPSTrack: TGPSTrack; function GPSTrack: TGPSTrack;
function CreatePoint: TGPSPoint; override; function CreatePoint: TGPSPoint; override;
procedure DestroyPoint; override; procedure DestroyPoint; override;
public
procedure AssignTo(Dest: TPersistent); override;
published published
property Mark: TSegmentExtraData.TSegmentMark read FMark write SetMark stored MarkIsStored; property Mark: TSegmentExtraData.TSegmentMark read FMark write SetMark stored MarkIsStored;
end; end;
@ -270,6 +273,7 @@ type
procedure DestroyPoint; override; procedure DestroyPoint; override;
public public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
procedure AssignTo(Dest: TPersistent); override;
published published
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1; property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property OnDrawPoint: TPointOfInterestDrawEvent read FOnDrawPoint write SetOnDrawPoint; property OnDrawPoint: TPointOfInterestDrawEvent read FOnDrawPoint write SetOnDrawPoint;
@ -665,6 +669,13 @@ begin
then Trk.Points.Remove(FPoint); then Trk.Points.Remove(FPoint);
end; end;
procedure TMapTrackPoint.AssignTo(Dest: TPersistent);
begin
inherited AssignTo(Dest);
if Dest is TMapTrackPoint then
TMapTrackPoint(Dest).Mark := Self.Mark;
end;
function TMapTrackPoint.MarkIsStored: Boolean; function TMapTrackPoint.MarkIsStored: Boolean;
begin begin
Result := FMark <> smNone; Result := FMark <> smNone;
@ -1077,6 +1088,20 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TMapPoint.AssignTo(Dest: TPersistent);
begin
if Dest is TMapPoint then
with TMapPoint(Dest) do
begin
Latitude := Self.Latitude;
Longitude := Self.Longitude;
Elevation := Self.Elevation;
DateTime := Self.DateTime;
end
else
inherited AssignTo(Dest);
end;
{ TPointOfInterest } { TPointOfInterest }
procedure TPointOfInterest.SetImageIndex(AValue: TImageIndex); procedure TPointOfInterest.SetImageIndex(AValue: TImageIndex);
@ -1128,6 +1153,13 @@ begin
FImageIndex := -1; FImageIndex := -1;
end; end;
procedure TPointOfInterest.AssignTo(Dest: TPersistent);
begin
inherited AssignTo(Dest);
if Dest is TPointOfInterest then
TPointOfInterest(Dest).ImageIndex := Self.ImageIndex;
end;
{ TMapCenter } { TMapCenter }
procedure TMapCenter.SetLongitude(AValue: Double); procedure TMapCenter.SetLongitude(AValue: Double);