paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 16:19:08 +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

5
components/tachart/taseries.pas
View File

@ -2308,6 +2308,8 @@ begin
scaled_depth := ADrawer.Scale(Depth);
SetLength(pts, Length(FGraphPoints) * 4 + 4);
ADrawer.ClippingStart(ParentChart.ClipRect);
try
CollectMissing;
if Length(missing) = 0 then
DrawSegment(0, High(FGraphPoints))
@ -2331,6 +2333,9 @@ begin
if k <= High(FGraphPoints) then
DrawSegment(k, High(FGraphPoints));
end;
finally
ADrawer.ClippingStop;
end;
DrawLabels(ADrawer);
end;