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

TAChart: Fix TAChartExtentLink ignoring the size of the axis title.

Browse Source 
git-svn-id: trunk@64909 -
This commit is contained in:
wp 2021-04-03 11:40:55 +00:00
parent 8c91f78ac6
commit b2fec33aad
2 changed files with 24 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tachartaxis.pas
View File

@ -167,6 +167,7 @@ type
procedure Measure(const AExtent: TDoubleRect; const AClipRect: TRect;
var AMeasureData: TChartAxisGroup);
function MeasureLabelSize(ADrawer: IChartDrawer): Integer;
function MeasureTitleSize(ADrawer: IChartDrawer): Integer;
function PositionToCoord(const ARect: TRect): Integer;
procedure PrepareHelper(
ADrawer: IChartDrawer; const ATransf: ICoordTransformer;
@ -924,6 +925,14 @@ begin
Result := round(sz / ADrawer.Scale(1));
end;
function TChartAxis.MeasureTitleSize(ADrawer: IChartDrawer): Integer;
var
sz: TSize;
begin
sz := Title.MeasureLabel(ADrawer, GetRealTitle);
Result := IfThen(IsVertical, sz.CX, sz.CY);
end;
function TChartAxis.PositionIsStored: Boolean;
begin
Result := not SameValue(Position, 0.0);

22
components/tachart/tachartextentlink.pas
View File

@ -63,7 +63,8 @@ procedure Register;
implementation
uses
SysUtils, Math, TAGeometry, TAChartAxis;
SysUtils, Math, Types,
TAGeometry, TAChartAxis;
procedure Register;
begin
@ -155,13 +156,15 @@ begin
inherited;
end;
// Note: ignores several axes on the same chart side
// Note: ignores multiple axes on the same chart side
procedure TChartExtentLink.DoAlignSides;
var
c: TCollectionItem;
ch: TChart;
labelSize: array[TChartAxisAlignment] of Integer = (0, 0, 0, 0);
sideUsed: array[TChartAxisAlignment] of boolean = (false, false, false, false);
maxLabelSize: array[TChartAxisAlignment] of Integer = (0, 0, 0, 0);
maxTitleSize: array[TChartAxisAlignment] of Integer = (0, 0, 0, 0);
titleSize: Integer;
al: TChartAxisAlignment;
axis: TChartAxis;
begin
@ -170,10 +173,13 @@ begin
FillChar(sideUsed, SizeOf(sideUsed), 0);
for al in TChartAxisAlignment do
if (al in FAlignsides) and not sideUsed[al] then begin
sideUsed[al] := true;
sideUsed[al] := true; // avoid using another axis on the same side
axis := ch.AxisList.GetAxisByAlign(al);
if axis <> nil then
labelsize[al] := Max(labelsize[al], axis.MeasureLabelSize(ch.Drawer));
begin
maxTitleSize[al] := axis.MeasureTitleSize(ch.Drawer);
maxLabelSize[al] := Max(maxLabelSize[al], axis.MeasureLabelSize(ch.Drawer));
end;
end;
end;
@ -186,8 +192,10 @@ begin
if (al in FAlignSides) and not sideUsed[al] then
sideUsed[al] := true;
if sideUsed[al] then
axis.labelSize := labelSize[al]
else
begin
titleSize := axis.MeasureTitleSize(ch.Drawer);
axis.LabelSize := maxTitleSize[al] + maxLabelSize[al] - titleSize;
end else
axis.LabelSize := 0;
end;
end;