mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Copying in column mode in editor

Browse source
This commit is contained in:
cordylus 2019-06-16 14:40:34 +00:00
commit f0d3ef680d
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/feditor.pas
View file

@ -37,7 +37,7 @@ interface
uses
SysUtils, Classes, Controls, Forms, ActnList, Menus, SynEdit,
ComCtrls, SynEditSearch, SynEditHighlighter, uDebug, uOSForms, uShowForm, types, Graphics,
uFormCommands, uHotkeyManager;
uFormCommands, uHotkeyManager, LCLVersion;
const
HotkeysCategory = 'Editor';
@ -883,13 +883,19 @@ end;
procedure TfrmEditor.cm_EditCopy(const Params:array of string);
begin
editor.CopyToClipboard;
{$IF DEFINED(LCLGTK2) and (LCL_FULLVERSION < 1100000)}
// Workaround for Lazarus bug #0021453
ClipboardSetText(Clipboard.AsText);
{$ENDIF}
end;
procedure TfrmEditor.cm_EditCut(const Params:array of string);
begin
Editor.CutToClipboard;
{$IF DEFINED(LCLGTK2) and (LCL_FULLVERSION < 1100000)}
// Workaround for Lazarus bug #0021453
ClipboardSetText(Clipboard.AsText);
{$ENDIF}
end;
procedure TfrmEditor.cm_EditPaste(const Params:array of string);