paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:19:18 +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; ControlSelection.Clear;
// find a parent for the new component // 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 if MouseDownComponent is TWinControl then
NewParentControl:=TWinControl(MouseDownComponent) NewParentControl:=TWinControl(MouseDownComponent)
else else