Sign in Join
FPDoc Onlineexperiment

TRect.Union procedure

Member of TRectIn unit Objects

Enlarges rectangle to encompass another rectangle.

Declaration

pascal
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

Example: ex3

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.