paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers: Fix spelling in printers.pas and printer4lazarus pacakage. Issue #37941, patch from Don Siders.

Browse Source 
git-svn-id: trunk@64039 -
This commit is contained in:
juha 2020-10-17 16:42:16 +00:00
parent 1945f8b61d
commit 04a1dda99d
9 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -432,9 +432,9 @@ begin
BeginPage;
end;
procedure TCarbonPrinter.DoEndDoc(aAborded: Boolean);
procedure TCarbonPrinter.DoEndDoc(aAborted: Boolean);
begin
inherited DoEndDoc(aAborded);
inherited DoEndDoc(aAborted);
EndPage;
if FBeginDocumentStatus = noErr then

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

@ -57,7 +57,7 @@ type
protected
procedure DoBeginDoc; override;
procedure DoNewPage; override;
procedure DoEndDoc(aAborded : Boolean); override;
procedure DoEndDoc(aAborted : Boolean); override;
procedure DoAbort; override;
procedure DoEnumPrinters(Lst : TStrings); override;

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

@ -636,7 +636,7 @@ begin
Error('Error on getting DestinationType');
end;
procedure TCocoaPrinter.DoEndDoc(aAborded: Boolean);
procedure TCocoaPrinter.DoEndDoc(aAborted: Boolean);
var
preview: TCocoaPrinterView;
op: NSPrintOperation;
@ -647,7 +647,7 @@ begin
if not fDocStarted then
exit;
if aAborded then
if aAborted then
begin
// TODO: check leaks ...
end;

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

@ -91,7 +91,7 @@ type
procedure DoBeginDoc; override;
procedure DoBeginPage; override;
procedure DoEndPage; override;
procedure DoEndDoc(aAborded : Boolean); override;
procedure DoEndDoc(aAborted : Boolean); override;
procedure DoAbort; override;
procedure DoEnumPrinters(Lst : TStrings); override;

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

@ -383,12 +383,12 @@ begin
QtDefaultPrinter.NewPage;
end;
procedure TQtPrinters.DoEndDoc(aAborded: Boolean);
procedure TQtPrinters.DoEndDoc(aAborted: Boolean);
begin
{$IFDEF VERBOSE_QT_PRINTING}
DebugLn('TQtPrinters.DoEndDoc()');
{$ENDIF}
inherited DoEndDoc(aAborded);
inherited DoEndDoc(aAborted);
EndPage;
end;

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

@ -46,7 +46,7 @@ type
protected
procedure DoBeginDoc; override;
procedure DoNewPage; override;
procedure DoEndDoc(aAborded : Boolean); override;
procedure DoEndDoc(aAborted : Boolean); override;
procedure DoAbort; override;
procedure DoEnumPrinters(Lst : TStrings); override;

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

@ -326,9 +326,9 @@ begin
Windows.EndPage(fDC);
end;
procedure TWinPrinter.DoEndDoc(aAborded: Boolean);
procedure TWinPrinter.DoEndDoc(aAborted: Boolean);
begin
inherited DoEndDoc(aAborded);
inherited DoEndDoc(aAborted);
if RawMode then begin
@ -340,7 +340,7 @@ begin
}
end else begin
Windows.EndPage(fDC);
if not aAborded then
if not aAborted then
WinUtilPrn.EndDoc(fDC);
end;
end;

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

@ -46,7 +46,7 @@ Type
procedure DoNewPage; override;
procedure DoBeginPage; override;
procedure DoEndPage; override;
procedure DoEndDoc(aAborded : Boolean); override;
procedure DoEndDoc(aAborted : Boolean); override;
procedure DoAbort; override;
procedure DoEnumPrinters(Lst : TStrings); override;

4
lcl/printers.pas
View File

@ -239,7 +239,7 @@ type
procedure DoNewPage; virtual;
procedure DoBeginPage; virtual;
procedure DoEndPage; virtual;
procedure DoEndDoc(aAborded : Boolean); virtual;
procedure DoEndDoc(aAborted : Boolean); virtual;
procedure DoAbort; virtual;
procedure DoResetPrintersList; virtual;
procedure DoResetFontsList; virtual;
@ -828,7 +828,7 @@ begin
//Override this method
end;
procedure TPrinter.DoEndDoc(aAborded : Boolean);
procedure TPrinter.DoEndDoc(aAborted : Boolean);
begin
//Override this method
end;