bug in Function TQRChart.GetChart:TQRDBChart;
Posted: Fri Jan 04, 2008 10:19 am
In unit QrTee;
If you try to load a TQRChart runtime from stream it fails.
procedure TQRChart.ReadState(Reader: TReader);
var tmpChart : TQRDBChart;
begin
tmpChart:=Chart;
.....
The reason is here:
Change it to
Jørgen Storlie
If you try to load a TQRChart runtime from stream it fails.
procedure TQRChart.ReadState(Reader: TReader);
var tmpChart : TQRDBChart;
begin
tmpChart:=Chart;
.....
The reason is here:
Code: Select all
Function TQRChart.GetChart:TQRDBChart;
begin
if ControlCount=0 then
CreateChart;
result:=TQRDBChart(Controls[0]);
end;
Code: Select all
Function TQRChart.GetChart:TQRDBChart;
begin
if ControlCount=0 then
CreateChart;
if ControlCount>0 then result:=TQRDBChart(Controls[0])
else result:=nil;
end;