paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 13:59:24 +01: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); Push(v, i);
li := i; li := i;
end; end;
if not InRange(v, AParams.FMin, AParams.FMax) then if li < Count - 1 then
Push(v, li); with Item[li + 1]^ do
Push(IfThen(AParams.FUseY, Y, X), li + 1);
SetLength(AValues, cnt); SetLength(AValues, cnt);
end; end;