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: ESC handle in Ask Dialog

Browse source
This commit is contained in:
rich2014 2023-07-26 21:52:24 +08:00
commit ab64636e64
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fMsg.pas
View file

@ -107,6 +107,7 @@ procedure TfrmMsg.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #27) and (Escape >= 0) then
begin
Key:= #0;
iSelected:= Escape;
Close;
end;