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

packagetabs: fix bug with duplicate file names in tabs.

Browse Source 
git-svn-id: trunk@50681 -
This commit is contained in:
ondrej 2015-12-06 10:09:35 +00:00
parent dd154546c3
commit ac89c87e02
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/packagetabs/packagetabs_impl.pas
View File

@ -483,6 +483,7 @@ begin
Package := APackage;
Files := TStringList.Create;
Files.Sorted := True;
Files.Duplicates := dupAccept;
end;
destructor TPackageItem.Destroy;
@ -727,7 +728,7 @@ begin
xPkgIndex := xPackages.IndexOf(xPackageName);
if xPkgIndex < 0 then
xPkgIndex := xPackages.AddObject(xPackageName, TPackageItem.Create(xPackage));
TPackageItem(xPackages.Objects[xPkgIndex]).Files.AddObject(ExtractFileNameOnly(xEditor.FileName), xEditor);
TPackageItem(xPackages.Objects[xPkgIndex]).Files.AddObject(xEditor.PageCaption, xEditor);
end;
xNewIndex := 0;