Or he could do what real Delphi developers do:
The screen flickered. For one gut-wrenching second, the report preview was a scrambled mess of pixels and overlapping fonts. His heart sank. Then, as if waking from a coma, the TQRPreview component redrew itself. Line by line. Invoice number, date, item description, amount.
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; Quickreport For Delphi 11 Alexandria UPD
Marco picked up a red marker, crossed it out, and wrote underneath: "No. We can't even migrate it to a patch."
He recompiled the entire QuickReport source with this patch injected. The E2003 vanished. But then came the avalanche: E2010 Incompatible types: 'HPEN' and 'TFont' in QRExpImg.pas . The image exporter was trying to use GDI pens on GDI+ fonts. UPD’s updated TMetafile handling had stricter type checking. Or he could do what real Delphi developers
As he walked to the break room, he passed the whiteboard. Someone had written a question weeks ago: "Can we migrate QuickReport to FireMonkey?"
type TQRPrinterHack = class(TQRPrinter) private function GetCanvasHack: TCanvas; public property CanvasHack: TCanvas read GetCanvasHack; end; Then, as if waking from a coma, the
uses Winapi.Windows, Vcl.Graphics, Vcl.Printers, QRPrinter;