ctrl+x, trim leading whites, fix #287

2018-04-14 06:08:07 +02:00 · 2018-04-14 06:08:07 +02:00 · 23fb44a6e4
parent ade5b65fa3
commit 23fb44a6e4
1 changed files with 2 additions and 1 deletions
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@ -1372,8 +1372,9 @@ begin
  case Command of
    ecCut: if not SelAvail then
    begin
-      SelectLine(false);
+      SelectLine(true);
      ExecuteCommand(ecCut, #0, nil);
+      Clipboard.AsText := TrimLeft(Clipboard.AsText);
    end;
    ecCopy: if not SelAvail then
    begin