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

IDE: use MakeFullyVisible

Browse Source 
git-svn-id: trunk@41973 -
This commit is contained in:
mattias 2013-07-02 16:31:23 +00:00
parent 0b36dae130
commit 95a646d03a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/idewindowintf.pas
View File

@ -1623,7 +1623,7 @@ begin
if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then
ARestoreVisible := AForm.Visible; ARestoreVisible := AForm.Visible;
AForm.ShowOnTop; AForm.EnsureVisible(true);
if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then if (csDesigning in AForm.ComponentState) and (AForm.Designer <> nil) then
AForm.Visible := ARestoreVisible; AForm.Visible := ARestoreVisible;
@ -1640,7 +1640,7 @@ begin
// issue #19769 // issue #19769
if AForm.Visible and not (fsModal in AForm.FormState) then if AForm.Visible and not (fsModal in AForm.FormState) then
AForm.Visible := False; AForm.Visible := False;
AForm.ShowOnTop; AForm.EnsureVisible(true);
end; end;
end; end;