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

Update uCEFDownloadImageCallBack.pas

Browse Source 
make it work
This commit is contained in:
Dmitrij 2017-08-21 21:05:08 +03:00 committed by GitHub
parent a88659617f
commit 1545e387e7
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.