mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: enable watching real path in TFileView

Browse source
This commit is contained in:
rich2014 2024-12-28 20:36:12 +08:00
commit 3ecba99193
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fileviews/ufileview.pas
View file

@ -3335,6 +3335,7 @@ end;
procedure TFileView.EnableWatcher(Enable: Boolean);
var
WatchFilter: TFSWatchFilter;
realPath: String;
begin
if Enable then
begin
@ -3362,14 +3363,16 @@ begin
if WatchFilter <> [] then
begin
FWatchPath := CurrentPath;
if TFileSystemWatcher.AddWatch(FWatchPath, WatchFilter, @WatcherEvent, self) = False then
realPath:= (FileSource as TFileSystemFileSource).GetRealPath(FWatchPath);
if TFileSystemWatcher.AddWatch(realPath, WatchFilter, @WatcherEvent, self) = False then
FWatchPath := EmptyStr;
end;
end;
end
else
begin
TFileSystemWatcher.RemoveWatch(FWatchPath, @WatcherEvent);
realPath:= (FileSource as TFileSystemFileSource).GetRealPath(FWatchPath);
TFileSystemWatcher.RemoveWatch(realPath, @WatcherEvent);
FWatchPath := EmptyStr;
end;
end;
@ -3451,6 +3454,7 @@ procedure TFileView.WatcherEvent(const EventData: TFSWatcherEventData);
var
CurrentTime: TDateTime;
AddToPending: Boolean;
virtualPath: String;
begin
if (not FReloadNeeded) and CheckIfDelayReload then
begin
@ -3458,9 +3462,10 @@ begin
FReloadNeeded:= True;
Exit;
end;
virtualPath:= (FileSource as TFileSystemFileSource).GetVirtualPath(EventData.Path);
if not (csDestroying in ComponentState) and
not FReloadNeeded and
String(IncludeTrailingPathDelimiter(EventData.Path)).StartsWith(CurrentPath) then
String(IncludeTrailingPathDelimiter(virtualPath)).StartsWith(CurrentPath) then
begin
if GetCurrentWorkType = fvwtCreate then
begin

1
src/platform/unix/darwin/ucocoamodernformconfig.inc
View file

@ -691,7 +691,6 @@ const
'MainForm.HorzSplit',
'MainForm.SwapPanels',
'MainForm.Cloud',
'MainForm.ShowMode',
'NSToolbarFlexibleSpaceItem',
'MainForm.Share',