1 files changed, 140 insertions, 0 deletions
diff --git a/packages/ptc/src/c_api/area.inc b/packages/ptc/src/c_api/area.inc
new file mode 100644
index 0000000000..eca3130933
--- /dev/null
+++ b/packages/ptc/src/c_api/area.inc
@@ -0,0 +1,140 @@
+Function ptc_area_create(left, top, right, bottom : Integer) : TPTC_AREA;
+
+Begin
+  Try
+    ptc_area_create := TPTC_AREA(TPTCArea.Create(left, top, right, bottom));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_create := Nil;
+    End;
+  End;
+End;
+
+Procedure ptc_area_destroy(obj : TPTC_AREA);
+
+Begin
+  If obj = Nil Then
+    Exit;
+  Try
+    TPTCArea(obj).Destroy;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+    End;
+  End;
+End;
+
+Function ptc_area_left(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_left := TPTCArea(obj).left;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_left := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_top(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_top := TPTCArea(obj).top;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_top := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_right(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_right := TPTCArea(obj).right;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_right := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_bottom(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_bottom := TPTCArea(obj).bottom;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_bottom := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_width(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_width := TPTCArea(obj).width;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_width := 0;
+    End;
+  End;
+End;
+
+Function ptc_area_height(obj : TPTC_AREA) : Integer;
+
+Begin
+  Try
+    ptc_area_height := TPTCArea(obj).height;
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_height := 0;
+    End;
+  End;
+End;
+
+Procedure ptc_area_assign(obj, area : TPTC_AREA);
+
+Begin
+  Try
+    TPTCArea(obj).ASSign(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+    End;
+  End;
+End;
+
+Function ptc_area_equals(obj, area : TPTC_AREA) : Boolean;
+
+Begin
+  Try
+    ptc_area_equals := TPTCArea(obj).Equals(TPTCArea(area));
+  Except
+    On error : TPTCError Do
+    Begin
+      ptc_exception_handle(error);
+      ptc_area_equals := False;
+    End;
+  End;
+End;
+