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: TKASCDEdit - copy to clipboard (right to left selection)

Browse source
This commit is contained in:
Alexander Koblov 2018-03-17 08:17:13 +00:00
commit cae5e80a11
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
components/KASToolBar/kascdedit.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Custom edit control with the look and feel like TLabel
Copyright (C) 2017 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2017-2018 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
@ -364,7 +364,11 @@ end;
procedure TKASCDEdit.CopyToClipboard;
begin
Clipboard.AsText:= UTF8Copy(Text, FEditState.SelStart.X + 1, FEditState.SelLength);
if (FEditState.SelLength >= 0) then
Clipboard.AsText:= UTF8Copy(Text, FEditState.SelStart.X + 1, FEditState.SelLength)
else begin
Clipboard.AsText:= UTF8Copy(Text, FEditState.SelStart.X + FEditState.SelLength + 1, -FEditState.SelLength);
end;
end;
initialization