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

ide: formatting

Browse Source 
git-svn-id: trunk@18878 -
This commit is contained in:
paul 2009-03-03 14:43:19 +00:00
parent efbc6f88bf
commit 1275c9167e
1 changed files with 31 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
ide/project.pp
View File

@ -4167,49 +4167,59 @@ begin
end;
function TProject.SomethingModified(CheckData, CheckSession: boolean): boolean;
var i: integer;
var
i: integer;
begin
Result:=true;
if CheckData then begin
if Modified then begin
Result := True;
if CheckData then
begin
if Modified then
begin
{$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Modified');
{$ENDIF}
exit;
Exit;
end;
if CompilerOptions.Modified then begin
Modified:=true;
if CompilerOptions.Modified then
begin
//Modified := True;
{$IFDEF VerboseProjectModified}
DebugLn(['TProject.SomethingModified CompilerOptions']);
{$ENDIF}
exit;
Exit;
end;
for i:=0 to UnitCount-1 do
if (Units[i].IsPartOfProject) and Units[i].Modified then begin
Modified:=true;
for i := 0 to UnitCount - 1 do
if (Units[i].IsPartOfProject) and Units[i].Modified then
begin
Modified := True;
{$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified PartOfProject ',Units[i].Filename);
{$ENDIF}
exit;
Exit;
end;
end;
if CheckSession then begin
if SessionModified then begin
if CheckSession then
begin
if SessionModified then
begin
{$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified SessionModified');
{$ENDIF}
exit;
Exit;
end;
for i:=0 to UnitCount-1 do begin
if Units[i].SessionModified then begin
SessionModified:=true;
for i := 0 to UnitCount - 1 do
begin
if Units[i].SessionModified then
begin
SessionModified := True;
{$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Session ',Units[i].Filename);
{$ENDIF}
exit;
end;
if (not Units[i].IsPartOfProject) and Units[i].Modified then begin
SessionModified:=true;
if (not Units[i].IsPartOfProject) and Units[i].Modified then
begin
SessionModified := True;
{$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Not PartOfProject ',Units[i].Filename);
{$ENDIF}
@ -4217,7 +4227,7 @@ begin
end;
end;
end;
Result:=false;
Result := False;
end;
procedure TProject.MainSourceFilenameChanged;