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 118.6.6

Browse Source
This commit is contained in:
salvadordf
2023-10-22 19:09:51 +02:00
parent 9c94220a5d
commit d5d5387124
14 changed files with 323 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/uCEFDragData.pas
View File

@@ -36,6 +36,7 @@ type
function GetFileName: ustring;
function GetFileContents(const writer: ICefStreamWriter): NativeUInt;
function GetFileNames(var names: TStrings): Integer;
function GetFilePaths(var paths: TStrings): Integer;
procedure SetLinkUrl(const url: ustring);
procedure SetLinkTitle(const title: ustring);
procedure SetLinkMetadata(const data: ustring);
@@ -120,6 +121,24 @@ begin
end;
end;
function TCefDragDataRef.GetFilePaths(var paths: TStrings): Integer;
var
TempSL : ICefStringList;
begin
Result := 0;
if (paths <> nil) then
begin
TempSL := TCefStringListOwn.Create;
if (PCefDragData(FData)^.get_file_paths(FData, TempSL.Handle) <> 0) then
begin
TempSL.CopyToStrings(paths);
Result := paths.Count;
end;
end;
end;
function TCefDragDataRef.GetFragmentBaseUrl: ustring;
begin
Result := CefStringFreeAndGet(PCefDragData(FData)^.get_fragment_base_url(FData));