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

SynEdit: Navigate to end of word / middle of CamelCase word

Browse Source 
git-svn-id: trunk@35241 -
This commit is contained in:
martin 2012-02-08 18:34:00 +00:00
parent 17c7b1c8f9
commit 781176276f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -3525,7 +3525,7 @@ begin
i := Length(ULine);
// skip upper
While (CX < NX) and (CX <= i) do begin // check entire next utf-8 char to be equal
r := (CX = OX) or (Line[CX] <> '_') or ((CX > 1) and (Line[CX - 1] = '_'));
r := (CX = OX) or (CX <= 1) or (Line[CX-1] <> '_') or ((CX <= i) and (Line[CX] = '_'));
j := CX;
repeat
r := r and (Line[j] = ULine[j]);
@ -3537,7 +3537,7 @@ begin
// skip lowercase
ULine := LazUTF8.UTF8LowerCase(Line);
While (CX < NX) and (CX <= i) do begin // check entire next utf-8 char to be equal
r := (CX = OX) or (Line[CX] <> '_') or ((CX > 1) and (Line[CX - 1] = '_'));
r := (CX = OX) or (CX <= 1) or (Line[CX-1] <> '_') or ((CX <= i) and (Line[CX] = '_'));
j := CX;
repeat
r := r and (Line[j] = ULine[j]);