paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 09:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix minor marks after the last mark provided by the list source

Browse Source 
git-svn-id: trunk@31911 -
This commit is contained in:
ask 2011-08-08 09:29:40 +00:00
parent d7a3cef84d
commit cdbd6d7fc4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tacustomsource.pas
View File

@ -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;