pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
Code Issues Actions Releases Activity

Merge pull request #50 from dimmaq/patch-2

Browse Source 
Update uCEFDownloadImageCallBack.pas
This commit is contained in:
Salvador Díaz Fau 2017-08-21 21:09:46 +02:00 committed by GitHub
commit 8611789f26
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
source/uCEFDownloadImageCallBack.pas
View File

@ -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.