paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 08:18:15 +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; Package := APackage;
Files := TStringList.Create; Files := TStringList.Create;
Files.Sorted := True; Files.Sorted := True;
Files.Duplicates := dupAccept;
end; end;
destructor TPackageItem.Destroy; destructor TPackageItem.Destroy;
@ -727,7 +728,7 @@ begin
xPkgIndex := xPackages.IndexOf(xPackageName); xPkgIndex := xPackages.IndexOf(xPackageName);
if xPkgIndex < 0 then if xPkgIndex < 0 then
xPkgIndex := xPackages.AddObject(xPackageName, TPackageItem.Create(xPackage)); 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; end;
xNewIndex := 0; xNewIndex := 0;