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

IDE: OI: disable moving controls onto frame

Browse Source 
git-svn-id: trunk@18323 -
This commit is contained in:
mattias 2009-01-17 21:53:59 +00:00
parent 791e765929
commit de02d06ad9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/componenttreeview.pas
View File

@ -182,8 +182,10 @@ begin
begin
AnObject := TObject(Node.Data);
if (AnObject is TWinControl) and
(csAcceptsControls in TWinControl(AnObject).ControlStyle) then
begin
(csAcceptsControls in TWinControl(AnObject).ControlStyle)
and (TWinControl(AnObject).Owner<>nil) // TReader/TWriter only supports this
and (TWinControl(AnObject).Owner.Owner=nil) // TReader/TWriter only supports this
then begin
AContainer := TWinControl(AnObject);
AcceptContainer := True;
end;