paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 09:19:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix adjusting multi-carets in smColumn mode. Part of issue #39998

Browse Source
This commit is contained in:
Martin 2023-03-05 14:46:38 +01:00
parent bb62b8f64d
commit aa1f0f6ff6
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/synpluginmulticaret.pp
View File

@ -2705,10 +2705,17 @@ begin
else
ExecCommandRepeated;
end;
ecSelColCmdRangeStart..ecSelColCmdRangeEnd:
ecSelectionStart..ecSelectionEnd:
//ecSelColCmdRangeStart..ecSelColCmdRangeEnd:
begin
Include(FStateFlags, sfSkipUndoCarets);
Include(FStateFlags, sfExtendingColumnSel);
if (Command <> ecSelectAll) and
( (Command in [ecSelColCmdRangeStart..ecSelColCmdRangeEnd]) or
(SelectionObj.ActiveSelectionMode = smColumn)
)
then begin
Include(FStateFlags, sfSkipUndoCarets);
Include(FStateFlags, sfExtendingColumnSel);
end;
end;
ecLeft..ecSmartWordRight: begin
Include(FStateFlags, sfSkipUndoCarets);