From fd378d56506d34864c84b3385f900e850a40d2e8 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Fri, 6 Aug 2021 23:47:10 +0200
Subject: [PATCH] TAChart: Fix axis line in a paned chart extending beyond the
 pane boundaries. Issue #39312.

---
 components/tachart/taseries.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 801a19b3d2..36dc1a4056 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -25,7 +25,8 @@ interface
 
 uses
   Classes, Graphics, Types,
-  TAChartUtils, TADrawUtils, TACustomSeries, TALegend, TARadialSeries, TATypes;
+  TAChartUtils, TADrawUtils, TACustomSeries, TALegend, TARadialSeries, TATypes,
+  TAChartAxis;
 
 const
   DEF_BAR_WIDTH_PERCENT = 70;
@@ -351,6 +352,7 @@ type
     destructor Destroy; override;
 
     procedure Draw(ADrawer: IChartDrawer); override;
+    function GetAxisBounds(AAxis: TChartAxis; out AMin, AMax: Double): Boolean; override;
     function GetNearestPoint(
       const AParams: TNearestPointParams;
       out AResults: TNearestPointResults): Boolean; override;
@@ -1072,6 +1074,11 @@ begin
     end;
 end;
 
+function TConstantLine.GetAxisBounds(AAxis: TChartAxis; out AMin, AMax: Double): Boolean;
+begin
+  Result := false;
+end;
+
 function TConstantLine.GetAxisIndex: TChartAxisIndex;
 begin
   Result := inherited AxisIndexX;