diff options
Diffstat (limited to 'UMain.pas')
| -rw-r--r-- | UMain.pas | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1744,8 +1744,8 @@ var ListView: TGTKListView; begin Result := False; for i := 0 to DataList.Count - 1 do - if (CaseSensitive and (WideCompareStr(string(PDataItem(DataList[i])^.FDisplayName), AName) = 0)) or - ((not CaseSensitive) and (WideCompareText(string(PDataItem(DataList[i])^.FDisplayName), AName) = 0)) then + if (CaseSensitive and (WideCompareStr(string(PDataItem(DataList[i])^.FName), AName) = 0)) or + ((not CaseSensitive) and (WideCompareText(string(PDataItem(DataList[i])^.FName), AName) = 0)) then begin Sel := i; Result := True; @@ -2388,7 +2388,7 @@ begin if NewDir = '' then Exit; if not MakeDirectory(ListView, Engine, LeftPanel, NewDir) then Exit; - ChangingDir(LeftPanel, Engine.Path, StrToUTF8(NewDir)); + ChangingDir(LeftPanel, Engine.Path, NewDir); DoRefresh(not LeftPanel, True, True); except end; finally @@ -6054,7 +6054,7 @@ begin Result := Engine.SavePath; if not SuppressRefresh then - ChangingDir(LeftPanel, Engine.SavePath, StrToUTF8(Engine.ParentEngine.LastHighlightItem), Engine.ParentEngine.LastHighlightItem, False, True); + ChangingDir(LeftPanel, Engine.SavePath, Engine.ParentEngine.LastHighlightItem, Engine.ParentEngine.LastHighlightItem, False, True); if not TVFSEngine(Engine).VFSClose then DebugMsg(['Error closing the engine...']); Engine.Free; @@ -6180,7 +6180,7 @@ begin Break; end; end; - end else ChangingDir(LeftLastFocused, ExtractFilePath(FSearch.GoToFile), StrToUTF8(ExtractFileName(FSearch.GoToFile))); + end else ChangingDir(LeftLastFocused, ExtractFilePath(FSearch.GoToFile), ExtractFileName(FSearch.GoToFile)); end; end; finally |