paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 10:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazde: fix TEditorPage.FirstPackage and TPackageEditor.SelectModule

Browse Source 
git-svn-id: trunk@23307 -
This commit is contained in:
paul 2009-12-28 10:00:45 +00:00
parent 8b83117d89
commit fe2b30e8d2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doceditor/pgeditor.pp
View File

@ -313,7 +313,7 @@ Var
begin begin
N:=FDocument.DocumentElement.FirstChild; N:=FDocument.DocumentElement.FirstChild;
While (N<>Nil) and IsPackageNode(N) do While (N<>Nil) and Not IsPackageNode(N) do
N:=N.NextSibling; N:=N.NextSibling;
Result:=TDomElement(N); Result:=TDomElement(N);
end; end;

2
doceditor/pkeditor.pp
View File

@ -420,7 +420,7 @@ end;
Procedure TPackageEditor.SelectModule(Sender : TDomElement); Procedure TPackageEditor.SelectModule(Sender : TDomElement);
begin begin
Inherited CurrentTopic:=Nil; Inherited CurrentTopic:=Nil;
Inherited CurrentPackage:=FCurrentModule.ParentNode as TDomElement; Inherited CurrentPackage:=Sender.ParentNode as TDomElement;
Inherited CurrentModule:=Sender; Inherited CurrentModule:=Sender;
Inherited CurrentElement:=Sender; Inherited CurrentElement:=Sender;
ShowModuleElements(FCurrentModule); ShowModuleElements(FCurrentModule);