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

IDE: idewindowintf: do not change designed form visible property.It can be changed only in OI while designing. issue #20602

Browse Source 
git-svn-id: trunk@35581 -
This commit is contained in:
zeljko 2012-02-24 14:27:09 +00:00
parent a9cbd3a292
commit f96b78a3f1
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ideintf/idewindowintf.pas
View File

@ -1526,6 +1526,7 @@ var
DockSibling: TCustomForm;
DockSiblingBounds: TRect;
Offset: TPoint;
ARestoreVisible: Boolean;
begin
{$IFDEF VerboseIDEDocking}
debugln(['TSimpleWindowLayoutList.ApplyAndShow Form=',DbgSName(AForm),' ',BringToFront,
@ -1611,12 +1612,27 @@ begin
end;
finally
if (AForm.WindowState in [wsNormal,wsMaximized]) and BringToFront then
AForm.ShowOnTop
else
begin
// do not change Visible property while designing form. issue #20602
// we save it into ARestoreVisible before any changes from here.
if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then
ARestoreVisible := AForm.Visible;
AForm.ShowOnTop;
if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then
AForm.Visible := ARestoreVisible;
end else
begin
if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then
ARestoreVisible := AForm.Visible;
AForm.Visible:=true;
if BringToFront and (AForm.WindowState in [wsMinimized]) then
AForm.WindowState := wsNormal;
if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then
AForm.Visible := ARestoreVisible;
end;
end;
end;