Reference for package '#rtl'

TRect.Union

Enlarges rectangle to encompass another rectangle.

Declaration

Source position: objects.pp line 274

default 
  procedure Union(R: TRect);

Description

Union enlarges the current rectangle so that it becomes the union of the current rectangle with the rectangle R.

Errors

None.

See also

Name Description
TRect.Intersect Reduce rectangle to intersection with another rectangle

Example

Program ex3;
{ Program to demonstrate TRect.Union }
Uses objects;
Var ARect,BRect,CRect : TRect;
begin
  ARect.Assign(10,10,20,20);
  BRect.Assign(15,15,25,25);
  { CRect is union of ARect and BRect }
  CRect.Assign(10,10,25,25);
  { Calculate it explicitly}
  ARect.Union(BRect);
  If ARect.Equals(CRect) Then
    Writeln ('ARect equals CRect')
  Else
    Writeln ('ARect does not equal CRect !');
end.