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

@@ -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

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;