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

30
source/uCEFFileDialogCallback.pas
View File

@@ -66,7 +66,7 @@ type
implementation
uses
uCEFMiscFunctions, uCEFLibFunctions;
uCEFMiscFunctions, uCEFLibFunctions, uCEFStringList;
procedure TCefFileDialogCallbackRef.Cancel;
begin
@@ -75,31 +75,17 @@ end;
procedure TCefFileDialogCallbackRef.Cont(selectedAcceptFilter: Integer; const filePaths: TStrings);
var
TempSL : TCefStringList;
i : Integer;
TempString : TCefString;
TempSL : ICefStringList;
begin
TempSL := nil;
try
try
TempSL := cef_string_list_alloc;
TempSL := TCefStringListOwn.Create;
TempSL.AddStrings(filePaths);
if (filePaths <> nil) and (filePaths.Count > 0) then
for i := 0 to filePaths.Count - 1 do
begin
TempString := CefString(filePaths[i]);
cef_string_list_append(TempSL, @TempString);
end;
PCefFileDialogCallback(FData).cont(PCefFileDialogCallback(FData), selectedAcceptFilter, TempSL);
except
on e : exception do
if CustomExceptionHandler('TCefFileDialogCallbackRef.Cont', e) then raise;
end;
PCefFileDialogCallback(FData).cont(PCefFileDialogCallback(FData),
selectedAcceptFilter,
TempSL.Handle);
finally
if (TempSL <> nil) then cef_string_list_free(TempSL);
TempSL := nil;
end;
end;