You've already forked CEF4Delphi
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:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user