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

TAChart: Fix crash of GUI when TChartStyles is deleted.

Browse Source 
git-svn-id: trunk@52090 -
This commit is contained in:
wp 2016-03-31 09:55:29 +00:00
parent 8423094db4
commit dc69b0c0a5
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tagraph.pas
View File

@ -460,7 +460,7 @@ implementation
uses
Clipbrd, Dialogs, GraphMath, LCLProc, LResources, Math, TADrawerCanvas,
TAGeometry, TAMath, Types;
TAGeometry, TAMath, TAStyles, Types;
function CompareZPosition(AItem1, AItem2: Pointer): Integer;
begin
@ -1250,11 +1250,19 @@ begin
end;
procedure TChart.Notification(AComponent: TComponent; AOperation: TOperation);
var
ax: TChartAxis;
begin
if (AOperation = opRemove) and (AComponent = Toolset) then
FToolset := nil
else if (AOperation = opRemove) and (AComponent = GUIConnector) then
GUIConnector := nil;
GUIConnector := nil
else if (AOperation = opRemove) and (AComponent is TChartStyles) then begin
for ax in FAxisList do
if ax.Marks.Stripes = AComponent then
ax.Marks.Stripes := nil;
end;
inherited Notification(AComponent, AOperation);
end;