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

IDE: Support Unicode in FindInFiles. Issue , patch by n7800.

Browse Source
This commit is contained in:
Juha 2024-04-11 10:05:23 +03:00
parent a4b01fc386
commit 4aa4856b2f
1 changed files with 4 additions and 4 deletions

8
ide/searchfrm.pas
View File

@ -36,9 +36,9 @@ uses
// LCL
LCLIntf, Forms, Controls, ComCtrls, Dialogs, ExtCtrls, StdCtrls, Buttons,
// CodeTools
SourceLog, KeywordFuncLists, BasicCodeTools, FileProcs,
SourceLog, BasicCodeTools, FileProcs,
// LazUtils
FileUtil, LazFileUtils, LazFileCache, LazTracer,
FileUtil, LazFileUtils, LazFileCache, LazTracer, LazUTF8,
// IDEIntf
IdeIntfStrConsts, IDEWindowIntf, LazIDEIntf, SrcEditorIntf, IDEDialogs,
ProjectGroupIntf, InputHistory,
@ -582,8 +582,8 @@ begin
end else begin
// convert case if necessary
if not (sesoMatchCase in Flags) then begin
CaseFile:=TSourceLog.Create(UpperCaseStr(OriginalFile.Source));
TempSearch:=UpperCaseStr(TempSearch);
CaseFile:=TSourceLog.Create(UTF8UpperCase(OriginalFile.Source));
TempSearch:=UTF8UpperCase(TempSearch);
Src:=CaseFile.Source;
end else
Src:=OriginalFile.Source;