[Bug 6907] Delphi applications printing bug

Wine Bugs wine-bugs at winehq.org
Fri Dec 15 03:43:05 CST 2006


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





------- Additional Comments From paolo.salvan at xvision.it  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;


-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.



More information about the wine-bugs mailing list