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

界面库 

gtk实现文件拖拽打开
This commit is contained in:
JianjunLiu 2023-09-26 17:41:20 +08:00
parent 209b5d93d6
commit 2180824362
3 changed files with 199 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
designer/utslcodeeditor.tsf
View File

@ -2777,27 +2777,9 @@ type TEditer=class(TCustomcontrol) //
inherited;
P.ExStyle := P.ExStyle .| WS_EX_ACCEPTFILES;
end
{$ifdef linux}
function DragQueryFileA();
{$else}
function DragQueryFileA(hDrop:pointer;iFile:integer;lpszFile:string;cch:integer):integer;stdcall;external "Shell32.dll" name "DragQueryFileA";
{$endif}
function WMDROPFILES(o,e):WM_DROPFILES;
begin
dn := "";
opends := array();
for i := 1 to DragQueryFileA(e.wparam,0xFFFFFFFF,"",0) do
begin
len := DragQueryFileA(e.wparam,i-1,nil,0);
if len>0 then
begin
setlength(dn,len+10);
if DragQueryFileA(e.wparam,i-1,dn,len+1)>0 then
begin
opends[length(opends)]:= dn[1:len];
end
end
end
opends := _wapi.get_drage_file_names(e.wparam);
for i,v in opends do
begin
arr := FileList("",v);

181
funcext/tvclib/ugtkinterface.tsf
View File

