paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

designer: allow to put controls on a TCustomFrame children

Browse Source 
git-svn-id: trunk@17607 -
This commit is contained in:
paul 2008-11-27 02:26:06 +00:00
parent 037203ea19
commit c564a009b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -1443,7 +1443,7 @@ var
ControlSelection.Clear;
// find a parent for the new component
if FLookupRoot is TCustomForm then begin
if (FLookupRoot is TCustomForm) or (FLookupRoot is TCustomFrame) then begin
if MouseDownComponent is TWinControl then
NewParentControl:=TWinControl(MouseDownComponent)
else