paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: fixed TIDEWindowCreator.GetDefaultBounds

Browse Source 
git-svn-id: trunk@26352 -
This commit is contained in:
mattias 2010-06-30 14:48:09 +00:00
parent c8d4c6b3c3
commit d9f60ea6a3
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

@ -1259,7 +1259,7 @@ begin
DefBounds.Top:=StrToIntDef(Top,0);
// right
if Right='' then
aRight:=AForm.Left+AForm.Width
aRight:=DefBounds.Left+AForm.Width
else if Right[length(Right)]='%' then
aRight:=Screen.Width*StrToIntDef(copy(Right,1,length(Right)-1),0) div 100
else
@ -1271,7 +1271,7 @@ begin
DefBounds.Right:=aRight;
// bottom
if Bottom='' then
aBottom:=AForm.Top+AForm.Height
aBottom:=DefBounds.Top+AForm.Height
else if Bottom[length(Bottom)]='%' then
aBottom:=Screen.Height*StrToIntDef(copy(Bottom,1,length(Bottom)-1),0) div 100
else