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

IDE: fix a bug in off-screen window layout check in TSimpleWindowLayoutList.ApplyAndShow. Add comments.

Browse Source 
git-svn-id: trunk@33008 -
This commit is contained in:
juha 2011-10-21 15:44:58 +00:00
parent d7656977a2
commit 7ee11f6e47
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ideintf/idewindowintf.pas
View File

@ -1057,21 +1057,30 @@ begin
NewBounds.Right:=NewBounds.Left+60;
if NewBounds.Bottom-NewBounds.Top<60 then
NewBounds.Bottom:=NewBounds.Top+60;
// move to visible area
// Move to visible area :
// window is out at left side of screen
if NewBounds.Right<Screen.DesktopLeft+60 then
OffsetRect(NewBounds,Screen.DesktopLeft+60-NewBounds.Right,0);
// window is out above the screen
if NewBounds.Bottom<Screen.DesktopTop+60 then
OffsetRect(NewBounds,0,Screen.DesktopTop+60-NewBounds.Bottom);
if NewBounds.Left>Screen.DesktopWidth+Screen.DesktopLeft-60 then begin
i:=(Screen.DesktopWidth+Screen.DesktopLeft-60)-NewBounds.Left;
NewBounds.Left := Screen.DesktopWidth+Screen.DesktopLeft-60;
NewBounds.Right := NewBounds.Right + i;
// window is out at right side of screen, i = right edge of screen - 60
i:=Screen.DesktopWidth+Screen.DesktopLeft-60;
if NewBounds.Left > i then begin
NewBounds.Left := i;
NewBounds.Right := NewBounds.Right + i - NewBounds.Left;
end;
if NewBounds.Top>Screen.DesktopHeight+Screen.DesktopTop-60 then begin
i:=(Screen.DesktopHeight+Screen.DesktopLeft-60)-NewBounds.Top;
NewBounds.Top := Screen.DesktopHeight+Screen.DesktopTop-60;
NewBounds.Bottom := NewBounds.Bottom + i;
// window is out below the screen, i = bottom edge of screen - 60
i:=Screen.DesktopHeight+Screen.DesktopTop-60;
if NewBounds.Top > i then begin
NewBounds.Top := i;
NewBounds.Bottom := NewBounds.Bottom + i - NewBounds.Top;
end;
// set bounds (do not use SetRestoredBounds - that flickers with the current LCL implementation)
AForm.SetBounds(NewBounds.Left,NewBounds.Top,
NewBounds.Right-NewBounds.Left,