From 2388ef8a3d44b4ac39f91f66d07a6424651b9a14 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 30 Sep 2021 22:18:20 +0000
Subject: [PATCH] LazMapViewer: Add missing GPSItems.Lock/Unlock to DrawTrack
 method.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8108 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/lazmapviewer/source/mvmapviewer.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas
index 52095370f..4a7858c2b 100644
--- a/components/lazmapviewer/source/mvmapviewer.pas
+++ b/components/lazmapviewer/source/mvmapviewer.pas
@@ -616,8 +616,11 @@ var
   trkColor: TColor;
   trkWidth: Integer;
 begin
-  if trk.Visible and (trk.Points.Count > 0) then
-  begin
+  if not trk.Visible or (trk.Points.Count = 0) then
+    exit;
+
+  GPSItems.Lock;
+  try
     // Determine track color
     if trk.LineColor = clDefault then
     begin
@@ -657,6 +660,8 @@ begin
         LastInside := IsInside;
       end;
     end;
+  finally
+    GPSItems.Unlock;
   end;
 end;