paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: assign title as document name. part of issue #24592

Browse Source 
git-svn-id: trunk@46634 -
This commit is contained in:
zeljko 2014-10-21 13:32:12 +00:00
parent 9e798f0274
commit 07ea7c3d5c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/printers/qt/qtprinters.inc
View File

@ -214,6 +214,7 @@ begin
{$IFDEF VERBOSE_QT_PRINTING} {$IFDEF VERBOSE_QT_PRINTING}
DebugLn('TQtPrinters.DoBeginDoc()'); DebugLn('TQtPrinters.DoBeginDoc()');
{$ENDIF} {$ENDIF}
QtDefaultPrinter.DocName := Title;
BeginPage; BeginPage;
end; end;