mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-11 08:18:15 +02:00
packagetabs: fix bug with duplicate file names in tabs.
git-svn-id: trunk@50681 -
This commit is contained in:
parent
dd154546c3
commit
ac89c87e02
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user