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

IDEIntf: GetDefaultBounds: fixed negative right/bottom

Browse Source 
git-svn-id: trunk@31490 -
This commit is contained in:
mattias 2011-07-01 13:03:29 +00:00
parent f5dd2491a8
commit b9e464b39b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/idewindowintf.pas
View File

@ -1298,7 +1298,7 @@ begin
else else
aRight:=StrToIntDef(Right,0); aRight:=StrToIntDef(Right,0);
if aRight<0 then if aRight<0 then
aRight:=ScreenR.Right-aRight // relative to right of screen aRight:=ScreenR.Right+aRight // relative to right of screen
else if (Right<>'') and (Right[1]='+') then else if (Right<>'') and (Right[1]='+') then
inc(aRight,DefBounds.Left) // relative to Left inc(aRight,DefBounds.Left) // relative to Left
else else
@ -1320,7 +1320,7 @@ begin
else else
aBottom:=StrToIntDef(Bottom,0); aBottom:=StrToIntDef(Bottom,0);
if aBottom<0 then if aBottom<0 then
aBottom:=ScreenR.Bottom-aBottom // relative to bottom of screen aBottom:=ScreenR.Bottom+aBottom // relative to bottom of screen
else if (Bottom<>'') and (Bottom[1]='+') then else if (Bottom<>'') and (Bottom[1]='+') then
inc(aBottom,DefBounds.Top) // relative to Top inc(aBottom,DefBounds.Top) // relative to Top
else else