@ -4080,8 +4080,119 @@ type tgtkapis = class() //gtk
_f_ := static function(w:pointer):pointer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(w);
end
///////////////////////////////////////////////////////////////
////////////////////ÍÏקÎļþÏà¹Ø///////////////////////////////////////////
function gtk_drag_get_data(w:pointer;c:pointer;ls:pointer;tm:integer);
begin
_f_ := static procedure(w:pointer;c:pointer;ls:pointer;tm:integer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(w,c,ls,tm);
end
function gdk_drag_status(c:pointer;ac:integer;tm:integer);
begin
_f_ := static procedure(c:pointer;ac:integer;tm:integer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(c,ac,tm);
end
function gtk_drag_dest_set(w:pointer;flgs:integer;targets:pointer;ntg:integer;actions:integer):integer;
begin
_f_ := static procedure(w:pointer;flgs:integer;targets:pointer;ntg:integer;actions:integer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(w,flgs,targets,ntg,actions);
end
function gdk_drag_context_list_targets(c:pointerr);
begin
_f_ := static procedure(c:pointer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(c);
end
function gtk_selection_data_get_text(d:pointer);
begin
_f_ := static function(d:pointer):string;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(d);
end
function gtk_selection_data_get_data_type(d:pointer);
begin
_f_ := static function(d:pointer):pointer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(d);
end
function gdk_atom_name(a:pointer);
begin
_f_ := static function(d:pointer):string;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(d);
end
function gtk_drag_dest_find_target(w:pointer;ctx:pointer;tglist:pointer);
begin
_f_ := static function(w:pointer;ctx:pointer;tglist:pointer):pointer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(w,ctx,tglist);
end
function gtk_target_list_new(ntg):pointer;
begin
_f_ := static function(tg:pointer;ntg:integer):pointer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(0,0);
end
function gdk_window_get_pointer(w:pointer;var x:integer;var y:integer;var mask:pointer);
begin
_f_ := static function(d:pointer):pointer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(d);
end
function gtk_selection_data_get_length(ntg):integer;
begin
_f_ := static function(ntg:pointer;):integer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(ntg);
end
function get_drage_file_names(w);
begin
global g_drage_file_file_names;
r := g_drage_file_file_names;
g_drage_file_file_names := array();
if not ifarray(r) then r := array();
return r;
end
function gtk_selection_data_get_uris(d);
begin
_f_ := static function(d:pointer):pointer;cdecl;external getfuncptrbyname(0,functionname());
r := ##_f_(d);
rr := r;
ret := array();
_tool := static new aefclassobj_();
while true do
begin
p1 := _tool.readptr(r);
if not p1 then break;
fi := _tool.readstr(p1);
if not fi then continue;
if pos("file://",fi) then
begin
ret[idx++] := fi[8:];
end
r+=8;
end
g_strfreev(rr);
return ret;
end
function gtk_target_entry_new(target,flags,info);
begin
_f_ := static function(target:string;flags:integer;info:integer):pointer;cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(target,flags,info);
end
function gtk_target_entry_free(tg:pointer);
begin
_f_ := static procedure(tg:pointer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(tg);
end
function gtk_drag_finish(ctx,suc,del,tm);
begin
//return ;
_f_ := static procedure(ctx:pointer;suc:integer;del:integer;tm:integer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(ctx,suc,del,tm);
end
function g_strfreev(uris);
begin
_f_ := static procedure(uris:pointer);cdecl;external getfuncptrbyname(0,functionname());
return ##_f_(uris);
end
/////////////////////////////////widget////////////////////////////////////
function gtk_widget_get_realized(w:pointer):integer;
begin
@ -7938,9 +8049,33 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object)
v2 := new tscrollobject(FHscrollbar,Fhadjustment,fhsi);
FScroller[_const.SB_HORZ] := v2;
FScroller[_const.SB_VERT] := v1;
if (dwExStyle .& _const.WS_EX_ACCEPTFILES)>0 then
begin
ftarget := _wapi.gtk_target_entry_new("text/uri-list",4,1);
wg := _wapi.GTK_WIDGET(h);
_wapi.gtk_drag_dest_set(wg,GTK_DEST_DEFAULT_DROP,ftarget,1,GDK_ACTION_COPY);
_wapi.g_signal_connect_data(wg,"drag-motion",get_instance_i(thisfunction(do_motion)),0,0);
_wapi.g_signal_connect_data(wg,"drag-data-received",get_instance_i(thisfunction(do_received)),0,0);
_wapi.g_signal_connect_data(wg,"drag-drop",get_instance_i(thisfunction(do_drop)),0,0);
end
return inherited;
end
procedure do_drop(w:pointer;ctx:pointer;x:integer;y:integer;tm:integer);cdecl;
begin
return true;
end
procedure do_received(w:pointer;ctx:pointer;x:integer;y:integer;d:pointer;info:integer;tm:integer);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;
begin
_wapi.gdk_drag_status(c,GDK_ACTION_COPY,tm);
return true;
end
function widgetsizechanged(h_,w_);override; //´óС¸Ä±ä
begin
h := h_;
@ -8252,6 +8387,7 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object)
return inherited;
end }
private
ftarget ;
fscrollinfos;
ftimerobj;
Fscrolltimedo;
@ -8345,6 +8481,9 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object)
function Destroy();override;
begin
inherited;
get_instance_u(thisfunction(do_motion));
get_instance_u(thisfunction(do_received));
get_instance_u(thisfunction(do_drop));
FHadjustment := nil;
Fvadjustment := nil;
FHscrollbar := nil;
@ -8353,6 +8492,11 @@ type tgtk_ctl_scroll_window = class(tgtk_ctl_object)
Fvscrollbarobj := nil;
Fhscrollbarobj := nil;
FClientWideget := nil;
if ftarget then
begin
_wapi.gtk_target_entry_free(ftarget);
ftarget := nil;
end
end
protected
function initadjustSingal();
@ -9087,6 +9231,23 @@ type _gtkeventtype=class
static const GTK_RESPONSE_ACCEPT=-3;
static const GTK_RESPONSE_REJECT=-2;
static const GTK_RESPONSE_NONE=-1;
static const GTK_TARGET_SAME_APP =1;
static const GTK_TARGET_SAME_WIDGET =2;
static const GTK_TARGET_OTHER_APP =4;
static const GTK_TARGET_OTHER_WIDGET =8;
static const GDK_ACTION_DEFAULT =1;
static const GDK_ACTION_COPY =2;
static const GDK_ACTION_MOVE =4;
static const GDK_ACTION_LINK =8;
static const GDK_ACTION_PRIVATE =16;
static const GDK_ACTION_ASK =32;
static const GTK_DEST_DEFAULT_MOTION =1;
static const GTK_DEST_DEFAULT_HIGHLIGHT =2;
static const GTK_DEST_DEFAULT_DROP =4;
static const GTK_DEST_DEFAULT_ALL =7;
end
{ //cairo ³£Á¿
CAIRO_OPERATOR_CLEAR:=0;
@ -9161,6 +9322,20 @@ begin
"tsl_gtk_idle": return mgnr.get(thisfunction(tsl_gtk_idle));
end ;
end
function get_instance_i(fn);
begin
global g_gtk_call_handler_manager;
if not g_gtk_call_handler_manager then return 0;
mgnr := g_gtk_call_handler_manager;
return mgnr.get(fn);
end
function get_instance_u(fn);
begin
global g_gtk_call_handler_manager;
if not g_gtk_call_handler_manager then return 0;
mgnr := g_gtk_call_handler_manager;
return mgnr.del(fn);
end
function tsl_gtk_idle(dlg:pointer):integer;
begin
return _gtkidledo_(dlg);

21
funcext/tvclib/uwindowsinterface.tsf
View File

@ -97,7 +97,26 @@ type twindowsapi = class()
if oldmp then SelectObject(thdc,oldmp);
return r;
end
function get_drage_file_names(w);
begin
dn := "";
opends := array();
for i := 1 to DragQueryFileA(w,0xFFFFFFFF,"",0) do
begin
len := DragQueryFileA(w,i-1,nil,0);
if len>0 then
begin
setlength(dn,len+10);
if DragQueryFileA(w,i-1,dn,len+1)>0 then
begin
opends[length(opends)]:= dn[1:len];
end
end
end
return opends;
end
/////////////////////////////////////////
function DragQueryFileA(hDrop:pointer;iFile:integer;lpszFile:string;cch:integer):integer;stdcall;external "Shell32.dll" name "DragQueryFileA";
////////////////////////clipboar//////////////////////
function OpenClipboard(hwd :pointer):integer;stdcall;external "User32.dll" name "OpenClipboard";
function EmptyClipboard():integer;stdcall;external "User32.dll" name "EmptyClipboard";