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

TAChart: Fix designtime crash when Chart is unlinked from ChartLiveView; add missing Notification method.

Browse Source
This commit is contained in:
wp_xyz 2022-05-08 16:02:04 +02:00
parent 61bd692ef5
commit 1a6aea0daa
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/tachartliveview.pas
View File

@ -53,6 +53,7 @@ type
procedure SetExtentY(const AValue: TChartLiveViewExtentY);
procedure SetViewportSize(const AValue: Double);
protected
procedure Notification(AComponent: TComponent; AOperation: TOperation); override;
procedure UpdateViewport; virtual;
public
constructor Create(AOwner: TComponent); override;
@ -98,6 +99,16 @@ begin
UpdateViewport;
end;
procedure TChartLiveView.Notification(AComponent: TComponent; AOperation: TOperation);
begin
if (AOperation = opRemove) and (AComponent = FChart) then
begin
SetActive(false);
FChart := nil;
end;
inherited Notification(AComponent, AOperation);
end;
procedure TChartLiveView.RestoreAxisRange(Axis: TChartAxis);
begin
if Assigned(Axis) then
@ -195,6 +206,8 @@ procedure TChartLiveView.StoreAxisRanges;
var
i: Integer;
begin
if FChart = nil then
exit;
SetLength(FAxisRanges, FChart.AxisList.Count);
for i := 0 to FChart.AxisList.Count-1 do
StoreAxisRange(FChart.AxisList[i]);