diff options
Diffstat (limited to 'USearch.pas')
| -rw-r--r-- | USearch.pas | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/USearch.pas b/USearch.pas index eb609c3..4339f5e 100644 --- a/USearch.pas +++ b/USearch.pas @@ -81,6 +81,7 @@ type TSearchThread = class(TThread) private FEngine: TPanelEngine; + FRootEngine: TPanelEngine; Wilds: array of string; GUIMutex: TCriticalSection; procedure Rekurze(StartDir: string); @@ -850,6 +851,7 @@ begin FSearchArchives := False; FEngine := Engine; + FRootEngine := Engine; FList := TList.Create; end; @@ -974,7 +976,8 @@ begin libc_free(PDataItem(LocalList[i])^.LnkPointTo); PDataItem(LocalList[i])^.LnkPointTo := nil; end; - if FEngine is TVFSEngine then PDataItem(LocalList[i])^.LnkPointTo := strdup(PChar((FEngine as TVFSEngine).SavePath)); + if (FEngine is TVFSEngine) and (FRootEngine <> FEngine) + then PDataItem(LocalList[i])^.LnkPointTo := strdup(PChar((FEngine as TVFSEngine).SavePath)); GUIMutex.Release; end; |
