His hands hovered over the keyboard. He could rewrite the entire reporting module in FastReport. That would take three weeks. He could export everything to PDF via a third-party library. That would take two days, but the client’s internal audit required raw, printable QRP formats.
He ran the application. He clicked "Print Preview." Quickreport For Delphi 11 Alexandria UPD
uses Winapi.Windows, Vcl.Graphics, Vcl.Printers, QRPrinter; His hands hovered over the keyboard
implementation
function TQRPrinterHack.GetCanvasHack: TCanvas; begin // Delphi 11 UPD changed TPrinter.Canvas to strict private. // We bypass using the original Win32 DC handle. Result := TCanvas.Create; try Result.Handle := GetDC(Printer.Handle); except Result.Free; raise; end; end; try Result.Handle := GetDC(Printer.Handle)