ctrl+x, trim leading whites, fix #287

This commit is contained in:
Basile Burg 2018-04-14 06:08:07 +02:00
parent ade5b65fa3
commit 23fb44a6e4
1 changed files with 2 additions and 1 deletions

View File

@ -1372,8 +1372,9 @@ begin
case Command of case Command of
ecCut: if not SelAvail then ecCut: if not SelAvail then
begin begin
SelectLine(false); SelectLine(true);
ExecuteCommand(ecCut, #0, nil); ExecuteCommand(ecCut, #0, nil);
Clipboard.AsText := TrimLeft(Clipboard.AsText);
end; end;
ecCopy: if not SelAvail then ecCopy: if not SelAvail then
begin begin