paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 20:41:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix disappearance of axis marks located exactly at chart bounds

Browse Source 
git-svn-id: trunk@38233 -
This commit is contained in:
ask 2012-08-13 11:47:45 +00:00
parent 09924a0960
commit 1252e5d6dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tachartaxisutils.pas
View File

@ -270,7 +270,7 @@ implementation
uses
Math, SysUtils,
TAGeometry;
TAGeometry, TAMath;
{ TChartMinorAxisMarks }
@ -326,7 +326,7 @@ var
begin
coord := GraphToImage(AMark);
if
not IsInClipRange(coord) or not InRange(AMark, FValueMin, FValueMax)
not IsInClipRange(coord) or not InRangeUlps(AMark, FValueMin, FValueMax, 2)
then exit;
if FAxis.Grid.Visible then begin