diff --git a/ide/componentpalette.pas b/ide/componentpalette.pas
index 8f200f6eac..d9677a557d 100644
--- a/ide/componentpalette.pas
+++ b/ide/componentpalette.pas
@@ -217,8 +217,7 @@ begin
     OpenPackageMenuItem.Visible:=false;
     OpenUnitMenuItem.Visible:=false;
   end else begin
-    OpenPackageMenuItem.Caption:=Format(lisCPOpenPackage, [APackage.IDAsString]
-      );
+    OpenPackageMenuItem.Caption:=Format(lisCPOpenPackage, [APackage.IDAsString]);
     OpenPackageMenuItem.Visible:=true;
     ShownFilename:=PkgComponent.PkgFile.Filename;
     UnitFilename:=PkgComponent.PkgFile.GetFullFilename;
diff --git a/ide/exttooldialog.pas b/ide/exttooldialog.pas
index d02d3a4deb..acb75c13aa 100644
--- a/ide/exttooldialog.pas
+++ b/ide/exttooldialog.pas
@@ -223,8 +223,7 @@ begin
   inherited Clear;
 end;
 
-procedure TExternalToolList.Insert(Index: integer;
-  NewTool: TExternalToolOptions);
+procedure TExternalToolList.Insert(Index: integer; NewTool: TExternalToolOptions);
 begin
   inherited Insert(Index,NewTool);
 end;
@@ -261,9 +260,9 @@ begin
   end;
 end;
 
-procedure TExternalToolList.LoadShortCuts(
-  KeyCommandRelationList: TKeyCommandRelationList);
-var i: integer;
+procedure TExternalToolList.LoadShortCuts(KeyCommandRelationList: TKeyCommandRelationList);
+var
+  i: integer;
   KeyCommandRelation: TKeyCommandRelation;
 begin
   for i:=0 to Count-1 do begin
diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index efd4383c82..19b7c029c2 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -1840,8 +1840,7 @@ begin
   Result:=SysUtils.CompareText(Key1.Name,Key2.Name);
 end;
 
-function CompareNameWithLoadedKeyCommand(NameAsAnsiString, Key: Pointer
-  ): integer;
+function CompareNameWithLoadedKeyCommand(NameAsAnsiString, Key: Pointer): integer;
 var
   Name: string;
   LoadedKey: TLoadedKeyCommand absolute Key;
@@ -2875,8 +2874,7 @@ begin
   fCategories.Clear;
 end;
 
-function TKeyCommandRelationList.GetRelation(
-  Index:integer):TKeyCommandRelation;
+function TKeyCommandRelationList.GetRelation(Index:integer):TKeyCommandRelation;
 begin
   if (Index<0) or (Index>=Count) then
   begin
@@ -3249,14 +3247,12 @@ begin
     end;
 end;
 
-function TKeyCommandRelationList.FindIDECommand(ACommand: word
-  ): TIDECommand;
+function TKeyCommandRelationList.FindIDECommand(ACommand: word): TIDECommand;
 begin
   Result:=FindByCommand(ACommand);
 end;
 
-function TKeyCommandRelationList.FindByCommand(
-  ACommand: word):TKeyCommandRelation;
+function TKeyCommandRelationList.FindByCommand(ACommand: word):TKeyCommandRelation;
 var a:integer;
 begin
   Result:=nil;
@@ -3443,8 +3439,7 @@ begin
   end;
 end;
 
-function TKeyCommandRelationList.CreateUniqueCategoryName(const AName: string
-  ): string;
+function TKeyCommandRelationList.CreateUniqueCategoryName(const AName: string): string;
 begin
   Result:=AName;
   if FindCategoryByName(Result)=nil then exit;
@@ -3453,8 +3448,7 @@ begin
     Result:=CreateNextIdentifier(Result);
 end;
 
-function TKeyCommandRelationList.CreateUniqueCommandName(const AName: string
-  ): string;
+function TKeyCommandRelationList.CreateUniqueCommandName(const AName: string): string;
 begin
   Result:=AName;
   if FindCommandByName(Result)=nil then exit;
@@ -3472,8 +3466,7 @@ end;
 function TKeyCommandRelationList.CreateCategory(Parent: TIDECommandCategory;
   const AName, Description: string; Scope: TIDECommandScope): TIDECommandCategory;
 begin
-  Result:=Categories[
-                AddCategory(CreateUniqueCategoryName(AName),Description,Scope)];
+  Result:=Categories[AddCategory(CreateUniqueCategoryName(AName),Description,Scope)];
 end;
 
 function TKeyCommandRelationList.CreateCommand(Category: TIDECommandCategory;
@@ -3598,14 +3591,12 @@ begin
   end;
 end;
 
-function TKeyCommandRelationList.IndexOf(ARelation: TKeyCommandRelation
-  ): integer;
+function TKeyCommandRelationList.IndexOf(ARelation: TKeyCommandRelation): integer;
 begin
   Result:=fRelations.IndexOf(ARelation);
 end;
 
-function TKeyCommandRelationList.CommandToShortCut(ACommand: word
-  ): TShortCut;
+function TKeyCommandRelationList.CommandToShortCut(ACommand: word): TShortCut;
 var ARelation: TKeyCommandRelation;
 begin
   ARelation:=FindByCommand(ACommand);