liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Update ugtkinterface.tsf 

修正drag
This commit is contained in:
JianjunLiu 2023-10-27 14:30:39 +08:00
parent d742f8edfa
commit 9bd6f4beaa
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
funcext/tvclib/ugtkinterface.tsf
View File

@ -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;