paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed cursor position behaviour on GtkEntry focus/unfocus. issues #21897,#23182

Browse Source 
git-svn-id: trunk@39162 -
This commit is contained in:
zeljko 2012-10-25 06:42:39 +00:00
parent 750dab2f2b
commit 7fd0c5e840
1 changed files with 43 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -893,6 +893,7 @@ var
CurFocusWidget: PGtkWidget;
{$ENDIF}
Mask: TGdkModifierType;
AInfo: PWidgetInfo;
begin
{$IFDEF EventTrace}
EventTrace('focus', data);
@ -959,6 +960,24 @@ begin
end;
end;
// we do not show selection (gtk behaviour) when widget is unfocused,
// so revert back CursorPos.issues #18164,#21897,#23182
if GtkWidgetIsA(Widget, gtk_type_entry) then
begin
AInfo := GetWidgetInfo(Widget);
if AInfo <> nil then
begin
if AInfo^.CursorPos > 0 then
begin
// gtk_entry_set_position(PGtkEntry(Widget), AInfo^.CursorPos);
// gtk_editable_select_region(PGtkEditable(Widget), AInfo^.CursorPos, AInfo^.CursorPos);
// do not trigger signals, only update pos for lcl
PGtkEntry(Widget)^.current_pos := AInfo^.CursorPos;
PGtkEntry(Widget)^.selection_bound := AInfo^.CursorPos;
end;
end;
end;
ResetDefaultIMContext;
//TODO: fill in old focus
@ -1012,14 +1031,28 @@ begin
end;
DebugLn('');
{$ENDIF}
// do not show selection when widget is unfocused
if GtkWidgetIsA(Widget, gtk_type_entry) then
gtk_editable_select_region(PGtkEditable(Widget), 0, 0);
Result:=CallBackDefaultReturn;
end;
function GtkEntryDelayClearCursorPos(AGtkWidget: Pointer): GBoolean; cdecl;
var
Info: PWidgetInfo;
AStart,AEnd: gint;
begin
Result := AGtkWidget <> nil;
if AGtkWidget <> nil then
begin
g_idle_remove_by_data(AGtkWidget);
Info := GetWidgetInfo(AGtkWidget);
if Info <> nil then
begin
gtk_editable_get_selection_bounds(PGtkEditable(AGtkWidget),@AStart, @AEnd);
Info^.CursorPos := AEnd;
gtk_editable_select_region(PGtkEditable(AGtkWidget), 0, 0);
end;
end;
end;
function GTKKillFocusCBAfter(widget: PGtkWidget; event:PGdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var
@ -1076,6 +1109,11 @@ begin
DeliverMessage(Data, Mess);
// do not show selection when widget is unfocused
// issues #18164,#21897,#23182
if GtkWidgetIsA(Widget, gtk_type_entry) then
g_idle_add(@GtkEntryDelayClearCursorPos, Widget);
Result:=true;
end;