[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'Objects' (#rtl)

TRect.Union

Enlarges rectangle to encompass another rectangle.

Declaration

Source position: objects.pp line 248

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

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.

Documentation generated on: Jun 22 2020