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

printers: clean up

Browse Source 
git-svn-id: trunk@28477 -
This commit is contained in:
mattias 2010-11-25 13:24:31 +00:00
parent 68c1ae807f
commit 0c0a23d3f0
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -112,8 +112,6 @@ begin
end; end;
procedure TQtPrinters.EnumQPapers(Lst: TStrings); procedure TQtPrinters.EnumQPapers(Lst: TStrings);
const
SName = 'EnumQPapers';
begin begin
Lst.Text := FPagesEnum.Text; Lst.Text := FPagesEnum.Text;
end; end;
@ -285,8 +283,6 @@ begin
end; end;
function TQtPrinters.DoGetPaperName: string; function TQtPrinters.DoGetPaperName: string;
const
SName = 'DoGetPaperName';
var var
i: Integer; i: Integer;
begin begin
@ -325,8 +321,6 @@ begin
end; end;
function TQtPrinters.DoGetPaperRect(AName: string; var APaperRc: TPaperRect): Integer; function TQtPrinters.DoGetPaperRect(AName: string; var APaperRc: TPaperRect): Integer;
const
SName = 'DoGetPaperRect';
var var
i: Integer; i: Integer;
begin begin

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

@ -57,7 +57,7 @@ type
public public
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
function Write(const Buffer; Count:Integer; var Written: Integer): Boolean; override; function Write(const {%H-}Buffer; {%H-}Count:Integer; var {%H-}Written: Integer): Boolean; override;
property ColorMode: QPrinterColorMode read GetColorMode write SetColorMode; property ColorMode: QPrinterColorMode read GetColorMode write SetColorMode;
property FullPage: Boolean read GetFullPage write SetFullPage; property FullPage: Boolean read GetFullPage write SetFullPage;