mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 17:39:20 +02:00
TAChart: Remove unused method SetAxisColor
git-svn-id: trunk@24270 -
This commit is contained in:
parent
290606207c
commit
e88dd4706f
@ -120,7 +120,7 @@ type
|
||||
TChart = class(TCustomChart, ICoordTransformer)
|
||||
private // Property fields
|
||||
FAllowZoom: Boolean;
|
||||
FAxisColor: TColor;
|
||||
FAxisList: TChartAxisList;
|
||||
FAxisVisible: Boolean;
|
||||
FBackColor: TColor;
|
||||
FDepth: TChartDistance;
|
||||
@ -136,7 +136,6 @@ type
|
||||
FTitle: TChartTitle;
|
||||
|
||||
private
|
||||
FAxisList: TChartAxisList;
|
||||
FClipRect: TRect;
|
||||
FCurrentExtent: TDoubleRect;
|
||||
FIsMouseDown: Boolean;
|
||||
@ -158,7 +157,6 @@ type
|
||||
procedure PrepareXorPen;
|
||||
|
||||
procedure SetAxis(AIndex: Integer; AValue: TChartAxis);
|
||||
procedure SetAxisColor(const AValue: TColor);
|
||||
procedure SetAxisList(AValue: TChartAxisList);
|
||||
procedure SetAxisVisible(Value: Boolean);
|
||||
procedure SetBackColor(const AValue: TColor);
|
||||
@ -769,13 +767,6 @@ begin
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TChart.SetAxisColor(const AValue: TColor);
|
||||
begin
|
||||
if FAxisColor = AValue then exit;
|
||||
FAxisColor := AValue;
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
procedure TChart.SetAxisList(AValue: TChartAxisList);
|
||||
begin
|
||||
FAxisList.Assign(AValue);
|
||||
|
Loading…
Reference in New Issue
Block a user