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

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

Browse Source 
This reverts commit 25a3b69252.
This commit is contained in:
michl 2023-07-27 20:35:18 +02:00
parent 0878535faa
commit 94afdceb9c
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourcefilemanager.pas
View File

@ -3874,10 +3874,6 @@ 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:
@ -3890,6 +3886,9 @@ 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