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

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

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

@ -57,7 +57,7 @@ type
public
constructor Create; 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 FullPage: Boolean read GetFullPage write SetFullPage;