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

LCL: TComboBox: make tabbing Delphi compatible. Issue #31247

Browse Source 
git-svn-id: trunk@54045 -
This commit is contained in:
michl 2017-01-31 20:17:42 +00:00
parent 0110190851
commit 7650468f69
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/customcombobox.inc
View File

@ -477,7 +477,7 @@ var
begin
Skip := False;
UserDropDown := ((Shift *[ssAlt] = [ssAlt]) and (Key = VK_DOWN));
PreventDropDown := Key in [VK_TAB, VK_RETURN, VK_ESCAPE];
PreventDropDown := Key in [VK_TAB, VK_RETURN, VK_ESCAPE, VK_SHIFT, VK_MENU];
if PreventDropDown then
begin
if DroppedDown then Key := VK_UNKNOWN; //prevent execution of DefaultAction (Delphi compatibility)