Commit 01b55f14 authored by Bart B's avatar Bart B 🐞
Browse files

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

git-svn-id: trunk@47993 -
parent 62711a2b
......@@ -302,7 +302,7 @@ begin
if (Key = VK_SPACE) and (Shift=[]) then
begin
//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
ItemIndex := 0;
Click;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment