Copy cornerpoints from another rectangle.
Source position: objects.pp line 275
procedure TRect.Copy( |
R: TRect |
); |
Assigns the rectangle R to the object. After the call to Copy, the rectangle R has been copied to the object that invoked Copy.
None.
|
Set rectangle corners. |
Program ex2; { Program to demonstrate TRect.Copy } Uses objects; Var ARect,BRect,CRect : TRect; begin ARect.Assign(10,10,20,20); BRect.Assign(15,15,25,25); CRect.Copy(ARect); If ARect.Equals(CRect) Then Writeln ('ARect equals CRect') Else Writeln ('ARect does not equal CRect !'); end.