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

FIX: Reloading filelist after rename operation (and multirename).

Browse source
This commit is contained in:
cobines 2010-01-19 07:58:04 +00:00
commit a641b760ac
2 changed files with 4398 additions and 4398 deletions
Download patch file Download diff file Expand all files Collapse all files

8765
src/newdesign/ucolumnsfileview.pas
View file

File diff suppressed because it is too large Load diff

11
src/newdesign/ufilesourceutil.pas
View file

@ -157,20 +157,22 @@ end;
function RenameFile(aFileSource: IFileSource; const aFile: TFile;
const NewFileName: UTF8String; Interactive: Boolean): Boolean;
var
aFiles: TFiles;
aFiles: TFiles = nil;
Operation: TFileSourceSetFilePropertyOperation = nil;
NewProperties: TFileProperties;
UserInterface: TFileSourceOperationMessageBoxesUI = nil;
begin
Result:= False;
aFiles := aFileSource.CreateFiles;
aFiles.Add(aFile.Clone);
if fsoSetFileProperty in aFileSource.GetOperationsTypes then
begin
FillByte(NewProperties, SizeOf(NewProperties), 0);
NewProperties[fpName] := TFileNameProperty.Create(NewFileName);
try
aFiles := aFileSource.CreateFiles;
aFiles.Path := aFile.Path;
aFiles.Add(aFile.Clone);
Operation := aFileSource.CreateSetFilePropertyOperation(
aFiles,
NewProperties) as TFileSourceSetFilePropertyOperation;
@ -197,10 +199,9 @@ begin
FreeThenNil(NewProperties[fpName]);
FreeThenNil(Operation);
FreeThenNil(UserInterface);
FreeThenNil(aFiles);
end;
end;
FreeThenNil(aFiles);
end;
end.