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

added memo thaw on set SelStart from Andrew Haines

Browse Source 
git-svn-id: trunk@6242 -
This commit is contained in:
mattias 2004-11-14 00:21:08 +00:00
parent 3f05bb31fd
commit 96951cf407
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk/gtkwsstdctrls.pp
View File

@ -282,7 +282,7 @@ implementation
{ helper routines }
function WidgetGetSelStart(const Widget: PGtkWidget): integer;
function WidgetGetSelStart(const Widget: PGtkWidget): integer;
begin
if Widget <> nil then
begin
@ -765,9 +765,15 @@ end;
procedure TGtkWSCustomEdit.SetSelStart(const ACustomEdit: TCustomEdit;
NewStart: integer);
var
Widget: PGtkWidget;
begin
gtk_editable_set_position(PGtkOldEditable(GetWidgetInfo(
Pointer(ACustomEdit.Handle), true)^.CoreWidget), NewStart);
Widget:=GetWidgetInfo(Pointer(ACustomEdit.Handle), true)^.CoreWidget;
if WidgetGetSelStart(Widget)=NewStart then exit;
// sometimes the gtk freezes the memo, canges something and emits the change
// event. Then the LCL gets notified and wants to react: force thaw (unfreeze)
gtk_text_thaw(PGtkText(Widget));
gtk_editable_set_position(PGtkOldEditable(Widget), NewStart);
end;
procedure TGtkWSCustomEdit.SetSelLength(const ACustomEdit: TCustomEdit;