crash when exit application at TeeProcs.pas #2758

[Hans]

TeeChart 7.04 Professional, Delphi 5.

We use the TChart in TFrame. The Frames are created and deleted dynamicly during running of application. Also the TLineSeries are, created, added and removed during running of application dynamicly.
At the end/exit of Application there is a crash in the TeeChart library:

**** TeeProcs.pas ***
Procedure TTeeCustomShapeBrushPen.Repaint;
begin
if Assigned(ParentChart) then ParentChart.Invalidate; << crashs here
end;

After adding one line, there's no GPF:

*** TeEngine.pas ***
Procedure TCustomAxisPanel.RemoveSeries(SeriesIndex: Integer);
var tmp : TChartSeries;
begin
if SeriesIndex>=0 then
begin
tmp:=SeriesList[SeriesIndex];
BroadcastSeriesEvent(tmp,seRemove);
tmp.Removed;
//added begin
if Assigned(tmp.Marks) then tmp.Marks.ParentChart := nil;
//added end
FSeriesList.Delete(SeriesIndex);
Invalidate;
end;
end;

Does anybody knows about this failure?
Is this patch ok or just luck that it works?

[Narcís]

Hi Hans,

Could you please send us an example we can run "as-is" to reproduce the problem here? You can post your files at [url]news://www.steema.net/steema.public.attachments[/url] newsgroup.

Thanks in advance.