paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:29:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: update printing component to use LCLObjCBoolean type

Browse Source 
git-svn-id: trunk@59751 -
This commit is contained in:
dmitry 2018-12-07 01:28:23 +00:00
parent 06fc6ff719
commit 8a1e0ddf12
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,7 +107,7 @@ begin
end;
// Return the number of pages available for printing
function TCocoaPrinterView.knowsPageRange(range: NSRangePointer): Boolean;
function TCocoaPrinterView.knowsPageRange(range: NSRangePointer): LCLObjCBoolean;
begin
range^.location := 1;
range^.length := CGPDFDocumentGetNumberOfPages(doc);
@ -124,7 +124,7 @@ begin
self.setBounds(result);
end;
function TCocoaPrinterView.isFlipped: boolean;
function TCocoaPrinterView.isFlipped: LCLObjCBoolean;
begin
Result := true;
end;

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

@ -7,7 +7,7 @@ uses
// fpc
MacOSAll, CocoaAll, Classes, SysUtils,
// lcl-widgetset
CocoaUtils, CocoaGDIObjects,
CocoaUtils, CocoaGDIObjects, CocoaPrivate,
// lcl
Printers, LCLType;
@ -25,9 +25,9 @@ type
// drawing
procedure drawRect(dirtyRect: NSRect); override;
// manual paging, see https://developer.apple.com/library/mac/documentation/Cocoa/Conceptual/Printing/osxp_pagination/osxp_pagination.html
function knowsPageRange(range: NSRangePointer): Boolean; override;
function knowsPageRange(range: NSRangePointer): LCLObjCBoolean; override;
function rectForPage(page: NSInteger): NSRect; override;
function isFlipped: boolean; override;
function isFlipped: LCLObjCBoolean; override;
end;