paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 23:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

TACHart: Trivial style fixes

Browse Source 
git-svn-id: trunk@31820 -
This commit is contained in:
ask 2011-07-29 05:26:39 +00:00
parent 2cd936e043
commit 022a7d20b5
2 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tacustomsource.pas
View File

@ -30,8 +30,8 @@ type
EYCountError = class(EChartError); EYCountError = class(EChartError);
TChartValueText = record TChartValueText = record
FValue: Double;
FText: String; FText: String;
FValue: Double;
end; end;
TChartValueTextArray = array of TChartValueText; TChartValueTextArray = array of TChartValueText;

48
components/tachart/tatransformations.pas
View File

@ -55,7 +55,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
public public
procedure Assign(Source: TPersistent); override; procedure Assign(ASource: TPersistent); override;
function GetParentComponent: TComponent; override; function GetParentComponent: TComponent; override;
function HasParent: Boolean; override; function HasParent: Boolean; override;
public public
@ -118,7 +118,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
public public
procedure Assign(Source: TPersistent); override; procedure Assign(ASource: TPersistent); override;
function AxisToGraph(AX: Double): Double; override; function AxisToGraph(AX: Double): Double; override;
function GraphToAxis(AX: Double): Double; override; function GraphToAxis(AX: Double): Double; override;
@ -133,8 +133,8 @@ type
private private
FMaxValue: Double; FMaxValue: Double;
FMinValue: Double; FMinValue: Double;
function MaxValueIsStored: boolean; function MaxValueIsStored: Boolean;
function MinValueIsStored: boolean; function MinValueIsStored: Boolean;
procedure SetMaxValue(AValue: Double); procedure SetMaxValue(AValue: Double);
procedure SetMinValue(AValue: Double); procedure SetMinValue(AValue: Double);
protected protected
@ -144,7 +144,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
public public
procedure Assign(Source: TPersistent); override; procedure Assign(ASource: TPersistent); override;
function AxisToGraph(AX: Double): Double; override; function AxisToGraph(AX: Double): Double; override;
function GraphToAxis(AX: Double): Double; override; function GraphToAxis(AX: Double): Double; override;
@ -183,7 +183,7 @@ type
procedure SetOnAxisToGraph(AValue: TTransformEvent); procedure SetOnAxisToGraph(AValue: TTransformEvent);
procedure SetOnGraphToAxis(AValue: TTransformEvent); procedure SetOnGraphToAxis(AValue: TTransformEvent);
public public
procedure Assign(Source: TPersistent); override; procedure Assign(ASource: TPersistent); override;
function AxisToGraph(AX: Double): Double; override; function AxisToGraph(AX: Double): Double; override;
function GraphToAxis(AX: Double): Double; override; function GraphToAxis(AX: Double): Double; override;
@ -340,13 +340,13 @@ end;
{ TAxisTransform } { TAxisTransform }
procedure TAxisTransform.Assign(Source: TPersistent); procedure TAxisTransform.Assign(ASource: TPersistent);
begin begin
if Source is TAxisTransform then if ASource is TAxisTransform then
with TAxisTransform(Source) do with TAxisTransform(ASource) do
Self.FEnabled := Enabled Self.FEnabled := Enabled
else else
inherited Assign(Source); inherited Assign(ASource);
end; end;
function TAxisTransform.AxisToGraph(AX: Double): Double; function TAxisTransform.AxisToGraph(AX: Double): Double;
@ -558,14 +558,14 @@ end;
{ TLinearAxisTransform } { TLinearAxisTransform }
procedure TLinearAxisTransform.Assign(Source: TPersistent); procedure TLinearAxisTransform.Assign(ASource: TPersistent);
begin begin
if Source is TLinearAxisTransform then if ASource is TLinearAxisTransform then
with Source as TLinearAxisTransform do begin with ASource as TLinearAxisTransform do begin
Self.FOffset := Offset; Self.FOffset := Offset;
Self.FScale := Scale; Self.FScale := Scale;
end; end;
inherited Assign(Source); inherited Assign(ASource);
end; end;
function TLinearAxisTransform.AxisToGraph(AX: Double): Double; function TLinearAxisTransform.AxisToGraph(AX: Double): Double;
@ -648,14 +648,14 @@ end;
{ TAutoScaleAxisTransform } { TAutoScaleAxisTransform }
procedure TAutoScaleAxisTransform.Assign(Source: TPersistent); procedure TAutoScaleAxisTransform.Assign(ASource: TPersistent);
begin begin
if Source is TAutoScaleAxisTransform then if ASource is TAutoScaleAxisTransform then
with TAutoScaleAxisTransform(Source) do begin with TAutoScaleAxisTransform(ASource) do begin
Self.FMinValue := FMinValue; Self.FMinValue := FMinValue;
Self.FMaxValue := FMaxValue; Self.FMaxValue := FMaxValue;
end; end;
inherited Assign(Source); inherited Assign(ASource);
end; end;
function TAutoScaleAxisTransform.AxisToGraph(AX: Double): Double; function TAutoScaleAxisTransform.AxisToGraph(AX: Double): Double;
@ -691,12 +691,12 @@ begin
Result := (AX - FOffset) / FScale; Result := (AX - FOffset) / FScale;
end; end;
function TAutoScaleAxisTransform.MaxValueIsStored: boolean; function TAutoScaleAxisTransform.MaxValueIsStored: Boolean;
begin begin
Result := MaxValue <> 1.0; Result := MaxValue <> 1.0;
end; end;
function TAutoScaleAxisTransform.MinValueIsStored: boolean; function TAutoScaleAxisTransform.MinValueIsStored: Boolean;
begin begin
Result := MinValue <> 0.0; Result := MinValue <> 0.0;
end; end;
@ -734,14 +734,14 @@ end;
{ TUserDefinedAxisTransform } { TUserDefinedAxisTransform }
procedure TUserDefinedAxisTransform.Assign(Source: TPersistent); procedure TUserDefinedAxisTransform.Assign(ASource: TPersistent);
begin begin
if Source is TUserDefinedAxisTransform then if ASource is TUserDefinedAxisTransform then
with TUserDefinedAxisTransform(Source) do begin with TUserDefinedAxisTransform(ASource) do begin
Self.FOnAxisToGraph := FOnAxisToGraph; Self.FOnAxisToGraph := FOnAxisToGraph;
Self.FOnGraphToAxis := FOnGraphToAxis; Self.FOnGraphToAxis := FOnGraphToAxis;
end; end;
inherited Assign(Source); inherited Assign(ASource);
end; end;
function TUserDefinedAxisTransform.AxisToGraph(AX: Double): Double; function TUserDefinedAxisTransform.AxisToGraph(AX: Double): Double;