From ccb05d6f2d9dfdca0524593e386b150b4763d1b2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 7 Mar 2012 00:04:14 +0000
Subject: [PATCH] IDE: formatting

git-svn-id: trunk@35780 -
---
 ide/projectdefs.pas     | 21 ++++++++-------------
 ideintf/newitemintf.pas | 18 ++++++------------
 2 files changed, 14 insertions(+), 25 deletions(-)

diff --git a/ide/projectdefs.pas b/ide/projectdefs.pas
index 19af579f14..1c5b4f2d0a 100644
--- a/ide/projectdefs.pas
+++ b/ide/projectdefs.pas
@@ -1078,16 +1078,14 @@ begin
     dec(Result);
 end;
 
-function TLazProjectFileDescriptors.IndexOf(
-  FileDescriptor: TProjectFileDescriptor): integer;
+function TLazProjectFileDescriptors.IndexOf(FileDescriptor: TProjectFileDescriptor): integer;
 begin
   Result:=Count-1;
   while (Result>=0) and (Items[Result]<>FileDescriptor) do
     dec(Result);
 end;
 
-function TLazProjectFileDescriptors.FindByName(const Name: string
-  ): TProjectFileDescriptor;
+function TLazProjectFileDescriptors.FindByName(const Name: string): TProjectFileDescriptor;
 var
   i: LongInt;
 begin
@@ -1143,7 +1141,8 @@ var
 begin
   DefPasExt:=DefaultPascalFileExt;
   if DefPasExt='' then exit;
-  for i:=0 to Count-1 do Items[i].UpdateDefaultPascalFileExtension(DefPasExt);
+  for i:=0 to Count-1 do
+    Items[i].UpdateDefaultPascalFileExtension(DefPasExt);
 end;
 
 { TLazProjectDescriptors }
@@ -1203,8 +1202,7 @@ begin
     dec(Result);
 end;
 
-function TLazProjectDescriptors.IndexOf(Descriptor: TProjectDescriptor
-  ): integer;
+function TLazProjectDescriptors.IndexOf(Descriptor: TProjectDescriptor): integer;
 begin
   Result:=Count-1;
   while (Result>=0) and (Items[Result]<>Descriptor) do
@@ -1222,8 +1220,7 @@ begin
     Result:=nil;
 end;
 
-procedure TLazProjectDescriptors.RegisterDescriptor(
-  Descriptor: TProjectDescriptor);
+procedure TLazProjectDescriptors.RegisterDescriptor(Descriptor: TProjectDescriptor);
 begin
   if Descriptor.Name='' then
     raise Exception.Create('TLazProjectDescriptors.RegisterDescriptor Descriptor.Name empty');
@@ -1235,8 +1232,7 @@ begin
     ;
 end;
 
-procedure TLazProjectDescriptors.UnregisterDescriptor(
-  Descriptor: TProjectDescriptor);
+procedure TLazProjectDescriptors.UnregisterDescriptor(Descriptor: TProjectDescriptor);
 var
   i: LongInt;
 begin
@@ -1536,8 +1532,7 @@ end;
 
 function TProjectConsoleApplicationDescriptor.GetLocalizedDescription: string;
 begin
-  Result:=GetLocalizedName+#13
-    +lisFreepascalProgramUsingTCustomApplicationToEasilyCh;
+  Result:=GetLocalizedName+#13+lisFreepascalProgramUsingTCustomApplicationToEasilyCh;
 end;
 
 function TProjectConsoleApplicationDescriptor.InitProject(AProject: TLazProject
diff --git a/ideintf/newitemintf.pas b/ideintf/newitemintf.pas
index bc7d49d3ec..db0c04c985 100644
--- a/ideintf/newitemintf.pas
+++ b/ideintf/newitemintf.pas
@@ -133,8 +133,7 @@ begin
   NewIdeItems.Add(ACategory);
 end;
 
-procedure RegisterNewDialogItem(const Paths: string;
-  NewItem: TNewIDEItemTemplate);
+procedure RegisterNewDialogItem(const Paths: string; NewItem: TNewIDEItemTemplate);
 begin
   if NewIDEItems=nil then
     raise Exception.Create('RegisterNewDialogItem NewIDEItems=nil');
@@ -199,16 +198,14 @@ begin
   Result:='';
 end;
 
-function TNewIDEItemCategory.IndexOfTemplate(const TemplateName: string
-  ): integer;
+function TNewIDEItemCategory.IndexOfTemplate(const TemplateName: string): integer;
 begin
   Result:=FItems.Count-1;
   while (Result>=0) and (SysUtils.CompareText(Items[Result].Name,TemplateName)<>0) do
     dec(Result);
 end;
 
-function TNewIDEItemCategory.FindTemplateByName(const TemplateName: string
-  ): TNewIDEItemTemplate;
+function TNewIDEItemCategory.FindTemplateByName(const TemplateName: string): TNewIDEItemTemplate;
 var
   i: LongInt;
 begin
@@ -219,14 +216,12 @@ begin
     Result := nil;
 end;
 
-function TNewIDEItemCategory.IndexOfCategory(const CategoryName: string
-  ): integer;
+function TNewIDEItemCategory.IndexOfCategory(const CategoryName: string): integer;
 begin
   Result:=-1; // ToDo
 end;
 
-function TNewIDEItemCategory.FindCategoryByName(const CategoryName: string
-  ): TNewIDEItemCategory;
+function TNewIDEItemCategory.FindCategoryByName(const CategoryName: string): TNewIDEItemCategory;
 var
   i: LongInt;
 begin
@@ -262,8 +257,7 @@ end;
 
 function TNewIDEItemTemplate.CreateCopy: TNewIDEItemTemplate;
 begin
-  Result:=TNewIDEItemTemplateClass(ClassType).Create(
-                                                 Name,DefaultFlag,AllowedFlags);
+  Result:=TNewIDEItemTemplateClass(ClassType).Create(Name,DefaultFlag,AllowedFlags);
   Result.Assign(Self);
 end;