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

IDE: Restore Ctrl-Enter shortcut in IdoOptionsDlg. Tweak the hint. Issue #40234.

Browse Source
This commit is contained in:
Juha 2024-11-16 20:55:59 +02:00
parent 94bd8f9aae
commit d15afa2c7e
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/ideoptionsdlg.lfm
View File

@ -24,7 +24,7 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BorderSpacing.Around = 0 BorderSpacing.Around = 0
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Hint = '[Enter]' OKButton.Hint = '[Enter,Ctrl+Enter]'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.Hint = '[F1]' HelpButton.Hint = '[F1]'

5
ide/ideoptionsdlg.pas
View File

@ -366,6 +366,11 @@ begin
CancelButtonClick(Sender); CancelButtonClick(Sender);
Key := 0; Key := 0;
end end
else if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
begin
OkButtonClick(Sender);
Key := 0;
end
else if (Key = VK_RETURN) and (Shift = [ssShift]) then else if (Key = VK_RETURN) and (Shift = [ssShift]) then
begin begin
ApplyButtonClick(Sender); ApplyButtonClick(Sender);