From fa711164a90438baa46b39f6a674d7c7b521c62b Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Mon, 21 Nov 2022 09:19:41 +0200
Subject: [PATCH] IdeIntf: procedure DoAfterComponentAdded does not need to be
 virtual. Formatting.

---
 components/ideintf/componentreg.pas | 2 +-
 ide/main.pp                         | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/ideintf/componentreg.pas b/components/ideintf/componentreg.pas
index da66f0e81e..6f8175c0fe 100644
--- a/components/ideintf/componentreg.pas
+++ b/components/ideintf/componentreg.pas
@@ -276,7 +276,7 @@ type
     procedure SetSelectedComp(AComponent: TRegisteredComponent; AMulti: Boolean);
     // Registered handlers
     procedure DoAfterComponentAdded(ALookupRoot, AComponent: TComponent;
-                            ARegisteredComponent: TRegisteredComponent); virtual;
+                                    ARegisteredComponent: TRegisteredComponent);
     procedure DoAfterSelectionChanged;
     procedure DoAfterUpdate;
     procedure RemoveAllHandlersOfObject(AnObject: TObject);
diff --git a/ide/main.pp b/ide/main.pp
index f47538ce58..92a94a0588 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -13430,10 +13430,10 @@ begin
               AComponent.ClassName, ' not registered');
       exit;
     end;
-    //debugln('TMainIDE.PropHookPersistentAdded B ',AComponent.Name,':',AComponent.ClassName);
+    //DebugLn('TMainIDE.PropHookPersistentAdded B ',AComponent.Name,':',AComponent.ClassName);
     // set component into design mode
     SetDesigning(AComponent,true);
-    //debugln('TMainIDE.PropHookPersistentAdded C ',AComponent.Name,':',AComponent.ClassName);
+    //DebugLn('TMainIDE.PropHookPersistentAdded C ',AComponent.Name,':',AComponent.ClassName);
     // add to source
     FComponentAddedDesigner:=FindRootDesigner(AComponent) as TDesigner;
     if FComponentAddedDesigner<>nil then
@@ -13467,7 +13467,7 @@ begin
   // Update Object Inspector
   if ObjectInspector1<>nil then   // Moving this to Idle handler somehow removes
     ObjectInspector1.FillComponentList(False); // selection of pasted components!
-  //debugln('TMainIDE.PropHookPersistentAdded END ',dbgsName(APersistent),' Select=',Select);
+  //DebugLn(['TMainIDE.PropHookPersistentAdded END ',dbgsName(APersistent),' Select=',Select]);
 end;
 
 procedure TMainIDE.PropHookPersistentDeleting(APersistent: TPersistent);