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

IDE: ide info: fixed showing project units only once

Browse Source 
git-svn-id: trunk@40159 -
This commit is contained in:
mattias 2013-02-03 13:32:28 +00:00
parent b4ebc18e46
commit 0c54ae136b
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/ideinfodlg.pas
View File

@ -275,15 +275,16 @@ begin
then begin
if not HeaderWritten then begin
sl.Add('Project units:');
s:=aFile.GetShortFilename(true);
if aFile.Modified then
s:=s+' Modified';
if aFile.SessionModified then
s:=s+' SessionModified';
if (aFile.Source<>nil) and (aFile.Source.Modified) then
s:=s+' Source.Modified';
sl.Add(s);
HeaderWritten:=true;
end;
s:=aFile.GetShortFilename(true);
if aFile.Modified then
s:=s+' Modified';
if aFile.SessionModified then
s:=s+' SessionModified';
if (aFile.Source<>nil) and (aFile.Source.Modified) then
s:=s+' Source.Modified';
sl.Add(s);
end;
aFile:=aFile.NextPartOfProject;
end;