paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-03 08:43:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed WriteProject result if Session is not saved in a separate file

Browse Source 
git-svn-id: trunk@9086 -
This commit is contained in:
vincents 2006-04-06 12:01:10 +00:00
parent e0bfbe601f
commit 38b49a2d5f
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -1738,10 +1738,9 @@ begin
end; end;
xmlconfig:=nil; xmlconfig:=nil;
until SessionSaveResult<>mrRetry; until SessionSaveResult<>mrRetry;
if (Result=mrOk) and (SessionSaveResult<>mrOk) then
Result:=SessionSaveResult;
end; end;
if (Result=mrOk) and (SessionSaveResult<>mrOk) then
Result:=SessionSaveResult;
end; end;
function TProject.GetDefaultTitle: string; function TProject.GetDefaultTitle: string;