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

TAChart: Fix TListSource.Copyfrom not copying additional x values.

Browse Source 
git-svn-id: trunk@60457 -
This commit is contained in:
wp 2019-02-18 23:35:22 +00:00
parent 0de0d18fd0
commit a47b0300f7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tasources.pas
View File

@ -470,10 +470,12 @@ begin
BeginUpdate;
try
Clear;
XCount := ASource.XCount;
YCount := ASource.YCount;
for i := 0 to ASource.Count - 1 do
with ASource[i]^ do begin
AddAt(FData.Count, X, Y, Text, Color);
SetXList(FData.Count - 1, XList);
SetYList(FData.Count - 1, YList);
end;
if Sorted and not ASource.IsSorted then Sort;
@ -487,7 +489,6 @@ begin
inherited Create(AOwner);
FData := TFPList.Create;
FDataPoints := TListChartSourceStrings.Create(Self);
FYCount := 1;
ClearCaches;
end;