paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 13:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: cleanup

Browse Source 
git-svn-id: trunk@25141 -
This commit is contained in:
zeljko 2010-05-02 17:21:31 +00:00
parent c56405fef4
commit 6b838b045f
3 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -289,7 +289,6 @@ const
SName = 'DoGetPaperName';
var
i: Integer;
Str: WideString;
begin
i := QtDefaultPrinter.PageSize;
Result := FPagesEnum[i];
@ -329,7 +328,6 @@ function TQtPrinters.DoGetPaperRect(AName: string; var APaperRc: TPaperRect): In
const
SName = 'DoGetPaperRect';
var
SavedSize: QPrinterPageSize;
i: Integer;
begin
{$IFDEF VERBOSE_QT_PRINTING}

5
components/printers/qt/qtprinters_h.inc
View File

@ -8,11 +8,6 @@ type
TQtPrinters = class(TPrinter)
private
FPagesEnum: TStrings;
FPrintSession: Integer;
FPrintSettings: Integer;
FPageFormat: QPrinterPageSize;
FBeginDocumentStatus: QPrinterPrinterState;
FNewPageStatus: QPrinterPrinterState;
FPrinterHandle: TQtPrinter;
procedure CreatePrintSettings;

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

@ -47,7 +47,6 @@ var
QtPrnDlg: QPrintDialogH;
PrnOptions: QAbstractPrintDialogPrintDialogOptions;
Str: WideString;
i: Integer;
begin
Result := False;