IDE: Make Help button work in Editor Window Manager, issue #21961.

git-svn-id: trunk@37312 -

docs/IDEWindowHelpTree.xml

 <?xml version="1.0"?>
-<CONFIG Name="IDE windows and dialogs" Path="IDE_Window:_" ChildCount="60">
+<CONFIG Name="IDE windows and dialogs" Path="IDE_Window:_" ChildCount="61">
   <Node1 Name="TObjectInspector" Path="Object_Inspector" HasHelp="True"/>
   <Node2 Name="TfrmCompilerOptions" Path="Compiler_Options" IsRoot="True" HasHelp="True" ChildCount="1">
     <Node1 Name="MainNotebook" ChildCount="7">
@@ -163,4 +163,5 @@
   </Node58>
   <Node59 Name="TCleanBuildProjectDialog" Path="Clean_up_build_files_dialog" IsRoot="True" HasHelp="True"/>
   <Node60 Name="TNewPkgComponentDialog" Path="Create_new_package_component" IsRoot="True" HasHelp="True"/>
+  <Node61 Name="TEditorFileManagerForm" Path="Editor_Window_Manager" IsRoot="True" HasHelp="True"/>
 </CONFIG>

ide/editorfilemanager.lfm

@@ -39,6 +39,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
     OKButton.DefaultCaption = True
     HelpButton.Name = 'HelpButton'
     HelpButton.DefaultCaption = True
+    HelpButton.OnClick = HelpButtonClick
     CloseButton.Name = 'CloseButton'
     CloseButton.DefaultCaption = True
     CloseButton.OnClick = CloseButtonClick
@@ -52,11 +53,11 @@ object EditorFileManagerForm: TEditorFileManagerForm
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = ButtonPanel1
     Left = 536
-    Height = 334
+    Height = 327
     Top = 0
     Width = 186
     Anchors = [akTop, akRight, akBottom]
-    ClientHeight = 334
+    ClientHeight = 327
     ClientWidth = 186
     TabOrder = 2
     object CheckAllCheckBox: TCheckBox
@@ -64,9 +65,9 @@ object EditorFileManagerForm: TEditorFileManagerForm
       AnchorSideTop.Control = FileCountLabel
       AnchorSideTop.Side = asrBottom
       Left = 7
-      Height = 19
-      Top = 65
-      Width = 127
+      Height = 20
+      Top = 64
+      Width = 116
       BorderSpacing.Top = 11
       BorderSpacing.Around = 6
       Caption = 'CheckAllCheckBox'
@@ -144,9 +145,9 @@ object EditorFileManagerForm: TEditorFileManagerForm
       AnchorSideLeft.Control = Panel1
       AnchorSideTop.Side = asrBottom
       Left = 7
-      Height = 16
+      Height = 15
       Top = 32
-      Width = 85
+      Width = 77
       BorderSpacing.Around = 6
       Caption = 'FileCountLabel'
       ParentColor = False
@@ -168,8 +169,8 @@ object EditorFileManagerForm: TEditorFileManagerForm
       AnchorSideTop.Control = SortAlphabeticallyButton
       AnchorSideTop.Side = asrCenter
       Left = 76
-      Height = 21
-      Top = 4
+      Height = 24
+      Top = 2
       Width = 224
       ButtonWidth = 23
       NumGlyphs = 0

ide/editorfilemanager.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, sysutils, Forms, Controls, CheckLst, ButtonPanel, StdCtrls,
   Buttons, ExtCtrls, Menus, LCLProc, LCLType, IDEImagesIntf, LazIDEIntf,
-  SrcEditorIntf, SourceEditor, LazarusIDEStrConsts, ListFilterEdit;
+  IDEHelpIntf, SrcEditorIntf, SourceEditor, LazarusIDEStrConsts, ListFilterEdit;
 
 type
 
@@ -37,6 +37,7 @@ type
     procedure CheckListBox1KeyPress(Sender: TObject; var Key: char);
     procedure CloseButtonClick(Sender: TObject);
     procedure DoEditorsChanged(Sender: TObject);
+    procedure HelpButtonClick(Sender: TObject);
     procedure MoveDownBtnClick(Sender: TObject);
     procedure MoveUpBtnClick(Sender: TObject);
     procedure CheckListBox1Click(Sender: TObject);
@@ -251,6 +252,11 @@ begin
   PopulateList;
 end;
 
+procedure TEditorFileManagerForm.HelpButtonClick(Sender: TObject);
+begin
+  LazarusHelp.ShowHelpForIDEControl(Self);
+end;
+
 procedure TEditorFileManagerForm.MoveDownBtnClick(Sender: TObject);
 var
   SrcEdit: TSourceEditor;