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

IDE: fix default window positions. Issue #14433

Browse Source 
git-svn-id: trunk@54364 -
This commit is contained in:
ondrej 2017-03-08 08:41:40 +00:00
parent 2ae6d28ebf
commit 9889366834
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/idewindowintf.pas
View File

@ -2033,14 +2033,14 @@ begin
// left
if Left='' then
DefBounds.Left:=AForm.Left
DefBounds.Left:=ScreenR.Left+AForm.Left
else if Left[length(Left)]='%' then
DefBounds.Left:=ScreenR.Left+ScreenW*StrToIntDef(copy(Left,1,length(Left)-1),0) div 100
else
DefBounds.Left:=ScreenR.Left+StrToIntDef(Left,0);
// top
if Top='' then
DefBounds.Top:=AForm.Top
DefBounds.Top:=ScreenR.Top+AForm.Top
else if Top[length(Top)]='%' then
DefBounds.Top:=ScreenR.Top+ScreenH*StrToIntDef(copy(Top,1,length(Top)-1),0) div 100
else

2
ide/main.pp
View File

@ -12297,7 +12297,7 @@ begin
// place object inspector below main bar
ScreenR:=IDEWindowCreators.GetScreenrectForDefaults;
aBounds:=Rect(ScreenR.Left,
Min(MainIDEBar.Top+MainIDEBar.Height+25,200),230,
Min(MainIDEBar.Top+MainIDEBar.Height+25,200),ScreenR.Left+230,
ScreenR.Bottom-ScreenR.Top-150);
// do not dock object inspector, because this would hide the floating designers
end