paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 11:18:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Make sure that TAreasSeries is clipped at the plotarea boundaries.

Browse Source
This commit is contained in:
wp_xyz 2023-11-22 18:38:16 +01:00
parent 327c5770ab
commit 5cb240ac36
1 changed files with 23 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
components/tachart/taseries.pas
View File

@ -2308,28 +2308,33 @@ begin
scaled_depth := ADrawer.Scale(Depth);
SetLength(pts, Length(FGraphPoints) * 4 + 4);
CollectMissing;
if Length(missing) = 0 then
DrawSegment(0, High(FGraphPoints))
else begin
j := 0;
k := 0;
while j < Length(missing) do begin
while (missing[j] = k) do begin
inc(k);
ADrawer.ClippingStart(ParentChart.ClipRect);
try
CollectMissing;
if Length(missing) = 0 then
DrawSegment(0, High(FGraphPoints))
else begin
j := 0;
k := 0;
while j < Length(missing) do begin
while (missing[j] = k) do begin
inc(k);
inc(j);
if j = Length(missing) then
break;
end;
if j <= High(missing) then begin
DrawSegment(k, missing[j]-1);
k := missing[j]+1;
end else
DrawSegment(k, High(FGraphPoints));
inc(j);
if j = Length(missing) then
break;
end;
if j <= High(missing) then begin
DrawSegment(k, missing[j]-1);
k := missing[j]+1;
end else
if k <= High(FGraphPoints) then
DrawSegment(k, High(FGraphPoints));
inc(j);
end;
if k <= High(FGraphPoints) then
DrawSegment(k, High(FGraphPoints));
finally
ADrawer.ClippingStop;
end;
DrawLabels(ADrawer);