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

Fixed removing of incorrect component properties in LFM with installed DockedFormEditor. Issue #40377.

Browse Source
This commit is contained in:
michl 2023-07-26 20:15:48 +02:00
parent 2722337e33
commit 25a3b69252
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourcefilemanager.pas
View File

@ -3874,6 +3874,10 @@ begin
Result:=mrOk;
finally
Project1.EndUpdate;
// set all modified to false
Project1.ClearModifieds(true);
SourceEditorManager.DecUpdateLock;
if (Result<>mrOk) and (Project1<>nil) then begin
// mark all files, that are left to open as unloaded:
@ -3886,9 +3890,6 @@ begin
end;
end;
// set all modified to false
Project1.ClearModifieds(true);
// call ProjectOpened handlers
HandlerResult:=MainIDE.DoCallProjectChangedHandler(lihtProjectOpened, Project1);
if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then