From cdbd6d7fc4048a271fc98e0949c38ca99ed9c697 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Mon, 8 Aug 2011 09:29:40 +0000
Subject: [PATCH] TAChart: Fix minor marks after the last mark provided by the
 list source

git-svn-id: trunk@31911 -
---
 components/tachart/tacustomsource.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tacustomsource.pas b/components/tachart/tacustomsource.pas
index c7f7021c18..79c6796825 100644
--- a/components/tachart/tacustomsource.pas
+++ b/components/tachart/tacustomsource.pas
@@ -617,8 +617,9 @@ begin
     Push(v, i);
     li := i;
   end;
-  if not InRange(v, AParams.FMin, AParams.FMax) then
-    Push(v, li);
+  if li < Count - 1 then
+    with Item[li + 1]^ do
+      Push(IfThen(AParams.FUseY, Y, X), li + 1);
   SetLength(AValues, cnt);
 end;