paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-21 13:22:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: don't allow to drop controls on a parent which does not support that child class (part of bug #0010378)

Browse Source 
git-svn-id: trunk@18187 -
This commit is contained in:
paul 2009-01-07 13:07:17 +00:00
parent ed6e13b21e
commit c84347984e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ideintf/componenttreeview.pas
View File

@ -195,9 +195,10 @@ begin
while Assigned(Node) do
begin
AnObject := TObject(Node.Data);
AcceptControl := AcceptControl and (AnObject is TControl);
AcceptControl := AcceptControl and (AnObject is TControl) and
AContainer.CheckChildClassAllowed(AnObject.ClassType, False);
// Check if one of the parent of the container is the control itself
if AcceptControl and AcceptContainer then
if AcceptControl then
begin
while Assigned(AContainer) do
begin