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

SynEdit: Fixed case-insensitive search/replace regex. Issue #0023078

Browse Source 
git-svn-id: trunk@39372 -
This commit is contained in:
martin 2012-11-25 19:45:44 +00:00
parent a1a464b0e2
commit db1bedfb1f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditsearch.pp
View File

@ -818,7 +818,7 @@ begin
// regex multi line whole word
repeat
LineStr:=Lines[y];
if ASupportUnicodeCase and (not fSensitive) then LineStr := UTF8LowerCase(LineStr);
if ASupportUnicodeCase and (not fSensitive) and (not fRegExpr) then LineStr := UTF8LowerCase(LineStr);
LineLen:=length(LineStr);
Line:=PChar(LineStr);
if not IsFirstLine then begin