paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Throw error when a sorted TCheckListBox item is replaced. Issue #30004, patch from Michl.

Browse Source 
git-svn-id: trunk@53100 -
This commit is contained in:
juha 2016-10-12 11:05:07 +00:00
parent 7fc07f3753
commit 897ddc96eb
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32int.pp
View File

@ -33,7 +33,7 @@ uses
Translations, Controls, Buttons, Translations, Controls, Buttons,
LCLIntf, LclProc, LazUTF8, LCLType, LMessages, LCLIntf, LclProc, LazUTF8, LCLType, LMessages,
Forms, Dialogs, GraphMath, GraphType, InterfaceBase, Forms, Dialogs, GraphMath, GraphType, InterfaceBase,
StdCtrls, SysUtils, Win32Def, Graphics, Menus, CommCtrl, ComCtrls, StdCtrls, SysUtils, RtlConsts, Win32Def, Graphics, Menus, CommCtrl, ComCtrls,
MultiMon, Themes{, Win32Debug}; MultiMon, Themes{, Win32Debug};
const const

2
lcl/interfaces/win32/win32listsl.inc
View File

@ -238,6 +238,8 @@ var
lSelected: Boolean; lSelected: Boolean;
AData: Pointer; AData: Pointer;
begin begin
if Sorted then
Error(SSortedListError,0);
// remember selection // remember selection
lSelected := False; lSelected := False;
lItemIndex := -1; lItemIndex := -1;