From 897ddc96eb475df7e19b08dab707f1072de2c63a Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 12 Oct 2016 11:05:07 +0000
Subject: [PATCH] LCL-Win32: Throw error when a sorted TCheckListBox item is
 replaced. Issue #30004, patch from Michl.

git-svn-id: trunk@53100 -
---
 lcl/interfaces/win32/win32int.pp     | 2 +-
 lcl/interfaces/win32/win32listsl.inc | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index 8a11d7c423..8a8f5398b7 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -33,7 +33,7 @@ uses
   Translations, Controls, Buttons,
   LCLIntf, LclProc, LazUTF8, LCLType, LMessages,
   Forms, Dialogs, GraphMath, GraphType, InterfaceBase,
-  StdCtrls, SysUtils, Win32Def, Graphics, Menus, CommCtrl, ComCtrls,
+  StdCtrls, SysUtils, RtlConsts, Win32Def, Graphics, Menus, CommCtrl, ComCtrls,
   MultiMon, Themes{, Win32Debug};
 
 const
diff --git a/lcl/interfaces/win32/win32listsl.inc b/lcl/interfaces/win32/win32listsl.inc
index 6a6bc0320a..718ed569d9 100644
--- a/lcl/interfaces/win32/win32listsl.inc
+++ b/lcl/interfaces/win32/win32listsl.inc
@@ -238,6 +238,8 @@ var
   lSelected: Boolean;
   AData: Pointer;
 begin
+  if Sorted then
+    Error(SSortedListError,0);
   // remember selection
   lSelected := False;
   lItemIndex := -1;