mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Process only VK_RETURN key

Browse source
This commit is contained in:
Alexander Koblov 2017-06-18 13:28:13 +00:00
commit 07e002e4b4
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fFindDlg.pas
View file

@ -1737,12 +1737,15 @@ end;
procedure TfrmFindDlg.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Sender = lsFoundedFiles) then
TCustomListBox(Sender).OnKeyDown(Sender, Key, Shift)
else if (Sender is TCustomButton) and (Screen.ActiveForm = Self) then
if Key = VK_RETURN then
begin
TCustomButton(Sender).Click;
Key:= 0;
if (Sender = lsFoundedFiles) then
TCustomListBox(Sender).OnKeyDown(Sender, Key, Shift)
else if (Sender is TCustomButton) and (Screen.ActiveForm = Self) then
begin
TCustomButton(Sender).Click;
Key:= 0;
end;
end;
end;
{$ENDIF}