paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed Alt+TAB When TCheckComboBox is dropped down. Patch by Serge Anvarov. Issue #37839

Browse Source 
git-svn-id: trunk@63941 -
This commit is contained in:
zeljko 2020-09-30 07:58:34 +00:00
parent dcb1871753
commit 35ba577ed4
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/include/comboex.inc
View File

@ -805,7 +805,7 @@ begin
{$ENDIF}
if not FRejectToggleOnSelect then
begin
if ItemEnabled[ItemIndex] then Toggle(ItemIndex);
if (ItemIndex >= 0) and ItemEnabled[ItemIndex] then Toggle(ItemIndex);
FRejectToggleOnSelect:=True;
end;
FDropped:=False;