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

IDE: Add [Ctrl+Enter] shortcut to "OK" button in "TStrings" property editor

Browse Source
This commit is contained in:
n7800 2025-06-25 00:34:00 +05:00 committed by Maxim Ganetsky
parent 855b1803db
commit 09646d2f39
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/stringspropeditdlg.lfm
View File

@ -9,9 +9,11 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
ClientWidth = 400 ClientWidth = 400
Constraints.MinHeight = 160 Constraints.MinHeight = 160
Constraints.MinWidth = 180 Constraints.MinWidth = 180
KeyPreview = True
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown
object TextGroupBox: TGroupBox object TextGroupBox: TGroupBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -111,13 +113,17 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
Top = 258 Top = 258
Width = 388 Width = 388
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Hint = '[Ctrl+Enter]'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
OKButton.ShowHint = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.Hint = '[Esc]'
CancelButton.DefaultCaption = True CancelButton.DefaultCaption = True
CancelButton.ShowHint = True
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]
ShowBevel = False ShowBevel = False

12
components/ideintf/stringspropeditdlg.pas
View File

@ -18,7 +18,7 @@ interface
uses uses
SysUtils, SysUtils,
// LCL // LCL
Forms, Controls, StdCtrls, ButtonPanel, Dialogs, Forms, Controls, StdCtrls, ButtonPanel, Dialogs, LCLType,
// LazUtils // LazUtils
LazUTF8, LazUTF8,
// IdeIntf // IdeIntf
@ -40,6 +40,7 @@ type
procedure ClearButtonClick(Sender: TObject); procedure ClearButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure MemoChange(Sender: TObject); procedure MemoChange(Sender: TObject);
procedure SaveButtonClick(Sender: TObject); procedure SaveButtonClick(Sender: TObject);
procedure SortButtonClick(Sender: TObject); procedure SortButtonClick(Sender: TObject);
@ -65,6 +66,15 @@ begin
IDEDialogLayoutList.ApplyLayout(Self); IDEDialogLayoutList.ApplyLayout(Self);
end; end;
procedure TStringsPropEditorFrm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
begin
ModalResult := mrOK;
Key := 0;
end;
end;
procedure TStringsPropEditorFrm.FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure TStringsPropEditorFrm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin begin
IDEDialogLayoutList.SaveLayout(Self); IDEDialogLayoutList.SaveLayout(Self);