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

TAChart: Move property Stacked from TAreaSeries/TLineSeries to tbeir ancestor TBasicPointSeries

Browse Source 
git-svn-id: trunk@53918 -
This commit is contained in:
wp 2017-01-10 22:53:36 +00:00
parent 0028c7e58f
commit bb5823ecc2
2 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tacustomseries.pas
View File

@ -255,12 +255,14 @@ type
function GetLabelDirection(AIndex: Integer): TLabelDirection;
procedure SetMarkPositions(AValue: TLinearMarkPositions);
procedure SetPointer(AValue: TSeriesPointer);
procedure SetStacked(AValue: Boolean);
procedure SetUseReticule(AValue: Boolean);
strict protected
FGraphPoints: array of TDoublePoint;
FLoBound: Integer;
FMinXRange: Double;
FPointer: TSeriesPointer;
FStacked: Boolean;
FUpBound: Integer;
FUseReticule: Boolean;
@ -282,6 +284,7 @@ type
procedure UpdateMinXRange;
property Pointer: TSeriesPointer read FPointer write SetPointer;
property Stacked: Boolean read FStacked write SetStacked;
protected
procedure AfterAdd; override;
procedure UpdateMargins(ADrawer: IChartDrawer; var AMargins: TRect); override;
@ -1358,6 +1361,13 @@ begin
UpdateParentChart;
end;
procedure TBasicPointSeries.SetStacked(AValue: Boolean);
begin
if FStacked = AValue then exit;
FStacked := AValue;
UpdateParentChart;
end;
procedure TBasicPointSeries.SetUseReticule(AValue: Boolean);
begin
if FUseReticule = AValue then exit;

22
components/tachart/taseries.pas
View File

@ -137,7 +137,6 @@ type
FAreaContourPen: TPen;
FAreaLinesPen: TPen;
FConnectType: TConnectType;
FStacked: Boolean;
FUseZeroLevel: Boolean;
FZeroLevel: Double;
@ -147,7 +146,6 @@ type
procedure SetAreaLinesPen(AValue: TPen);
procedure SetConnectType(AValue: TConnectType);
procedure SetSeriesColor(AValue: TColor);
procedure SetStacked(AValue: Boolean);
procedure SetUseZeroLevel(AValue: Boolean);
procedure SetZeroLevel(AValue: Double);
protected
@ -174,7 +172,7 @@ type
property SeriesColor: TColor
read GetSeriesColor write SetSeriesColor stored false default clWhite;
property Source;
property Stacked: Boolean read FStacked write SetStacked default true;
property Stacked default true;
property Styles;
property UseReticule;
property UseZeroLevel: Boolean
@ -197,7 +195,6 @@ type
FLineType: TLineType;
FOnDrawPointer: TSeriesPointerDrawEvent;
FShowPoints: Boolean;
FStacked: Boolean;
procedure DrawSingleLineInStack(ADrawer: IChartDrawer; AIndex: Integer);
function GetShowLines: Boolean;
@ -206,7 +203,6 @@ type
procedure SetSeriesColor(AValue: TColor);
procedure SetShowLines(Value: Boolean);
procedure SetShowPoints(AValue: Boolean);
procedure SetStacked(AValue: Boolean);
protected
procedure AfterDrawPointer(
ADrawer: IChartDrawer; AIndex: Integer; const APos: TPoint); override;
@ -236,8 +232,7 @@ type
read GetShowLines write SetShowLines stored false default true;
property ShowPoints: Boolean
read FShowPoints write SetShowPoints default false;
property Stacked: Boolean
read FStacked write SetStacked default false;
property Stacked default false;
property Source;
property Styles;
property UseReticule default true;
@ -671,12 +666,6 @@ begin
UpdateParentChart;
end;
procedure TLineSeries.SetStacked(AValue: Boolean);
begin
if FStacked = AValue then exit;
FStacked := AValue;
UpdateParentChart;
end;
{ TManhattanSeries }
@ -1524,13 +1513,6 @@ begin
FAreaBrush.Color := AValue;
end;
procedure TAreaSeries.SetStacked(AValue: Boolean);
begin
if FStacked = AValue then exit;
FStacked := AValue;
UpdateParentChart;
end;
procedure TAreaSeries.SetUseZeroLevel(AValue: Boolean);
begin
if FUseZeroLevel = AValue then exit;