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

IDE: close source editor window manager with Esc key. Issue #25684.

Browse Source 
git-svn-id: trunk@43944 -
This commit is contained in:
juha 2014-02-07 23:15:40 +00:00
parent a35e939108
commit 2a4cc692f8
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/editorfilemanager.lfm
View File

@ -7,9 +7,11 @@ object EditorFileManagerForm: TEditorFileManagerForm
Caption = 'EditorFileManagerForm'
ClientHeight = 380
ClientWidth = 722
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
Position = poScreenCenter
LCLVersion = '1.1'
LCLVersion = '1.3'
object CheckListBox1: TCheckListBox
AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom
@ -29,7 +31,6 @@ object EditorFileManagerForm: TEditorFileManagerForm
OnKeyDown = CheckListBox1KeyDown
PopupMenu = PopupMenu1
TabOrder = 0
TopIndex = -1
end
object ButtonPanel1: TButtonPanel
Left = 6

7
ide/editorfilemanager.pas
View File

@ -38,6 +38,7 @@ type
procedure CheckListBox1KeyPress(Sender: TObject; var Key: char);
procedure CloseButtonClick(Sender: TObject);
procedure DoEditorsChanged(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure HelpButtonClick(Sender: TObject);
procedure MoveDownBtnClick(Sender: TObject);
procedure MoveUpBtnClick(Sender: TObject);
@ -253,6 +254,12 @@ begin
PopulateList;
end;
procedure TEditorFileManagerForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_ESCAPE) and (Shift = []) then
Close;
end;
procedure TEditorFileManagerForm.HelpButtonClick(Sender: TObject);
begin
LazarusHelp.ShowHelpForIDEControl(Self);