lowlevelunit.pas: point() converter

1 files changed, 14 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 37a6267..2fb1710 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -142,6 +142,8 @@ function tIntPointToStr(p: tIntPoint): string;
 function strToTIntPoint(s: string): tIntPoint;
 function tInt64PointToStr(p: tInt64Point): string;
 procedure fehler(s: string);
+function point(x: tIntPoint): tPoint; overload;
+function point(x: tInt64Point): tPoint; overload;
 function intPoint(x,y: longint): tIntPoint;
 function int64Point(x,y: int64): tInt64Point;
 function extPoint(x,y: extended): tExtPoint; overload;
@@ -1048,6 +1050,18 @@ begin
   raise exception.create(s);
 end;
 
+function point(x: tIntPoint): tPoint;
+begin
+  result.x:=x['x'];
+  result.y:=x['y'];
+end;
+
+function point(x: tInt64Point): tPoint;
+begin
+  result.x:=x['x'];
+  result.y:=x['y'];
+end;
+
 function intPoint(x,y: longint): tIntPoint;
 begin
   result['x']:=x;