From 80486ae12e57fcf6e6afea4db529c1e1ab9e1982 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Tue, 28 Jun 2011 16:03:36 +0000
Subject: [PATCH] TAChart: Do not draw pointers with Visible = false

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

diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index c9245717c5..13042a0b26 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -500,12 +500,12 @@ begin
   DrawLines;
   DrawLabels(ADrawer);
 
-  if FShowPoints then
+  if ShowPoints and Pointer.Visible then
     for i := FLoBound to FUpBound do begin
       p := FGraphPoints[i - FLoBound];
       if not ParentChart.IsPointInViewPort(p) then continue;
       ai := ParentChart.GraphToImage(p);
-      FPointer.Draw(ADrawer, ai, Source[i]^.Color);
+      Pointer.Draw(ADrawer, ai, Source[i]^.Color);
       if Supports(ADrawer, IChartTCanvasDrawer, ic) and Assigned(FOnDrawPointer) then
         FOnDrawPointer(Self, ic.Canvas, i, ai);
     end;