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

TAChart: Remove TChart.GraphBrush property which did nothing

Browse Source 
git-svn-id: trunk@39073 -
This commit is contained in:
ask 2012-10-13 16:18:51 +00:00
parent 056e3bdecd
commit 0278f15753
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tagraph.pas
View File

@ -173,7 +173,6 @@ type
FExtentSizeLimit: TChartExtent;
FFoot: TChartTitle;
FFrame: TChartPen;
FGraphBrush: TBrush;
FLegend: TChartLegend;
FLogicalExtent: TDoubleRect;
FMargins: TChartMargins;
@ -232,7 +231,6 @@ type
procedure SetExtentSizeLimit(AValue: TChartExtent);
procedure SetFoot(Value: TChartTitle);
procedure SetFrame(Value: TChartPen);
procedure SetGraphBrush(Value: TBrush);
procedure SetLegend(Value: TChartLegend);
procedure SetLogicalExtent(const AValue: TDoubleRect);
procedure SetMargins(AValue: TChartMargins);
@ -361,7 +359,6 @@ type
property ExtentSizeLimit: TChartExtent read FExtentSizeLimit write SetExtentSizeLimit;
property Foot: TChartTitle read FFoot write SetFoot;
property Frame: TChartPen read FFrame write SetFrame;
property GraphBrush: TBrush read FGraphBrush write SetGraphBrush;
property LeftAxis: TChartAxis index calLeft read GetAxisByAlign write SetAxisByAlign stored false;
property Legend: TChartLegend read FLegend write SetLegend;
property Margins: TChartMargins read FMargins write SetMargins;
@ -607,9 +604,6 @@ begin
FIsZoomed := false;
FGraphBrush := TBrush.Create;
FGraphBrush.OnChange := @StyleChanged;
FLegend := TChartLegend.Create(Self);
FTitle := TChartTitle.Create(Self);
FTitle.Alignment := taCenter;
@ -654,7 +648,6 @@ end;
destructor TChart.Destroy;
begin
FreeAndNil(FSeries);
FreeAndNil(FGraphBrush);
FreeAndNil(FLegend);
FreeAndNil(FTitle);
@ -1360,11 +1353,6 @@ begin
StyleChanged(Self);
end;
procedure TChart.SetGraphBrush(Value: TBrush);
begin
FGraphBrush.Assign(Value);
end;
procedure TChart.SetLegend(Value: TChartLegend);
begin
FLegend.Assign(Value);