paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 01:22:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Use "out" parameter instead of "var" in Printer.Write() and derivatives. Issue #29950.

Browse Source 
git-svn-id: trunk@53102 -
This commit is contained in:
juha 2016-10-12 13:37:37 +00:00
parent ca343fe6d1
commit ec91cfdc9a
11 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/printers/carbon/carbonprinters.inc
View File

@ -293,12 +293,11 @@ begin
inherited DoDestroy;
end;
function TCarbonPrinter.Write(const Buffer; Count: Integer;
var Written: Integer): Boolean;
function TCarbonPrinter.Write(const Buffer; Count: Integer; out Written: Integer): Boolean;
begin
Result := False;
CheckRawMode(True);
Written := 0;
DebugLn('TCarbonPrinter.Write Error: Raw mode is not supported for Carbon!');
end;

2
components/printers/carbon/carbonprinters_h.inc
View File

@ -89,7 +89,7 @@ type
procedure UpdatePrinter;
public
constructor Create; override;
function Write(const {%H-}Buffer; {%H-}Count:Integer; var {%H-}Written: Integer): Boolean; override;
function Write(const {%H-}Buffer; {%H-}Count:Integer; out Written: Integer): Boolean; override;
// Warning not portable functions here
property CurrentPrinterName: String read GetCurrentPrinterName;
property PrintSession: PMPrintSession read FPrintSession;

5
components/printers/cocoa/cocoaprinters.inc
View File

@ -292,12 +292,11 @@ begin
inherited DoDestroy;
end;
function TCocoaPrinter.Write(const Buffer; Count: Integer;
var Written: Integer): Boolean;
function TCocoaPrinter.Write(const Buffer; Count: Integer; out Written: Integer): Boolean;
begin
Result := False;
CheckRawMode(True);
Written := 0;
DebugLn('TCocoaPrinter.Write Error: Raw mode is not supported for Cocoa!');
end;

2
components/printers/cocoa/cocoaprinters_h.inc
View File

@ -98,7 +98,7 @@ type
procedure UpdatePrinter;
public
constructor Create; override;
function Write(const {%H-}Buffer; {%H-}Count:Integer; var {%H-}Written: Integer): Boolean; override;
function Write(const {%H-}Buffer; {%H-}Count:Integer; out Written: Integer): Boolean; override;
// Warning not portable properties here
//property CurrentPrinterName: String read GetCurrentPrinterName;
property PrintSession: PMPrintSession read GetPrintSession;

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

@ -154,11 +154,11 @@ begin
inherited DoDestroy;
end;
function TQtPrinters.Write(const Buffer; Count: Integer;
var Written: Integer): Boolean;
function TQtPrinters.Write(const Buffer; Count: Integer; out Written: Integer): Boolean;
begin
Result := False;
CheckRawMode(True);
Written := 0;
{$IFDEF VERBOSE_QT_PRINTING}
DebugLn('TQtPrinters.Write(): Raw mode is not yet supported');
{$ENDIF}

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

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

2
components/printers/unix/cupsprinters.inc
View File

@ -96,7 +96,7 @@ begin
end;
//write count bytes from buffer to raw mode stream
function TCUPSPrinter.Write(const Buffer; Count: Integer; var Written: Integer
function TCUPSPrinter.Write(const Buffer; Count: Integer; out Written: Integer
): Boolean;
begin
result := False;

2
components/printers/unix/cupsprinters_h.inc
View File

@ -161,7 +161,7 @@ type
procedure DoDestroy; override;
public
constructor Create; override;
function Write(const Buffer; Count:Integer; var Written: Integer): Boolean; override;
function Write(const Buffer; Count:Integer; out Written: Integer): Boolean; override;
{-------------------------------------------------
SPECIFIC CUPS METHODS OR PROPERTIES

3
components/printers/win32/winprinters.inc
View File

@ -47,8 +47,7 @@ begin
inherited DoDestroy;
end;
function TWinPrinter.Write(const Buffer; Count: Integer;
var Written: Integer): Boolean;
function TWinPrinter.Write(const Buffer; Count: Integer; out Written: Integer): Boolean;
begin
CheckRawMode(True);
Result := WritePrinter(FPrinterHandle, @Buffer, Count, pdword(@Written));

2
components/printers/win32/winprinters_h.inc
View File

@ -83,7 +83,7 @@ Type
public
constructor Create; override;
function Write(const Buffer; Count:Integer; var Written: Integer): Boolean; override;
function Write(const Buffer; Count:Integer; out Written: Integer): Boolean; override;
//Warning not portable functions here
procedure AdvancedProperties;

5
lcl/printers.pas
View File

@ -276,7 +276,7 @@ type
procedure Refresh;
procedure SetPrinter(aName : String);
Procedure RestoreDefaultBin; virtual;
function Write(const Buffer; Count:Integer; var Written: Integer): Boolean; virtual;
function Write(const Buffer; Count:Integer; out Written: Integer): Boolean; virtual;
function Write(const s: ansistring): boolean; overload;
property PrinterIndex : integer read GetPrinterIndex write SetPrinterIndex;
@ -479,9 +479,10 @@ begin
DoSetBinName(DoGetDefaultBinName);
end;
function TPrinter.Write(const Buffer; Count:Integer; var Written: Integer): Boolean;
function TPrinter.Write(const Buffer; Count: Integer; out Written: Integer): Boolean;
begin
result := False;
Written := 0;
end;
function TPrinter.Write(const S: ansistring): Boolean; overload;