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.3282.1731.gfc9a4fa

Browse Source 
- Chromium 64.0.3282.119 which should include partial MP3 support.
- Fixed stability issues when you closed the browser due to circular interface references.
- Fixed TCefRTTIExtension thanks to Pier.
- Added the JSRTTIExtension demo to test TCefRTTIExtension.
- Added the TCustomResponseFilter class to filter the resource contents.
- Added the ResponseFilterBrowser demo to test the new TCustomResponseFilter class.
This commit is contained in:
Salvador Díaz Fau
2018-02-03 17:52:48 +01:00
parent fed1c04a3f
commit e29989623e
52 changed files with 4053 additions and 954 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
source/uCEFDragHandler.pas
View File

@@ -52,28 +52,37 @@ uses
type
TCefDragHandlerOwn = class(TCefBaseRefCountedOwn, ICefDragHandler)
protected
function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; virtual;
function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; virtual;
procedure OnDraggableRegionsChanged(const browser: ICefBrowser; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); virtual;
procedure RemoveReferences; virtual;
public
constructor Create; virtual;
end;
TCustomDragHandler = class(TCefDragHandlerOwn)
protected
FEvent: IChromiumEvents;
FEvents : Pointer;
function OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean; override;
procedure OnDraggableRegionsChanged(const browser: ICefBrowser; regionsCount: NativeUInt; regions: PCefDraggableRegionArray); override;
procedure RemoveReferences; override;
public
constructor Create(const events: IChromiumEvents); reintroduce; virtual;
constructor Create(const events: Pointer); reintroduce; virtual;
destructor Destroy; override;
end;
implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils,
{$ELSE}
SysUtils,
{$ENDIF}
uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFDragData;
function cef_drag_handler_on_drag_enter(self: PCefDragHandler; browser: PCefBrowser;
@@ -113,34 +122,47 @@ begin
end;
procedure TCefDragHandlerOwn.RemoveReferences;
begin
//
end;
// TCustomDragHandler
constructor TCustomDragHandler.Create(const events: IChromiumEvents);
constructor TCustomDragHandler.Create(const events: Pointer);
begin
inherited Create;
FEvent := events;
FEvents := events;
end;
destructor TCustomDragHandler.Destroy;
begin
FEvent := nil;
RemoveReferences;
inherited Destroy;
end;
function TCustomDragHandler.OnDragEnter(const browser: ICefBrowser; const dragData: ICefDragData; mask: TCefDragOperations): Boolean;
procedure TCustomDragHandler.RemoveReferences;
begin
if (FEvent <> nil) then
Result := FEvent.doOnDragEnter(browser, dragData, mask)
FEvents := nil;
end;
function TCustomDragHandler.OnDragEnter(const browser : ICefBrowser;
const dragData : ICefDragData;
mask : TCefDragOperations): Boolean;
begin
if (FEvents <> nil) then
Result := IChromiumEvents(FEvents).doOnDragEnter(browser, dragData, mask)
else
Result := inherited OnDragEnter(browser, dragData, mask);
end;
procedure TCustomDragHandler.OnDraggableRegionsChanged(const browser: ICefBrowser; regionsCount: NativeUInt; regions: PCefDraggableRegionArray);
procedure TCustomDragHandler.OnDraggableRegionsChanged(const browser : ICefBrowser;
regionsCount : NativeUInt;
regions : PCefDraggableRegionArray);
begin
if (FEvent <> nil) then
FEvent.doOnDraggableRegionsChanged(browser, regionsCount, regions);
if (FEvents <> nil) then IChromiumEvents(FEvents).doOnDraggableRegionsChanged(browser, regionsCount, regions);
end;
end.