paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Project Session: Ensure the session is not marked as changed while being loaded.

Browse Source 
git-svn-id: trunk@64235 -
This commit is contained in:
martin 2020-12-19 15:09:24 +00:00
parent b7a2964a24
commit ecb9e69eac
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/project.pp
View File

@ -1345,7 +1345,7 @@ begin
if (FPageIndex >= 0) and (FWindowID < 0) then
WindowID := 1;
FTopLine := XMLConfig.GetValue(Path+'TopLine/Value',1);
CursorPos := Point(XMLConfig.GetValue(Path+'CursorPos/X',1),
FCursorPos := Point(XMLConfig.GetValue(Path+'CursorPos/X',1),
XMLConfig.GetValue(Path+'CursorPos/Y',1));
FFoldState := XMLConfig.GetValue(Path+'FoldState/Value', '');
FIsLocked := XMLConfig.GetValue(Path+'IsLocked/Value', False);

6
ide/sourcefilemanager.pas
View File

@ -3794,9 +3794,7 @@ begin
LastDesigner.SelectOnlyThisComponent(LastDesigner.LookupRoot);
end;
// set all modified to false
Project1.UpdateAllVisibleUnits;
Project1.ClearModifieds(true);
IncreaseCompilerParseStamp;
IDEProtocolOpts.LastProjectLoadingCrashed := False;
@ -3813,6 +3811,10 @@ begin
AnUnitInfo.Loaded := false;
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