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: Workaround for Win32 - right arrow must clear selection at first move

Browse source
This commit is contained in:
Alexander Koblov 2015-04-15 19:51:03 +00:00
commit 21dda62a84
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -1262,6 +1262,18 @@ begin
VK_DOWN:
Key := 0;
{$ENDIF}
{$IFDEF LCLWIN32}
// Workaround for Win32 - right arrow must clear selection at first move.
VK_RIGHT:
if (Shift = []) and (edtRename.SelLength > 0) then
begin
Key := edtRename.CaretPos.X;
edtRename.SelLength := 0;
edtRename.CaretPos := Classes.Point(Key, 0);
Key := 0;
end;
{$ENDIF}
end;
end;