From 32d5024bbd80f05db637695fe010fa1737f076ba Mon Sep 17 00:00:00 2001
From: Michl <progass@gmx.de>
Date: Fri, 15 Aug 2014 00:22:27 +0200
Subject: [PATCH] ondrag patch

---
 Component/cef3lcl.pas | 2 +-
 cef3gui.pas           | 2 ++
 cef3own.pas           | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Component/cef3lcl.pas b/Component/cef3lcl.pas
index f711531..645cd0a 100644
--- a/Component/cef3lcl.pas
+++ b/Component/cef3lcl.pas
@@ -368,6 +368,7 @@ type
       property OnConsoleMessage;
       property OnBeforeDownload;
       property OnDownloadUpdated;
+      property OnDragEnter;
       property OnRequestGeolocationPermission;
       property OnCancelGeolocationPermission;
       property OnJsdialog;
@@ -388,7 +389,6 @@ type
 
       property OnFileDialog;
 
-
       property Options;
       property FontOptions;
       property DefaultEncoding;
diff --git a/cef3gui.pas b/cef3gui.pas
index 58a24e4..6d36d91 100644
--- a/cef3gui.pas
+++ b/cef3gui.pas
@@ -612,6 +612,7 @@ begin
   FKeyboardHandler := TCustomKeyboardHandler.Create(events);
   FDisplayHandler := TCustomDisplayHandler.Create(events);
   FDownloadHandler := TCustomDownloadHandler.Create(events);
+  FDragHandler := TCustomDragHandler.Create(events);
   FGeolocationHandler := TCustomGeolocationHandler.Create(events);
   FJsDialogHandler := TCustomJsDialogHandler.Create(events);
   FLifeSpanHandler := TCustomLifeSpanHandler.Create(events);
@@ -629,6 +630,7 @@ begin
   FKeyboardHandler := nil;
   FDisplayHandler := nil;
   FDownloadHandler := nil;
+  FDragHandler := nil;
   FGeolocationHandler := nil;
   FJsDialogHandler := nil;
   FLifeSpanHandler := nil;
diff --git a/cef3own.pas b/cef3own.pas
index 37def50..eaece4d 100644
--- a/cef3own.pas
+++ b/cef3own.pas
@@ -623,7 +623,7 @@ function cef_drag_handler_on_drag_enter(self: PCefDragHandler; browser: PCefBrow
   dragData: PCefDragData; mask: TCefDragOperationsMask): Integer; cconv;
 begin
   Result := Ord(TCefDragHandlerOwn(CefGetObject(self)).OnDragEnter(
-    TCefBrowserRef.UnWrap(browser), TCefDragDataRef(dragData), mask));
+    TCefBrowserRef.UnWrap(browser), TCefDragDataRef.UnWrap(dragData), mask));
 end;
 
 function TCefDragHandlerOwn.OnDragEnter(const browser : ICefBrowser; const dragData : ICefDragData;
-- 
1.9.4.msysgit.0