Forráskód Böngészése

FIX: Case insensitive quick search for non ASCII symbols

Alexander Koblov 15 éve
szülő
commit
ef15e3b451
1 módosított fájl, 3 hozzáadás és 3 törlés
  1. 3 3
      src/newdesign/ucolumnsfileview.pas

+ 3 - 3
src/newdesign/ucolumnsfileview.pas

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