paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 00:35:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCheckListBox: fix possible crash introduced in r47992 #62711a2bb8.

Browse Source 
git-svn-id: trunk@47993 -
This commit is contained in:
bart 2015-02-25 19:10:32 +00:00
parent 62711a2bb8
commit 01b55f14dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/checklst.pas
View File

@ -302,7 +302,7 @@ begin
if (Key = VK_SPACE) and (Shift=[]) then if (Key = VK_SPACE) and (Shift=[]) then
begin begin
//Delphi (7) sets ItemIndex to 0 in this case and fires OnClick //Delphi (7) sets ItemIndex to 0 in this case and fires OnClick
if (ItemIndex < 0) and (Items.Count >= 0) then if (ItemIndex < 0) and (Items.Count > 0) then
begin begin
ItemIndex := 0; ItemIndex := 0;
Click; Click;