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

Designer: AskCompNameDlg: Ctrl+Enter applies dialog: remove added NL

Browse Source 
git-svn-id: trunk@58268 -
This commit is contained in:
ondrej 2018-06-14 12:26:06 +00:00
parent 899367e92f
commit 265408a5af
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/askcompnamedlg.pas
View File

@ -204,7 +204,10 @@ procedure TAskCompNameDialog.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
if (Key=VK_RETURN) and (ssCtrl in Shift) then if (Key=VK_RETURN) and (ssCtrl in Shift) then
begin
Key := 0;
ButtonPanel1.OKButton.Click; ButtonPanel1.OKButton.Click;
end;
end; end;
function TAskCompNameDialog.GetNewText: string; function TAskCompNameDialog.GetNewText: string;