Skip to content

    TRect.Union

    Enlarges rectangle to encompass another rectangle.

    Declaration

    Source position: objects.pp line 276

    procedure TRect.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.