Re: [lazarus] New synedit patch

[Ales Katona]

Felipe Monteiro de Carvalho  wrote / napísal(a):

Thanks, applied as it's much better then the current behavior.

However, it still isn't perfect. On:

  Caption := 'éééééé';
  Edit1.Text := 'éééééé';

If you double click "Caption" the cursor ends up 1 char before "C"

If you double click "Text" it goes between "t" and "1"

thanks,

This patch fixed the oversight :)

Ales

Index: components/synedit/synedit.pp
===================================================================
--- components/synedit/synedit.pp	(revision 13892)
+++ components/synedit/synedit.pp	(working copy)
@@ -6516,6 +6516,7 @@
   CaretXY := Runner;
   {$IFDEF SYN_LAZARUS}
   if UseUTF8 then begin
+    Delete(TempString, fBlockEnd.X, Length(TempString));
     CaretX := CaretX - Max(0, (Length(TempString) - UTF8Length(TempString)));
   end;
   {$ENDIF}