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

TAChart: Update chart on AreaBrush and AreaLinePen changes.

Browse Source 
* Remove unneeded AreaPen.Visible property
* Whitespace fixes

git-svn-id: trunk@22009 -
This commit is contained in:
ask 2009-10-03 22:37:46 +00:00
parent f5ce406aee
commit 2d9766a528
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tagraph.pas
View File

@ -1141,7 +1141,7 @@ begin
Unused(ADistFunc, APoint);
AIndex := 0;
AImg := Point(0, 0);
Avalue := ZeroDoublePoint;
AValue := ZeroDoublePoint;
Result := false;
end;

11
components/tachart/taseries.pas
View File

@ -106,7 +106,7 @@ type
TAreaSeries = class(TBasicPointSeries)
private
FAreaBrush: TBrush;
FAreaLinesPen: TChartPen;
FAreaLinesPen: TPen;
FInvertedStairs: Boolean;
FStairs: Boolean;
@ -119,12 +119,12 @@ type
procedure SetSeriesColor(const AValue: TColor); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
destructor Destroy; override;
procedure Draw(ACanvas: TCanvas); override;
published
property AreaBrush: TBrush read FAreaBrush write SetAreaBrush;
property AreaLinesPen: TChartPen read FAreaLinesPen write FAreaLinesPen;
property AreaLinesPen: TPen read FAreaLinesPen write FAreaLinesPen;
property Depth;
property InvertedStairs: Boolean
read FInvertedStairs write SetInvertedStairs default false;
@ -895,8 +895,11 @@ end;
constructor TAreaSeries.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FAreaLinesPen := TChartPen.Create;
FAreaLinesPen := TPen.Create;
FAreaLinesPen.OnChange := @StyleChanged;
FAreaBrush := TBrush.Create;
FAreaBrush.OnChange := @StyleChanged;
end;
destructor TAreaSeries.Destroy;

2
components/tachart/tatypes.pas
View File

@ -397,7 +397,7 @@ begin
if Source is TChartPen then
with TChartPen(Source) do
FVisible := Visible;
inherited Assign( Source );
inherited Assign(Source);
end;
constructor TChartPen.Create;