From 1545e387e7eb542c37c06c23b28f683e635063f9 Mon Sep 17 00:00:00 2001 From: Dmitrij Date: Mon, 21 Aug 2017 21:05:08 +0300 Subject: [PATCH] Update uCEFDownloadImageCallBack.pas make it work --- source/uCEFDownloadImageCallBack.pas | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/source/uCEFDownloadImageCallBack.pas b/source/uCEFDownloadImageCallBack.pas index b022654e..5dd04330 100644 --- a/source/uCEFDownloadImageCallBack.pas +++ b/source/uCEFDownloadImageCallBack.pas @@ -10,7 +10,7 @@ // For more information about CEF4Delphi visit : // https://www.briskbard.com/index.php?lang=en&pageid=cef // -// Copyright © 2017 Salvador Díaz Fau. All rights reserved. +// Copyright © 2017 Salvador Díaz Fau. All rights reserved. // // ************************************************************************ // ************ vvvv Original license and comments below vvvv ************* @@ -81,13 +81,15 @@ end; constructor TCefDownloadImageCallbackOwn.Create; begin - CreateData(SizeOf(TCefDownloadImageCallback), False); + inherited CreateData(SizeOf(TCefDownloadImageCallback)); - with PCefDownloadImageCallback(FData)^ do on_download_image_finished := nil; + with PCefDownloadImageCallback(FData)^ do + on_download_image_finished := cef_download_image_callback_on_download_image_finished; end; constructor TCefFastDownloadImageCallback.Create(const proc: TOnDownloadImageFinishedProc); begin + inherited Create; FProc := proc; end; @@ -96,4 +98,6 @@ begin FProc(imageUrl, httpStatusCode, image); end; + end. +