From 14861b18e3f0b0e0b7c29c63e008da3a3fdaaf50 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Fri, 28 Jan 2022 12:43:20 +0200
Subject: [PATCH] LCL: Do not InvalidateSelected in MultiSelect virtual
 TListView. Part of issue #39324.

(cherry picked from commit 082d051466dc04a269d3b3113f669cb97e7f30f2)
---
 lcl/include/customlistview.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/include/customlistview.inc b/lcl/include/customlistview.inc
index b4171719e7..744e5c8caf 100644
--- a/lcl/include/customlistview.inc
+++ b/lcl/include/customlistview.inc
@@ -356,7 +356,8 @@ begin
                   InvalidateSelected
               end else
                 if (nm^.iItem < 0) or (nm^.iItem = FSelectedIdx) then
-                  InvalidateSelected;
+                  if not MultiSelect then
+                    InvalidateSelected;
             end else
             begin
               FSelected := Item;