paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Help for IDE windows: now supporting controls without name

Browse Source 
git-svn-id: trunk@9211 -
This commit is contained in:
mattias 2006-04-30 14:58:42 +00:00
parent 0fd39df1a1
commit 4f5b33084c
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
docs/IDEWindowHelpTree.xml
View File

@ -1,5 +1,5 @@
<?xml version="1.0"?>
<CONFIG Name="IDE windows and dialogs" Path="IDE_Window:_" ChildCount="1">
<CONFIG Name="IDE windows and dialogs" Path="IDE_Window:_" ChildCount="2">
<Node1 Name="TObjectInspector" Path="Object_Inspector" HasHelp="True" ChildCount="1">
<Node1 Name="PairSplitter1" Path="PairSplitter1" ChildCount="1">
<Node1 Name="PairSplitter1Side2" Path="PairSplitter1Side2" ChildCount="1">
@ -13,4 +13,5 @@
</Node1>
</Node1>
</Node1>
<Node2 Name="TfrmCompilerOptions" Path="Compiler_Options" HasHelp="True"/>
</CONFIG>

1
ide/idecontexthelpedit.pas
View File

@ -324,6 +324,7 @@ function TContextHelpEditorDlg.FindHelpTreeNode(HelpNode: TIWHelpNode
ParentTreeNode: TTreeNode;
begin
if HNode=nil then exit(nil);
DebugLn('Find ',HNode.Name,' ',HNode.Path);
if HNode.Parent=nil then begin
Result:=HelpNodesTreeView.Items.FindTopLvlNode(HNode.Name);
end else begin

4
ide/idewindowhelp.pas
View File

@ -196,6 +196,7 @@ end;
procedure TIWHelpNode.DoRemove(AChild: TIWHelpNode);
begin
FItems.Remove(AChild);
AChild.FParent:=nil;
end;
constructor TIWHelpNode.Create;
@ -383,6 +384,7 @@ function TIWHelpTree.FindNodeForControl(AControl: TControl;
ParentHelpNode: TIWHelpNode;
CurName: String;
begin
Result:=nil;
//DebugLn('TIWHelpTree.FindNodeForControl.Find ',dbgsName(TheControl));
NextParent:=TheControl.Parent;
if NextParent=nil then begin
@ -446,13 +448,13 @@ var
ParentHelpNode: TIWHelpNode;
CurName: String;
begin
Result:=nil;
NextParent:=TheControl.Parent;
if NextParent=nil then begin
CurName:=TheControl.ClassName;
ParentHelpNode:=Root;
end else begin
CurName:=TheControl.Name;
if CurName='' then exit;
ParentHelpNode:=Find(NextParent);
if ParentHelpNode=nil then exit;
end;