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: Synchronize directories - ignore 3 second difference

Browse source
This commit is contained in:
Alexander Koblov 2014-06-07 10:12:05 +00:00
commit 702ab7a310
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/fsyncdirsdlg.pas
View file

@ -287,6 +287,10 @@ begin
end;
procedure TFileSyncRec.UpdateState(ignoreDate: Boolean);
const
TimeDiff = 3100 / MSecsPerDay;
var
FileTimeDiff: TDateTime;
begin
FState := srsNotEq;
if Assigned(FFileR) and not Assigned(FFileL) then
@ -294,16 +298,18 @@ begin
else
if not Assigned(FFileR) and Assigned(FFileL) then
FState := srsCopyRight
else
if ((FFileL.ModificationTime = FFileR.ModificationTime) or ignoreDate) and (FFileL.Size = FFileR.Size) then
FState := srsEqual
else
if not ignoreDate then
if FFileR.ModificationTime < FFileL.ModificationTime then
FState := srsCopyRight
else begin
FileTimeDiff := FFileL.ModificationTime - FFileR.ModificationTime;
if (((FileTimeDiff > -TimeDiff) and (FileTimeDiff < TimeDiff)) or ignoreDate) and (FFileL.Size = FFileR.Size) then
FState := srsEqual
else
if FFileR.ModificationTime > FFileL.ModificationTime then
FState := srsCopyLeft;
if not ignoreDate then
if FFileR.ModificationTime < FFileL.ModificationTime then
FState := srsCopyRight
else
if FFileR.ModificationTime > FFileL.ModificationTime then
FState := srsCopyLeft;
end;
FAction := FState;
end;