paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 10:39:09 +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; BeginPage;
end; end;
procedure TCarbonPrinter.DoEndDoc(aAborded: Boolean); procedure TCarbonPrinter.DoEndDoc(aAborted: Boolean);
begin begin
inherited DoEndDoc(aAborded); inherited DoEndDoc(aAborted);
EndPage; EndPage;
if FBeginDocumentStatus = noErr then if FBeginDocumentStatus = noErr then

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

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

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

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

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

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

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

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

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

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

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

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

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

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

4
lcl/printers.pas
View File

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