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

IDE: package editor: fixed open file

Browse Source 
git-svn-id: trunk@29079 -
This commit is contained in:
mattias 2011-01-17 20:53:35 +00:00
parent bc9a56a54c
commit 88ff57d11e
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/lcl1.lpk
View File

@ -846,6 +846,7 @@ end;"/>
</Item164>
<Item165>
<Filename Value="gtk/interfaces.pp"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="Interfaces"/>
</Item165>
</Files>

6
packager/packageeditor.pas
View File

@ -853,13 +853,15 @@ var
NodeIndex: Integer;
CurFile: TPkgFile;
CurDependency: TPkgDependency;
Removed: boolean;
begin
CurNode:=FilesTreeView.Selected;
if CurNode=nil then exit;
NodeIndex:=CurNode.Index;
if CurNode.Parent<>nil then begin
if CurNode.Parent=FFilesNode then begin
CurFile:=LazPackage.Files[NodeIndex];
if TObject(CurNode.Data) is TPkgEditFileItem then begin
CurFile:=GetCurrentFile(Removed);
if CurFile=nil then exit;
DoOpenPkgFile(CurFile);
end else if CurNode.Parent=FRequiredPackagesNode then begin
CurDependency:=LazPackage.RequiredDepByIndex(NodeIndex);