mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: GTK2 select long text by mouse

Browse source
This commit is contained in:
Alexander Koblov 2017-12-02 15:04:33 +00:00
commit ce2182f7e0
1 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/platform/unix/ugtk2fixcursorpos.pas
View file

@ -13,7 +13,8 @@ implementation
uses
Classes, SysUtils, Gtk2WSStdCtrls, Gtk2, Gtk2Def, Gtk2WSSpin, Gtk2Proc,
WSLCLClasses, StdCtrls, Glib2, Gtk2Globals, Spin, LMessages, LazUTF8;
WSLCLClasses, StdCtrls, Glib2, Gtk2Globals, Spin, LMessages, LazUTF8, Gdk2,
Controls;
type
@ -141,6 +142,23 @@ begin
LockOnChange(PgtkObject(Widget), -1);
end;
function gtkMotionNotifyEx(Widget:PGTKWidget; Event: PGDKEventMotion;
Data: gPointer): GBoolean; cdecl;
var
ACtl: TWinControl;
begin
// Call inherited function
Result:= gtkMotionNotify(Widget, Event, Data);
ACtl:= TWinControl(Data);
if (ACtl is TCustomEdit) then
begin
if (Event^.x < 0) or (Event^.y < 0) or
(Event^.x > ACtl.Width) or (Event^.y > ACtl.Height) then
Result:= CallBackDefaultReturn;
end;
end;
{ TGtk2WSCustomEditEx }
class procedure TGtk2WSCustomEditEx.SetCallbacks(const AGtkWidget: PGtkWidget;
@ -169,6 +187,10 @@ begin
g_signal_handlers_disconnect_by_func(gObject, @gtkchanged_editbox, ALCLObject);
ConnectSignal(gObject, 'backspace', @gtkchanged_editbox_backspace_ex, ALCLObject);
ConnectSignal(gObject, 'delete-from-cursor', @gtkchanged_editbox_delete, ALCLObject);
g_signal_handlers_disconnect_by_func(gObject, @GTKMotionNotify, ALCLObject);
ConnectSignal(gObject, 'motion-notify-event', @GTKMotionNotifyEx, ALCLObject,
GDK_POINTER_MOTION_HINT_MASK or GDK_POINTER_MOTION_MASK);
end;
end;