paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 09:59:09 +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; end;
// Return the number of pages available for printing // Return the number of pages available for printing
function TCocoaPrinterView.knowsPageRange(range: NSRangePointer): Boolean; function TCocoaPrinterView.knowsPageRange(range: NSRangePointer): LCLObjCBoolean;
begin begin
range^.location := 1; range^.location := 1;
range^.length := CGPDFDocumentGetNumberOfPages(doc); range^.length := CGPDFDocumentGetNumberOfPages(doc);
@ -124,7 +124,7 @@ begin
self.setBounds(result); self.setBounds(result);
end; end;
function TCocoaPrinterView.isFlipped: boolean; function TCocoaPrinterView.isFlipped: LCLObjCBoolean;
begin begin
Result := true; Result := true;
end; end;

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

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