|
@@ -1514,12 +1514,12 @@ var
|
|
Result : Boolean;
|
|
Result : Boolean;
|
|
sSearchName,
|
|
sSearchName,
|
|
sSearchNameNoExt,
|
|
sSearchNameNoExt,
|
|
- sSearchExt : String;
|
|
|
|
|
|
+ sSearchExt : UTF8String;
|
|
begin
|
|
begin
|
|
if (edtSearch.Text='') or IsEmpty then Exit;
|
|
if (edtSearch.Text='') or IsEmpty then Exit;
|
|
//DebugLn('edtSearchChange: '+ edtSearch.Text);
|
|
//DebugLn('edtSearchChange: '+ edtSearch.Text);
|
|
|
|
|
|
- sSearchName := AnsiLowerCase(edtSearch.Text);
|
|
|
|
|
|
+ sSearchName := UTF8LowerCase(edtSearch.Text);
|
|
|
|
|
|
if Pos('.', sSearchName) <> 0 then
|
|
if Pos('.', sSearchName) <> 0 then
|
|
begin
|
|
begin
|
|
@@ -1559,7 +1559,7 @@ begin
|
|
try
|
|
try
|
|
while I <> iEnd do
|
|
while I <> iEnd do
|
|
begin
|
|
begin
|
|
- Result := MatchesMask(AnsiLowerCase(FFiles[I - dgPanel.FixedRows].TheFile.Name), sSearchName);
|
|
|
|
|
|
+ Result := MatchesMask(UTF8LowerCase(FFiles[I - dgPanel.FixedRows].TheFile.Name), sSearchName);
|
|
|
|
|
|
if Result then
|
|
if Result then
|
|
begin
|
|
begin
|