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

TCheckListBox: when user presses spacebar:

Browse Source 
- if ItemIndex = -1: set it to 0 and fire OnClick;
- fire OnClickCheck.
Issue #0024695.

git-svn-id: trunk@47992 -
This commit is contained in:
bart 2015-02-25 18:10:25 +00:00
parent 82b49e8841
commit 62711a2bb8
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/checklst.pas
View File

@ -299,12 +299,23 @@ procedure TCustomCheckListBox.KeyDown(var Key: Word; Shift: TShiftState);
var
Index: Integer;
begin
if (Key = VK_SPACE) and (Shift=[]) and (ItemIndex >= 0) and ItemEnabled[ItemIndex] then
if (Key = VK_SPACE) and (Shift=[]) then
begin
Index := ItemIndex;
Checked[Index] := not Checked[Index];
ItemClick(Index);
Key := VK_UNKNOWN;
//Delphi (7) sets ItemIndex to 0 in this case and fires OnClick
if (ItemIndex < 0) and (Items.Count >= 0) then
begin
ItemIndex := 0;
Click;
end;
if (ItemIndex >= 0) and ItemEnabled[ItemIndex] then
begin
Index := ItemIndex;
Checked[Index] := not Checked[Index];
ClickCheck;
//ToDo: does Delphi fire OnItemClick and in the same order?
ItemClick(Index);
Key := VK_UNKNOWN;
end;
end else
inherited KeyDown(Key,Shift);
end;