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

SrcEdit: fix utf8 issue in incremental search. issue #0020288

Browse Source 
git-svn-id: trunk@32409 -
This commit is contained in:
martin 2011-09-18 18:07:32 +00:00
parent c304336bb0
commit b2d943371e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditor.pp
View File

@ -2831,6 +2831,7 @@ Procedure TSourceEditor.ProcessCommand(Sender: TObject;
var
AddChar: Boolean;
s: String;
i: Integer;
begin
//DebugLn('TSourceEditor.ProcessCommand Command=',dbgs(Command));
FSharedValues.SetActiveSharedEditor(Self);
@ -2862,9 +2863,9 @@ begin
ecDeleteLastChar:
begin
FSourceNoteBook.IncrementalSearchStr:=
LeftStr(FSourceNoteBook.IncrementalSearchStr,
length(FSourceNoteBook.IncrementalSearchStr)-1);
i := length(FSourceNoteBook.IncrementalSearchStr);
i := UTF8FindNearestCharStart(PChar(FSourceNoteBook.IncrementalSearchStr), i, i-1);
FSourceNoteBook.IncrementalSearchStr:= LeftStr(FSourceNoteBook.IncrementalSearchStr, i);
Command:=ecNone;
end;