[Bug 6907] Delphi applications printing bug

[Wine Bugs]

http://bugs.winehq.org/show_bug.cgi?id=6907

------- Additional Comments From [e-mail]  2006-15-12 03:43 -------
Created an attachment (id=4318)
 --> (http://bugs.winehq.org/attachment.cgi?id=4318&action=view)
Minimal sample to reproduce the problems, and PSDRV logs

Minimal sample to reproduce the problem and 4 log files:
- printing with Canvas without PrinterSetup dialog (doesn't work)
- printing with Canvas with PrinterSetup dialog (works)
- printing with QReport without PrinterSetup dialog (doesn't work)
- printing with QReport with PrinterSetup dialog (doesn't work)

This is the essence of the 4 tests:

procedure TForm1.btnCanvasWithoutSetupClick(Sender: TObject);
begin
    Printer.BeginDoc;
    Printer.Canvas.TextOut(600, 600, 'Test without TPrinterSetupDialog');
    Printer.EndDoc;
end;

procedure TForm1.btnCanvasWithSetupClick(Sender: TObject);
var SetupDialog: TPrinterSetupDialog;
begin
    // This is the only Wine working printing
    SetupDialog:= TPrinterSetupDialog.Create(Application);
    SetupDialog.Execute;

Printer.BeginDoc;
    Printer.Canvas.TextOut(600, 600, 'Test with TPrinterSetupDialog');
    Printer.EndDoc;
end;

procedure TForm1.btnQReportWithoutSetupClick(Sender: TObject);
begin
    QuickRep1.Print;
end;

procedure TForm1.btnQReportWithSetupClick(Sender: TObject);
begin
    QuickRep1.PrinterSetup;
    QuickRep1.Print;
end;