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

TaChart: change a method from private to protected. Issue #26439, patch from TK.

Browse Source 
git-svn-id: trunk@45763 -
This commit is contained in:
juha 2014-07-03 11:51:05 +00:00
parent 40e463a9c2
commit 4f4a01b473
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/taseries.pas
View File

@ -53,8 +53,6 @@ type
FOnBeforeDrawBar: TBeforeDrawBarEvent; FOnBeforeDrawBar: TBeforeDrawBarEvent;
FZeroLevel: Double; FZeroLevel: Double;
procedure BarOffsetWidth(
AX: Double; AIndex: Integer; out AOffset, AWidth: Double);
function IsZeroLevelStored: boolean; function IsZeroLevelStored: boolean;
procedure SetBarBrush(Value: TBrush); procedure SetBarBrush(Value: TBrush);
procedure SetBarOffsetPercent(AValue: Integer); procedure SetBarOffsetPercent(AValue: Integer);
@ -67,6 +65,8 @@ type
strict protected strict protected
function GetLabelDataPoint(AIndex: Integer): TDoublePoint; override; function GetLabelDataPoint(AIndex: Integer): TDoublePoint; override;
protected protected
procedure BarOffsetWidth(
AX: Double; AIndex: Integer; out AOffset, AWidth: Double);
procedure GetLegendItems(AItems: TChartLegendItems); override; procedure GetLegendItems(AItems: TChartLegendItems); override;
function GetSeriesColor: TColor; override; function GetSeriesColor: TColor; override;
function GetZeroLevel: Double; override; function GetZeroLevel: Double; override;