Some default printers causing printers device to be null
Original Reporter info from Mantis: forest
-
Reporter name: Boguslaw Brandys
Original Reporter info from Mantis: forest
- Reporter name: Boguslaw Brandys
Description:
Lexmark 1020 Color Printer (Mono) driver
Windows XP Home SP2
when this printer is set as default, this simple test is causing error:
implementation
uses
printers,osprinters;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.Title := 'Printer test...';
Printer.BeginDoc;
Printer.Canvas.Ellipse(100,100,200,200);
Printer.EndDoc;
end;
This error originates from CreateDC function inside winprinters.inc
Other printers seems to work however this is random issue.
See screenshot attached.(I haven't this printer even installed phisically so it should not be a problem to test it - simply install this printer driver)
Mantis conversion info:
- Mantis ID: 1443
- OS: Windows
- OS Build: Windows XP Home
- Build: 8162
- Platform: Win32