Re: QRTeeChart - Missing Datasource. Quick Report 5 and 2016.18
Posted: Sun Jul 17, 2016 10:08 pm
Thanks for that. I will see where i get to at the next upgrade hopefully it will be smoother.
Cheers
Carl
Cheers
Carl
Steema Software - Customer Support Forums
https://www.steema.com/support/
We'll prepare the packages and post them here as soon as possible.Carl wrote:Are you able to do a compile at your end and sent through the files like you did some time ago.
We are using Delphi Berlin 10.1, our development project is 32bit atm still. And the Quick Report 6.
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
begin
DrawOnQRImage(DBChart1, QRImage1);
end;
procedure TForm1.DrawOnQRImage(AChart: TDBChart; AQRImage: TQRImage);
Function GetRectangle:TRect;
var tmpZoomFactor : Double;
begin
if Assigned(AQRImage.ParentReport) then tmpZoomFactor:=100.0/AQRImage.ParentReport.Zoom
else tmpZoomFactor:=1;
{$IFDEF D6}
try
{$ENDIF}
result:=Rect(0,0, Round(AQRImage.ClientWidth*tmpZoomFactor),
Round(AQRImage.ClientHeight*tmpZoomFactor) );
{$IFDEF D6}
except
on EOSError do
begin
result:=Rect(0,0, Round(AQRImage.Width*tmpZoomFactor),
Round(AQRImage.Height*tmpZoomFactor) );
end;
end;
{$ENDIF}
end;
Procedure DrawGraphic(AGraphic:TGraphic);
var r : TRect;
begin
R:=AQRImage.ClientRect;
Inc(R.Right); // 7.07
Inc(R.Bottom);
AQRImage.Canvas.StretchDraw(R,AGraphic);
AGraphic.Free;
end;
begin
DrawGraphic(AChart.TeeCreateMetafile(True, GetRectangle));
AChart.Visible:=false;
end;
Please, try with a new project before trying to open an older/bigger one.Carl wrote:Hi, when the test project loads it says that it cant load the TQRChart as the specificed module cant be found.
That's strange, I can't find a reference to any TeeChart bpl or pas in this error message.Carl wrote:The below details come from the error message in the secondary screen that i havent noticed before.
Code: Select all
bds.exe -cleanregistryide