paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 04:20:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Take minor ticks into account while measuring axis

Browse Source 
git-svn-id: trunk@31761 -
This commit is contained in:
ask 2011-07-20 10:02:17 +00:00
parent 437e34ed6f
commit 790e4b7ec7
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tachartaxis.pas
View File

@ -544,6 +544,15 @@ procedure TChartAxis.Measure(
Result := IfThen(IsVertical, cy, cx) div 2;
end;
function MaxMinorTick: Integer;
var
m: TCollectionItem;
begin
Result := 0;
for m in Minors do
Result := Max(TChartMinorAxis(m).TickLength, Result);
end;
var
sz, rmin, rmax, c, i: Integer;
begin
@ -557,6 +566,7 @@ begin
if sz > 0 then
sz += FHelper.FDrawer.Scale(TickLength) +
FHelper.FDrawer.Scale(Marks.Distance);
sz := Max(FHelper.FDrawer.Scale(MaxMinorTick), sz);
FHelper.GetClipRange(rmin, rmax);
with AMeasureData do begin
FSize := Max(sz, FSize);
@ -788,6 +798,7 @@ begin
axis.Measure(AExtent, g^);
ai += 1;
end;
// Axises of the same group should have the same Alignment and ZPosition.
Result[axis.Alignment] += g^.FSize + g^.FTitleSize;
end;
ai := 0;