From 2e6446193d37183f774aad9fcc4853ce6a3bf143 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 18 Apr 2013 16:56:23 +0000
Subject: [PATCH] IDE: formatting

git-svn-id: trunk@40836 -
---
 ide/main.pp    | 8 +++-----
 ide/project.pp | 4 ++--
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index b91da00cbf..1a46e59aa9 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3526,7 +3526,7 @@ var
       aMenu.Items.Add(AMenuItem);
     end;
     AMenuItem.Caption := CurMode.GetCaption;
-    AMenuItem.Checked:=(Project1<>nil) and (Project1.ActiveBuildMode=CurMode);
+    AMenuItem.Checked := (Project1<>nil) and (Project1.ActiveBuildMode=CurMode);
     AMenuItem.ShowAlwaysCheckable:=true;
     inc(CurIndex);
   end;
@@ -4868,8 +4868,7 @@ var
       if not CodeToolBoss.SetApplicationTitleStatement(AProject.MainUnitInfo.Source, NewTitle) then
       begin
         IDEMessageDialog(lisProjOptsError,
-          Format(lisUnableToChangeProjectTitleInSource, [LineEnding, CodeToolBoss.
-            ErrorMessage]),
+          Format(lisUnableToChangeProjectTitleInSource, [LineEnding, CodeToolBoss.ErrorMessage]),
           mtWarning, [mbOk]);
         Result := False;
         Exit;
@@ -4879,8 +4878,7 @@ var
       if not CodeToolBoss.RemoveApplicationTitleStatement(AProject.MainUnitInfo.Source) then
       begin
         IDEMessageDialog(lisProjOptsError,
-          Format(lisUnableToRemoveProjectTitleFromSource, [LineEnding, CodeToolBoss.
-            ErrorMessage]),
+          Format(lisUnableToRemoveProjectTitleFromSource, [LineEnding, CodeToolBoss.ErrorMessage]),
           mtWarning, [mbOk]);
         Result := False;
         Exit;
diff --git a/ide/project.pp b/ide/project.pp
index 8cfbb2239a..9e7a083f85 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -5993,9 +5993,9 @@ begin
   inherited Assign(Source);
   if Source is TProjectCompilerOptions then begin
     ProjCompOptions:=TProjectCompilerOptions(Source);
-    FCompileReasons := ProjCompOptions.FCompileReasons;
+    FCompileReasons:=ProjCompOptions.FCompileReasons;
   end else begin
-    FCompileReasons := [crCompile, crBuild, crRun];
+    FCompileReasons:=[crCompile, crBuild, crRun];
     // keep BuildModes
   end;
 end;