From 869fadf0a676a76eac329dc7517e72ee79712980 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 20 May 2009 09:28:40 +0000
Subject: [PATCH] lcl: formatting

git-svn-id: trunk@20074 -
---
 lcl/include/customform.inc | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index a74e4c3cba..d1d1e07ee7 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1755,15 +1755,15 @@ var
   CurControl: TWinControl;
 begin
   Result := False;
-  if (Control<>nil)
-  and (csDestroying in Control.ComponentState) then exit;
+  if (Control <> nil) and (csDestroying in Control.ComponentState) then Exit;
 
-  if (Parent<>nil) then begin
+  if (Parent <> nil) then
+  begin
     // delegate to topmost form
-    ParentForm:=GetParentForm(Self);
-    if ParentForm<>nil then
+    ParentForm := GetParentForm(Self);
+    if ParentForm <> nil then
       ParentForm.SetFocusedControl(Control);
-    exit;
+    Exit;
   end;
 
   // update FActiveControl
@@ -1797,14 +1797,16 @@ begin
 
   Result := True;
 
-  if (Control<>nil) and (not (csFocusing in Control.ControlState)) then begin
+  if (Control <> nil) and (not (csFocusing in Control.ControlState)) then
+  begin
     // prevent looping
     // update ActiveControls of all parent forms
-    CurControl:=Control.Parent;
-    while CurControl<>nil do begin
+    CurControl := Control.Parent;
+    while CurControl <> nil do
+    begin
       if CurControl is TCustomForm then
-        TCustomForm(CurControl).FActiveControl:=Control;
-      CurControl:=CurControl.Parent;
+        TCustomForm(CurControl).FActiveControl := Control;
+      CurControl := CurControl.Parent;
     end;
   end;
 end;