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

Gtk2: remember selection when edit looses focus.Also preselect test when AutoSelect is true.Patch by Fabrizio Fellini modified by me for autoselect rule. fixes issues #23219,#23246

Browse Source 
git-svn-id: trunk@39217 -
This commit is contained in:
zeljko 2012-11-01 08:27:48 +00:00
parent 0d4c4b84ed
commit a0224f784a
2 changed files with 45 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -884,6 +884,9 @@ begin
end;
end;
type
TCustomEditHack = class(TCustomEdit);
function GTKFocusCB(widget: PGtkWidget; event: PGdkEventFocus; data: gPointer): GBoolean; cdecl;
var
Mess : TLMessage;
@ -967,13 +970,15 @@ begin
AInfo := GetWidgetInfo(Widget);
if AInfo <> nil then
begin
if AInfo^.CursorPos > 0 then
if (AInfo^.LCLObject is TCustomEdit) and
not TCustomEditHack(AInfo^.LCLObject).AutoSelect then
if (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);
// do not trigger signals, only update pos for lcl
PGtkEntry(Widget)^.current_pos := AInfo^.CursorPos;
PGtkEntry(Widget)^.selection_bound := AInfo^.CursorPos;
PGtkEntry(Widget)^.selection_bound := AInfo^.CursorPos + AInfo^.SelLength;
end;
end;
end;
@ -1037,7 +1042,7 @@ end;
function GtkEntryDelayClearCursorPos(AGtkWidget: Pointer): GBoolean; cdecl;
var
Info: PWidgetInfo;
AStart,AEnd: gint;
//AStart,AEnd: gint;
begin
Result := AGtkWidget <> nil;
if AGtkWidget <> nil then
@ -1046,8 +1051,8 @@ begin
Info := GetWidgetInfo(AGtkWidget);
if Info <> nil then
begin
gtk_editable_get_selection_bounds(PGtkEditable(AGtkWidget),@AStart, @AEnd);
Info^.CursorPos := AEnd;
//gtk_editable_get_selection_bounds(PGtkEditable(AGtkWidget),@AStart, @AEnd);
//Info^.CursorPos := AEnd;
gtk_editable_select_region(PGtkEditable(AGtkWidget), 0, 0);
end;
end;
@ -1057,6 +1062,8 @@ function GTKKillFocusCBAfter(widget: PGtkWidget; event:PGdkEventFocus;
data: gPointer) : GBoolean; cdecl;
var
Mess : TLMessage;
Info: PWidgetInfo;
AStart,AEnd: gint;
{$IFDEF VerboseFocus}
LCLObject: TObject;
CurFocusWidget: PGtkWidget;
@ -1112,7 +1119,24 @@ begin
// do not show selection when widget is unfocused
// issues #18164,#21897,#23182
if GtkWidgetIsA(Widget, gtk_type_entry) then
begin
g_idle_add(@GtkEntryDelayClearCursorPos, Widget);
//save now CursorPos and SelStart in WidgetInfo
if (Widget <> nil) then
begin
Info := GetWidgetInfo(Widget);
if Info <> nil then
begin
if (Info^.LCLObject is TCustomEdit) and
not TCustomEditHack(Info^.LCLObject).AutoSelect then
begin
gtk_editable_get_selection_bounds(PGtkEditable(Widget),@AStart, @AEnd);
Info^.CursorPos := Min(AStart, AEnd);
Info^.SelLength := Abs(AEnd - AStart);
end;
end;
end;
end;
Result:=true;
end;

18
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1155,24 +1155,38 @@ class function TGtk2WSCustomEdit.GetSelStart(const ACustomEdit: TCustomEdit
): integer;
var
Entry: PGtkEntry;
AInfo: PWidgetInfo;
begin
Result := 0;
if not WSCheckHandleAllocated(ACustomEdit, 'GetSelStart') then
Exit;
Entry := {%H-}PGtkEntry(ACustomEdit.Handle);
Result := Min(Entry^.current_pos, Entry^.selection_bound)
if gtk_widget_has_focus(PGtkWidget(Entry)) then
Result := Min(Entry^.current_pos, Entry^.selection_bound)
else begin
AInfo := GetWidgetInfo(PGtkWidget(Entry));
if AInfo <> nil then
Result := AInfo^.CursorPos;
end;
end;
class function TGtk2WSCustomEdit.GetSelLength(const ACustomEdit: TCustomEdit
): integer;
var
Entry: PGtkEntry;
AInfo: PWidgetInfo;
begin
Result := 0;
if not WSCheckHandleAllocated(ACustomEdit, 'GetSelLength') then
Exit;
Entry := {%H-}PGtkEntry(ACustomEdit.Handle);
Result := ABS(Entry^.current_pos - Entry^.selection_bound);
if gtk_widget_has_focus(PGtkWidget(Entry)) then
Result := ABS(Entry^.current_pos - Entry^.selection_bound)
else begin
AInfo := GetWidgetInfo(PGtkWidget(Entry));
if AInfo <> nil then
Result := AInfo^.SelLength;
end;
end;
function gtk2WSDelayedSelStart(Data: Pointer): gboolean; cdecl;