paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 22:20:26 +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; function UpdateTargetFilename(const ABaseFN: String): Boolean;
// Return True if Project1.TargetFilename was actually changed. // Return True if Project1.TargetFilename was actually changed.
var var
TargetF, StemFN, NewTargetFN: String; StemFN, OldTarget, NewTarget: String;
i: Integer; i: Integer;
begin begin
TargetF:=ExtractFileName(Project1.TargetFilename); OldTarget:=ExtractFileName(Project1.TargetFilename);
StemFN:=ExtractFileNameOnly(ABaseFN); StemFN:=ExtractFileNameOnly(ABaseFN);
if (TargetF='') or (StemFN='') then exit(False); // Using default -> ok if (OldTarget='') or (StemFN='') then exit(False); // Using default -> ok
Result:=CompareFilenames(TargetF,StemFN)<>0; // Names differ -> update. Result:=CompareFilenames(OldTarget,StemFN)<>0; // Names differ -> update.
if Result then if Result then
begin begin
NewTargetFN:=ExtractFilePath(Project1.TargetFilename) + StemFN NewTarget:=ExtractFilePath(Project1.TargetFilename) + StemFN;
+ ExtractFileExt(TargetF);
for i := 0 to Project1.BuildModes.Count-1 do // Update all buildmodes. 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;
end; end;