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

UnionRect now looks to empty source rects

Browse Source 
git-svn-id: trunk@8318 -
This commit is contained in:
jesus 2005-12-14 16:03:42 +00:00
parent d8df871a10
commit 277243a09e
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/include/winapi.inc
View File

@ -1355,11 +1355,18 @@ end;
function UnionRect(var DestRect: TRect;
const SrcRect1, SrcRect2: TRect): Boolean;
begin
Result := True;
DestRect.Left := Min(SrcRect1.Left, SrcRect2.Left);
DestRect.Top := Min(SrcRect1.Top, SrcRect2.Top);
DestRect.Right := Max(SrcRect1.Right, SrcRect2.Right);
DestRect.Bottom := Max(SrcRect1.Bottom, SrcRect2.Bottom);
if IsRectEmpty(SrcRect1) then
DestRect := SrcRect2
else
if IsRectEmpty(SrcRect2) then
DestRect := SrcRect1
else begin
DestRect.Left := Min(SrcRect1.Left, SrcRect2.Left);
DestRect.Top := Min(SrcRect1.Top, SrcRect2.Top);
DestRect.Right := Max(SrcRect1.Right, SrcRect2.Right);
DestRect.Bottom := Max(SrcRect1.Bottom, SrcRect2.Bottom);
end;
Result := not IsRectEmpty(DestRect);
end;
//##apiwiz##epi## // Do not remove