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

LCL: write a piece of code in a shorter way.

Browse Source 
git-svn-id: trunk@30260 -
This commit is contained in:
juha 2011-04-10 17:07:39 +00:00
parent 1fbf4abaa6
commit 4d7d059433
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lclproc.pas
View File

@ -1359,10 +1359,7 @@ Begin
Top := Top + dy;
Bottom := Bottom + dy;
end;
if (ARect.Left >= 0) and (ARect.Top >= 0) then
Result := True
else
Result := False;
Result := (ARect.Left >= 0) and (ARect.Top >= 0);
end;
procedure FreeThenNil(var obj);