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

IDEIntf: do not dock designer forms for now, bug #17130

Browse Source 
git-svn-id: trunk@28041 -
This commit is contained in:
mattias 2010-11-02 15:51:49 +00:00
parent 666f44d859
commit 925ab3b6ad
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/idewindowintf.pas
View File

@ -1453,8 +1453,9 @@ begin
else else
Layout.Form:=AForm; Layout.Form:=AForm;
if (IDEDockMaster<>nil) and (FindWithName(AForm.Name)<>nil) then if (IDEDockMaster<>nil) and (not (csDesigning in AForm.ComponentState))
// show dockable if it has a creator and (FindWithName(AForm.Name)<>nil) then
// show dockable if it has a creator and is not a designer form
IDEDockMaster.ShowForm(AForm,BringToFront) IDEDockMaster.ShowForm(AForm,BringToFront)
else if Assigned(OnShowForm) then else if Assigned(OnShowForm) then
OnShowForm(Self,AForm,BringToFront) OnShowForm(Self,AForm,BringToFront)