paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix: multi caret, allow espape (remove all carets) to be shared with other plugins / make "escape" default

Browse Source 
git-svn-id: trunk@58217 -
This commit is contained in:
martin 2018-06-10 19:54:18 +00:00
parent d684662c07
commit a3e61cf56e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synpluginmulticaret.pp
View File

@ -1876,6 +1876,8 @@ begin
if not FinishComboOnly then
FKeyStrokes.ResetKeyCombo;
Command := FKeyStrokes.FindKeycodeEx(Code, SState, Data, IsStartOfCombo, FinishComboOnly, ComboKeyStrokes);
if (Command = ecPluginMultiCaretClearAll) and (FCarets.Count = 0) then
Command := ecNone;
Handled := (Command <> ecNone) or IsStartOfCombo;
end;