paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 08:38:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Set Unit_Name for a new unit. Issue #41002, patch by WooBean007.

Browse Source
This commit is contained in:
Juha 2024-06-27 10:46:45 +03:00
parent 35cea99f01
commit 8ad8d57c7b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcefilemanager.pas
View File

@ -2195,7 +2195,7 @@ begin
end else
NewUnitInfo:=TUnitInfo.Create(NewBuffer);
//debugln(['NewFile ',NewUnitInfo.Filename,' ',NewFilename]);
if (CompareText(NewUnitInfo.Unit_Name,NewUnitName)=0) then
if (CompareText(NewUnitInfo.Unit_Name,NewUnitName)<>0) then
NewUnitInfo.Unit_Name:=NewUnitName;
NewUnitInfo.BuildFileIfActive:=NewFileDescriptor.BuildFileIfActive;
NewUnitInfo.RunFileIfActive:=NewFileDescriptor.RunFileIfActive;