home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / objectex / ex1.pp next >
Encoding:
Text File  |  2000-01-01  |  631 b   |  43 lines

  1. Program ex1;
  2.  
  3. { Program to demonstrate TRect.Empty }
  4.  
  5. Uses objects;
  6.  
  7.  
  8. Var ARect,BRect : TRect;
  9.     P : TPoint;
  10.     
  11. begin
  12.   With ARect.A do
  13.     begin
  14.     X:=10;
  15.     Y:=10;
  16.     end;
  17.   With ARect.B do
  18.     begin
  19.     X:=20;
  20.     Y:=20;
  21.     end;
  22.   { Offset B by (5,5) }
  23.   With BRect.A do
  24.     begin
  25.     X:=15;
  26.     Y:=15;
  27.     end;
  28.   With BRect.B do
  29.     begin
  30.     X:=25;
  31.     Y:=25;
  32.     end;
  33.   { Point }
  34.   With P do
  35.     begin
  36.     X:=15;
  37.     Y:=15;
  38.     end;
  39.   Writeln ('A empty : ',ARect.Empty);
  40.   Writeln ('B empty : ',BRect.Empty);
  41.   Writeln ('A Equals B : ',ARect.Equals(BRect));
  42.   Writeln ('A Contains (15,15) : ',ARect.Contains(P));
  43. end.