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

IDE: added debug code

Browse Source 
git-svn-id: trunk@35496 -
This commit is contained in:
mattias 2012-02-19 21:44:43 +00:00
parent 04c1900dfb
commit 5ca5747689
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -8445,6 +8445,8 @@ end;
function TMainIDE.AskSaveProject(const ContinueText, ContinueBtn: string): TModalResult;
begin
if Project1=nil then exit(mrOk);
//debugln(['TMainIDE.AskSaveProject SomethingOfProjectIsModified=',SomethingOfProjectIsModified,' Project1.SomeDataModified(false)=',Project1.SomeDataModified(false)]);
if not SomethingOfProjectIsModified then exit(mrOk);
if (Project1.SessionStorage=pssInProjectInfo)