From 038d1618368c16cf3a738ecd3cf64553af04da83 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Wed, 23 Mar 2011 06:38:34 +0000
Subject: [PATCH] TAChart: Draw psCircle pointers of the same size as other
 types

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

diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index b85676450e..bde01c35a2 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -835,9 +835,9 @@ begin
   if Style = psCircle then
     ADrawer.Ellipse(
       ACenter.X - ASize.X, ACenter.Y - ASize.Y,
-      ACenter.X + ASize.X, ACenter.Y + ASize.Y)
+      ACenter.X + ASize.X + 1, ACenter.Y + ASize.Y + 1)
   else
-    DrawByString(DRAW_STRINGS[FStyle] + ' ');
+    DrawByString(DRAW_STRINGS[Style] + ' ');
 end;
 
 procedure TSeriesPointer.SetBrush(AValue: TBrush);