From 0cf1c8c60c37a8c5c61a420717ffd7f1151739ff Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 25 Sep 2009 01:01:13 +0000
Subject: [PATCH] TAChart: Add ZeroDoublePoint constant

git-svn-id: trunk@21851 -
---
 components/tachart/tachartutils.pas | 1 +
 components/tachart/tagraph.pas      | 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tachartutils.pas b/components/tachart/tachartutils.pas
index 6497932fcd..240884d380 100644
--- a/components/tachart/tachartutils.pas
+++ b/components/tachart/tachartutils.pas
@@ -112,6 +112,7 @@ const
     '%1:.2f%% of %3:g', // smsLabelPercentTotal
     '%4:g' // smsXValue
   );
+  ZeroDoublePoint: TDoublePoint = (X: 0; Y: 0);
   EmptyDoubleRect: TDoubleRect = (coords: (0, 0, 0, 0));
   EmptyExtent: TDoubleRect =
     (coords: (Infinity, Infinity, NegInfinity, NegInfinity));
diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index 576169b7c0..72650f8651 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -1182,8 +1182,7 @@ begin
   Unused(ADistFunc, APoint);
   AIndex := 0;
   AImg := Point(0, 0);
-  AValue.X := 0;
-  AValue.Y := 0;
+  Avalue := ZeroDoublePoint;
   Result := false;
 end;