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

TAChart: Fix percentage calculation

Browse Source 
git-svn-id: trunk@27146 -
This commit is contained in:
ask 2010-08-19 10:43:02 +00:00
parent be55a67eab
commit 54ee41a476
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tasources.pas
View File

@ -1267,9 +1267,9 @@ var
begin
if not Percentage then exit;
s := FItem.Y + Sum(FItem.YList);
FItem.Y /= s / PERCENT;
FItem.Y /= s * PERCENT;
for i := 0 to High(FItem.YList) do
FItem.YList[i] /= s / PERCENT;
FItem.YList[i] /= s * PERCENT;
end;
procedure TCalculatedChartSource.Changed(ASender: TObject);