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

LCL-GTk2: Don't move cursor to first character in TEdit after loosing focus. Issue #32604, patch from accorp.

Browse Source 
git-svn-id: trunk@56194 -
This commit is contained in:
juha 2017-10-25 18:45:09 +00:00
parent c448ca8778
commit cc24ae3fa9
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -981,9 +981,6 @@ begin
end;
end;
type
TCustomEditHack = class(TCustomEdit);
function GTKFocusCB(widget: PGtkWidget; {%H-}event: PGdkEventFocus; data: gPointer): GBoolean; cdecl;
var
Mess : TLMessage;
@ -1055,9 +1052,8 @@ begin
AInfo := GetWidgetInfo(Widget);
if AInfo <> nil then
begin
if (AInfo^.LCLObject is TCustomEdit) and
not TCustomEditHack(AInfo^.LCLObject).AutoSelect then
if (AInfo^.CursorPos > 0) or (AInfo^.SelLength > 0) then
if (AInfo^.LCLObject is TCustomEdit)
and (AInfo^.CursorPos > 0) or (AInfo^.SelLength > 0) then
begin
// gtk_entry_set_position(PGtkEntry(Widget), AInfo^.CursorPos);
// gtk_editable_select_region(PGtkEditable(Widget), AInfo^.CursorPos, AInfo^.CursorPos);
@ -1195,8 +1191,7 @@ begin
Info := GetWidgetInfo(Widget);
if Info <> nil then
begin
if (Info^.LCLObject is TCustomEdit) and
not TCustomEditHack(Info^.LCLObject).AutoSelect then
if (Info^.LCLObject is TCustomEdit) then
begin
gtk_editable_get_selection_bounds(PGtkEditable(Widget),@AStart, @AEnd);
Info^.CursorPos := Min(AStart, AEnd);