paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 19:39:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: mark new project as not modified on errors

Browse Source 
git-svn-id: trunk@26724 -
This commit is contained in:
mattias 2010-07-18 09:46:04 +00:00
parent db08d1db24
commit 7c57556d5f
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -9640,12 +9640,15 @@ begin
Project1.EndUpdate; Project1.EndUpdate;
end; end;
Result:=mrOk;
finally
//SrcEdit:=SourceEditorManager.act
//Project1.UpdateVisibleUnit(SourceEditorManager);
// set all modified to false // set all modified to false
for i:=0 to Project1.UnitCount-1 do for i:=0 to Project1.UnitCount-1 do
Project1.Units[i].ClearModifieds; Project1.Units[i].ClearModifieds;
Project1.Modified:=false; Project1.Modified:=false;
Result:=mrOk; debugln(['TMainIDE.DoNewProject AAA1 ',SomethingOfProjectIsModified]);
finally
// call handlers // call handlers
HandlerResult:=DoCallProjectChangedHandler(lihtProjectOpened,Project1); HandlerResult:=DoCallProjectChangedHandler(lihtProjectOpened,Project1);
if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then

3
ide/project.pp
View File

@ -3348,7 +3348,8 @@ begin
Result:=AnUnitInfo; Result:=AnUnitInfo;
end; end;
procedure TProject.UpdateVisibleUnit(AnEditor: TSourceEditorInterface; AWindowIndex: Integer); procedure TProject.UpdateVisibleUnit(AnEditor: TSourceEditorInterface;
AWindowIndex: Integer);
var var
i: Integer; i: Integer;
begin begin