paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 23:11:47 +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'; SName = 'DoGetPaperName';
var var
i: Integer; i: Integer;
Str: WideString;
begin begin
i := QtDefaultPrinter.PageSize; i := QtDefaultPrinter.PageSize;
Result := FPagesEnum[i]; Result := FPagesEnum[i];
@ -329,7 +328,6 @@ function TQtPrinters.DoGetPaperRect(AName: string; var APaperRc: TPaperRect): In
const const
SName = 'DoGetPaperRect'; SName = 'DoGetPaperRect';
var var
SavedSize: QPrinterPageSize;
i: Integer; i: Integer;
begin begin
{$IFDEF VERBOSE_QT_PRINTING} {$IFDEF VERBOSE_QT_PRINTING}

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

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

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

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