From 1a992ed3031669aa9e3420e908b6e11fb94c5f8a Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 21 Feb 2016 14:05:36 +0000
Subject: [PATCH] IDE: formatting.

git-svn-id: trunk@51673 -
---
 components/ideintf/ideexterntoolintf.pas | 7 +++----
 ide/etmessageframe.pas                   | 6 +++---
 ide/etmessageswnd.pas                    | 5 ++---
 3 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/components/ideintf/ideexterntoolintf.pas b/components/ideintf/ideexterntoolintf.pas
index 32e56b0729..4d092617cb 100644
--- a/components/ideintf/ideexterntoolintf.pas
+++ b/components/ideintf/ideexterntoolintf.pas
@@ -1693,9 +1693,9 @@ begin
   if (Cnt>1) then begin
     Prev:=Items[Cnt-2];
     if MsgLine.Filename=Prev.Filename then
-    MsgLine.fFilename:=Prev.Filename;
+      MsgLine.fFilename:=Prev.Filename;
     if MsgLine.OriginalLine=Prev.OriginalLine then
-    MsgLine.fOriginalLine:=Prev.OriginalLine;
+      MsgLine.fOriginalLine:=Prev.OriginalLine;
   end;
 
   LineChanged(MsgLine);
@@ -2129,8 +2129,7 @@ begin
     Result:=CreateRelativePath(Result,FLines.BaseDirectory);
 end;
 
-procedure TMessageLine.ShareStrings(const ShareStringEvent: TETShareStringEvent
-  );
+procedure TMessageLine.ShareStrings(const ShareStringEvent: TETShareStringEvent);
 var
   i: Integer;
   s: String;
diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index d9b0d90935..c4fdfba227 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -170,8 +170,7 @@ type
     function GetActiveFilter: TLMsgViewFilter; inline;
     function GetHeaderBackground(aToolState: TLMVToolState): TColor;
     function GetSelectedLine: integer;
-    function GetUrgencyStyles(Urgency: TMessageLineUrgency
-      ): TMsgCtrlUrgencyStyle;
+    function GetUrgencyStyles(Urgency: TMessageLineUrgency): TMsgCtrlUrgencyStyle;
     function GetViews(Index: integer): TLMsgWndView;
     procedure OnViewChanged(Sender: TObject); // (main thread)
     procedure MsgUpdateTimerTimer(Sender: TObject);
@@ -3581,7 +3580,8 @@ begin
     if not (CurMark is TETMark) then continue;
     Msg:=CurMark.MsgLine;
     CurHint:=MessagesCtrl.UrgencyToStr(Msg.Urgency)+': '+Msg.Msg;
-    if HintStr<>'' then HintStr:=HintStr+LineEnding;
+    if HintStr<>'' then
+      HintStr:=HintStr+LineEnding;
     HintStr:=HintStr+CurHint;
   end;
 end;
diff --git a/ide/etmessageswnd.pas b/ide/etmessageswnd.pas
index c5ed0d17ec..75b36c3f22 100644
--- a/ide/etmessageswnd.pas
+++ b/ide/etmessageswnd.pas
@@ -100,7 +100,7 @@ begin
   IDEMessagesWindow:=Self;
   Caption:=lisMenuViewMessages;
   try
-    IDEMessagesWindow.Icon.LoadFromResourceName(HInstance, 'WIN_MESSAGES');
+    Icon.LoadFromResourceName(HInstance, 'WIN_MESSAGES');
   except
   end;
   MessagesFrame1.MessagesCtrl.OnOpenMessage:=@OnOpenMessage;
@@ -122,8 +122,7 @@ begin
     FormStyle:=fsNormal;
 end;
 
-function TMessagesView.OnOpenMessage(Sender: TObject; Msg: TMessageLine
-  ): boolean;
+function TMessagesView.OnOpenMessage(Sender: TObject; Msg: TMessageLine): boolean;
 begin
   Result:=false;
   // ask quickfixes