blob: a08fbba81936954d34aad512b175f28b636a07c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program ex6;
{ Program to demonstrate TRect.Grow }
Uses objects;
Var ARect,BRect : TRect;
begin
ARect.Assign(10,10,20,20);
ARect.Grow(5,5);
// Brect should be where new ARect is.
BRect.Assign(5,5,25,25);
If ARect.Equals(BRect) Then
Writeln ('ARect equals BRect')
Else
Writeln ('ARect does not equal BRect !');
end.
|
