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

IDE: Save resource file after a project is renamed (Save Project As). Issue #39958.

Browse Source
This commit is contained in:
Juha 2022-10-16 23:50:19 +03:00
parent 8affac89f3
commit 2f8deeefee
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/projectresources.pas
View File

@ -532,7 +532,7 @@ begin
// Now it gets saved once the first time after IDE started. // Now it gets saved once the first time after IDE started.
end; end;
// codebuffer of new .res file // codebuffer of new .res file
if not UpdateResCodeBuffer and (LastResFileName=resFileName) then if not UpdateResCodeBuffer then
PerformSave := False; // Do not save an unchanged resource file. PerformSave := False; // Do not save an unchanged resource file.
// codebuffer of new .lrs file // codebuffer of new .lrs file
UpdateLrsCodeBuffer; UpdateLrsCodeBuffer;
@ -713,7 +713,6 @@ function TProjectResources.RenameDirectives(const CurFileName, NewFileName: Stri
var var
NewX, NewY, NewTopLine: integer; NewX, NewY, NewTopLine: integer;
CodeBuf, NewCode: TCodeBuffer; CodeBuf, NewCode: TCodeBuffer;
oldLrsFileName, newLrsFileName: String; oldLrsFileName, newLrsFileName: String;
begin begin
//DebugLn(['TProjectResources.RenameDirectives CurFileName="',CurFileName,'" NewFileName="',NewFileName,'"']); //DebugLn(['TProjectResources.RenameDirectives CurFileName="',CurFileName,'" NewFileName="',NewFileName,'"']);
@ -738,6 +737,7 @@ begin
// update codebuffers of new .res and .lrs files // update codebuffers of new .res and .lrs files
UpdateResCodeBuffer; UpdateResCodeBuffer;
UpdateLrsCodeBuffer; UpdateLrsCodeBuffer;
LastSavedRes := '';
// update {$I filename} directive // update {$I filename} directive
if CodeToolBoss.FindIncludeDirective(CodeBuf, 1, 1, if CodeToolBoss.FindIncludeDirective(CodeBuf, 1, 1,

2
ide/sourcefilemanager.pas
View File

@ -4070,7 +4070,7 @@ begin
// mrCancel: continue saving other files // mrCancel: continue saving other files
end; end;
// update all lrs files // update all resource files
if sfSaveToTestDir in Flags then if sfSaveToTestDir in Flags then
MainBuildBoss.UpdateProjectAutomaticFiles(EnvironmentOptions.GetParsedTestBuildDirectory) MainBuildBoss.UpdateProjectAutomaticFiles(EnvironmentOptions.GetParsedTestBuildDirectory)
else else