paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +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;
end;
Result:=mrOk;
finally
//SrcEdit:=SourceEditorManager.act
//Project1.UpdateVisibleUnit(SourceEditorManager);
// set all modified to false
for i:=0 to Project1.UnitCount-1 do
Project1.Units[i].ClearModifieds;
Project1.Modified:=false;
Result:=mrOk;
finally
debugln(['TMainIDE.DoNewProject AAA1 ',SomethingOfProjectIsModified]);
// call handlers
HandlerResult:=DoCallProjectChangedHandler(lihtProjectOpened,Project1);
if not (HandlerResult in [mrOk,mrCancel,mrAbort]) then

3
ide/project.pp
View File

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