[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