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

TAChart/RadialSeries: Fix crash due to empty AngleCache (see https://forum.lazarus.freepascal.org/index.php/topic,66470.msg509501.html)

Browse Source
This commit is contained in:
wp_xyz 2024-03-04 10:07:34 +01:00
parent 3ef36b7bbb
commit 1ee8c6edb1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/taradialseries.pas
View File

@ -1314,6 +1314,7 @@ var
j: Integer; j: Integer;
begin begin
if IsEmpty or (not Active) then exit; if IsEmpty or (not Active) then exit;
PrepareAngleCache;
originPt := ParentChart.GraphToImage(DoublePoint(OriginX, OriginY)); originPt := ParentChart.GraphToImage(DoublePoint(OriginX, OriginY));
fill := FFilled and (FBrush.Style <> bsClear); fill := FFilled and (FBrush.Style <> bsClear);
SetLength(pts, Count + 1); // +1 for origin SetLength(pts, Count + 1); // +1 for origin