paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 17:20:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix window positions inside screen boundaries. Should finally solve #19082 and #19205

Browse Source 
git-svn-id: trunk@30421 -
This commit is contained in:
juha 2011-04-21 20:26:19 +00:00
parent 835fd53aa6
commit 73eb6ef961
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/idewindowintf.pas
View File

@ -1015,7 +1015,7 @@ var
DockSibling: TCustomForm;
DockSiblingBounds: TRect;
Offset: TPoint;
dx: Integer;
i: Integer;
begin
{$IFDEF VerboseIDEDocking}
debugln(['TSimpleWindowLayoutList.ApplyAndShow Form=',DbgSName(AForm),' ',BringToFront,
@ -1058,16 +1058,16 @@ begin
if NewBounds.Bottom<20 then
OffsetRect(NewBounds,0,20-NewBounds.Bottom);
if NewBounds.Left>Screen.DesktopWidth-20 then begin
dx:=(Screen.DesktopWidth-20)-NewBounds.Left;
i:=(Screen.DesktopWidth-20)-NewBounds.Left;
DebugLn(Format('TSimpleWindowLayoutList.ApplyAndShow: Adding %d to form %s Left coord %d (=%d).',
[dx, AForm.Name, NewBounds.Left, NewBounds.Left+dx]));
OffsetRect(NewBounds,dx,0);
[i, AForm.Name, NewBounds.Left, NewBounds.Left+i]));
OffsetRect(NewBounds,i,0);
end;
if NewBounds.Top>Screen.DesktopHeight-20 then begin
dx:=(Screen.DesktopHeight-20)-NewBounds.Top;
i:=(Screen.DesktopHeight-20)-NewBounds.Top;
DebugLn(Format('TSimpleWindowLayoutList.ApplyAndShow: Adding %d to form %s Top coord %d (=%d).',
[dx, AForm.Name, NewBounds.Top, NewBounds.Top+dx]));
OffsetRect(NewBounds,dx,0);
[i, AForm.Name, NewBounds.Top, NewBounds.Top+i]));
OffsetRect(NewBounds,0,i);
end;
// set bounds (do not use SetRestoredBounds - that flickers with the current LCL implementation)
AForm.SetBounds(NewBounds.Left,NewBounds.Top,