From aab03a56d2d426e64d677623e1433c32aafb30f8 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 18 Jun 2018 21:57:53 +0000
Subject: [PATCH] LCL-Win32: Exchange also items' images in TListView. Issue
 #33870, patch from Serge Anvarov.

git-svn-id: trunk@58316 -
---
 lcl/interfaces/win32/win32wscustomlistview.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc
index 874c8a9d9b..1a733ddbf9 100644
--- a/lcl/interfaces/win32/win32wscustomlistview.inc
+++ b/lcl/interfaces/win32/win32wscustomlistview.inc
@@ -543,6 +543,8 @@ begin
 
   LVItemAssign(ALV, AItem1, AIndex2);
   LVItemAssign(ALV, AItem2, AIndex1);
+  ItemSetImage(ALV, AIndex1, AItem2, 0, AItem2.ImageIndex);
+  ItemSetImage(ALV, AIndex2, AItem1, 0, AItem1.ImageIndex);
 end;
 
 class procedure TWin32WSCustomListView.ItemMove(const ALV: TCustomListView;