From 9bd6f4beaab353cc5ef6fa6de890b50df8b52d10 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Fri, 27 Oct 2023 14:30:39 +0800 Subject: [PATCH] Update ugtkinterface.tsf MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 修正drag --- funcext/tvclib/ugtkinterface.tsf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf index b60f4c4..957d974 100644 --- a/funcext/tvclib/ugtkinterface.tsf +++ b/funcext/tvclib/ugtkinterface.tsf @@ -8060,18 +8060,18 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object) end return inherited; end - procedure do_drop(w:pointer;ctx:pointer;x:integer;y:integer;tm:integer);cdecl; + procedure do_drop(w:pointer;ctx:pointer;x:integer;y:integer;tm:integer;ud:pointer);cdecl; begin return true; end - procedure do_received(w:pointer;ctx:pointer;x:integer;y:integer;d:pointer;info:integer;tm:integer);cdecl; + procedure do_received(w:pointer;ctx:pointer;x:integer;y:integer;d:pointer;info:integer;tm:integer;ud:pointer);cdecl; begin global g_drage_file_file_names; g_drage_file_file_names := _wapi.gtk_selection_data_get_uris(d); _wapi.gtk_drag_finish(ctx,true,true,tm); AddMessageToGtkMessageQueue(w,_const.WM_DROPFILES,d,tm); end - function do_motion(w:pointer;c:pointer;x:integer;y:integer;tm:integer;d:pointer):bool;cdecl; + function do_motion(w:pointer;c:pointer;x:integer;y:integer;tm:integer;d:pointer):integer;cdecl; begin _wapi.gdk_drag_status(c,GDK_ACTION_COPY,tm); return true;