paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* change trect.contains(tpoint) to not have bottom and right borders inclusive.

Browse Source 
Mantis #32861.  trect.contains(trect) still pending

git-svn-id: trunk@37773 -
This commit is contained in:
marco 2017-12-21 11:25:46 +00:00
parent 5e26142e54
commit 615b50fadf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/typshrd.inc
View File

@ -284,7 +284,7 @@ end;
function TRect.Contains(Pt: TPoint): Boolean;
begin
Result := (Left <= Pt.X) and (Pt.X <= Right) and (Top <= Pt.Y) and (Pt.Y <= Bottom);
Result := (Left <= Pt.X) and (Pt.X < Right) and (Top <= Pt.Y) and (Pt.Y < Bottom);
end;
function TRect.Contains(R: TRect): Boolean;