paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 16:34:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Display major axis marks at the edges of the clip range

Browse Source 
git-svn-id: trunk@37565 -
This commit is contained in:
ask 2012-06-07 13:40:04 +00:00
parent 59834c98ec
commit 1f29550b44
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tachartaxis.pas
View File

@ -466,6 +466,7 @@ procedure TChartAxis.Draw;
FValueMax := Min(FAxisTransf(AMax), FValueMax);
if FValueMax <= FValueMin then continue;
ExpandRange(FValueMin, FValueMax, -EPS);
FClipRangeDelta := 1;
try
BeginDrawing;
for m in minorMarks do

3
components/tachart/tachartaxisutils.pas
View File

@ -211,6 +211,7 @@ type
public
FAxis: TChartBasicAxis;
FAxisTransf: TTransformFunc;
FClipRangeDelta: Integer;
FClipRect: ^TRect;
FDrawer: IChartDrawer;
FPrevCoord: Integer;
@ -357,7 +358,7 @@ var
rmin, rmax: Integer;
begin
GetClipRange(rmin, rmax);
Result := InRange(ACoord, rmin + 1, rmax - 1);
Result := InRange(ACoord, rmin + FClipRangeDelta, rmax - FClipRangeDelta);
end;
procedure TAxisDrawHelper.LineZ(AP1, AP2: TPoint);