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: Synchronize directories: select all

Browse source
This commit is contained in:
Alexander Koblov 2019-08-22 18:20:03 +00:00
commit cc2e6c65c3
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fsyncdirsdlg.pas
View file

@ -788,10 +788,23 @@ end;
procedure TfrmSyncDirsDlg.MainDrawGridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ASelection: TGridRect;
begin
case Key of
VK_SPACE:
UpdateSelection(MainDrawGrid.Row);
VK_A:
begin
if (Shift = [ssModifier]) then
begin
ASelection.Top:= 0;
ASelection.Left:= 0;
ASelection.Right:= MainDrawGrid.ColCount - 1;
ASelection.Bottom:= MainDrawGrid.RowCount - 1;
MainDrawGrid.Selection:= ASelection;
end;
end;
end;
end;