paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 05:09:54 +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; end;
function TProject.SomethingModified(CheckData, CheckSession: boolean): boolean; function TProject.SomethingModified(CheckData, CheckSession: boolean): boolean;
var i: integer; var
i: integer;
begin begin
Result:=true; Result := True;
if CheckData then begin if CheckData then
if Modified then begin begin
if Modified then
begin
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Modified'); DebugLn('TProject.SomethingModified Modified');
{$ENDIF} {$ENDIF}
exit; Exit;
end; end;
if CompilerOptions.Modified then begin if CompilerOptions.Modified then
Modified:=true; begin
//Modified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn(['TProject.SomethingModified CompilerOptions']); DebugLn(['TProject.SomethingModified CompilerOptions']);
{$ENDIF} {$ENDIF}
exit; Exit;
end; end;
for i:=0 to UnitCount-1 do for i := 0 to UnitCount - 1 do
if (Units[i].IsPartOfProject) and Units[i].Modified then begin if (Units[i].IsPartOfProject) and Units[i].Modified then
Modified:=true; begin
Modified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified PartOfProject ',Units[i].Filename); DebugLn('TProject.SomethingModified PartOfProject ',Units[i].Filename);
{$ENDIF} {$ENDIF}
exit; Exit;
end; end;
end; end;
if CheckSession then begin if CheckSession then
if SessionModified then begin begin
if SessionModified then
begin
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified SessionModified'); DebugLn('TProject.SomethingModified SessionModified');
{$ENDIF} {$ENDIF}
exit; Exit;
end; end;
for i:=0 to UnitCount-1 do begin for i := 0 to UnitCount - 1 do
if Units[i].SessionModified then begin begin
SessionModified:=true; if Units[i].SessionModified then
begin
SessionModified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Session ',Units[i].Filename); DebugLn('TProject.SomethingModified Session ',Units[i].Filename);
{$ENDIF} {$ENDIF}
exit; exit;
end; end;
if (not Units[i].IsPartOfProject) and Units[i].Modified then begin if (not Units[i].IsPartOfProject) and Units[i].Modified then
SessionModified:=true; begin
SessionModified := True;
{$IFDEF VerboseProjectModified} {$IFDEF VerboseProjectModified}
DebugLn('TProject.SomethingModified Not PartOfProject ',Units[i].Filename); DebugLn('TProject.SomethingModified Not PartOfProject ',Units[i].Filename);
{$ENDIF} {$ENDIF}
@ -4217,7 +4227,7 @@ begin
end; end;
end; end;
end; end;
Result:=false; Result := False;
end; end;
procedure TProject.MainSourceFilenameChanged; procedure TProject.MainSourceFilenameChanged;