Changeset 129 for trunk/UTrack.pas

Timestamp:

May 1, 2023, 11:40:29 AM (13 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/UTrack.pas (modified) (2 diffs)

trunk/UTrack.pas

@@ -64 +64 @@
     class function GetClassSysName: string; override;
     function CreateItem: TTrackPoint; override;
+    procedure ResetToDesignatedPosition;
   end;
 
@@ -240 +241 @@
 end;
 
+procedure TTrackPoints.ResetToDesignatedPosition;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    Items[I].Position := Items[I].PositionDesigned;
+end;
+
 { TTrack }