Memory use bugs
1. Composite reports.
Amend 'quickrpt.pas' as follows -
procedure TQRCompositeReport.Print;
var
SavePrinter : TQRPrinter;
begin
SavePrinter := FQRPrinter;
FQRPrinter := TQRPrinter.Create;
FQRPrinter.Destination := qrdPrinter;
CreateComposite; //must free
// Add this line -
FQRPrinter.free;
2. Another one, also in 'quickrpt.pas'.
Destructor TCustomQuickRep.Destroy;
begin
DeleteDC(ReferenceDC);
if FEnvironment <> nil then FEnvironment.Free;
FDescription.Free;
FPrinterSettings.Free;
FPage.Free;
BandRegList.Free;
FBandList.Free;
FBands.Free;
Controller.Free;
// add this -
if QRPrinter <> nil then QRPrinter.free;
inherited Destroy;
end;