mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Build under Windows

Browse source
This commit is contained in:
Alexander Koblov 2017-01-22 10:01:16 +00:00
commit ec4f4bfb5f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/filesources/filesystem/ufilesystemsetfilepropertyoperation.pas
View file

@ -283,6 +283,8 @@ begin
end;
function TFileSystemSetFilePropertyOperation.RenameFile(aFile: TFile; NewName: String): TSetFilePropertyResult;
var
OldName: String;
function AskIfOverwrite(Attrs: TFileAttrs): TFileSourceOperationUIResponse;
var
@ -351,7 +353,6 @@ var
{$ELSE}
NewFileAttrs: TFileAttrs;
{$ENDIF}
OldName: String;
begin
OldName:= aFile.FullPath;