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

TAChart: Fix axis line in a paned chart extending beyond the pane boundaries. Issue #39312.

Browse Source
This commit is contained in:
wp_xyz 2021-08-06 23:47:10 +02:00
parent 145bf90ea6
commit fd378d5650
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/taseries.pas
View File

@ -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;