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

TAChart: Standardize variable and setter names for TConstantLine.Position property

Browse Source 
git-svn-id: trunk@29318 -
This commit is contained in:
ask 2011-02-02 07:07:35 +00:00
parent 79d868efcf
commit 332efed95d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/taseries.pas
View File

@ -238,14 +238,14 @@ type
private private
FLineStyle: TLineStyle; FLineStyle: TLineStyle;
FPen: TPen; FPen: TPen;
FPosGraph: Double; // Graph coordinate of line FPosition: Double; // Graph coordinate of line
FUseBounds: Boolean; FUseBounds: Boolean;
function GetSeriesColor: TColor; function GetSeriesColor: TColor;
procedure SavePosToCoord(var APoint: TDoublePoint); procedure SavePosToCoord(var APoint: TDoublePoint);
procedure SetLineStyle(AValue: TLineStyle); procedure SetLineStyle(AValue: TLineStyle);
procedure SetPen(AValue: TPen); procedure SetPen(AValue: TPen);
procedure SetPos(AValue: Double); procedure SetPosition(AValue: Double);
procedure SetSeriesColor(AValue: TColor); procedure SetSeriesColor(AValue: TColor);
procedure SetUseBounds(AValue: Boolean); procedure SetUseBounds(AValue: Boolean);
protected protected
@ -268,7 +268,7 @@ type
property LineStyle: TLineStyle property LineStyle: TLineStyle
read FLineStyle write SetLineStyle default lsHorizontal; read FLineStyle write SetLineStyle default lsHorizontal;
property Pen: TPen read FPen write SetPen; property Pen: TPen read FPen write SetPen;
property Position: Double read FPosGraph write SetPos; property Position: Double read FPosition write SetPosition;
property SeriesColor: TColor property SeriesColor: TColor
read GetSeriesColor write SetSeriesColor stored false default clTAColor; read GetSeriesColor write SetSeriesColor stored false default clTAColor;
property ShowInLegend; property ShowInLegend;
@ -574,7 +574,7 @@ begin
with TConstantLine(ASource) do begin with TConstantLine(ASource) do begin
Self.FLineStyle := FLineStyle; Self.FLineStyle := FLineStyle;
Self.Pen := FPen; Self.Pen := FPen;
Self.FPosGraph := FPosGraph; Self.FPosition := FPosition;
Self.FUseBounds := FUseBounds; Self.FUseBounds := FUseBounds;
end; end;
inherited Assign(ASource); inherited Assign(ASource);
@ -604,9 +604,9 @@ begin
with ParentChart do with ParentChart do
case LineStyle of case LineStyle of
lsHorizontal: lsHorizontal:
DrawLineHoriz(ACanvas, YGraphToImage(FPosGraph)); DrawLineHoriz(ACanvas, YGraphToImage(FPosition));
lsVertical: lsVertical:
DrawLineVert(ACanvas, XGraphToImage(FPosGraph)); DrawLineVert(ACanvas, XGraphToImage(FPosition));
end; end;
end; end;
@ -676,10 +676,10 @@ begin
FPen.Assign(AValue); FPen.Assign(AValue);
end; end;
procedure TConstantLine.SetPos(AValue: Double); procedure TConstantLine.SetPosition(AValue: Double);
begin begin
if FPosGraph = AValue then exit; if FPosition = AValue then exit;
FPosGraph := AValue; FPosition := AValue;
UpdateParentChart; UpdateParentChart;
end; end;