IDE: make Close button work in Window Manager

git-svn-id: trunk@37285 -

ide/editorfilemanager.lfm

@@ -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

ide/editorfilemanager.pas

@@ -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;