summaryrefslogtreecommitdiff
path: root/USearch.pas
diff options
context:
space:
mode:
Diffstat (limited to 'USearch.pas')
-rw-r--r--USearch.pas5
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;