1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00

Fixed incorrect type definitions

Fixed TCefCustomStringList.GetHandle return value type
This commit is contained in:
Salvador Díaz Fau
2024-06-14 12:03:35 +02:00
parent 0ada3d1ba9
commit e02e101533
6 changed files with 43 additions and 40 deletions

View File

@@ -682,6 +682,7 @@ var
TempResult : HRESULT;
TempFormatArray : TOLEFormatArray;
TempMediumArray : TOLEMediumArray;
TempDragOps : TCefDragOperations;
i : integer;
begin
Result := DRAG_OPERATION_NONE;
@@ -711,7 +712,9 @@ begin
if (TempResult <> DRAGDROP_S_DROP) then TempResEffect := DROPEFFECT_NONE;
FCurrentDragData := nil;
DropEffectToDragOperation(TempResEffect, Result);
TempDragOps := TCefDragOperations(Result);
DropEffectToDragOperation(TempResEffect, TempDragOps);
Result := TCefDragOperation(TempDragOps);
end;
end;
end;