paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 15:30:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Allow adding CollectionItems again via OI tree's context menu. Issue #38239.

Browse Source 
git-svn-id: trunk@64263 -
This commit is contained in:
juha 2020-12-22 09:07:43 +00:00
parent 573d742f51
commit 9c3791702a
1 changed files with 35 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -13306,9 +13306,8 @@ var
ComponentClasses: TClassList;
begin
//DebugLn('Hint: (lazarus) TMainIDE.PropHookPersistentAdded A ',dbgsName(APersistent));
Assert(APersistent is TComponent, 'TMainIDE.PropHookPersistentAdded: Not a TComponent.');
//if APersistent is TComponent then
//begin
if APersistent is TComponent then
begin
AComponent:=TComponent(APersistent);
if (IDEComponentPalette.FindRegComponent(AComponent.ClassType)=nil)
and (Project1.UnitWithComponentClass(TComponentClass(AComponent.ClassType))=nil) then
@ -13343,12 +13342,10 @@ begin
// Note: Source editor will be updated with added components later on Idle
// using FComponentAddedDesigner and FComponentAddedUnit.
end
else begin
FComponentAddedDesigner:= Nil;
exit;
else
FComponentAddedDesigner:=Nil;
end;
end;
//end;
// select persistent
if Select then
TheControlSelection.AssignPersistent(APersistent);