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

TAChart: Fix drawing of pie series with data from the db source

Browse Source 
git-svn-id: trunk@38737 -
This commit is contained in:
ask 2012-09-18 15:27:16 +00:00
parent d510d4d1a8
commit 1cdc9e4f16
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/taradialseries.pas
View File

@ -491,19 +491,22 @@ var
i, j: Integer;
di: PChartDataItem;
prevAngle: Double = 0;
a: Double;
a, total: Double;
begin
Result.TopLeft := FCenter;
Result.BottomRight := FCenter;
SetLength(FSlices, Count);
j := 0;
// This is a workaround for db source invalidating the cache due to
// unnecessary "dataset changed" events.
total := Source.ValuesTotal;
for i := 0 to Count - 1 do begin
di := Source[i];
if IsNan(di^.Y) then continue;
with FSlices[j] do begin
FOrigIndex := i;
FPrevAngle := prevAngle;
FNextAngle := FPrevAngle + CycleToRad(di^.Y / Source.ValuesTotal);
FNextAngle := FPrevAngle + CycleToRad(di^.Y / total);
FVisible := not IsNan(di^.X);
if FVisible then begin
FBase := FCenter;