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

TAChart: Fix occasional crash when TChartListbox is destroyed.

Browse Source
This commit is contained in:
wp_xyz 2022-04-14 01:11:44 +02:00
parent 09cd44d467
commit 0e03eadf14
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tachartlistbox.pas
View File

@ -313,7 +313,7 @@ begin
end;
function TChartListbox.CreateLegendItems: TChartLegendItems;
{ creates the a TLegendItems list and populates it with information for
{ Creates a TLegendItems list and populates it with information for
all series contained in the Chart. In case of MultiLegend items, only
a single legend item is used }
var
@ -606,6 +606,9 @@ var
list: TIntegerList;
i, idx: Integer;
begin
if (csDestroying in ComponentState) then
exit;
Items.BeginUpdate;
list := TIntegerList.Create;
try