From 6d991af10c3697c064fdfd020ffc155ff651e375 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 21 Apr 2016 20:40:00 +0000
Subject: [PATCH] Formatting, comment

git-svn-id: trunk@52229 -
---
 components/ideintf/propeditutils.pp |  6 +++---
 designer/controlselection.pp        | 15 +++++++--------
 designer/designer.pp                |  3 +--
 ide/main.pp                         |  2 +-
 4 files changed, 12 insertions(+), 14 deletions(-)

diff --git a/components/ideintf/propeditutils.pp b/components/ideintf/propeditutils.pp
index 62c50b3364..1402853a8d 100644
--- a/components/ideintf/propeditutils.pp
+++ b/components/ideintf/propeditutils.pp
@@ -242,9 +242,9 @@ begin
     DebugLn(['  ',i,' ',dbgsName(Items[i])]);
 end;
 
-function TPersistentSelectionList.IsEqual(
- SourceSelectionList:TPersistentSelectionList):boolean;
-var a:integer;
+function TPersistentSelectionList.IsEqual(SourceSelectionList: TPersistentSelectionList): boolean;
+var
+  a: integer;
 begin
   if (SourceSelectionList=nil) and (Count=0) then begin
     Result:=true;
diff --git a/designer/controlselection.pp b/designer/controlselection.pp
index 0b0b32991d..293b268eb7 100644
--- a/designer/controlselection.pp
+++ b/designer/controlselection.pp
@@ -362,8 +362,7 @@ type
     procedure UpdateRealBounds;
     procedure UpdateParentChildFlags;
     procedure DoDrawMarker(Index: integer; DC: TDesignerDeviceContext);
-    procedure Notification(AComponent: TComponent; Operation: TOperation);
-           override;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 
     // snapping
     function CleanGridSizeX: integer;
@@ -2141,9 +2140,9 @@ begin
      end;
 end;
 
-function TControlSelection.GetParentFormRelativeBounds(AComponent: TComponent
-  ): TRect;
-var R:TRect;
+function TControlSelection.GetParentFormRelativeBounds(AComponent: TComponent): TRect;
+var
+  R:TRect;
   P : TPoint;
 begin
   if FMediator <> nil then
@@ -2161,8 +2160,7 @@ begin
   Result:=TSelectedControl(FControls[Index]);
 end;
 
-procedure TControlSelection.SetItems(Index:integer;
-  ASelectedControl:TSelectedControl);
+procedure TControlSelection.SetItems(Index:integer; ASelectedControl:TSelectedControl);
 begin
   FControls[Index]:=ASelectedControl;
 end;
@@ -2290,7 +2288,8 @@ begin
   InvalidateGrabbers;
   InvalidateGuideLines;
   InvalidateMarkers;
-  for i:=0 to FControls.Count-1 do Items[i].Free;
+  for i:=0 to FControls.Count-1 do
+    Items[i].Free;
   FControls.Clear;
   FStates:=FStates+cssSelectionChangeFlags-[cssLookupRootSelected];
   FForm:=nil;
diff --git a/designer/designer.pp b/designer/designer.pp
index d9d9e28d3d..ea9be4766a 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -2236,8 +2236,7 @@ var
     end;
     if not Assigned(NewParent) then exit;
 
-    if not PropertyEditorHook.BeforeAddPersistent(Self,
-                                     NewComponentClass,NewParent)
+    if not PropertyEditorHook.BeforeAddPersistent(Self, NewComponentClass, NewParent)
     then begin
       DebugLn('Note: TDesigner.AddComponent BeforeAddPersistent failed: ComponentClass=',
               NewComponentClass.ClassName,' NewParent=',DbgSName(NewParent));
diff --git a/ide/main.pp b/ide/main.pp
index 823d75aa25..8001b26ca9 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -4972,7 +4972,7 @@ end;
 
 procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject);
 begin
-  // code below cant be handled correctly by integrated IDE
+  // code below can't be handled correctly by integrated IDE
   if (IDETabMaster = nil) and (Screen.CustomFormZOrderCount > 1)
   and Assigned(Screen.CustomFormsZOrdered[1].Designer) then
   begin