paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:19:23 +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; Result:=mrOk;
finally finally
Project1.EndUpdate; Project1.EndUpdate;
// set all modified to false
Project1.ClearModifieds(true);
SourceEditorManager.DecUpdateLock; SourceEditorManager.DecUpdateLock;
if (Result<>mrOk) and (Project1<>nil) then begin if (Result<>mrOk) and (Project1<>nil) then begin
// mark all files, that are left to open as unloaded: // mark all files, that are left to open as unloaded:
@ -3886,9 +3890,6 @@ begin
end; end;
end; end;
// set all modified to false
Project1.ClearModifieds(true);
// call ProjectOpened handlers // call ProjectOpened handlers
HandlerResult:=MainIDE.DoCallProjectChangedHandler(lihtProjectOpened, Project1); HandlerResult:=MainIDE.DoCallProjectChangedHandler(lihtProjectOpened, Project1);
if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then