paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 21:35:57 +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 uses
Classes, Graphics, Types, Classes, Graphics, Types,
TAChartUtils, TADrawUtils, TACustomSeries, TALegend, TARadialSeries, TATypes; TAChartUtils, TADrawUtils, TACustomSeries, TALegend, TARadialSeries, TATypes,
TAChartAxis;
const const
DEF_BAR_WIDTH_PERCENT = 70; DEF_BAR_WIDTH_PERCENT = 70;
@ -351,6 +352,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Draw(ADrawer: IChartDrawer); override; procedure Draw(ADrawer: IChartDrawer); override;
function GetAxisBounds(AAxis: TChartAxis; out AMin, AMax: Double): Boolean; override;
function GetNearestPoint( function GetNearestPoint(
const AParams: TNearestPointParams; const AParams: TNearestPointParams;
out AResults: TNearestPointResults): Boolean; override; out AResults: TNearestPointResults): Boolean; override;
@ -1072,6 +1074,11 @@ begin
end; end;
end; end;
function TConstantLine.GetAxisBounds(AAxis: TChartAxis; out AMin, AMax: Double): Boolean;
begin
Result := false;
end;
function TConstantLine.GetAxisIndex: TChartAxisIndex; function TConstantLine.GetAxisIndex: TChartAxisIndex;
begin begin
Result := inherited AxisIndexX; Result := inherited AxisIndexX;