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

IDE: fixed closing lpr file in source editor: do not clear changes

Browse Source 
git-svn-id: trunk@16762 -
This commit is contained in:
mattias 2008-09-27 08:22:22 +00:00
parent 9147596e63
commit f0a7f0e032
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -7291,12 +7291,12 @@ begin
// free sources // free sources
if (ActiveUnitInfo.Source<>nil) then begin if (ActiveUnitInfo.Source<>nil) then begin
ActiveUnitInfo.Source.IsDeleted:=true;
if (Project1.MainUnitInfo=ActiveUnitInfo) if (Project1.MainUnitInfo=ActiveUnitInfo)
and (not (cfProjectClosing in Flags)) then begin and (not (cfProjectClosing in Flags)) then begin
// lpr file closed in editor, but project kept open -> revert lpr file // lpr file closed in editor, but project kept open -> revert lpr file
Project1.MainUnitInfo.Source.Revert; Project1.MainUnitInfo.Revert;
end; end else
ActiveUnitInfo.Source.IsDeleted:=true;
end; end;
// close form soft (keep it if used by another component) // close form soft (keep it if used by another component)