From ccbc4bbb33ae4ffc9ad3e554d9298c632fd1571e Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 4 Jun 2010 09:20:22 +0000
Subject: [PATCH] TAChart: Add DoublePoint utility function

git-svn-id: trunk@25887 -
---
 components/tachart/tachartutils.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/tachart/tachartutils.pas b/components/tachart/tachartutils.pas
index 72fb2663f4..1c7d24c61b 100644
--- a/components/tachart/tachartutils.pas
+++ b/components/tachart/tachartutils.pas
@@ -192,6 +192,7 @@ const
 
 function BoundsSize(ALeft, ATop: Integer; ASize: TSize): TRect; inline;
 
+function DoublePoint(AX, AY: Double): TDoublePoint; inline;
 function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
 
 procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer);
@@ -318,6 +319,12 @@ begin
   end; {case AxisScale}
 end;
 
+function DoublePoint(AX, AY: Double): TDoublePoint; inline;
+begin
+  Result.X := AX;
+  Result.Y := AY;
+end;
+
 function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
 begin
   Result.a.X := AX1;