浏览代码

FIX: Case insensitive quick search for non ASCII symbols

Alexander Koblov 15 年之前
父节点
当前提交
ef15e3b451
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      src/newdesign/ucolumnsfileview.pas

+ 3 - 3
src/newdesign/ucolumnsfileview.pas

@@ -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