paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-26 01:42:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: procedure DoAfterComponentAdded does not need to be virtual. Formatting.

Browse Source
This commit is contained in:
Juha 2022-11-21 09:19:41 +02:00
parent ecdb59db7c
commit fa711164a9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/componentreg.pas
View File

@ -276,7 +276,7 @@ type
procedure SetSelectedComp(AComponent: TRegisteredComponent; AMulti: Boolean); procedure SetSelectedComp(AComponent: TRegisteredComponent; AMulti: Boolean);
// Registered handlers // Registered handlers
procedure DoAfterComponentAdded(ALookupRoot, AComponent: TComponent; procedure DoAfterComponentAdded(ALookupRoot, AComponent: TComponent;
ARegisteredComponent: TRegisteredComponent); virtual; ARegisteredComponent: TRegisteredComponent);
procedure DoAfterSelectionChanged; procedure DoAfterSelectionChanged;
procedure DoAfterUpdate; procedure DoAfterUpdate;
procedure RemoveAllHandlersOfObject(AnObject: TObject); procedure RemoveAllHandlersOfObject(AnObject: TObject);

6
ide/main.pp
View File

@ -13430,10 +13430,10 @@ begin
AComponent.ClassName, ' not registered'); AComponent.ClassName, ' not registered');
exit; exit;
end; end;
//debugln('TMainIDE.PropHookPersistentAdded B ',AComponent.Name,':',AComponent.ClassName); //DebugLn('TMainIDE.PropHookPersistentAdded B ',AComponent.Name,':',AComponent.ClassName);
// set component into design mode // set component into design mode
SetDesigning(AComponent,true); SetDesigning(AComponent,true);
//debugln('TMainIDE.PropHookPersistentAdded C ',AComponent.Name,':',AComponent.ClassName); //DebugLn('TMainIDE.PropHookPersistentAdded C ',AComponent.Name,':',AComponent.ClassName);
// add to source // add to source
FComponentAddedDesigner:=FindRootDesigner(AComponent) as TDesigner; FComponentAddedDesigner:=FindRootDesigner(AComponent) as TDesigner;
if FComponentAddedDesigner<>nil then if FComponentAddedDesigner<>nil then
@ -13467,7 +13467,7 @@ begin
// Update Object Inspector // Update Object Inspector
if ObjectInspector1<>nil then // Moving this to Idle handler somehow removes if ObjectInspector1<>nil then // Moving this to Idle handler somehow removes
ObjectInspector1.FillComponentList(False); // selection of pasted components! ObjectInspector1.FillComponentList(False); // selection of pasted components!
//debugln('TMainIDE.PropHookPersistentAdded END ',dbgsName(APersistent),' Select=',Select); //DebugLn(['TMainIDE.PropHookPersistentAdded END ',dbgsName(APersistent),' Select=',Select]);
end; end;
procedure TMainIDE.PropHookPersistentDeleting(APersistent: TPersistent); procedure TMainIDE.PropHookPersistentDeleting(APersistent: TPersistent);