pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 3.3325.1755.g7c74b17

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-03-29 20:02:04 +02:00
parent 665957e132
commit 6fa50706a1
133 changed files with 7633 additions and 6008 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/uCEFPDFPrintCallback.pas
View File

@@ -90,14 +90,22 @@ uses
{$ENDIF}
uCEFMiscFunctions, uCEFLibFunctions;
procedure cef_pdf_print_callback_on_pdf_print_finished(self: PCefPdfPrintCallback; const path: PCefString; ok: Integer); stdcall;
procedure cef_pdf_print_callback_on_pdf_print_finished( self : PCefPdfPrintCallback;
const path : PCefString;
ok : Integer); stdcall;
var
TempObject : TObject;
begin
with TCefPdfPrintCallbackOwn(CefGetObject(self)) do OnPdfPrintFinished(CefString(path), ok <> 0);
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefPdfPrintCallbackOwn) then
TCefPdfPrintCallbackOwn(TempObject).OnPdfPrintFinished(CefString(path),
ok <> 0);
end;
constructor TCefPdfPrintCallbackOwn.Create;
begin
CreateData(SizeOf(TCefPdfPrintCallback));
inherited CreateData(SizeOf(TCefPdfPrintCallback));
PCefPdfPrintCallback(FData).on_pdf_print_finished := cef_pdf_print_callback_on_pdf_print_finished;
end;
@@ -107,6 +115,7 @@ end;
constructor TCefFastPdfPrintCallback.Create(const proc: TOnPdfPrintFinishedProc);
begin
FProc := proc;
inherited Create;
end;