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

TAChart: Cosmetic changes (camel-cased "ErrorBar"), some clean-up.

Browse Source 
git-svn-id: trunk@60811 -
This commit is contained in:
wp 2019-04-01 11:20:39 +00:00
parent 898c85aa46
commit 36db373002
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/tachart/tacustomsource.pas
View File

@ -162,7 +162,7 @@ type
function GetIndex(AIndex: Integer): Integer; function GetIndex(AIndex: Integer): Integer;
function GetValue(AIndex: Integer): Double; function GetValue(AIndex: Integer): Double;
function IsErrorBarValueStored(AIndex: Integer): Boolean; function IsErrorBarValueStored(AIndex: Integer): Boolean;
procedure SetKind(AValue: TChartErrorbarKind); procedure SetKind(AValue: TChartErrorBarKind);
procedure SetIndex(AIndex, AValue: Integer); procedure SetIndex(AIndex, AValue: Integer);
procedure SetValue(AIndex: Integer; AValue: Double); procedure SetValue(AIndex: Integer; AValue: Double);
public public
@ -742,7 +742,7 @@ begin
Result := FValue[AIndex]; Result := FValue[AIndex];
end; end;
function TChartErrorBarData.IsErrorbarValueStored(AIndex: Integer): Boolean; function TChartErrorBarData.IsErrorBarValueStored(AIndex: Integer): Boolean;
begin begin
if AIndex = 0 then if AIndex = 0 then
Result := FValue[0] <> 0 Result := FValue[0] <> 0
@ -840,7 +840,7 @@ begin
jxn := -1; jxn := -1;
end; end;
if YErrorBarData.Kind = ebkChartSource then begin if YErrorBarData.Kind = ebkChartSource then begin
jyp := YErrorbarData.IndexPlus - 1; // -1 because YList is offset by 1 jyp := YErrorBarData.IndexPlus - 1; // -1 because YList is offset by 1
jyn := YErrorBarData.IndexMinus - 1; jyn := YErrorBarData.IndexMinus - 1;
end else begin end else begin
jyp := -1; jyp := -1;
@ -876,7 +876,7 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
FXCount := 1; FXCount := 1;
FYCount := 1; FYCount := 1;
for i:=Low(FErrorBardata) to High(FErrorBarData) do begin for i:=Low(FErrorBarData) to High(FErrorBarData) do begin
FErrorBarData[i] := TChartErrorBarData.Create; FErrorBarData[i] := TChartErrorBarData.Create;
FErrorBarData[i].OnChange := @ChangeErrorBars; FErrorBarData[i].OnChange := @ChangeErrorBars;
end; end;
@ -1031,7 +1031,7 @@ begin
Result := TCustomChartSourceEnumerator.Create(Self); Result := TCustomChartSourceEnumerator.Create(Self);
end; end;
function TCustomChartSource.GetErrorbarData(AIndex: Integer): TChartErrorBarData; function TCustomChartSource.GetErrorBarData(AIndex: Integer): TChartErrorBarData;
begin begin
Result := FErrorBarData[AIndex]; Result := FErrorBarData[AIndex];
end; end;
@ -1152,7 +1152,7 @@ end;
function TCustomChartSource.GetHasErrorBars(Which: Integer): Boolean; function TCustomChartSource.GetHasErrorBars(Which: Integer): Boolean;
var var
errbar: TChartErrorbarData; errbar: TChartErrorBarData;
begin begin
Result := false; Result := false;
errbar := FErrorBarData[Which]; errbar := FErrorBarData[Which];
@ -1212,10 +1212,10 @@ begin
Result := false; Result := false;
end; end;
procedure TCustomChartSource.SetErrorbarData(AIndex: Integer; procedure TCustomChartSource.SetErrorBarData(AIndex: Integer;
AValue: TChartErrorBarData); AValue: TChartErrorBarData);
begin begin
FErrorbarData[AIndex] := AValue; FErrorBarData[AIndex] := AValue;
Notify; Notify;
end; end;

1
components/tachart/tasources.pas
View File

@ -448,7 +448,6 @@ begin
Y := NaN; Y := NaN;
Color := StrToInt(NextPart); Color := StrToInt(NextPart);
Text := NextPart; Text := NextPart;
// Text := StringReplace(NextPart, '""', '"', [rfReplaceall]);
end; end;
finally finally
parts.Free; parts.Free;