From 105e4d803216e8b9c59d7d30a8cb7d93ee6d59cf Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 15 Sep 2009 08:58:57 +0000
Subject: [PATCH] lcl: formatting

git-svn-id: trunk@21710 -
---
 lcl/include/customform.inc |  2 +-
 lcl/include/wincontrol.inc | 19 ++++++++++---------
 2 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 188085cd93..fb4e6010dc 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -590,7 +590,7 @@ begin
     FRestoredHeight := Height;
     //DebugLn('[TCustomForm.WMSize] saving restored bounds ',DbgSName(Self),' ',dbgs(FRestoredWidth),'x',dbgs(FRestoredHeight));
   end;
-End;
+end;
 
 procedure TCustomForm.CMBiDiModeChanged(var Message: TLMessage);
 var
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index c50ad4f978..f21306720f 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -6465,7 +6465,7 @@ end;
  ------------------------------------------------------------------------------}
 procedure TWinControl.WMMove(var Message: TLMMove);
 var
-  NewWidth, NewHeight: integer;
+  NewWidth, NewHeight: Integer;
 begin
   {$IFDEF VerboseSizeMsg}
   DebugLn(['TWinControl.WMMove A ',DbgSName(Self),' Message=',Message.XPos,',',Message.YPos,
@@ -6474,18 +6474,19 @@ begin
     ',',FBoundsRealized.Right-FBoundsRealized.Left,
     'x',FBoundsRealized.Bottom-FBoundsRealized.Top]);
   {$ENDIF}
-  NewWidth:=Width;
-  NewHeight:=Height;
-  if Message.MoveType=Move_SourceIsInterface then begin
+  NewWidth := Width;
+  NewHeight := Height;
+  if Message.MoveType = Move_SourceIsInterface then
+  begin
     // interface widget has moved
     // -> update size and realized bounds
-    NewWidth:=FBoundsRealized.Right-FBoundsRealized.Left;
-    NewHeight:=FBoundsRealized.Bottom-FBoundsRealized.Top;
+    NewWidth := FBoundsRealized.Right-FBoundsRealized.Left;
+    NewHeight := FBoundsRealized.Bottom-FBoundsRealized.Top;
     if HandleAllocated then
-      GetWindowSize(Handle,NewWidth,NewHeight);
-    FBoundsRealized:=Bounds(Message.XPos,Message.YPos,NewWidth,NewHeight);
+      GetWindowSize(Handle, NewWidth, NewHeight);
+    FBoundsRealized := Bounds(Message.XPos,Message.YPos,NewWidth,NewHeight);
   end;
-  SetBoundsKeepBase(Message.XPos,Message.YPos,NewWidth,NewHeight,Parent<>nil);
+  SetBoundsKeepBase(Message.XPos, Message.YPos, NewWidth, NewHeight, Parent <> nil);
 end;
 
 {------------------------------------------------------------------------------