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

TAChart: Ignore XList when sorting ListChartSource. Issue #35188.

Browse Source 
git-svn-id: trunk@60918 -
This commit is contained in:
wp 2019-04-10 12:26:35 +00:00
parent 7b666b270f
commit b15c2b23fd
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tasources.pas
View File

@ -841,17 +841,10 @@ end;
function CompareDataItemX(AItem1, AItem2: Pointer): Integer;
var
i: Integer;
item1: PChartDataItem absolute AItem1;
item2: PChartDataItem absolute AItem2;
begin
Result := CompareFloat(item1^.X, item2^.X);
if Result = 0 then
for i := 0 to Min(High(item1^.XList), High(item2^.XList)) do begin
Result := CompareFloat(item1^.XList[i], item2^.XList[i]);
if Result <> 0 then
exit;
end;
end;
procedure TListChartSource.Sort;