diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-10-03 17:58:55 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-10-03 17:58:55 +0200 |
| commit | 0ba3f61f9cb377f527fc5752aae72b46f649269a (patch) | |
| tree | 4550784f91e89cd8dade0a11da0bf66451f3302c /UMain.pas | |
| parent | 97b124c220da9d4e615f8e0a3bc6a8a793f1fbf6 (diff) | |
| download | tuxcmd-0ba3f61f9cb377f527fc5752aae72b46f649269a.tar.xz | |
Match panel items by real name when restoring selection, not display name
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 |