aread.inc 581 B

123456789101112131415
  1. { setup }
  2. Function ptc_area_create(left, top, right, bottom : Integer) : TPTC_AREA;
  3. Procedure ptc_area_destroy(obj : TPTC_AREA);
  4. { data access }
  5. Function ptc_area_left(obj : TPTC_AREA) : Integer;
  6. Function ptc_area_top(obj : TPTC_AREA) : Integer;
  7. Function ptc_area_right(obj : TPTC_AREA) : Integer;
  8. Function ptc_area_bottom(obj : TPTC_AREA) : Integer;
  9. Function ptc_area_width(obj : TPTC_AREA) : Integer;
  10. Function ptc_area_height(obj : TPTC_AREA) : Integer;
  11. { operators }
  12. Procedure ptc_area_assign(obj, area : TPTC_AREA);
  13. Function ptc_area_equals(obj, area : TPTC_AREA) : Boolean;