paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix misalignment of axis position of charts linked by TChartExtentLink when an axis has no title. Forum https://forum.lazarus.freepascal.org/index.php/topic,67087.msg515909.html#msg515909

Browse Source
This commit is contained in:
wp_xyz 2024-04-29 11:55:45 +02:00
parent c20d767f70
commit c285c06219
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartextentlink.pas
View File

@ -246,6 +246,8 @@ begin
if axis <> nil then
begin
titleSize := axis.MeasureTitleSize(ch.Drawer);
if (maxTitleSize[al] <> 0) and (not axis.Title.Visible or (axis.Title.Caption = '')) then
dec(titleSize, axis.Title.Distance);
axis.LabelSize := maxTitleSize[al] + maxLabelSize[al] - titleSize;
end;
end;