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

LCL-GTK2: Fix SelStart and SelLength in OnChange with some widgetset versions. Issue #24371

Browse Source 
git-svn-id: branches/fixes_1_8@56020 -
This commit is contained in:
mattias 2017-10-11 09:24:40 +00:00
parent ee8eeaf5d2
commit 73a2a6371f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -454,9 +454,9 @@ begin
begin begin
// if we change selstart in OnChange event new cursor pos need to // if we change selstart in OnChange event new cursor pos need to
// be postponed in TGtk2WSCustomEdit.SetSelStart // be postponed in TGtk2WSCustomEdit.SetSelStart
NeedCursorCheck := True;
if g_object_get_data(PGObject(Widget),'lcl-gtkentry-pasted-data') <> nil then if g_object_get_data(PGObject(Widget),'lcl-gtkentry-pasted-data') <> nil then
begin begin
NeedCursorCheck := True;
g_object_set_data(PGObject(Widget),'lcl-gtkentry-pasted-data',nil); g_object_set_data(PGObject(Widget),'lcl-gtkentry-pasted-data',nil);
gtk_editable_set_position(PGtkEditable(Widget), GStart); gtk_editable_set_position(PGtkEditable(Widget), GStart);
end else end else