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

TAChart: Fix some drawing glitches of 3d area series. Still issues when curves cross

Browse Source 
git-svn-id: trunk@58579 -
This commit is contained in:
wp 2018-07-19 22:08:30 +00:00
parent 381de68567
commit b502667ee0
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/taseries.pas
View File

@ -1561,15 +1561,15 @@ var
// Collect points of top-most curve
UpdateGraphPoints(Source.YCount-2, AStart, AEnd, FStacked);
// Index (1st parameter) refers to YList --> 1 less than usual!)
// Index (1st parameter) refers to YList --> one less than usual!)
numPts := 0;
CollectPoints(AStart, AEnd);
CopyPoints(prevPts, pts, numPts);
numPrevPts := numPts;
numSavedPts := numPts;
// Collect points of lower end of each lever
j0 := IfThen(FBanded, 0, -1);
// Collect points of lower end of each level
j0 := IfThen(FBanded and (Source.YCount > 1), 0, -1);
for j := Source.YCount - 2 downto j0 do begin
numPts := 0;
@ -1608,6 +1608,10 @@ var
// Draw 3D sides
// Note: Rendering is often incorrect, e.g. when values cross zero level!
if (Depth > 0) then begin
if (Source.YCount = 1) or ((not FStacked) and (j = -1)) then
for i := 1 to numSavedPts do
ADrawer.DrawlineDepth(pts[i], pts[i+1], scaled_depth)
else
if ((not FStacked) or (j = Source.YCount-2)) then
for i:= n2-2 downto n2 - numSavedPts - 1 do
ADrawer.DrawLineDepth(pts[i], pts[i + 1], scaled_depth)