paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:19: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 end else
NewUnitInfo:=TUnitInfo.Create(NewBuffer); NewUnitInfo:=TUnitInfo.Create(NewBuffer);
//debugln(['NewFile ',NewUnitInfo.Filename,' ',NewFilename]); //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.Unit_Name:=NewUnitName;
NewUnitInfo.BuildFileIfActive:=NewFileDescriptor.BuildFileIfActive; NewUnitInfo.BuildFileIfActive:=NewFileDescriptor.BuildFileIfActive;
NewUnitInfo.RunFileIfActive:=NewFileDescriptor.RunFileIfActive; NewUnitInfo.RunFileIfActive:=NewFileDescriptor.RunFileIfActive;