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

TAChart: Fix crash in design mode when Undo is executed after deleting a series.

Browse Source
This commit is contained in:
wp_xyz 2022-07-12 22:46:45 +02:00
parent 73d41e6636
commit 358a6955a0
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/editors/taseriespropeditors.pas
View File

@ -63,8 +63,9 @@ begin
s := GetComponent(0) as TCustomChartSeries; s := GetComponent(0) as TCustomChartSeries;
ch := s.ParentChart; ch := s.ParentChart;
AProc('-1 None'); AProc('-1 None');
for i := 0 to ch.AxisList.Count - 1 do if ch <> nil then
AProc(IntToStr(i) + ' ' + ch.AxisList[i].DisplayName); for i := 0 to ch.AxisList.Count - 1 do
AProc(IntToStr(i) + ' ' + ch.AxisList[i].DisplayName);
end; end;
function TAxisIndexPropertyEditor.OrdValueToVisualValue( function TAxisIndexPropertyEditor.OrdValueToVisualValue(
@ -76,7 +77,7 @@ begin
s := GetComponent(0) as TCustomChartSeries; s := GetComponent(0) as TCustomChartSeries;
ch := s.ParentChart; ch := s.ParentChart;
Result := IntToStr(AOrdValue) + ' '; Result := IntToStr(AOrdValue) + ' ';
if InRange(AOrdValue, 0, ch.AxisList.Count - 1) then if Assigned(ch) and InRange(AOrdValue, 0, ch.AxisList.Count - 1) then
Result += ch.AxisList[AOrdValue].DisplayName Result += ch.AxisList[AOrdValue].DisplayName
else else
Result += 'None'; Result += 'None';