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

ADD: Feature [0001009] Deleting feature in the synchronize directories window (experimental) #2

Browse source
This commit is contained in:
Alexander Koblov 2019-05-25 09:29:57 +00:00
commit c184f866ff
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fsyncdirsdlg.pas
View file

@ -1485,19 +1485,24 @@ begin
Message:= EmptyStr;
UpdateList(ALeftList, ARightList, False, False);
if ALeft and (ALeftList.Count > 0) then
ALeft:= ALeft and (ALeftList.Count > 0);
ARight:= ARight and (ARightList.Count > 0);
if (ALeft = False) and (ARight = False) then Exit;
if ALeft then
Message:= Format(rsVarLeftPanel + ': ' + rsMsgDelFlDr, [ALeftList.Count]) + LineEnding;
if ARight and (ARightList.Count > 0) then
if ARight then
Message+= Format(rsVarRightPanel + ': ' + rsMsgDelFlDr, [ARightList.Count]) + LineEnding;
if MessageDlg(Message, mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes then
begin
ALeft:= ALeft and (ALeftList.Count > 0);
ARight:= ARight and (ARightList.Count > 0);
EnableControls(False);
if ALeft then DeleteFiles(FCmpFileSourceL, ALeftList);
if ARight then DeleteFiles(FCmpFileSourceR, ARightList);
UpdateList(nil, nil, ALeft, ARight);
EnableControls(True);
end;
finally
ALeftList.Free;