From 54ee41a4760a4b5a591072bb5228117fc854fe9e Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Thu, 19 Aug 2010 10:43:02 +0000
Subject: [PATCH] TAChart: Fix percentage calculation

git-svn-id: trunk@27146 -
---
 components/tachart/tasources.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tasources.pas b/components/tachart/tasources.pas
index 9523182669..65e9721043 100644
--- a/components/tachart/tasources.pas
+++ b/components/tachart/tasources.pas
@@ -1267,9 +1267,9 @@ var
 begin
   if not Percentage then exit;
   s := FItem.Y + Sum(FItem.YList);
-  FItem.Y /= s / PERCENT;
+  FItem.Y /= s * PERCENT;
   for i := 0 to High(FItem.YList) do
-    FItem.YList[i] /= s / PERCENT;
+    FItem.YList[i] /= s * PERCENT;
 end;
 
 procedure TCalculatedChartSource.Changed(ASender: TObject);