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

TAChart: Fix TDBChartSource to work again even if no FieldX is specified.

Browse Source 
git-svn-id: trunk@60593 -
This commit is contained in:
wp 2019-03-05 10:35:44 +00:00
parent 7167eb3bd1
commit a1002adf5f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tadbsource.pas
View File

@ -169,8 +169,8 @@ begin
FFieldXList.StrictDelimiter := true;
FFieldYList := TStringList.Create;
FFieldYList.StrictDelimiter := true;
FXCount := 0; // Have been set to 1 by inherited constructor
FYCount := 0;
FXCount := 1; // Even when no FieldX is specified there is an x value (sequential counter).
FYCount := 0; // Has been set to 1 by inherited constructor
end;
function TDbChartSource.DataSet: TDataSet;
@ -198,7 +198,7 @@ var
begin
ds := DataSet;
if FXCount > 0 then begin
if FFieldXList.Count > 0 then begin
AItem.X := FieldValueOrNaN(ds, FFieldXList[0], dcsoDateTimeX in Options);
for i := 0 to High(AItem.XList) do
AItem.XList[i] :=
@ -314,7 +314,8 @@ begin
FFieldXList.Clear
else
FFieldXList.CommaText := FFieldX;
FXCount := FFieldXList.Count;
FXCount := Min(1, FFieldXList.Count);
// There is always one x value even if FieldX is not specified (sequential counter).
SetLength(FCurItem.XList, Max(FXCount - 1, 0));
Reset;
end;