paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 01:22:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: center lost window: min size 70x70, set WindowState to wsNormal

Browse Source 
git-svn-id: trunk@42138 -
This commit is contained in:
mattias 2013-07-19 09:39:06 +00:00
parent 2d2d2abe02
commit daa7994b98
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/mainbase.pas
View File

@ -269,10 +269,11 @@ begin
NewBounds.Top:=(r.Top+r.Bottom-Form.Height) div 2
else
NewBounds.Top:=r.Top+50;
NewBounds.Right:=NewBounds.Left+Max(200,Form.Width);
NewBounds.Bottom:=NewBounds.Top+Max(200,Form.Height);
NewBounds.Right:=NewBounds.Left+Max(70,Form.Width);
NewBounds.Bottom:=NewBounds.Top+Max(70,Form.Height);
debugln(['TMainIDEBase.mnuCenterWindowItemClick New=',dbgs(NewBounds)]);
Form.BoundsRect:=NewBounds;
Form.WindowState:=wsNormal;
end;
break;
end;