paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 16:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #7408

Browse Source 
git-svn-id: trunk@22271 -
This commit is contained in:
michael 2009-10-23 16:31:37 +00:00
parent 8533b5894c
commit b8c2996e0d
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doceditor/eleditor.pp
View File

@ -622,7 +622,7 @@ end;
Function TElementEditor.Save : Boolean;
Var
SS : TStringStream;
SS : TStream;
S : String;
N,NN : TDomNode;

14
doceditor/pkeditor.pp
View File

@ -394,9 +394,9 @@ end;
Procedure TPackageEditor.SelectElement(Sender : TDomElement);
begin
If IsElementNode(Sender) then
If IsElementNode(Sender) or IsModuleNode(Sender) or IsPackageNode(Sender) then
CurrentElement:=Sender
else // FModuleNode selected.
else // No valid node
CurrentElement:=Nil;
If Assigned(FOnSelectElement) then
OnSelectElement(Sender);
@ -419,10 +419,10 @@ end;
Procedure TPackageEditor.SelectModule(Sender : TDomElement);
begin
Inherited CurrentElement:=Nil;
Inherited CurrentTopic:=Nil;
Inherited CurrentModule:=Sender;
Inherited CurrentPackage:=FCurrentModule.ParentNode as TDomElement;
Inherited CurrentModule:=Sender;
Inherited CurrentElement:=Sender;
ShowModuleElements(FCurrentModule);
If Assigned(FOnSelectModule) then
FOnSelectModule(Sender);
@ -782,6 +782,7 @@ begin
If Assigned(Module) then
begin
FModuleNode:=FElementTree.Items.Add(Nil,Module['name']);
FModuleNode.Data:=Module;
S:=TStringList.Create;
Try
// get sorted list of elements
@ -1116,7 +1117,10 @@ begin
If (E<>FCurrentElement) and (E <> nil) then
begin
Inherited;
CurrentModule:=E.ParentNode as TDomElement;
If E.NodeName='module' then
CurrentModule:=E
else
CurrentModule:=E.ParentNode as TDomElement;
SelNode:=FElementTree.Selected;
//avoid selecting an already selected node (occurs in OnChange event)
if (SelNode = nil) or (SelNode.Data <> Pointer(E)) then