Commit e62f6775 authored by Jesus's avatar Jesus
Browse files

LCL, fix TPostScriptPrinterCanvas.ClipRect is empty-rect until explicitly set...

LCL, fix TPostScriptPrinterCanvas.ClipRect is empty-rect until explicitly set by user, patch from Joachim Paepke, issue #21027

git-svn-id: trunk@37043 -
parent 997ff460
......@@ -1504,6 +1504,9 @@ begin
WriteHeader('');
WriteHeader('%%Page: 1 1');
WritePageTransform;
if assigned(printer) then
FLazClipRect:=printer.PaperSize.PaperRect.WorkRect;
end;
procedure TPostScriptPrinterCanvas.EndDoc;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment