Fixes #543 : Cut and paste is pasting always as plain text if 'Paste …

…external as Plain text' is checked (Beta 6) Signed-off-by: Daniel Prado Velasco <dpradov@users.noreply.github.com>
dpradov · Mar 6, 2017 · eeca865 · eeca865
1 parent 126c2d7
commit eeca865
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/macros/kn_MacroMng.pas b/macros/kn_MacroMng.pas
@@ -1831,8 +1831,11 @@ procedure PerformCmd( aCmd : TEditCmd );
             with Form_Main.NoteSelText do
                SetStrikeOut(not (fsStrikeout in Style));
 
-          ecCut :
-            ActiveNote.Editor.CutToClipboard;
+          ecCut: begin
+              ActiveNote.Editor.CutToClipboard;
+              if EditorOptions.PlainDefaultPaste then
+                 TestCRCForDuplicates(ClipboardAsStringW);
+            end;
 
           ecPaste :
             if not EditorOptions.PlainDefaultPaste or not Clipboard.HasFormat( CF_TEXT ) then