paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 19:39:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: allow adding to inherited form and to child-controls on inherited forms (but not frames)

Browse Source 
git-svn-id: trunk@44234 -
This commit is contained in:
martin 2014-02-25 11:32:34 +00:00
parent c6bceabcd0
commit 1bb786fda7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/ideintf/propedits.pp
View File

@ -6277,7 +6277,10 @@ begin
// Because of TWriter, you can not put a control onto an
// csInline,csAncestor control (e.g. on a frame).
if (aControl<>aLookupRoot)
and ([csInline,csAncestor]*aControl.ComponentState<>[]) then
and ((aControl.Owner<>aLookupRoot)
and ([csInline,csAncestor]*aControl.ComponentState<>[]))
or ([csInline]*aControl.ComponentState<>[])
then
begin
{$IFDEF VerboseAddDesigner}
debugln(['ControlAcceptsStreamableChildComponent aControl=',DbgSName(aControl),' csInline=',csInline in aControl.ComponentState,' csAncestor=',csAncestor in aControl.ComponentState]);