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

LCL: In TComboBox, after pressing Enter call EditingDone. Issue #20782

Browse Source 
git-svn-id: trunk@33889 -
This commit is contained in:
juha 2011-12-01 15:04:28 +00:00
parent 65c761d560
commit bf07765fd5
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customcombobox.inc
View File

@ -1028,6 +1028,13 @@ begin
Select;
end;
procedure TCustomComboBox.KeyUpAfterInterface(var Key: Word; Shift: TShiftState);
begin
inherited KeyUpAfterInterface(Key, Shift);
if Key = VK_RETURN then
EditingDone;
end;
{------------------------------------------------------------------------------
procedure TCustomComboBox.CNCommand(var TheMessage: TLMCommand);

1
lcl/stdctrls.pp
View File

@ -297,6 +297,7 @@ type
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
procedure LMMeasureItem(var TheMessage: TLMMeasureItem); message LM_MeasureItem;
procedure LMSelChange(var TheMessage); message LM_SelChange;
procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
procedure CNCommand(var TheMessage: TLMCommand); message CN_Command;
procedure SetReadOnly(const AValue: Boolean);
procedure UpdateSorted;