mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 20:19:29 +02:00
IDE: Optimize adding component dependencies little more. Issue #37593.
git-svn-id: trunk@63792 -
This commit is contained in:
parent
bede7c1c4a
commit
8beee599dc
@ -4577,7 +4577,12 @@ begin
|
|||||||
CurUnitNames.Clear;
|
CurUnitNames.Clear;
|
||||||
CurCompReq:=nil;
|
CurCompReq:=nil;
|
||||||
if UnitList=nil then
|
if UnitList=nil then
|
||||||
|
begin
|
||||||
UnitList:=TStringList.Create;
|
UnitList:=TStringList.Create;
|
||||||
|
UnitList.Sorted:=True;
|
||||||
|
UnitList.Duplicates:=dupIgnore;
|
||||||
|
UnitList.CaseSensitive:=False;
|
||||||
|
end;
|
||||||
try
|
try
|
||||||
if CurRegisteredComponent.ComponentClass<>nil then
|
if CurRegisteredComponent.ComponentClass<>nil then
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user