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/StashFS: step-14: synchronize Stash changes across each FileViews of the StashFileSource

Browse source
This commit is contained in:
rich2014 2026-06-05 18:35:31 +08:00
commit 4e5db6ccf0
2 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/filesources/stash/ustashfilesbackend.pas
View file

@ -18,6 +18,9 @@ type
public
constructor Create;
destructor Destroy; override;
procedure setListener( const listener: TNotifyEvent );
procedure addPath( const path: String );
procedure removePath( const path: String );
procedure clear;
@ -46,6 +49,11 @@ begin
FreeAndNIl( _paths );
end;
procedure TStashFilesBackend.setListener(const listener: TNotifyEvent);
begin
_paths.OnChange:= listener;
end;
procedure TStashFilesBackend.addPath(const path: String);
begin
_paths.Add( path );

12
src/filesources/stash/ustashfilesource.pas
View file

@ -32,6 +32,7 @@ type
_fileSystemFS: IFileSystemFileSource;
private
procedure onFileSystemEvent(var params: TFileSourceEventParams);
procedure onStashChanged(Sender: TObject);
procedure reload; overload;
procedure removeAction(Sender: TObject);
procedure clearAction(Sender: TObject);
@ -160,6 +161,11 @@ begin
self.Reload( params.paths );
end;
procedure TStashFileSource.onStashChanged(Sender: TObject);
begin
TThread.Synchronize( nil, @self.reload );
end;
procedure TStashFileSource.reload;
begin
self.Reload( self.GetRootDir );
@ -172,18 +178,17 @@ var
begin
files:= TFiles( item.Tag );
stashFilesBackend.removePaths( files );
self.reload;
end;
procedure TStashFileSource.clearAction(Sender: TObject);
begin
stashFilesBackend.clear;
self.reload;
end;
constructor TStashFileSource.Create;
begin
Inherited Create;
stashFilesBackend.setListener( @self.onStashChanged );
FCurrentAddress:= STASH_SCHEME;
_fileSystemFS:= IFileSystemFileSource(FileSourceManager.Find(TFileSystemFileSource,EmptyStr));
_fileSystemFS.AddEventListener( @self.onFileSystemEvent );
@ -191,6 +196,7 @@ end;
destructor TStashFileSource.Destroy;
begin
stashFilesBackend.setListener( nil );
_fileSystemFS.RemoveEventListener( @self.onFileSystemEvent );
inherited Destroy;
end;
@ -228,7 +234,7 @@ end;
function TStashFileSource.GetRootDir(sPath: String): String;
begin
Result:= PathDelim + PathDelim + PathDelim + 'Stash' + PathDelim;
Result:= PathDelim + 'Stash';
end;
function TStashFileSource.GetProperties: TFileSourceProperties;