Commit 709b6f18 authored by Juha Manninen's avatar Juha Manninen
Browse files

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

git-svn-id: trunk@37312 -
parent 54d8335e
<?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>
......@@ -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
......
......@@ -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;
......
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