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

Gtk2: delay SetSelLength if it's called from OnChange event of TCustomEdit.

Browse Source 
git-svn-id: trunk@36086 -
This commit is contained in:
zeljko 2012-03-16 11:26:45 +00:00
parent 447f19d6e2
commit eb25b3d5e7
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/gtk2/gtk2def.pp
View File

@ -471,6 +471,7 @@ type
EventMask: TGdkEventMask;
DoubleBuffer: PGdkPixmap;
CursorPos: integer; // needed for delayed SetSelStart
SelLength: integer; // needed for delayed SetSelLength
ControlCursor: HCursor; // current widget cursor
Flags: TWidgetInfoFlags;
ChangeLock: Integer; // lock events

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

@ -1182,6 +1182,18 @@ begin
g_idle_remove_by_data(Data);
end;
function gtk2WSDelayedSetSelLength(Data: Pointer): gboolean; cdecl;
var
Entry: PGtkEntry;
begin
Result := False;
Entry := PGtkEntry(PWidgetInfo(Data)^.CoreWidget);
gtk_entry_select_region(Entry,
PWidgetInfo(Data)^.CursorPos,
PWidgetInfo(Data)^.SelLength);
g_idle_remove_by_data(Data);
end;
class procedure TGtk2WSCustomEdit.SetCaretPos(const ACustomEdit: TCustomEdit;
const NewPos: TPoint);
var
@ -1280,14 +1292,25 @@ class procedure TGtk2WSCustomEdit.SetSelLength(
var
Entry: PGtkEntry;
SelStart: Integer;
WidgetInfo: PWidgetInfo;
begin
if not WSCheckHandleAllocated(ACustomEdit, 'SetSelLength') then
Exit;
Entry := PGtkEntry(ACustomEdit.Handle);
SelStart := GetSelStart(ACustomEdit);
gtk_entry_select_region(Entry,
SelStart,
SelStart + NewLength);
if LockOnChange(PgtkObject(Entry),0) > 0 then
begin
// delay setting of selection length. issue #20890
WidgetInfo := GetWidgetInfo(Entry);
if WidgetInfo^.CursorPos = 0 then
WidgetInfo^.CursorPos := SelStart;
WidgetInfo^.SelLength := SelStart + NewLength;
g_idle_add(@gtk2WSDelayedSetSelLength, WidgetInfo);
end else
gtk_entry_select_region(Entry,
SelStart,
SelStart + NewLength);
end;
class procedure TGtk2WSCustomEdit.SetAlignment(const ACustomEdit: TCustomEdit;