[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] 
Reduce rectangle to intersection with another rectangle
Source position: objects.pp line 244
procedure TRect.Intersect( 
R: TRect 
); 
Intersect makes the intersection of the current rectangle with R. If the intersection is empty, then the rectangle is set to the empty rectangle at coordinate (0,0).
None.

Enlarges rectangle to encompas another rectangle. 
Program ex4; { Program to demonstrate TRect.Intersect } Uses objects; Var ARect,BRect,CRect : TRect; begin ARect.Assign(10,10,20,20); BRect.Assign(15,15,25,25); { CRect is intersection of ARect and BRect } CRect.Assign(15,15,20,20); { Calculate it explicitly} ARect.Intersect(BRect); If ARect.Equals(CRect) Then Writeln ('ARect equals CRect') Else Writeln ('ARect does not equal CRect !'); BRect.Assign(25,25,30,30); Arect.Intersect(BRect); If ARect.Empty Then Writeln ('ARect is empty'); end.