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

IDE: Fix UpdateTargetFilename when using a dotted project name. Improve variable names. Issue #41002, patch by WooBean007.

Browse Source
This commit is contained in:
Juha 2024-06-27 16:23:19 +03:00
parent 0cfbf5637b
commit e636177387
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/mainbase.pas
View File

@ -335,19 +335,18 @@ end;
function UpdateTargetFilename(const ABaseFN: String): Boolean;
// Return True if Project1.TargetFilename was actually changed.
var
TargetF, StemFN, NewTargetFN: String;
StemFN, OldTarget, NewTarget: String;
i: Integer;
begin
TargetF:=ExtractFileName(Project1.TargetFilename);
OldTarget:=ExtractFileName(Project1.TargetFilename);
StemFN:=ExtractFileNameOnly(ABaseFN);
if (TargetF='') or (StemFN='') then exit(False); // Using default -> ok
Result:=CompareFilenames(TargetF,StemFN)<>0; // Names differ -> update.
if (OldTarget='') or (StemFN='') then exit(False); // Using default -> ok
Result:=CompareFilenames(OldTarget,StemFN)<>0; // Names differ -> update.
if Result then
begin
NewTargetFN:=ExtractFilePath(Project1.TargetFilename) + StemFN
+ ExtractFileExt(TargetF);
NewTarget:=ExtractFilePath(Project1.TargetFilename) + StemFN;
for i := 0 to Project1.BuildModes.Count-1 do // Update all buildmodes.
Project1.BuildModes[i].CompilerOptions.TargetFilename:=NewTargetFN;
Project1.BuildModes[i].CompilerOptions.TargetFilename:=NewTarget;
end;
end;