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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50283 -
This commit is contained in:
mattias 2015-11-11 12:55:35 +00:00
parent d51c479ac4
commit 8e6619ee06
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customform.inc
View File

@ -1259,8 +1259,6 @@ procedure TCustomForm.MoveToDefaultPosition;
Y := (Y - Source.Top) + ABounds.Top;
// check that we are still in the desired monitor
with Target.BoundsRect do
begin
if X + Width > ABounds.Right then
X := ABounds.Right - Width;
if X < ABounds.Left then
@ -1270,7 +1268,6 @@ procedure TCustomForm.MoveToDefaultPosition;
Y := ABounds.Bottom - Height;
if Y < ABounds.Top then
Y := ABounds.Top;
end;
end
else
begin