Commit ca3cbe03 authored by Juha Manninen's avatar Juha Manninen
Browse files

IDE: make Close button work in Window Manager

git-svn-id: trunk@37285 -
parent d3df1f45
......@@ -9,7 +9,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
ClientWidth = 722
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object CheckListBox1: TCheckListBox
AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom
......@@ -41,6 +41,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.OnClick = CloseButtonClick
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
......
......@@ -35,6 +35,7 @@ type
procedure CheckListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure CheckListBox1KeyPress(Sender: TObject; var Key: char);
procedure CloseButtonClick(Sender: TObject);
procedure DoEditorsChanged(Sender: TObject);
procedure MoveDownBtnClick(Sender: TObject);
procedure MoveUpBtnClick(Sender: TObject);
......@@ -240,6 +241,11 @@ begin
ActivateButtonClick(nil);
end;
procedure TEditorFileManagerForm.CloseButtonClick(Sender: TObject);
begin
Close;
end;
procedure TEditorFileManagerForm.DoEditorsChanged(Sender: TObject);
begin
PopulateList;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment