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

* fix Types.UnionRect as proposed by Piotr Karasinski, resolves #20006

Browse Source 
git-svn-id: trunk@18246 -
This commit is contained in:
florian 2011-08-17 12:01:23 +00:00
parent 09e7570e57
commit 3e4469937c
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/objpas/types.pp
View File

@ -386,7 +386,7 @@ begin
if R2.Bottom>R1.Bottom then if R2.Bottom>R1.Bottom then
lRect.Bottom:=R2.Bottom; lRect.Bottom:=R2.Bottom;
if IsRectEmpty(Rect) then if IsRectEmpty(lRect) then
begin begin
FillChar(Rect,SizeOf(Rect),0); FillChar(Rect,SizeOf(Rect),0);
UnionRect:=false; UnionRect:=false;